mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
18 lines
406 B
Perl
Executable File
18 lines
406 B
Perl
Executable File
|
|
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;
|
|
}
|