mirror of
https://github.com/webmin/webmin.git
synced 2026-01-16 15:06:07 +00:00
19 lines
332 B
Perl
Executable File
19 lines
332 B
Perl
Executable File
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
our %access;
|
|
|
|
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;
|
|
}
|