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	118 B	-rw-r--r--	2026-07-17 21:17
adsl-client-lib.pl	1.8 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	922 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	382 B	-rwxr-xr-x	2026-07-17 21:22
config	153 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	175 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	175 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.2-ALL	175 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	153 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	177 B	-rw-r--r--	2026-07-17 21:17
config.info	382 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	597 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	426 B	-rw-r--r--	2026-07-17 21:17
config.info.de	376 B	-rw-r--r--	2026-07-17 21:17
config.info.es	420 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	445 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	443 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	404 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	386 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	421 B	-rw-r--r--	2026-07-17 21:17
config.info.no	395 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	416 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	448 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	408 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	303 B	-rw-r--r--	2026-07-17 21:17
ifcfg-ppp	347 B	-rw-r--r--	2026-07-17 21:17
index.cgi	6.66 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	421 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	336 B	-rwxr-xr-x	2026-07-17 21:17
module.info	147 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	27 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	26 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	87 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	80 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	20 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	74 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	86 B	-rw-r--r--	2026-07-17 21:17
module.info.de	83 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	144 B	-rw-r--r--	2026-07-17 21:17
module.info.es	21 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	75 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	91 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	118 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	90 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	96 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	92 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	96 B	-rw-r--r--	2026-07-17 21:17
module.info.it	20 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	78 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	32 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	118 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	132 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	73 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	20 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	73 B	-rw-r--r--	2026-07-17 21:17
module.info.no	20 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	69 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	81 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	13 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	94 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	79 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	115 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	92 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	91 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	24 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	70 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	142 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	92 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	25 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	76 B	-rw-r--r--	2026-07-17 21:17
rbootup.cgi	429 B	-rwxr-xr-x	2026-07-17 21:22
save.cgi	1.95 KB	-rwxr-xr-x	2026-07-17 21:22
secrets-lib.pl	1.64 KB	-rwxr-xr-x	2026-07-17 21:17
setup.cgi	429 B	-rwxr-xr-x	2026-07-17 21:22
start.cgi	925 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	581 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save.cgi
# Save the ADSL client configuration

require './adsl-client-lib.pl';
&error_setup($text{'save_err'});
&lock_file($config{'pppoe_conf'});
$conf = &get_config();
&ReadParse();

# Validate and store inputs
$eth = $in{'eth'} || $in{'other'};
$eth =~ /^\S+$/ || &error($text{'save_eeth'});
&save_directive($conf, "ETH", $eth);

if ($in{'demand'} eq 'yes') {
	$in{'timeout'} =~ /^\d+$/ || &error($text{'save_etimeout'});
	&save_directive($conf, "DEMAND", $in{'timeout'});
	}
else {
	&save_directive($conf, "DEMAND", 'no');
	}
 
$olduser = &find("USER", $conf);
$in{'user'} =~ /^\S+$/ || &error($text{'save_euser'});
&save_directive($conf, "USER", $in{'user'});

$dnsdir = &find("USEPEERDNS", $conf) ? "USEPEERDNS" : "PEERDNS";
&save_directive($conf, $dnsdir, $in{'dns'});

if ($in{'connect_def'}) {
	&save_directive($conf, "CONNECT_TIMEOUT", 0);
	}
else {
	$in{'connect'} =~ /^\d+$/ || &error($text{'save_econnect'});
	&save_directive($conf, "CONNECT_TIMEOUT", $in{'connect'});
	}

if ($in{'mss'} eq 'yes') {
	$in{'psize'} =~ /^\d+$/ || &error($text{'save_emss'});
	&save_directive($conf, "CLAMPMSS", $in{'psize'});
	}
else {
	&save_directive($conf, "CLAMPMSS", 'no');
	}

if ($in{'fw'}) {
	&save_directive($conf, "FIREWALL", $in{'fw'});
	}

# Actually save the directives, and update the pap-secrets file
&flush_file_lines();
&unlock_file($config{'pppoe_conf'});
&lock_file($config{'pap_file'});
@secs = &list_secrets();
($sec) = grep { $_->{'client'} eq $olduser } @secs;
if (!$sec) {
	($sec) = grep { $_->{'client'} eq $in{'user'} } @secs;
	}
if ($sec) {
	$sec->{'secret'} = $in{'sec'};
	$sec->{'client'} = $in{'user'};
	&change_secret($sec);
	}
else {
	$sec = { 'secret' => $in{'sec'},
		 'client' => $in{'user'},
		 'server' => '*' };
	&create_secret($sec);
	}
&unlock_file($config{'pap_file'});
&webmin_log("save");

# Tell the user
&ui_print_header(undef, $text{'save_title'}, "");

print "<p>$text{'save_desc'}<p>\n";

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