cron/delete_env.cgi

   1 #!/usr/local/bin/perl
   2 # delete_env.cgi
   3 # Delete an environment variable 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 &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", "env", $job->{'user'}, $job);
  15 &redirect("");
  16