procmail/down.cgi

   1 #!/usr/local/bin/perl
   2 # down.cgi
   3 # Move a recipe down in the file
   4
   5 require './procmail-lib.pl';
   6 &ReadParse();
   7 &lock_file($procmailrc);
   8 @conf = &get_procmailrc();
   9 &swap_recipes($conf[$in{'idx'}], $conf[$in{'idx'} + 1]);
  10 &unlock_file($procmailrc);
  11 &webmin_log("down");
  12 &redirect("");
  13