Gecko [ 167.86.127.34 ]

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-openSUSE-Linux-15.0-ALL	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	139 B	-rw-r--r--
config.info.cs	76 B	-rw-r--r--
config.info.de	132 B	-rw-r--r--
config.info.es	152 B	-rw-r--r--
config.info.fr	140 B	-rw-r--r--
config.info.ms	127 B	-rw-r--r--
config.info.nl	125 B	-rw-r--r--
config.info.no	119 B	-rw-r--r--
config.info.ru	191 B	-rw-r--r--
config.info.uk	216 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.af	0 B	-rw-r--r--
module.info.af.auto	169 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	179 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	247 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	210 B	-rw-r--r--
module.info.ca	139 B	-rw-r--r--
module.info.ca.auto	18 B	-rw-r--r--
module.info.cs	19 B	-rw-r--r--
module.info.cs.auto	137 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	163 B	-rw-r--r--
module.info.de	100 B	-rw-r--r--
module.info.de.auto	15 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	299 B	-rw-r--r--
module.info.es	21 B	-rw-r--r--
module.info.es.auto	130 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	163 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	227 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	165 B	-rw-r--r--
module.info.fr	20 B	-rw-r--r--
module.info.fr.auto	154 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	182 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	138 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	224 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	154 B	-rw-r--r--
module.info.ja	161 B	-rw-r--r--
module.info.ja.auto	21 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	189 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	189 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	168 B	-rw-r--r--
module.info.ms	150 B	-rw-r--r--
module.info.ms.auto	16 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	140 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.auto	130 B	-rw-r--r--
module.info.no	22 B	-rw-r--r--
module.info.no.auto	135 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	156 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	151 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	160 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	158 B	-rw-r--r--
module.info.ru	27 B	-rw-r--r--
module.info.ru.auto	201 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	171 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	147 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	161 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	219 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	183 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	238 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	256 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	181 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	134 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	143 B	-rw-r--r--
save_stunnel.cgi	4.72 KB	-rwxr-xr-x
stunnel-lib.pl	10.31 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