procmail/delete_recipes.cgi

   1 #!/usr/local/bin/perl
   2 # Delete several procmail recipes
   3
   4 require './procmail-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'delete_err'});
   7 @d = split(/\0/, $in{'d'});
   8 @d || &error($text{'delete_enone'});
   9
  10 &lock_file($procmailrc);
  11 @conf = &get_procmailrc();
  12 foreach $d (sort { $b <=> $c } @d) {
  13         $rec = $conf[$d];
  14         &delete_recipe($rec);
  15         }
  16 &unlock_file($procmailrc);
  17 &webmin_log("delete", "recipes", scalar(@d));
  18 &redirect("");
  19