PAL.C.T MINI SHELL
#!/usr/bin/perl
# save_options.cgi
# Save PPP options
require './pap-lib.pl';
$access{'options'} || &error($text{'options_ecannot'});
&ReadParse();
&error_setup($text{'options_err'});
$file = $in{'file'} || $config{'ppp_options'};
&lock_file($file);
@opts = &parse_ppp_options($file);
# Validate inputs
if (!$in{'ip_def'}) {
&check_ipaddress($in{'local'}) || &error($text{'options_elocal'});
&check_ipaddress($in{'remote'}) || &error($text{'options_eremote'});
}
if (!$in{'netmask_def'}) {
&check_ipaddress($in{'netmask'}) || &error($text{'options_enetmask'});
}
if (!$in{'idle_def'}) {
$in{'idle'} =~ /^\d+$/ || &error($text{'options_eidle'});
}
@dns = split(/\s+/, $in{'dns'});
foreach $d (@dns) {
&check_ipaddress($d) || &error(&text('options_edns', $d));
}
if (!$in{'file'}) {
# Save AutoPPP setting
&lock_file($config{'login_config'});
@login = &parse_login_config();
($auto) = grep { $_->{'user'} eq "/AutoPPP/" } @login;
if ($auto && !$in{'auto'}) {
# Delete AutoPPP entry
&delete_login_config(\@login, $auto);
}
elsif (!$auto && $in{'auto'}) {
&create_login_config(\@login,
{ 'user' => '/AutoPPP/', 'userid' => '-',
'utmp' => 'a_ppp', 'program' => &has_command("pppd") });
}
}
# Save PPP options
($ip) = grep { $_->{'local'} } @opts;
&save_ppp_option(\@opts, $file, $ip, $in{'ip_def'} ? undef :
{ 'local' => $in{'local'}, 'remote' => $in{'remote'} });
&save_ppp_option(\@opts, $file, "netmask", $in{'netmask_def'} ? undef :
{ 'name' => 'netmask', 'value' => $in{'netmask'} });
&save_ppp_option(\@opts, $file, "proxyarp",
$in{'proxyarp'} ? { 'name' => 'proxyarp' } : undef);
&save_ppp_option(\@opts, $file, "lock",
$in{'lock'} ? { 'name' => 'lock' } : undef);
if ($in{'ctrl'} == 0) {
&save_ppp_option(\@opts, $file, "modem", undef);
&save_ppp_option(\@opts, $file, "local", { 'name' => 'local' });
}
elsif ($in{'ctrl'} == 1) {
&save_ppp_option(\@opts, $file, "local", undef);
&save_ppp_option(\@opts, $file, "modem", { 'name' => 'modem' });
}
else {
&save_ppp_option(\@opts, $file, "modem", undef);
&save_ppp_option(\@opts, $file, "local", undef);
}
if ($in{'auth'} == 0) {
&save_ppp_option(\@opts, $file, "auth", undef);
&save_ppp_option(\@opts, $file, "noauth", undef);
}
elsif ($in{'auth'} == 1) {
&save_ppp_option(\@opts, $file, "auth", undef);
&save_ppp_option(\@opts, $file, "noauth", { 'name' => 'noauth' });
}
else {
&save_ppp_option(\@opts, $file, "noauth", undef);
&save_ppp_option(\@opts, $file, "auth", { 'name' => 'auth' });
}
&save_ppp_option(\@opts, $file, "login",
$in{'login'} ? { 'name' => 'login' } : undef);
&save_ppp_option(\@opts, $file, "idle", $in{'idle_def'} ? undef :
{ 'name' => 'idle', 'value' => $in{'idle'} } );
@olddns = &find("ms-dns", \@opts);
for($i=0; $i<@dns || $i<@olddns; $i++) {
&save_ppp_option(\@opts, $file, $olddns[$i],
$dns[$i] ? { 'name' => 'ms-dns', 'value' => $dns[$i] }
: undef);
}
# All done
&flush_file_lines();
&unlock_file($file);
&unlock_file($config{'login_config'}) if (!$in{'file'});
&webmin_log("options", undef, $in{'tty'}, \%in);
&redirect($in{'file'} ? "list_mgetty.cgi" : "");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`