Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	266 B	-rw-r--r--
backup_config.pl	613 B	-rwxr-xr-x
cgi_args.pl	357 B	-rwxr-xr-x
config	73 B	-rw-r--r--
config.info	138 B	-rw-r--r--
config.info.ca	178 B	-rw-r--r--
config.info.ca.UTF-8	179 B	-rw-r--r--
config.info.de	145 B	-rw-r--r--
config.info.de.UTF-8	145 B	-rw-r--r--
config.info.fr	103 B	-rw-r--r--
config.info.fr.UTF-8	103 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms_MY	153 B	-rw-r--r--
config.info.ms_MY.UTF-8	153 B	-rw-r--r--
config.info.nl	93 B	-rw-r--r--
config.info.nl.UTF-8	93 B	-rw-r--r--
config.info.no	133 B	-rw-r--r--
config.info.no.UTF-8	133 B	-rw-r--r--
config.info.pl	136 B	-rw-r--r--
config.info.pl.UTF-8	141 B	-rw-r--r--
delete_rules.cgi	541 B	-rwxr-xr-x
edit_rule.cgi	3.35 KB	-rwxr-xr-x
index.cgi	1.44 KB	-rwxr-xr-x
module.info	144 B	-rw-r--r--
module.info.ca	103 B	-rw-r--r--
module.info.ca.UTF-8	116 B	-rw-r--r--
module.info.de	96 B	-rw-r--r--
module.info.de.UTF-8	108 B	-rw-r--r--
module.info.hu	86 B	-rw-r--r--
module.info.hu.UTF-8	108 B	-rw-r--r--
module.info.ms_MY	101 B	-rw-r--r--
module.info.ms_MY.UTF-8	113 B	-rw-r--r--
module.info.nl	21 B	-rw-r--r--
module.info.nl.UTF-8	27 B	-rw-r--r--
module.info.no	21 B	-rw-r--r--
module.info.no.UTF-8	27 B	-rw-r--r--
module.info.pl	92 B	-rw-r--r--
module.info.pl.UTF-8	106 B	-rw-r--r--
save_rule.cgi	2.21 KB	-rwxr-xr-x
tcpwrappers-lib.pl	2.85 KB	-rwxr-xr-x

Code Editor : save_rule.cgi

#!/usr/bin/perl
# Create, update or delete a rule

require './tcpwrappers-lib.pl';
&ReadParse();
&error_setup($text{'save_errtitle'});
$type = $in{'allow'} ? 'allow' : 'deny';
$file = $config{'hosts_'.$type};
@rules = &list_rules($file);

if (!$in{'new'}) {
    ($rule) = grep { $_->{'id'} == $in{'id'} } @rules;
    $rule || &error($text{'edit_eid'});
}
        
&lock_file($file);
if ($in{'delete'}) {
    # Delete one rule
    &delete_rule($file, $rule);
    goto ALLDONE;
} else {
    # Check input
    &error($text{'save_eservice'}) if ($in{'service_custom'} && $in{'service_custom'} !~ /^[\w\d\s\-\/\.,]+$/);
    &error($text{'save_eservice'}) if ($in{'service_except_custom'} && $in{'service_except_custom'} !~ /^[\w\d\s\-\/\.,]+$/);

&error($text{'save_ehost'}) if ($in{'host_text_def'} == 0 && $in{'host_text'} !~ /^[\w\d\s\-\/\@\.,]+$/);
    &error($text{'save_ehost'}) if ($in{'host_except'} && $in{'host_except'} !~ /^[\w\d\s\-\/\@\.,]+$/);

for (my $i = 0; $i <= $in{'cmd_count'}; $i++) {
	&error($text{'save_ecmd'}) if ($in{'cmd_'.$i} && $in{'cmd_'.$i} !~ /^[\w\d\s\-\/\@\%\|\'\"\&\.,]+$/);
    }
}

# Build rule record
if ($in{'service_custom'}) {
    $service = $in{'service_custom'};
    if ($in{'service_except_custom'}) {
	$service .= " EXCEPT ".$in{'service_except_custom'};
    }
} else {
    # listed from (x)inetd
    $service = join(",", split /\0/, $in{'service'});
    if ($in{'service_except'}) {
	$service .= " EXCEPT ".join(",", split /\0/, $in{'service_except'});
    }
}

$host = $in{'host_text_def'} ? $in{'host_select'} : $in{'host_text'};
if ($in{'host_except'}) {
    $host .= " EXCEPT ".$in{'host_except'};
}

$cmd = '';
for (my $i = 0; $i <= $in{'cmd_count'}; $i++) {
    next unless ($in{'cmd_'.$i});
    $cmd .= $cmd ? " : " : '';
    $cmd .= $in{'cmd_directive_'.$i} ne 'none' ? $in{'cmd_directive_'.$i}.' ' : '';
    $cmd .= $in{'cmd_'.$i};
}

my %newrule = ( 'service' => $service,
		'host' => $host,
		'cmd' => $cmd
		);

# Save to file
if ($in{'new'}) {
    &create_rule($file, \%newrule);
} else {
    &modify_rule($file, $rule, \%newrule);
}

ALLDONE:
&unlock_file($file);
&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify", "rule", $rule->{'id'});
&redirect("index.cgi?type=$type");

${this.title}

Code Editor : save_rule.cgi