#!/usr/bin/perl
# Move some filter down

require './filter-lib.pl';
&ReadParse();

&lock_file($procmail::procmailrc);
@filters = &list_filters();
&swap_filters($filters[$in{'idx'}], $filters[$in{'idx'}+1]);
&unlock_file($procmail::procmailrc);

&redirect("");