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

#!/usr/bin/perl
# index.cgi
# Display all existing SSL tunnels

require './stunnel-lib.pl';

# Check if stunnel is installed
if (!-x $config{'stunnel_path'}) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
	print &text('index_estunnel', "<tt>$config{'stunnel_path'}</tt>",
		 "$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}

# Check if inetd or xinetd is installed
if (!$has_inetd && !$has_xinetd) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
	print "$text{'index_einetd'}\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}

# Get the version
$ver = &get_stunnel_version(\$out);
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
	&help_search_link("stunnel", "man", "doc"), undef, undef,
	&text('index_version', $ver));
#if ($ver >= 4) {
#	print "",&text('index_eversion', $ver, 4.0),"\n";
#	print &ui_hr();
#	&ui_print_footer("/", $text{'index'});
#	exit;
#	}

# List all tunnels currently setup in inetd
$hasconfig = 1;
@tunnels = &list_stunnels();
@links = ( &select_all_link("d"),
	 &select_invert_link("d"),
	 &ui_link("edit_stunnel.cgi?new=1",$text{'index_add'}) );
if (@tunnels) {
	print &ui_form_start("delete_tunnels.cgi", "post");
	@tds = ( "width=5" );
	print &ui_links_row(\@links);
	print &ui_columns_start([ "",
				 $text{'index_name'},
				 $text{'index_port'},
				 $text{'index_active'},
				 $text{'index_action'} ], 100, 0, \@tds); 
	foreach $t (@tunnels) {
		local @cols;
		if ($ver > 4) {
			# Parse new-style stunnel config file
			if ($t->{'args'} =~ /^(\S+)\s+(\S+)/) {
				$cfile = $2;
				@conf = &get_stunnel_config($cfile);
				($conf) = grep { !$_->{'name'} } @conf;
				}
			}
		if ($ver > 4 && !$cfile) {
			push(@cols, &html_escape($t->{'name'}));
			}
		else {
			push(@cols,
			 &ui_link("edit_stunnel.cgi?idx=$t->{'index'}",&html_escape($t->{'name'})));
			}
		push(@cols, &html_escape($t->{'port'}));
		push(@cols, $t->{'active'} ? $text{'yes'} :
			"$text{'no'}");
		if ($ver > 4) {
			# Parse new-style stunnel config file
			if ($exec = $conf->{'values'}->{'exec'}) {
				$args = $conf->{'values'}->{'execargs'};
				push(@cols, &text('index_cmd',
				 $args ? "<tt>".&html_escape($args)."</tt>"
				 : "<tt>".&html_escape($exec)."</tt>"));
				}
			elsif ($conn = $conf->{'values'}->{'connect'}) {
				push(@cols, &text('index_remote',
				 "<tt>".&html_escape($conn)."</tt>"));
				}
			elsif ($cfile) {
				push(@cols, &text('index_conf',
					"<tt>$cfile</tt>"));
				}
			else {
				push(@cols, $text{'index_noconf'});
				}
			}
		else {
			# Parse old-style stunnel args
			if ($t->{'args'} =~ /\s*-([lL])\s+(\S+)\s+--\s+(.*)/ ||
			 $t->{'args'} =~ /\s*-([lL])\s+(\S+)/) {
				push(@cols, &text('index_cmd',
				 $3 ? "<tt>".&html_escape($3)."</tt>"
				 : "<tt>".&html_escape($2)."</tt>"));
				}
			elsif ($t->{'args'} =~ /-r\s+(\S+):(\d+)/) {
				push(@cols, &text('index_remote',
				 "<tt>".&html_escape("$1:$2")."</tt>"));
				}
			elsif ($t->{'args'} =~ /-r\s+(\d+)/) {
				push(@cols, &text('index_rport',
				 "<tt>".&html_escape($1)."</tt>"));
				}
			else {
				push(@cols,
				 "<tt>".&html_escape($t->{'args'})."</tt>");
				}
			}
		print &ui_checked_columns_row(\@cols, \@tds, "d",$t->{'index'});
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
	}
else {
	print "$text{'index_none'}\n";
	print &ui_links_row([ $links[2] ]);
 $hasconfig = 0;
	}

if ( $hasconfig ) {
    my $xmsg = "";
    if ($has_inetd && $has_xinetd) {
	    $xmsg .= $text{'index_applymsg1'};
    } elsif ($has_inetd) {
	    $xmsg .= $text{'index_applymsg2'};
    } else {
	    $xmsg .= $text{'index_applymsg3'};
    }
    print &ui_hr();
    print &ui_buttons_start();
    print &ui_buttons_row("apply.cgi",
        $text{'index_apply'}, $xmsg);
    print &ui_buttons_end();
}

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

${this.title}

Code Editor : index.cgi