Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	137 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	585 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	838 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	186 B	-rwxr-xr-x	2026-07-17 21:17
config	58 B	-rw-r--r--	2026-07-17 21:17
config.info	119 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	134 B	-rw-r--r--	2026-07-17 21:17
config.info.de	127 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	151 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	145 B	-rw-r--r--	2026-07-17 21:17
config.info.no	128 B	-rw-r--r--	2026-07-17 21:17
connect.cgi	376 B	-rwxr-xr-x	2026-07-17 21:22
disconnect.cgi	396 B	-rwxr-xr-x	2026-07-17 21:22
edit.cgi	6.15 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.32 KB	-rwxr-xr-x	2026-07-17 21:22
init.cgi	905 B	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	373 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	760 B	-rwxr-xr-x	2026-07-17 21:17
module.info	201 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	162 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	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	12 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	26 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	121 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	148 B	-rw-r--r--	2026-07-17 21:17
module.info.de	139 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	12 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	185 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	154 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	134 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	167 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	147 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	157 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	132 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	150 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	143 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	182 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	141 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	12 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.no	30 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	105 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	147 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	142 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	151 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	144 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	137 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	148 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	235 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	137 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	146 B	-rw-r--r--	2026-07-17 21:17
ppp-client-lib.pl	8.48 KB	-rwxr-xr-x	2026-07-17 21:17
save.cgi	3.41 KB	-rwxr-xr-x	2026-07-17 21:22
start.pl	200 B	-rwxr-xr-x	2026-07-17 21:22
stop.pl	245 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_dialer.cgi
# Save, create or delete a dialer configuration

require './ppp-client-lib.pl';
&ReadParse();
$conf = &get_config();
$dialer = $conf->[$in{'idx'}] if (!$in{'new'});

&lock_file($config{'file'});
if ($in{'delete'}) {
	# Check for any dependencies?
	&error_setup($text{'save_err2'});
	foreach $c (@$conf) {
		if (lc($c->{'values'}->{'inherits'}) eq lc($dialer->{'name'})) {
			&error(&text('save_einherits',
				     &dialer_name($c->{'name'})));
			}
		}

# Just delete this dialer
	&delete_dialer($dialer);
	}
else {
	# Validate and store basic inputs
	&error_setup($text{'save_err'});
	if (defined($in{'dialer'})) {
		$in{'dialer'} =~ /^[^\[\]]+$/ || &error($text{'save_ename'});
		$dialer->{'name'} = "Dialer $in{'dialer'}";
		}
	elsif (defined($in{'name'})) {
		$in{'name'} =~ /^[^\[\]]+$/ || &error($text{'save_ename'});
		$dialer->{'name'} = $in{'name'};
		}
	local ($clash) = grep { lc($_->{'name'}) eq
				lc($dialer->{'name'}) } @$conf;
	if ($clash && $clash ne $dialer) {
		&error($text{'save_eclash'});
		}
	&parse_opt("Phone", \&check_phone, $text{'save_ephone'});
	&parse_opt("Username");
	&parse_opt("Password");
	&parse_opt("Dial Prefix", \&check_phone, $text{'save_eprefix'});
	&parse_yes_no("Stupid Mode");
	for($i=1; $i<=4; $i++) {
		local $other = $in{"other_$i"};
		if ($other eq '') {
			&set_config("Phone$i");
			}
		else {
			&check_phone($other) || &error(&text('save_eother',$i));
			&set_config("Phone$i", $other);
			}
		}
	&set_config("Inherits", $in{'inherits_def'} ? undef : $in{'inherits'});

# Validate and store modem options
	if ($in{'modem'} eq '*') {
		-r $in{'otherm'} || &error($text{'save_eotherm'});
		&set_config("Modem", $in{'otherm'});
		}
	elsif ($in{'modem'} eq '') {
		&set_config("Modem");
		}
	else {
		&set_config("Modem", $in{'modem'});
		}
	&parse_opt("Baud", \&check_number, $text{'save_ebaud'});
	for($i=1; $i<=9; $i++) {
		if ($in{"init_$i"} eq '') {
			&set_config("Init$i");
			}
		else {
			&set_config("Init$i", $in{"init_$i"});
			}
		}
	&parse_yes_no("Carrier Check");
	&parse_yes_no("Abort on Busy");
	&parse_opt("Dial Attempts", \&check_number, $text{'save_edial'});
	&parse_yes_no("Abort on No Dialtone");

# Store networking options
	&parse_yes_no("Auto DNS");
	&parse_yes_no("Auto Reconnect");
	&parse_opt("Idle Seconds", \&check_number, $text{'save_eidle'});

# Create or update the dialer
	if ($in{'new'}) {
		&create_dialer($dialer);
		}
	else {
		&update_dialer($dialer);
		}
	}
&unlock_file($config{'file'});
delete($dialer->{'values'}->{'password'});
&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "update",
	    "dialer", $dialer->{'name'}, $dialer->{'values'});
&redirect("");

# parse_opt(name, [checker, error])
sub parse_opt
{
local $n = lc("$_[0]");
if ($in{$n."_def"}) {
	&set_config($_[0]);
	}
else {
	local $func = $_[1];
	!$func || &$func($in{$n}) || &error($_[2]);
	&set_config($_[0], $in{$n});
	}
}

# parse_yes_no(name)
sub parse_yes_no
{
local $n = lc("$_[0]");
if ($in{$n} == 1) {
	&set_config($_[0], "on");
	}
elsif ($in{$n} == 0) {
	&set_config($_[0], "off");
	}
else {
	&set_config($_[0]);
	}
}

# set_config(name, [value])
sub set_config
{
local $n = lc("$_[0]");
if (defined($_[1])) {
	$dialer->{'values'}->{$n} = $_[1];
	$dialer->{'onames'}->{$n} = $_[0];
	}
else {
	delete($dialer->{'values'}->{$n});
	delete($dialer->{'onames'}->{$n});
	}
}

sub check_phone
{
return $_[0] =~ /^[0-9 \+\*\#A-Z]+$/;
}

sub check_number
{
return $_[0] =~ /^\d+$/;
}