PAL.C.T MINI SHELL
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;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`