3 # Update some policy file
5 require './ipsec-lib.pl';
7 &error_setup($text{'policy_err'});
9 if ($in{'mode'} == 0) {
12 elsif ($in{'mode'} == 1) {
13 @policies = ( "0.0.0.0/0" );
16 for($i=0; defined($n = $in{"net_$i"}); $i++) {
19 &check_ipaddress($n) || &error(&text('policy_enet', $i+1));
20 $m =~ /^\d+/ && $m <= 32 || &error(&text('policy_emask', $i+1));
21 push(@policies, "$n/$m");
24 &lock_file("$config{'policies_dir'}/$in{'policy'}");
25 &write_policy($in{'policy'}, \@policies);
26 &unlock_file("$config{'policies_dir'}/$in{'policy'}");
27 &webmin_log("policy", undef, $in{'policy'});