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