1#!/usr/local/bin/perl 2# Delete several selected filters 3 4require './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(); 15foreach $d (sort { $b <=> $a } @d) { 16 $filter = $filters[$d]; 17 &delete_filter($filter); 18 } 19&unlock_file($procmail::procmailrc); 20 21&redirect(""); 22 23