Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	448 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	702 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	863 B	-rwxr-xr-x	2026-07-17 21:22
config	112 B	-rw-r--r--	2026-07-17 21:17
config.info	274 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	310 B	-rw-r--r--	2026-07-17 21:17
config.info.de	306 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	297 B	-rw-r--r--	2026-07-17 21:17
config.info.no	292 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	320 B	-rw-r--r--	2026-07-17 21:17
conn.cgi	2.32 KB	-rwxr-xr-x	2026-07-17 21:22
disc.cgi	543 B	-rwxr-xr-x	2026-07-17 21:22
edit.cgi	6.59 KB	-rwxr-xr-x	2026-07-17 21:22
edit_opts.cgi	1.43 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.69 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	385 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	733 B	-rwxr-xr-x	2026-07-17 21:17
module.info	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	194 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	116 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	24 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	102 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.de	121 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	216 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	175 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	133 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	24 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.no	24 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	28 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	198 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	194 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	119 B	-rw-r--r--	2026-07-17 21:17
pptp-client-lib.pl	8.62 KB	-rwxr-xr-x	2026-07-17 21:17
save.cgi	5.72 KB	-rwxr-xr-x	2026-07-17 21:22
save_opts.cgi	910 B	-rwxr-xr-x	2026-07-17 21:22
secrets-lib.pl	1.64 KB	-rwxr-xr-x	2026-07-17 21:17
start.pl	779 B	-rwxr-xr-x	2026-07-17 21:22
stop.pl	355 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# Display icons for defined PPTP tunnels

require './pptp-client-lib.pl';

$vers = &get_pppd_version(\$out);
&ui_print_header(undef, $text{'index_title'}, undef, "intro", 1, 1, 0, undef, undef, undef,
	$vers ? &text('index_version', $vers) : undef);

# Create the PPTP options file if non-existent. This ensures that it can be
# used in the peer scripts, even if it is empty
if (!-r $config{'pptp_options'} && $config{'pptp_options'}) {
	&open_tempfile(OPTS, ">>$config{'pptp_options'}");
	&close_tempfile(OPTS);
	}

if (!&has_command($config{'pptp'})) {
	# The PPTP command is not installed
	print "",&text('index_epptp', "<tt>$config{'pptp'}</tt>",
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
	}
elsif (!$vers) {
	# The PPP daemon is not installed
	print "",&text('index_eppp', "<tt>pppd</tt>"),"\n";
	}
else {
	# Show icons
	@tunnels = &list_tunnels();
	%tunnels = map { $_->{'name'}, 1 } @tunnels;
	print &ui_subheading($text{'index_header'});
	if (@tunnels) {
		@links = map { "edit.cgi?tunnel=$_->{'name'}" } @tunnels;
		@titles = map { $_->{'name'} } @tunnels;
		@icons = map { "images/tunnel.gif" } @tunnels;
		&icons_table(\@links, \@titles, \@icons);
		}
	else {
		print "$text{'index_none'}\n";
		}
	print &ui_link("edit.cgi?new=1",$text{'index_add'}),"\n";

print &ui_hr();
	print &ui_buttons_start();

# Show edit options button
	print &ui_buttons_row("edit_opts.cgi",
		$text{'index_opts'}, $text{'index_optsdesc'});

@conns = grep { $tunnels{$_->[0]} } &list_connected();
	%conns = map { @$_ } @conns;
	@notconns = grep { !$conns{$_->{'name'}} } @tunnels;

if (@notconns) {
		# Show connect button, if any are disconnected
		print &ui_buttons_row("conn.cgi",
			$text{'index_conn'},
			$text{'index_conndesc'},
			undef,
			&ui_select("tunnel", $config{'tunnel'},
				[ map { $_->{'name'} } @notconns ])." ".
			    $text{'index_pass'}." ".
			    &ui_password("cpass", undef, 10));
		}

if (@conns) {
		# If any tunnels appear to be active, show disconnect button
		print &ui_buttons_row("disc.cgi",
			$text{'index_disc'},
			$text{'index_discdesc'},
			undef,
			&ui_select("tunnel", $config{'tunnel'},
				[ map { $_->[0] } @conns ]));
		}

# Show at-boot button
	if (&foreign_check("init") && @tunnels) {
		&foreign_require("init");
		$starting = &init::action_status($module_name);
		$config{'boot'} = undef if ($starting != 2);
		print &ui_buttons_row("bootup.cgi",
			$text{'index_boot'},
			$text{'index_bootdesc'},
			&ui_hidden("starting", $starting),
			&ui_select("tunnel", $config{'boot'},
				[ [ "", $text{'index_noboot'} ],
				  map { [ $_->{'name'} ] } @tunnels ]));
		}

print &ui_buttons_end();
	}

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