filter/delete.cgi

   1 #!/usr/local/bin/perl
   2 # Delete several selected filters
   3
   4 require './filter-lib.pl';
   5 &ReadParse();
   6
   7 # Validate selection
   8 &error_setup($text{'delete_err'});
   9 @d = split(/\0/, $in{'d'});
  10 @d || &error($text{'delete_enone'});
  11
  12 # Do it
  13 &lock_file($procmail::procmailrc);
  14 @filters = &list_filters();
  15 foreach $d (sort { $b <=> $a } @d) {
  16         $filter = $filters[$d];
  17         &delete_filter($filter);
  18         }
  19 &unlock_file($procmail::procmailrc);
  20
  21 &redirect("");
  22