1#!/usr/local/bin/perl 2# delete_env.cgi 3# Delete an environment variable for some user 4 5require './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 17