Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	99 B	-rw-r--r--
apply.cgi	187 B	-rwxr-xr-x
backup_config.pl	1.09 KB	-rwxr-xr-x
config	37 B	-rw-r--r--
config-coherent-linux	31 B	-rw-r--r--
config-debian-linux	31 B	-rw-r--r--
config-gentoo-linux	31 B	-rw-r--r--
config-mandrake-linux	31 B	-rw-r--r--
config-openmamba-linux	31 B	-rw-r--r--
config-redhat-linux	31 B	-rw-r--r--
config-redhat-linux-14-ALL	30 B	-rw-r--r--
config-redhat-linux-18.0-ALL	30 B	-rw-r--r--
config-suse-linux-8.2-ALL	31 B	-rw-r--r--
config-syno-linux	37 B	-rw-r--r--
config-trustix-linux	31 B	-rw-r--r--
config-united-linux	31 B	-rw-r--r--
config.info	121 B	-rw-r--r--
config.info.ca	136 B	-rw-r--r--
config.info.ca.UTF-8	139 B	-rw-r--r--
config.info.cz	124 B	-rw-r--r--
config.info.cz.UTF-8	76 B	-rw-r--r--
config.info.de	136 B	-rw-r--r--
config.info.de.UTF-8	136 B	-rw-r--r--
config.info.es	156 B	-rw-r--r--
config.info.es.UTF-8	156 B	-rw-r--r--
config.info.fr	152 B	-rw-r--r--
config.info.fr.UTF-8	152 B	-rw-r--r--
config.info.ja_JP.euc	0 B	-rw-r--r--
config.info.ms	0 B	-rw-r--r--
config.info.ms_MY	127 B	-rw-r--r--
config.info.ms_MY.UTF-8	127 B	-rw-r--r--
config.info.nl	125 B	-rw-r--r--
config.info.nl.UTF-8	125 B	-rw-r--r--
config.info.no	119 B	-rw-r--r--
config.info.no.UTF-8	119 B	-rw-r--r--
config.info.ru.UTF-8	191 B	-rw-r--r--
config.info.ru_RU	131 B	-rw-r--r--
config.info.ru_RU.UTF-8	191 B	-rw-r--r--
config.info.ru_SU	131 B	-rw-r--r--
config.info.uk_UA	147 B	-rw-r--r--
config.info.uk_UA.UTF-8	213 B	-rw-r--r--
delete_tunnels.cgi	651 B	-rwxr-xr-x
edit_stunnel.cgi	5.68 KB	-rwxr-xr-x
feedback_files.pl	205 B	-rwxr-xr-x
index.cgi	3.95 KB	-rwxr-xr-x
install_check.pl	378 B	-rwxr-xr-x
log_parser.pl	536 B	-rwxr-xr-x
module.info	188 B	-rw-r--r--
module.info.ca	137 B	-rw-r--r--
module.info.ca.UTF-8	151 B	-rw-r--r--
module.info.cz	19 B	-rw-r--r--
module.info.cz.UTF-8	25 B	-rw-r--r--
module.info.de	104 B	-rw-r--r--
module.info.de.UTF-8	116 B	-rw-r--r--
module.info.es	20 B	-rw-r--r--
module.info.es.UTF-8	27 B	-rw-r--r--
module.info.fr	20 B	-rw-r--r--
module.info.fr.UTF-8	26 B	-rw-r--r--
module.info.ja_JP.UTF-8	179 B	-rw-r--r--
module.info.ja_JP.euc	139 B	-rw-r--r--
module.info.ms	21 B	-rw-r--r--
module.info.ms.UTF-8	27 B	-rw-r--r--
module.info.ms_MY	156 B	-rw-r--r--
module.info.ms_MY.UTF-8	168 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	22 B	-rw-r--r--
module.info.no.UTF-8	28 B	-rw-r--r--
module.info.ru.UTF-8	33 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	36 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
save_stunnel.cgi	4.72 KB	-rwxr-xr-x
stunnel-lib.pl	10.3 KB	-rwxr-xr-x

Code Editor : save_stunnel.cgi

#!/usr/bin/perl
# save_stunnel.cgi
# Save, create or delete an SSL tunnel

require './stunnel-lib.pl';
&ReadParse();
&error_setup($text{'save_err'});

if ($in{'idx'} ne '') {
	@stunnels = &list_stunnels();
	$st = $stunnels[$in{'idx'}];
	%old = %$st;
	}

if ($in{'delete'}) {
	# Just delete from inetd.conf and xinetd.conf
	&lock_file($st->{'file'});
	if (&get_stunnel_version(\$dummy) >= 4) {
		if ($st->{'args'} =~ /^(\S+)\s+(\S+)/) {
			$cfile = $2;
			if ($cfile =~ /^\Q$module_config_directory\E\//) {
				&lock_file($cfile);
				unlink($cfile);
				}
			}
		}
	&delete_stunnel($st);
	}
else {
	# Validate inputs
	$in{'name'} =~ /^[A-z][A-z0-9\_\-]+$/ || &error($text{'save_ename'});
	$in{'port'} =~ /^\d+$/ || &error($text{'save_eport'});
	if ($in{'pmode'} == 2) {
		-r $in{'pem'} || &error(&text('save_epem', $in{'pem'}));
		}
	if (!$in{'tcpw_def'}) {
		$in{'tcpw'} =~ /^\S+$/ || &error($text{'save_etcpw'});
		}
	if (!$in{'iface_def'}) {
		&to_ipaddress($in{'iface'}) || &to_ip6address($in{'iface'}) ||
			&error($text{'save_eiface'});
		}
	if ($in{'mode'} == 0 || $in{'mode'} == 1) {
		# Running a command
		$cmd = $in{'mode'} == 0 ? $in{'cmd0'} : $in{'cmd1'};
		$args = $in{'mode'} == 0 ? $in{'args0'} : $in{'args1'};
		&has_command($cmd) || &error($text{'save_ecmd'});
		}
	else {
		# Connecting to remote host and port
		&to_ipaddress($in{'rhost'}) || &to_ip6address($in{'rhost'}) ||
			&error($text{'save_erhost'});
		$in{'rport'} =~ /^\d+$/ || &error($text{'save_erport'});
		}

# Create inetd/xinetd config
	if (&get_stunnel_version(\$dummy) >= 4) {
		# New-style args format
		if ($in{'new'}) {
			$cfile = "$module_config_directory/$in{'name'}.conf";
			unlink($cfile);
			$conf = { };
			$st = { 'args' => "$stunnel_shortname $cfile",
				'command' => $config{'stunnel_path'},
				'type' => $in{'type'} };
			}
		else {
			if ($st->{'args'} =~ /^(\S+)\s+(\S+)/) {
				$cfile = $2;
				@conf = &get_stunnel_config($cfile);
				($conf) = grep { !$_->{'name'} } @conf;
				}
			}
		$st->{'name'} = $in{'name'};
		$st->{'port'} = $in{'port'};
		$st->{'active'} = $in{'active'};
		if ($in{'pmode'} == 1) {
			$conf->{'values'}->{'cert'} = $webmin_pem;
			}
		elsif ($in{'pmode'} == 2) {
			$conf->{'values'}->{'cert'} = $in{'pem'};
			}
		else {
			delete($conf->{'values'}->{'cert'});
			}
		$conf->{'values'}->{'client'} = $in{'cmode'} ? 'yes' : 'no';
		if (!$in{'tcpw_def'}) {
			$conf->{'values'}->{'service'} = $in{'tcpw'};
			}
		else {
			delete($conf->{'values'}->{'service'});
			}
		if (!$in{'iface_def'}) {
			$conf->{'values'}->{'local'} = $in{'iface'};
			}
		else {
			delete($conf->{'values'}->{'local'});
			}
		if ($in{'mode'} == 0 || $in{'mode'} == 1) {
			# Running a command
			$conf->{'values'}->{'exec'} = $cmd;
			$conf->{'values'}->{'execargs'} = $args if ($args);
			$conf->{'values'}->{'pty'} = $in{'mode'} ? 'yes' : 'no';
			delete($conf->{'values'}->{'connect'});
			}
		else {
			# Connecting to remote host and port
			if ($in{'rhost'} eq 'localhost') {
				$conf->{'values'}->{'connect'} = $in{'rport'};
				}
			else {
				$conf->{'values'}->{'connect'} =
					"$in{'rhost'}:$in{'rport'}";
				}
			delete($conf->{'values'}->{'exec'});
			delete($conf->{'values'}->{'execargs'});
			delete($conf->{'values'}->{'pty'});
			}

# Save this stunnel config file
		if ($in{'new'}) {
			&create_stunnel_service($conf, $cfile);
			}
		else {
			&modify_stunnel_service($conf, $cfile);
			}
		}
	else {
		# Old-style args format
		if ($in{'new'}) {
			$st = { 'args' => $stunnel_shortname,
				'command' => $config{'stunnel_path'},
				'type' => $in{'type'} };
			}
		else {
			$st->{'args'} = $in{'args'};
			}
		$st->{'name'} = $in{'name'};
		$st->{'port'} = $in{'port'};
		$st->{'active'} = $in{'active'};
		if ($in{'pmode'} == 1) {
			$st->{'args'} .= " -p $webmin_pem";
			}
		elsif ($in{'pmode'} == 2) {
			$st->{'args'} .= " -p $in{'pem'}";
			}
		if ($in{'cmode'}) {
			$st->{'args'} .= " -c";
			}
		if (!$in{'tcpw_def'}) {
			$st->{'args'} .= " -N $in{'tcpw'}";
			}
		if (!$in{'iface_def'}) {
			$st->{'args'} .= " -I $in{'iface'}";
			}
		if ($in{'mode'} == 0 || $in{'mode'} == 1) {
			# Running a command
			if ($in{'mode'} == 0) {
				$st->{'args'} .= " -l $cmd";
				}
			else {
				$st->{'args'} .= " -L $cmd";
				}
			if ($args) {
				$st->{'args'} .= " -- $args";
				}
			}
		else {
			# Connecting to remote host and port
			if ($in{'rhost'} eq 'localhost') {
				$st->{'args'} .= " -r $in{'rport'}";
				}
			else {
				$st->{'args'} .=" -r $in{'rhost'}:$in{'rport'}";
				}
			}
		}

if ($in{'new'}) {
		&lock_create_file();
		&create_stunnel($st);
		}
	else {
		&lock_file($old{'file'});
		&modify_stunnel(\%old, $st);
		}
	}
&unlock_all_files();
&webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
	    "stunnel", $st->{'name'}, $st);
&redirect("");

${this.title}

Code Editor : save_stunnel.cgi