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