cluster-cron/delete.cgi

   1 #!/usr/local/bin/perl
   2 # delete.cgi
   3 # Delete an existing cluster cron job
   4
   5 require './cluster-cron-lib.pl';
   6 &ReadParse();
   7 @jobs = &list_cluster_jobs();
   8 ($job) = grep { $_->{'cluster_id'} eq $in{'id'} } @jobs;
   9 &delete_cluster_job($job);
  10 &webmin_log("delete", "cron", $job->{'cluster_user'}, $job);
  11 &redirect("");
  12