Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	448 B	-rw-r--r--
backup_config.pl	702 B	-rwxr-xr-x
bootup.cgi	863 B	-rwxr-xr-x
config	112 B	-rw-r--r--
config.info	274 B	-rw-r--r--
config.info.ca	305 B	-rw-r--r--
config.info.ca.UTF-8	310 B	-rw-r--r--
config.info.de	302 B	-rw-r--r--
config.info.de.UTF-8	302 B	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.nl	297 B	-rw-r--r--
config.info.nl.UTF-8	297 B	-rw-r--r--
config.info.no	292 B	-rw-r--r--
config.info.no.UTF-8	292 B	-rw-r--r--
config.info.pt_BR	308 B	-rw-r--r--
config.info.pt_BR.UTF-8	320 B	-rw-r--r--
conn.cgi	2.32 KB	-rwxr-xr-x
disc.cgi	543 B	-rwxr-xr-x
edit.cgi	6.59 KB	-rwxr-xr-x
edit_opts.cgi	1.43 KB	-rwxr-xr-x
index.cgi	2.69 KB	-rwxr-xr-x
install_check.pl	385 B	-rwxr-xr-x
log_parser.pl	733 B	-rwxr-xr-x
module.info	193 B	-rw-r--r--
module.info.ca	116 B	-rw-r--r--
module.info.ca.UTF-8	128 B	-rw-r--r--
module.info.cz	24 B	-rw-r--r--
module.info.cz.UTF-8	30 B	-rw-r--r--
module.info.de	121 B	-rw-r--r--
module.info.de.UTF-8	133 B	-rw-r--r--
module.info.ms_MY	124 B	-rw-r--r--
module.info.ms_MY.UTF-8	136 B	-rw-r--r--
module.info.nl	24 B	-rw-r--r--
module.info.nl.UTF-8	30 B	-rw-r--r--
module.info.no	24 B	-rw-r--r--
module.info.no.UTF-8	30 B	-rw-r--r--
module.info.pt_BR	28 B	-rw-r--r--
module.info.pt_BR.UTF-8	34 B	-rw-r--r--
pptp-client-lib.pl	8.62 KB	-rwxr-xr-x
save.cgi	5.72 KB	-rwxr-xr-x
save_opts.cgi	910 B	-rwxr-xr-x
secrets-lib.pl	1.64 KB	-rwxr-xr-x
start.pl	779 B	-rwxr-xr-x
stop.pl	355 B	-rwxr-xr-x

Code Editor : conn.cgi

#!/usr/bin/perl
# conn.cgi
# Open a PPTP connection and add its routes

require './pptp-client-lib.pl';
&error_setup($text{'conn_err'});
&ReadParse();

# Get tunnel details
@tunnels = &list_tunnels();
($tunnel) = grep { $_->{'name'} eq $in{'tunnel'} } @tunnels;
$tunnel || &error($text{'conn_egone'});
&parse_comments($tunnel);
$tunnel->{'server'} || &error($text{'conn_einvalid'});

# Check if it is already active
@conns = &list_connected();
($conn) = grep { $_->[0] eq $in{'tunnel'} } @conns;
$conn && &error($text{'conn_ealready'});

$theme_no_table++;
$| = 1;
&ui_print_header(undef, $text{'conn_title'}, "");

print "",&text('conn_cmd', "<tt>$config{'pptp'} $tunnel->{'server'} ".
				 "call $in{'tunnel'}</tt>"),"\n";

# If a password is passed, use it to temprarily overwrite the one in
# the secrets file
if ($in{'cpass'}) {
	$login = &find("name", $tunnel->{'opts'});
	$sn = $login ? $login->{'value'} : &get_system_hostname(1);
	&lock_file($config{'pap_file'});
	@secs = &list_secrets();
	($sec) = grep { $_->{'client'} eq $sn } @secs;
	$oldsecret = $sec->{'secret'};
	$sec->{'secret'} = $in{'cpass'};
	&change_secret($sec);
	&flush_file_lines();
	($ok, @status) = &connect_tunnel($tunnel);
	$sec->{'secret'} = $oldsecret;
	&change_secret($sec);
	&flush_file_lines();
	&unlock_file($config{'pap_file'});
	&lock_file($config{'pap_file'});
	}
else {
	($ok, @status) = &connect_tunnel($tunnel);
	}

if ($ok) {
	# Worked! Tell user
	print "",&text('conn_ok', "<tt>$status[0]</tt>",
			 "<tt>$status[1]</tt>",
			 "<tt>$status[2]</tt>"),"\n";
	local @rcmds = @{$status[3]};
	local @rout = @{$status[4]};
	if (@rcmds) {
		print "$text{'conn_routes'}<pre>\n";
		for($i=0; $i<@rcmds; $i++) {
			print $rcmds[$i],"\n";
			print "$rout[$i]";
			}
		print "</pre>\n";
		}
	}
else {
	# Failed! Say why
	print "$text{'conn_timeout'}\n";
	print "<pre>$status[0]</pre>\n";
	if ($status[0] =~ /mppe/) {
		print "",&text('conn_mppe', "edit_opts.cgi"),"\n";
		}
	}

# Save tunnel as default
&lock_file("$module_config_directory/config");
$config{'tunnel'} = $in{'tunnel'};
$config{'iface'} = $status[0] if ($ok);
&write_file("$module_config_directory/config", \%config);
&unlock_file("$module_config_directory/config");

&webmin_log("conn", undef, $in{'tunnel'}, $newiface);
&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : conn.cgi