|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/libexec/webmin/at/ |
Upload File : |
#!/usr/bin/perl
# Delete or run an at job
require './at-lib.pl';
&ReadParse();
&foreign_require("proc", "proc-lib.pl");
@jobs = &list_atjobs();
($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
$job || &error($text{'delete_egone'});
if ($in{'run'}) {
# Run the command and show output
&ui_print_header(undef, $text{'run_title'}, "");
# Create temp script for job
$temp = &transname();
&open_tempfile(TEMP, ">$temp");
&print_tempfile(TEMP, $job->{'cmd'});
&close_tempfile(TEMP);
chmod(0755, $temp);
print "<p>\n";
print &text('run_output'),"<p>\n";
@uinfo = getpwnam($job->{'user'});
print "<pre>";
$got = &proc::safe_process_exec_logged($temp, $uinfo[2], $uinfo[3],
STDOUT, undef, 1);
if (!$got) { print "<i>$text{'run_none'}</i>\n"; }
unlink($temp);
print "</pre>\n";
&ui_print_footer("", $text{'index_return'});
}
else {
# Just delete the at job
&error_setup($text{'delete_err'});
%access = &get_module_acl();
&can_edit_user(\%access, $job->{'user'}) || &error($text{'edit_ecannot'});
&delete_atjob($in{'id'});
&webmin_log("delete", "job", $job->{'user'}, $job);
&redirect("");
}