michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-17 23:23:48 -07:00
parent ac9a3b7c41
commit d5b9cefb2c
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
at/delete_jobs.cgi
View File

@@ -1,16 +1,19 @@
#!/usr/local/bin/perl
# Delete multiple at jobs
use strict;
use warnings;
our(%access, %text, %in);
require './at-lib.pl';
&ReadParse();
&error_setup($text{'deletes_err'});
@d = split(/\0/, $in{'d'});
my @d = split(/\0/, $in{'d'});
@d || &error($text{'deletes_enone'});
# Delete each one
@jobs = &list_atjobs();
foreach $d (@d) {
($job) = grep { $_->{'id'} eq $d } @jobs;
my @jobs = &list_atjobs();
foreach my $d (@d) {
my ($job) = grep { $_->{'id'} eq $d } @jobs;
$job || &error($text{'delete_egone'});
&can_edit_user(\%access, $job->{'user'}) ||
&error($text{'edit_ecannot'});