← Back
Editing: delete_icp_accesses.cgi
#!/usr/bin/perl # Delete multiple proxy restrictions use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dicp_err'}); $access{'actrl'} || &error($text{'eacl_ecannot'}); &ReadParse(); my @d = split(/\0/, $in{'d'}); @d || &error($text{'dicp_enone'}); # Get the existing restrictions &lock_file($config{'squid_conf'}); my $conf = &get_config(); my @icps = &find_config("icp_access", $conf); # Delete them foreach my $d (sort { $b <=> $a } @d) { my $icp = $conf->[$d]; splice(@icps, &indexof($icp, @icps), 1); } # Write out &save_directive($conf, "icp_access", \@icps); &flush_file_lines(); &unlock_file($config{'squid_conf'}); &webmin_log("delete", "icps", scalar(@d)); &redirect("edit_acl.cgi?mode=icp");
Save File
Cancel