← Back
Editing: delete_http_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{'dhttp_err'}); $access{'actrl'} || &error($text{'eacl_ecannot'}); &ReadParse(); my @d = split(/\0/, $in{'d'}); @d || &error($text{'dhttp_enone'}); # Get the existing restrictions &lock_file($config{'squid_conf'}); my $conf = &get_config(); my @https = &find_config("http_access", $conf); # Delete them foreach my $d (sort { $b <=> $a } @d) { my $http = $conf->[$d]; splice(@https, &indexof($http, @https), 1); } # Write out &save_directive($conf, "http_access", \@https); &flush_file_lines(); &unlock_file($config{'squid_conf'}); &webmin_log("delete", "https", scalar(@d)); &redirect("edit_acl.cgi?mode=http");
Save File
Cancel