cron/delete_cron.cgi

   1 #!/usr/local/bin/perl
   2 # delete_cron.cgi
   3 # Delete a cron job for some user
   4
   5 require './cron-lib.pl';
   6 &ReadParse();
   7 @jobs = &list_cron_jobs();
   8 $job = $jobs[$in{'idx'}];
   9 &lock_file($job->{'file'});
  10 $access{'delete'} && &can_edit_user(\%access, $job->{'user'}) ||
  11         &error($text{'edit_ecannot'});
  12 &delete_cron_job($job);
  13 &unlock_file($job->{'file'});
  14 &webmin_log("delete", "cron", $job->{'user'}, $job);
  15 &redirect("");
  16