projects
/
webmin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Handle hostnames with upper-case letters
[webmin.git]
/
procmail
/
up.cgi
1
#!/usr/local/bin/perl
2
# up.cgi
3
# Move a recipe up 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("up");
12
&redirect("");
13