cron/cgi_args.pl

   1
   2 do 'cron-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @jobs = grep { &can_edit_user(\%access, $_->{'user'}) } &list_cron_jobs();
   8 if ($cgi eq 'edit_cron.cgi') {
   9         my @cmds = grep { !$_->{'name'} } @jobs;
  10         return @cmds ? 'idx='.$cmds[0]->{'index'} : 'new=1';
  11         }
  12 elsif ($cgi eq 'edit_env.cgi') {
  13         my @envs = grep { $_->{'name'} } @jobs;
  14         return @envs ? 'idx='.$envs[0]->{'index'} : 'new=1';
  15         }
  16 return undef;
  17 }