2 # Delete multiple proxy restrictions
4 require './squid-lib.pl';
5 &error_setup($text{'dicp_err'});
6 $access{'actrl'} || &error($text{'eacl_ecannot'});
8 @d = split(/\0/, $in{'d'});
9 @d || &error($text{'dicp_enone'});
11 # Get the existing restrictions
12 &lock_file($config{'squid_conf'});
13 $conf = &get_config();
14 @icps = &find_config("icp_access", $conf);
17 foreach $d (sort { $b <=> $c } @d) {
19 splice(@icps, &indexof($icp, @icps), 1);
23 &save_directive($conf, "icp_access", \@icps);
25 &unlock_file($config{'squid_conf'});
26 &webmin_log("delete", "icps", scalar(@d));
27 &redirect("edit_acl.cgi?mode=icp");