filter/down.cgi

   1 #!/usr/local/bin/perl
   2 # Move some filter down
   3
   4 require './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