1#!/usr/local/bin/perl
2# Move some filter down
3
4require './filter-lib.pl';
5&ReadParse();
6
7&lock_file($procmail::procmailrc);
8@filters = &list_filters();
9&swap_filters($filters[$in{'idx'}], $filters[$in{'idx'}+1]);
10&unlock_file($procmail::procmailrc);
11
12&redirect("");
13
14