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