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 : edit_stunnel.cgi

#!/usr/bin/perl
# edit_stunnel.cgi
# Edit or create an SSL tunnel run from inetd

require './stunnel-lib.pl';
&ReadParse();

if ($in{'new'}) {
	&ui_print_header(undef, $text{'create_title'}, "");
	$st = { 'active' => 1 };
	}
else {
	&ui_print_header(undef, $text{'edit_title'}, "");
	@stunnels = &list_stunnels();
	$st = $stunnels[$in{'idx'}];
	}

print &ui_form_start("save_stunnel.cgi", "post");
print &ui_hidden("new",$in{'new'});
print &ui_hidden("idx",$in{'idx'});
print &ui_table_start($text{'edit_header1'}, "width=80%", 4);
print &ui_columns_row([
 "$text{'edit_name'}&nbsp;",
 &ui_textbox("name", $st->{'name'}, 15),
 "&nbsp;$text{'edit_port'}&nbsp;",
 &ui_textbox("port", $st->{'port'}, 6)
 ]);
print &ui_columns_row([
 "$text{'edit_active'}",
 &ui_oneradio("active","1", $text{'yes'}, ($st->{'active'} ? 1 : 0) ).
 "&nbsp;".&ui_oneradio("active","0", $text{'no'}, ($st->{'active'} ? 0 : 1) ),
 "$text{'edit_type'}",
 ( !$in{'new'} ? "<tt>$st->{'type'}</tt>" : 
 ( $has_inetd && $has_xinetd ? &ui_select("type", undef,[["xinetd","xinetd","selected"],["inetd","inetd",""]]) : "") )
 ]);
print ui_table_end();
print " ";

if ($in{'new'}) {
	$ptymode = 'l';
	}
elsif (&get_stunnel_version() >= 4) {
	# Parse new-style stunnel configuration file
	if ($st->{'args'} =~ /^(\S+)\s+(\S+)/) {
		$cfile = $2;
		@conf = &get_stunnel_config($cfile);
		($conf) = grep { !$_->{'name'} } @conf;
		if ($cmd = $conf->{'values'}->{'exec'}) {
			$args = $conf->{'values'}->{'execargs'};
			$ptymode = $conf->{'values'}->{'pty'} eq 'yes' ? "L"
								       : "l";
			}
		else {
			$rport = $conf->{'values'}->{'connect'};
			if ($rport =~ /^(\S+):(\d+)/) {
				$rhost = $1;
				$rport = $2;
				}
			}
		$pem = $conf->{'values'}->{'cert'};
		$cmode = $conf->{'values'}->{'client'} =~ /yes/i;
		$tcpw = $conf->{'values'}->{'service'};
		$iface = $conf->{'values'}->{'local'};
		}
	}
else {
	# Parse old-style stunnel parameters
	if ($st->{'args'} =~ s/\s*-([lL])\s+(\S+)\s+--\s+(.*)// ||
	    $st->{'args'} =~ s/\s*-([lL])\s+(\S+)//) {
		$ptymode = $1;
		$cmd = $2;
		$args = $3;
		}
	if ($st->{'args'} =~ s/\s*-r\s+((\S+):)?(\d+)//) {
		$rhost = $2;
		$rport = $3;
		}
	if ($st->{'args'} =~ s/\s*-p\s+(\S+)//) {
		$pem = $1;
		}
	if ($st->{'args'} =~ s/\s*-c//) {
		$cmode = 1;
		}
	if ($st->{'args'} =~ s/\s*-N\s+(\S+)//) {
		$tcpw = $1;
		}
	if ($st->{'args'} =~ s/\s*-I\s+(\S+)//) {
		$iface = $1;
		}
	}

print &ui_table_start($text{'edit_header2'}, "width=80%", 5);
print &ui_columns_row([
 &ui_oneradio("mode","0", $text{'edit_mode0'}, ($ptymode eq 'l' ? 1 : 0) ),
 "$text{'edit_cmd'}", &ui_textbox("cmd0", ( $ptymode eq 'l' ? $cmd : "" ), 20),
 "$text{'edit_args'}", &ui_textbox("args0", ( $ptymode eq 'l' ? $args : "" ), 20)
 ]);
print &ui_columns_row([
 &ui_oneradio("mode","1", $text{'edit_mode1'}, ($ptymode eq 'L' ? 1 : 0) ),
 "$text{'edit_cmd'}", &ui_textbox("cmd1", ( $ptymode eq 'L' ? $cmd : "" ), 20),
 "$text{'edit_args'}", &ui_textbox("args1", ( $ptymode eq 'L' ? $args : "" ), 20)
 ]);
print &ui_columns_row([
 &ui_oneradio("mode","2", $text{'edit_mode2'}, ($rport ? 1 : 0) ),
 "$text{'edit_rhost'}", &ui_textbox("rhost", ( !$rport ? "" : ( $rhost ? $rhost : "localhost" ) ), 20),
 "$text{'edit_rport'}", &ui_textbox("rport", $rport, 6)
 ]);
print ui_table_end();
print " ";

$haspem = $config{'pem_path'} && -r $config{'pem_path'};
print &ui_table_start($text{'edit_header3'}, "width=80%", 2);
if ($in{'new'}) {
 print &ui_columns_row([
 "$text{'edit_pem'}",
 &ui_oneradio("pmode","0", $text{'edit_pem0'})."&nbsp;".
 &ui_oneradio("pmode","1", $text{'edit_pem1'}, ( $haspem ? 0 : 1) )."&nbsp;".
 &ui_oneradio("pmode","2", $text{'edit_pem2'}, ( $haspem ? 1 : 0) )."&nbsp;".
 &ui_filebox("pem", ( $haspem ? $config{'pem_path'} : "" ), 25)
 ]);
} else {
	local $pmode = $pem eq $webmin_pem ? 1 : $pem ? 2 : 0;
 print &ui_columns_row([
 "$text{'edit_pem'}",
 &ui_oneradio("pmode","0", $text{'edit_pem0'}, ( $pmode == 0 ? 1 : 0 ) )."&nbsp;".
 &ui_oneradio("pmode","1", $text{'edit_pem1'}, ( $pmode == 1 ? 1 : 0 ) )."&nbsp;".
 &ui_oneradio("pmode","2", $text{'edit_pem2'}, ( $pmode == 2 ? 1 : 0) )."&nbsp;".
 &ui_filebox("pem", ( $pmode == 2 ? $pem : "" ), 25)
 ]);
}
print &ui_columns_row([
 "$text{'edit_tcpw'}",
 &ui_oneradio("tcpw_def","1", $text{'edit_auto'}, ( $tcpw ? 0 : 1 ) )."&nbsp;".
 &ui_oneradio("tcpw_def","0", undef, ( $tcpw ? 1 : 0 ) )."&nbsp;".
 &ui_textbox("tcpw", $tcpw, 25)
 ]);
print &ui_columns_row([
 "$text{'edit_cmode'}",
 &ui_oneradio("cmode","0", $text{'edit_cmode0'}, ( $cmode ? 0 : 1 ) )."&nbsp;".
 &ui_oneradio("cmode","1", $text{'edit_cmode1'}, ( $cmode ? 1 : 0 ) )
 ]);
print &ui_columns_row([
 "$text{'edit_iface'}",
 &ui_oneradio("iface_def","1", $text{'edit_auto'}, ( $iface ? 0 : 1 ) )."&nbsp;".
 &ui_oneradio("iface_def","0", undef, ( $iface ? 1 : 0 ) )."&nbsp;".
 &ui_textbox("iface", $iface, 25)
 ]);
print ui_table_end();

print &ui_hidden("args",$st->{'args'});
print " ";
if ($in{'new'}) {
 print &ui_submit($text{'create'});
} else {
 print &ui_submit($text{'save'})."&nbsp;".&ui_submit($text{'delete'},"delete");
}
print &ui_form_end();

&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit_stunnel.cgi