Added CGI args parser

diff --git a/procmail/cgi_args.pl b/procmail/cgi_args.pl
new file mode 100644 (file)
index 0000000..2a61fc1
--- /dev/null
+++ b/procmail/cgi_args.pl
@@ -0,0 +1,21 @@
+
+do 'procmail-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+my @conf = &get_procmailrc();
+if ($cgi eq 'edit_recipe.cgi') {
+       my ($r) = grep { !$_->{'name'} && !$_->{'include'} } @conf;
+       return $r ? 'idx='.$r->{'index'} : 'new=1';
+       }
+elsif ($cgi eq 'edit_env.cgi') {
+       my ($r) = grep { $_->{'name'} } @conf;
+       return $r ? 'idx='.$r->{'index'} : 'new=1';
+       }
+elsif ($cgi eq 'edit_inc.cgi') {
+       my ($r) = grep { $_->{'include'} } @conf;
+       return $r ? 'idx='.$r->{'index'} : 'new=1';
+       }
+return undef;
+}