tcpwrappers/delete_rules.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple rules
   3
   4 require './tcpwrappers-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'del_err'});
   7
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'del_enone'});
  10 $file = $in{'allow'} ? $config{'hosts_allow'} : $config{'hosts_deny'};
  11 @rules = &list_rules($file);
  12
  13 # Do the delete
  14 &lock_file($file);
  15
  16 foreach $d (@d) {
  17     ($rule) = grep { $_->{'id'} == $d } @rules;
  18     $rule || &error($text{'edit_eid'});
  19     &delete_rule($file, $rule);
  20 }
  21
  22 &unlock_file($file);
  23 &webmin_log("delete", "rules", scalar(@d));
  24
  25 &redirect("");