cancel_job.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# cancel_job.cgi
# Cancel an existing print job

require './lpadmin-lib.pl';
&ReadParse();
$access{'cancel'} || &error($text{'cancel_ecannot'});
&error_setup($text{'cancel_err'});

@jobs = &get_jobs($in{'name'});
foreach $j (@jobs) {
	if ($j->{'id'} == $in{'id'}) { $found++; }
	}
if ($found) {
	# print job exists.. cancel it
	&cancel_job($in{'name'}, $in{'id'});
	&redirect("list_jobs.cgi?name=$in{'name'}");
	}
else {
	&error(&text('cancel_egone', $in{'id'}));
	}