Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	110 B	-rw-r--r--
atboot.cgi	866 B	-rwxr-xr-x
backup_config.pl	718 B	-rwxr-xr-x
config	100 B	-rw-r--r--
config-debian-linux	118 B	-rw-r--r--
config-redhat-linux	118 B	-rw-r--r--
config-syno-linux	100 B	-rw-r--r--
config.info	196 B	-rw-r--r--
config.info.ca	245 B	-rw-r--r--
config.info.ca.UTF-8	249 B	-rw-r--r--
config.info.de	206 B	-rw-r--r--
config.info.de.UTF-8	206 B	-rw-r--r--
config.info.ms_MY	201 B	-rw-r--r--
config.info.ms_MY.UTF-8	201 B	-rw-r--r--
config.info.no	203 B	-rw-r--r--
config.info.no.UTF-8	203 B	-rw-r--r--
config.info.pl	226 B	-rw-r--r--
config.info.pl.UTF-8	232 B	-rw-r--r--
delete_actions.cgi	824 B	-rwxr-xr-x
delete_filters.cgi	824 B	-rwxr-xr-x
delete_jails.cgi	571 B	-rwxr-xr-x
edit_action.cgi	2.07 KB	-rwxr-xr-x
edit_config.cgi	1.62 KB	-rwxr-xr-x
edit_filter.cgi	1.62 KB	-rwxr-xr-x
edit_jail.cgi	3.85 KB	-rwxr-xr-x
edit_jaildef.cgi	2.55 KB	-rwxr-xr-x
edit_manual.cgi	1 KB	-rwxr-xr-x
fail2ban-lib.pl	13.35 KB	-rw-r--r--
index.cgi	2.04 KB	-rwxr-xr-x
install_check.pl	412 B	-rwxr-xr-x
list_actions.cgi	1.1 KB	-rwxr-xr-x
list_filters.cgi	1.15 KB	-rwxr-xr-x
list_jails.cgi	1.5 KB	-rwxr-xr-x
log_parser.pl	751 B	-rwxr-xr-x
module.info	201 B	-rw-r--r--
module.info.ca	148 B	-rw-r--r--
module.info.ca.UTF-8	161 B	-rw-r--r--
module.info.de	142 B	-rw-r--r--
module.info.de.UTF-8	154 B	-rw-r--r--
module.info.ms_MY	167 B	-rw-r--r--
module.info.ms_MY.UTF-8	179 B	-rw-r--r--
module.info.no	36 B	-rw-r--r--
module.info.no.UTF-8	42 B	-rw-r--r--
module.info.pl	153 B	-rw-r--r--
module.info.pl.UTF-8	170 B	-rw-r--r--
restart.cgi	281 B	-rwxr-xr-x
save_action.cgi	1.81 KB	-rwxr-xr-x
save_config.cgi	922 B	-rwxr-xr-x
save_filter.cgi	1.64 KB	-rwxr-xr-x
save_jail.cgi	3.66 KB	-rwxr-xr-x
save_jaildef.cgi	1.44 KB	-rwxr-xr-x
save_manual.cgi	567 B	-rwxr-xr-x
start.cgi	273 B	-rwxr-xr-x
stop.cgi	269 B	-rwxr-xr-x
syslog_logs.pl	527 B	-rwxr-xr-x

Code Editor : save_jail.cgi

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

use strict;
use warnings;
require './fail2ban-lib.pl';
our (%in, %text, %config);
&ReadParse();
&error_setup($text{'jail_err'});

my $jail;
my @jails = &list_jails();

if ($in{'new'}) {
	# Create new jail object
	my $jfile = "$config{'config_dir'}/jail.conf";
	my $jlfile = "$config{'config_dir'}/jail.local";
	$jail = { 'members' => [ ],
		  'file' => -r $jlfile ? $jlfile : $jfile };
	}
else {
	# Find existing jail
	($jail) = grep { $_->{'name'} eq $in{'name'} } @jails;
	$jail || &error($text{'jail_egone'});
	}

if ($in{'delete'}) {
	# Just delete the jail
	&lock_all_config_files();
	&delete_section($jail->{'file'}, $jail,
			$jail->{'file'} =~ /jail.local$/ ? 1 : 0);
	&unlock_all_config_files();
	}
else {
	# Validate inputs
	my $file;
	$in{'name'} =~ /^[a-z0-9\_\-]+$/i || &error($text{'jail_ename'});
	$jail->{'name'} = $in{'name'};
	if ($in{'new'} || $in{'name'} ne $in{'old'}) {
		# Check for clash
		my ($clash) = grep { $_->{'name'} eq $in{'name'} } @jails;
		$clash && &error($text{'jail_eclash'});
		}

# Parse and validate actions
	my @actions;
	for(my $i=0; defined($in{"action_$i"}); $i++) {
		next if (!$in{"action_$i"});
		my @opts;
		if ($in{"name_$i"}) {
			$in{"name_$i"} =~ /^(%$\S+$)?[A-Za-z0-9\.\_\-]+$/ ||
				&error(&text('jail_eaname', $i+1));
			push(@opts, "name=".$in{"name_$i"});
			}
		if ($in{"port_$i"}) {
			my @p = split(/,/, $in{"port_$i"});
			foreach my $p (split(/,/, $in{"port_$i"})) {
				$p =~ /^\d+$/ ||
				  $p =~ /^\d+:\d+$/ ||
				    getservbyname($p,
					  $in{"protocol_$i"} || "tcp") ||
				      $p =~ /%$\S+$s/ ||
					&error(&text('jail_eport', $i+1));
				}
			if (@p > 1) {
				push(@opts, "port="."\"".$in{"port_$i"}."\"");
				}
			else {
				push(@opts, "port=".$in{"port_$i"});
				}
			}
		if ($in{"protocol_$i"}) {
			push(@opts, "protocol=".$in{"protocol_$i"});
			}
		push(@opts, split(/\s+/, $in{"others_$i"}));
		push(@actions, $in{"action_$i"}."[".join(", ", @opts)."]");
		}

# Split and validate log file paths
	my @logpaths = grep { /\S/ } split(/\r?\n/, $in{'logpath'});
	@logpaths || &error($text{'jail_elogpaths'});
	foreach my $l (@logpaths) {
		$l =~ s/^\s*//;
		$l =~ s/\s*$//;
		$l =~ /^\/\S+$/ || $l =~ /^\%\(/ ||
			&error($text{'jail_elogpath'});
		}

# Validate various counters
	foreach my $f ("maxretry", "findtime", "bantime") {
		$in{$f.'_def'} || $in{$f} =~ /^\-?\d+(\.\d+)?[mhdwy]?$/ ||
			&error($text{'jail_e'.$f});
		}

# Split and validate IPs to ignore
	my @ignoreips = $in{'ignoreip_def'} ? ( )
					    : split(/\s+/, $in{'ignoreip'});
	foreach my $ip (@ignoreips) {
		&check_ipaddress($ip) || &check_ip6address($ip) ||
		    ($ip =~ /^([0-9\.]+)\/(\d+)/ && &check_ipaddress("$1")) ||
		    &to_ipaddress($ip) ||
			&error($text{'jail_eignoreip'});
		}

# Create new section or rename existing if needed
	&lock_all_config_files();
	if ($in{'new'}) {
		&create_section($jail->{'file'}, $jail);
		}
	elsif ($in{'name'} ne $in{'old'}) {
		&modify_section($jail->{'file'}, $jail);
		}

# Save directives within the section
	&save_directive("enabled", $in{'enabled'} ? 'true' : 'false', $jail);
	&save_directive("filter", $in{'filter'} || undef, $jail);
	&save_directive("action", @actions ? join("\n", @actions)
					   : undef, $jail);
	&save_directive("logpath", join("\n", @logpaths), $jail);
	foreach my $f ("maxretry", "findtime", "bantime") {
		&save_directive($f, $in{$f."_def"} ? undef : $in{$f}, $jail);
		}
	&save_directive("ignoreip",
		@ignoreips ? join(" ", @ignoreips) : undef, $jail);

&unlock_all_config_files();
	}

# Log and redirect
&webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'update',
	    'jail', $jail->{'name'});
&redirect("list_jails.cgi");

${this.title}

Code Editor : save_jail.cgi