Add CGI args parser

diff --git a/cron/cgi_args.pl b/cron/cgi_args.pl
new file mode 100644 (file)
index 0000000..082d1d4
--- /dev/null
+++ b/cron/cgi_args.pl
@@ -0,0 +1,17 @@
+
+do 'cron-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+my @jobs = grep { &can_edit_user(\%access, $_->{'user'}) } &list_cron_jobs();
+if ($cgi eq 'edit_cron.cgi') {
+       my @cmds = grep { !$_->{'name'} } @jobs;
+       return @cmds ? 'idx='.$cmds[0]->{'index'} : 'new=1';
+       }
+elsif ($cgi eq 'edit_env.cgi') {
+       my @envs = grep { $_->{'name'} } @jobs;
+       return @envs ? 'idx='.$envs[0]->{'index'} : 'new=1';
+       }
+return undef;
+}