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	213 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	521 B	-rwxr-xr-x	2026-07-17 21:17
apply.cgi	283 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	743 B	-rwxr-xr-x	2026-07-17 21:17
config	148 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	254 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	206 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	224 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	210 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	214 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	148 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	214 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	214 B	-rw-r--r--	2026-07-17 21:17
config.info	445 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	509 B	-rw-r--r--	2026-07-17 21:17
config.info.de	501 B	-rw-r--r--	2026-07-17 21:17
config.info.es	479 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	504 B	-rw-r--r--	2026-07-17 21:17
config.info.no	483 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	528 B	-rw-r--r--	2026-07-17 21:17
defaultacl	50 B	-rw-r--r--	2026-07-17 21:17
delete_secrets.cgi	524 B	-rwxr-xr-x	2026-07-17 21:22
disc.cgi	507 B	-rwxr-xr-x	2026-07-17 21:22
edit_conf.cgi	2.9 KB	-rwxr-xr-x	2026-07-17 21:22
edit_options.cgi	4.44 KB	-rwxr-xr-x	2026-07-17 21:22
edit_secret.cgi	2.99 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.72 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	441 B	-rwxr-xr-x	2026-07-17 21:17
list_conns.cgi	1.1 KB	-rwxr-xr-x	2026-07-17 21:22
list_secrets.cgi	1.76 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	479 B	-rwxr-xr-x	2026-07-17 21:17
module.info	216 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	188 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	238 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	151 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 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	135 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	155 B	-rw-r--r--	2026-07-17 21:17
module.info.de	0 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	168 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	259 B	-rw-r--r--	2026-07-17 21:17
module.info.es	26 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	133 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	152 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	233 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	160 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	167 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	157 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	160 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	152 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	199 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	166 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	14 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	126 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	131 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	143 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	158 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	29 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	138 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	228 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	165 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	146 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	161 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	200 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	136 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	145 B	-rw-r--r--	2026-07-17 21:17
pptp-server-lib.pl	6.15 KB	-rwxr-xr-x	2026-07-17 21:17
save_conf.cgi	1.55 KB	-rwxr-xr-x	2026-07-17 21:22
save_options.cgi	2.56 KB	-rwxr-xr-x	2026-07-17 21:22
save_secret.cgi	1.48 KB	-rwxr-xr-x	2026-07-17 21:22
secrets-lib.pl	1.64 KB	-rwxr-xr-x	2026-07-17 21:17
start.cgi	413 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	456 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# Display the current PPTP configuration

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

# Check if it is installed
if (!&has_command($config{'pptpd'}) ||
    !($vers = &get_pptpd_version(\$out))) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
	print "<p>",&text('index_epptpd', "<tt>$config{'pptpd'}</tt>",
		  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
	if ($out) {
		print &text('index_ver', "$config{'pptpd'} -v"),"\n";
		print "<pre>$out</pre>\n";
		}
	}
else {
	# Show the title and version
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
		&help_search_link("pptp", "man", "doc"), undef, undef,
		&text('index_version', $vers));

if (!-r $config{'file'}) {
		# Check for the config file
		print "<p>",&text('index_econfig', "<tt>$config{'file'}</tt>",
		  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
		}
	elsif (!&has_command("pppd")) {
		# Check for PPPd
		print "<p>",&text('index_epppd', "<tt>pppd</tt>"),"<p>\n";
		}
	else {
		# Show table of options
		if ($access{'conf'}) {
                  push(@links, "edit_conf.cgi");
                  push(@images, "images/conf.gif");
		  push(@titles, $text{'conf_title'});
                }
		if ($access{'options'}) {
                  push(@links, "edit_options.cgi");
                  push(@images, "images/options.gif");
                  push(@titles, $text{'options_title'});
                }
                if ($access{'secrets'}) {
                  push(@links, "list_secrets.cgi");
                  push(@images, "images/secrets.gif");
                  push(@titles, $text{'secrets_title'});
                }
                if ($access{'conns'}) {
                  push(@links, "list_conns.cgi");
                  push(@images, "images/conns.gif");
                  push(@titles, $text{'conns_title'});
                }
		&icons_table(\@links, \@titles, \@images);

# Start or stop/apply buttons
		print &ui_hr();
		print &ui_buttons_start();
		$pid = &get_pptpd_pid();
		if ($access{'apply'}) {
			if ($pid && kill(0, $pid)) {
				print &ui_buttons_row("apply.cgi",
					$text{'index_apply'},
					$text{'index_applydesc'});
				if ($access{'stop'}) {
					print &ui_buttons_row("stop.cgi",
						$text{'index_stop'},
						$text{'index_stopdesc'});
					}
				}
			else {
				print &ui_buttons_row("start.cgi",
					$text{'index_start'},
					$text{'index_startdesc'});
				}
			}
		print &ui_buttons_end();
		}
	}

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

sub ip_table
{
local @ips = split(/,/, &find($_[0], $conf));
print "<tr> <td valign=top><b>",$text{'index_'.$_[0]},
      "</b></td> <td colspan=3>\n";
print "<textarea name=$_[0] rows=3 cols=50>",
	join("\n", @ips),"</textarea>\n";
print "</td> </tr>\n";
}