Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	239 B	-rw-r--r--
backup_config.pl	694 B	-rwxr-xr-x
bootup.cgi	381 B	-rwxr-xr-x
config	241 B	-rw-r--r--
config-Amazon-Linux-2-ALL	235 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	235 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	235 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	235 B	-rw-r--r--
config-coherent-linux	256 B	-rw-r--r--
config-debian-linux	235 B	-rw-r--r--
config-mandrake-linux	250 B	-rw-r--r--
config-openmamba-linux	250 B	-rw-r--r--
config-redhat-linux	256 B	-rw-r--r--
config-suse-linux-8.2-ALL	235 B	-rw-r--r--
config-syno-linux	241 B	-rw-r--r--
config-trustix-linux	235 B	-rw-r--r--
config.info	342 B	-rw-r--r--
config.info.ca	378 B	-rw-r--r--
config.info.ca.UTF-8	381 B	-rw-r--r--
config.info.de	386 B	-rw-r--r--
config.info.de.UTF-8	386 B	-rw-r--r--
config.info.es	399 B	-rw-r--r--
config.info.es.UTF-8	401 B	-rw-r--r--
config.info.fr	395 B	-rw-r--r--
config.info.fr.UTF-8	395 B	-rw-r--r--
config.info.nl	388 B	-rw-r--r--
config.info.nl.UTF-8	388 B	-rw-r--r--
config.info.no	373 B	-rw-r--r--
config.info.no.UTF-8	373 B	-rw-r--r--
edit.cgi	8.25 KB	-rwxr-xr-x
edit_config.cgi	3.6 KB	-rwxr-xr-x
edit_policy.cgi	1.3 KB	-rwxr-xr-x
edit_secret.cgi	2.1 KB	-rwxr-xr-x
export.cgi	934 B	-rwxr-xr-x
export_form.cgi	776 B	-rwxr-xr-x
import.cgi	1.61 KB	-rwxr-xr-x
import_form.cgi	776 B	-rwxr-xr-x
index.cgi	5.21 KB	-rwxr-xr-x
install_check.pl	450 B	-rwxr-xr-x
ipsec-lib.pl	10.31 KB	-rwxr-xr-x
list_secrets.cgi	1.08 KB	-rwxr-xr-x
log_parser.pl	820 B	-rwxr-xr-x
module.info	184 B	-rw-r--r--
module.info.ca	121 B	-rw-r--r--
module.info.ca.UTF-8	134 B	-rw-r--r--
module.info.cz	29 B	-rw-r--r--
module.info.cz.UTF-8	35 B	-rw-r--r--
module.info.de	119 B	-rw-r--r--
module.info.de.UTF-8	131 B	-rw-r--r--
module.info.es	35 B	-rw-r--r--
module.info.es.UTF-8	42 B	-rw-r--r--
module.info.ms_MY	128 B	-rw-r--r--
module.info.ms_MY.UTF-8	140 B	-rw-r--r--
module.info.nl	31 B	-rw-r--r--
module.info.nl.UTF-8	37 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.UTF-8	38 B	-rw-r--r--
newkey.cgi	388 B	-rwxr-xr-x
restart.cgi	210 B	-rwxr-xr-x
save.cgi	4.8 KB	-rwxr-xr-x
save_config.cgi	1.8 KB	-rwxr-xr-x
save_policy.cgi	717 B	-rwxr-xr-x
save_secret.cgi	1.53 KB	-rwxr-xr-x
showkey.cgi	861 B	-rwxr-xr-x
start.cgi	281 B	-rwxr-xr-x
stop.cgi	243 B	-rwxr-xr-x
up.cgi	783 B	-rwxr-xr-x

Code Editor : save.cgi

#!/usr/bin/perl
# save.cgi
# Save, create or delete an ipsec connection

require './ipsec-lib.pl';
&ReadParse();
if ($in{'export'}) {
	# Just redirect to export form
	&redirect("export_form.cgi?idx=$in{'idx'}");
	exit;
	}
@conf = &get_config();
if ($in{'new'}) {
	$conn = { 'name' => 'conn',
		  'values' => { } };
	$conn->{'value'} = '%default' if ($in{'new'} == 2);
	}
else {
	$conn = $conf[$in{'idx'}];
	}
&error_setup($text{'save_err'});

$file = $conn->{'file'} || $config{'file'};
&lock_file($file);
if ($in{'delete'}) {
	# Just remove this connection
	&delete_conn($conn);
	}
else {
	# Validate and store general inputs
	if ($conn->{'value'} ne '%default') {
		$in{'name'} =~ /^\S+$/ || &error($text{'save_ename'});
		$conn->{'value'} = $in{'name'};
		}
	if ($in{'auto'}) {
		$conn->{'values'}->{'auto'} = $in{'auto'};
		}
	else {
		delete($conn->{'values'}->{'auto'});
		}
	if ($in{'comp'}) {
		$conn->{'values'}->{'compress'} = $in{'comp'};
		}
	else {
		delete($conn->{'values'}->{'compress'});
		}
	if ($in{'pfs'}) {
		$conn->{'values'}->{'pfs'} = $in{'pfs'};
		}
	else {
		delete($conn->{'values'}->{'pfs'});
		}
	if ($in{'type'}) {
		$conn->{'values'}->{'type'} = $in{'type'};
		}
	else {
		delete($conn->{'values'}->{'type'});
		}
	if ($in{'authby'}) {
		$conn->{'values'}->{'authby'} = $in{'authby'};
		}
	else {
		delete($conn->{'values'}->{'authby'});
		}
	if ($in{'keying_def'}) {
		delete($conn->{'values'}->{'keyingtries'});
		}
	else {
		$in{'keying'} =~ /^\d+$/ || &error($text{'save_ekeying'});
		$conn->{'values'}->{'keyingtries'} = $in{'keying'};
		}
	if ($in{'auth'}) {
		$conn->{'values'}->{'auth'} = $in{'auth'};
		}
	else {
		delete($conn->{'values'}->{'auth'});
		}

if ($in{'esp'}) {
		$conn->{'values'}->{'esp'} = $in{'esp'}.$in{'esp_only'};
		}
	else {
		delete($conn->{'values'}->{'esp'});
		}

if ($in{'keylife_def'}) {
		delete($conn->{'values'}->{'keylife'});
		}
	else {
		$in{'keylife'} =~ /^[0-9\.]+$/ ||
			&error($text{'save_ekeylife'});
		$conn->{'values'}->{'keylife'} =
			$in{'keylife'}.$in{'keylife_units'};
		}

if ($in{'ikelifetime_def'}) {
		delete($conn->{'values'}->{'ikelifetime'});
		}
	else {
		$in{'ikelifetime'} =~ /^[0-9\.]+$/ ||
			&error($text{'save_eikelifetime'});
		$conn->{'values'}->{'ikelifetime'} =
			$in{'ikelifetime'}.$in{'ikelifetime_units'};
		}

# Validate and store left/right inputs
	foreach $d ('left', 'right') {
		# left/right
		if ($in{"${d}_mode"} == -1) {
			delete($conn->{'values'}->{$d});
			}
		elsif ($in{"${d}_mode"} == 0) {
			$conn->{'values'}->{$d} = '%defaultroute';
			}
		elsif ($in{"${d}_mode"} == 1) {
			$conn->{'values'}->{$d} = '%any';
			}
		elsif ($in{"${d}_mode"} == 2) {
			$conn->{'values'}->{$d} = '%opportunistic';
			}
		else {
			&to_ipaddress($in{$d}) || &error($text{"save_e${d}"});
			$conn->{'values'}->{$d} = $in{$d};
			}

# leftid/rightid
		if ($in{"${d}_id_mode"} == 0) {
			delete($conn->{'values'}->{"${d}id"});
			}
		elsif ($in{"${d}_id_mode"} == 1) {
			&check_ipaddress($in{"${d}_id"}) ||
				&error($text{"save_e${d}id1"});
			$conn->{'values'}->{"${d}id"} = $in{"${d}_id"};
			}
		else {
			$in{"${d}_id"} =~ /^[a-z0-9\.\-]+$/i ||
				&error($text{"save_e${d}id2"});
			$conn->{'values'}->{"${d}id"} = "@".$in{"${d}_id"};
			}

# leftsubnet/rightsubnet
		if ($in{"${d}_subnet_def"}) {
			delete($conn->{'values'}->{"${d}subnet"});
			}
		else {
			$in{"${d}_subnet"} =~ /^(\S+)\/(\d+)$/ &&
			    &check_ipaddress("$1") && $2 <= 32 ||
				&error($text{"save_e${d}subnet"});
			$conn->{'values'}->{"${d}subnet"} = $in{"${d}_subnet"};
			}

# leftrsasigkey/rightrsasigkey
		if ($in{"${d}_key_mode"} == 0) {
			delete($conn->{'values'}->{"${d}rsasigkey"});
			}
		elsif ($in{"${d}_key_mode"} == 1) {
			$conn->{'values'}->{"${d}rsasigkey"} = '%dns';
			}
		else {
			$in{"${d}_key"} =~ s/\s//g;
			$in{"${d}_key"} || &error($text{"save_e${d}key"});
			$conn->{'values'}->{"${d}rsasigkey"} = $in{"${d}_key"};
			}

# leftnexthop/rightnexthop
		if ($in{"${d}_hop_mode"} == 0) {
			delete($conn->{'values'}->{"${d}nexthop"});
			}
		elsif ($in{"${d}_hop_mode"} == 1) {
			$conn->{'values'}->{"${d}nexthop"} = '%direct';
			}
		elsif ($in{"${d}_hop_mode"} == 3) {
			$conn->{'values'}->{"${d}nexthop"} = '%defaultroute';
			}
		else {
			&check_ipaddress($in{"${d}_hop"}) ||
				&error($text{"save_e${d}hop"});
			$conn->{'values'}->{"${d}nexthop"} = $in{"${d}_hop"};
			}

# leftcert/rightcert
		if ($in{"${d}_cert_def"}) {
			delete($conn->{'values'}->{"${d}cert"});
			}
		else {
			$in{"${d}_cert"} =~ /^(\S+)$/ ||
				&error($text{"save_e${d}cert"});
			$conn->{'values'}->{"${d}cert"} = $in{"${d}_cert"};
			}
		}

# Update or add
	if ($in{'new'}) {
		&create_conn($conn);
		}
	else {
		&modify_conn($conn);
		}
	}
&unlock_file($file);
&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify",
	    "conn", $conn->{'value'}, $conn->{'values'});
&redirect("");

${this.title}

Code Editor : save.cgi