delete_cron.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_cron.cgi
# Delete a cron job for some user

require './cron-lib.pl';
&ReadParse;
%access = &get_module_acl();
@jobs = &list_cron_jobs();
$job = $jobs[$in{'idx'}];
&can_edit_user(\%access, $job->{'user'}) ||
	&error("You are not allowed to delete cron jobs for this user");
&delete_cron_job($job);
&redirect("");