PAL.C.T MINI SHELL
#!/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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`