PAL.C.T MINI SHELL
#!/usr/bin/perl
# save_config.cgi
# Update or create the config section
require './ipsec-lib.pl';
&ReadParse();
&error_setup($text{'config_err'});
@conf = &get_config();
($config) = grep { $_->{'name'} eq 'config' } @conf;
if (!$config) {
$config = { 'name' => 'config',
'value' => 'setup',
'values' => { } };
}
# Validate and store inputs
if ($in{'ifaces_mode'} == 0) {
delete($config->{'values'}->{'interfaces'});
}
elsif ($in{'ifaces_mode'} == 1) {
$config->{'values'}->{'interfaces'} = '%none';
}
elsif ($in{'ifaces_mode'} == 2) {
$config->{'values'}->{'interfaces'} = '%defaultroute';
}
else {
for($n=0; defined($ri = $in{"ri_$n"}); $n++) {
next if (!$ri);
$ii = $in{"ii_$n"};
$done{$ri}++ && &error(&text('config_eri', $ri));
push(@ifaces, "$ii=$ri");
}
@ifaces || &error($text{'config_enone'});
$config->{'values'}->{'interfaces'} = join(" ", @ifaces);
}
if ($in{'syslog_def'}) {
delete($config->{'values'}->{'syslog'});
}
else {
$config->{'values'}->{'syslog'} = $in{'fac'}.".".$in{'pri'};
}
if ($in{'fwd'} eq 'yes' || $config->{'values'}->{'forwardcontrol'}) {
$config->{'values'}->{'forwardcontrol'} = $in{'fwd'};
}
else {
delete($config->{'values'}->{'forwardcontrol'});
}
if ($in{'fwd'} eq 'yes' || $config->{'values'}->{'forwardcontrol'}) {
$config->{'values'}->{'forwardcontrol'} = $in{'fwd'};
}
else {
delete($config->{'values'}->{'forwardcontrol'});
}
if ($in{'nat'} eq 'yes' || $config->{'values'}->{'nat_traversal'}) {
$config->{'values'}->{'nat_traversal'} = $in{'nat'};
}
else {
delete($config->{'values'}->{'nat_traversal'});
}
# Create or update the section
$file = $config->{'file'} || $config{'file'};
&lock_file($file);
if ($config->{'file'}) {
&modify_conn($config);
}
else {
&create_conn($config);
}
&unlock_file($file);
&webmin_log("config");
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`