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

# adsl-client-lib.pl
# Common functions for parsing the rp-pppoe config file

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
do 'secrets-lib.pl';

# get_config()
# Parse the PPPOE configuration file
sub get_config
{
local @rv;
local $lnum = 0;
open(FILE, "<".$config{'pppoe_conf'}) || return undef;
while(<FILE>) {
	s/\r|\n//g;
	s/^\s*#.*$//;
	if (/^\s*(\S+)\s*=\s*"([^"]*)"/ ||
	    /^\s*(\S+)\s*=\s*'([^']*)'/ ||
	    /^\s*(\S+)\s*=\s*(\S+)/) {
		push(@rv, { 'name' => $1,
			    'value' => $2,
			    'line' => $lnum });
		}
	$lnum++;
	}
close(FILE);
return \@rv;
}

# find(name, &config)
# Looks up an entry in the config file
sub find
{
local $c;
foreach $c (@{$_[1]}) {
	if (lc($c->{'name'}) eq lc($_[0])) {
		return $c->{'value'};
		}
	}
return undef;
}

# save_directive(&config, name, value)
sub save_directive
{
local ($old) = grep { lc($_->{'name'}) eq lc($_[1]) } @{$_[0]};
local $lref = &read_file_lines($config{'pppoe_conf'});
local $nl = "$_[1]=".($_[2] =~ /^\S+$/ ? $_[2] : "\"$_[2]\"");
if ($old) {
	$lref->[$old->{'line'}] = $nl;
	}
else {
	push(@$lref, $nl);
	}
}

# get_adsl_ip()
# Returns the device name and IP address of the ADSL connection (if up),
# or nothing if down
sub get_adsl_ip
{
local $out = `$config{'status_cmd'} 2>&1`;
if ($out =~ /link is up/i &&
    $out =~ /on\s+interface\s+ppp(\d+)[\000-\377]+inet addr:\s*(\S+)/i) {
	return ($1, $2);
	}
elsif ($out =~ /attached\s+to\s+(ppp\d+)/i) {
	return ($1, undef);
	}
elsif ($out =~ /could\s+not\s+find\s+interface\s+corresponding\s+to/i) { 
        return ("unknown", undef) 
        } 
elsif ($out =~ /demand-connection/) {
	return ("demand", undef);
	}
else {
	return ( );
	}
}

# get_pppoe_version(&out)
sub get_pppoe_version
{
local $out = `$config{'pppoe_cmd'} -V 2>&1`;
${$_[0]} = $out;
return $out =~ /version\s+(\S+)/i ? $1 : undef;
}