PAL.C.T MINI SHELL
#!/usr/bin/perl
# save_defaults.cgi
# Save default options
require './xinetd-lib.pl';
&ReadParse();
&error_setup($text{'defs_err'});
&lock_file($config{'xinetd_conf'});
@conf = &get_xinetd_config();
foreach $c (@conf) {
if ($c->{'name'} eq 'defaults') {
$defs = $c;
$found++;
}
}
if (!$found) {
$defs = { 'name' => 'defaults',
'members' => [ ] };
}
# Parse and save inputs
&set_member_value($defs, 'only_from', $in{'from_def'} ? undef :
$in{'from'} ? split(/\s+/, $in{'from'}) : ("") );
&set_member_value($defs, 'no_access', $in{'access_def'} ? undef :
$in{'access'} ? split(/\s+/, $in{'access'}) : ("") );
if ($in{'log_mode'} == 0) {
&set_member_value($defs, 'log_type');
}
elsif ($in{'log_mode'} == 1) {
&set_member_value($defs, 'log_type', 'SYSLOG', $in{'facility'},
$in{'level'} ? ( $in{'level'} ) : ( ) );
}
elsif ($in{'log_mode'} == 2) {
$in{'file'} =~ /^\S+$/ || &error($text{'defs_efile'});
$in{'soft'} =~ /^\d*$/ || &error($text{'defs_esoft'});
$in{'hard'} =~ /^\d*$/ || &error($text{'defs_ehard'});
&set_member_value($defs, 'log_type', 'FILE', $in{'file'},
$in{'soft'} ? ( $in{'soft'}*$in{'soft_units'} ) : ( ),
$in{'hard'} ? ( $in{'hard'}*$in{'hard_units'} ) : ( ) );
}
&set_member_value($defs, 'log_on_success', split(/\0/, $in{'success'}));
&set_member_value($defs, 'log_on_failure', split(/\0/, $in{'failure'}));
if ($found) {
&modify_xinet($defs);
}
else {
&create_xinet($defs);
}
&unlock_file($config{'xinetd_conf'});
&webmin_log("defaults", undef, undef, $defs->{'quick'});
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`