Add CGI args parser

diff --git a/at/cgi_args.pl b/at/cgi_args.pl
new file mode 100644 (file)
index 0000000..08bfe17
--- /dev/null
+++ b/at/cgi_args.pl
@@ -0,0 +1,13 @@
+
+do 'at-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'edit_job.cgi') {
+       my @jobs = &list_atjobs();
+       @jobs = grep { &can_edit_user(\%access, $_->{'user'}) } @jobs;
+       return @jobs ? 'id='.$jobs[0]->{'idx'} : 'none';
+       }
+return undef;
+}