PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_policy.cgi
# Display entries from a policy file for editing
require './ipsec-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'policy_desc_'.$in{'policy'}} ||
&text('policy_desc', $in{'policy'}), "");
# Show explanation of this policy
print $text{'policy_longdesc_'.$in{'policy'}} ||
&text('policy_longdesc', $in{'policy'}),"<p>\n";
print "<form action=save_policy.cgi method=post>\n";
print "<input type=hidden name=policy value='$in{'policy'}'>\n";
@policies = &read_policy($in{'policy'});
$mode = !@policies ? 0 :
@policies == 1 && $policies[0] eq "0.0.0.0/0" ? 1 : 2;
foreach $m (0 .. 2) {
printf "<input type=radio name=mode value=%s %s> %s\n",
$m, $mode == $m ? "checked" : "", $text{'policy_mode'.$m};
}
print "<br>\n";
# Show a table of networks
print "<table border>\n";
print "<tr $tb> <td><b>$text{'policy_net'}</b></td> ",
"<td><b>$text{'policy_mask'}</b></td> </tr>\n";
$i = 0;
foreach $p ($mode == 2 ? @policies : ( ), "", "") {
local ($n, $m) = split(/\//, $p);
print "<tr $cb>\n";
print "<td><input name=net_$i size=20 value='$n'></td>\n";
print "<td><input name=mask_$i size=5 value='$m'></td>\n";
print "</tr>\n";
$i++;
}
print "</table>\n";
print "<input type=submit value='$text{'save'}'></form>\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`