list_jobs.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# list_jobs.cgi
# List all print jobs on some printer

require './lpadmin-lib.pl';
&ReadParse();
&header($text{'jobs_title'}, "");
print "<hr>\n";

@jobs = &get_jobs($in{'name'});
if (@jobs) {
	print "<h3>",&text('jobs_header', "<tt>$in{'name'}</tt>"),"</h3>\n";
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'jobs_id'}</b></td>\n";
	print "<td><b>$text{'jobs_size'}</b></td>\n";
	print "<td><b>$text{'jobs_by'}</b></td>\n";
	if ($jobs[0]->{'when'}) {
		print "<td><b>$text{'jobs_when'}</b></td></tr>\n";
		}
	if ($jobs[0]->{'file'}) {
		print "<td><b>$text{'jobs_file'}</b></td> </tr>\n";
		}
	foreach $j (@jobs) {
		print "<tr $cb>\n";
		if ($access{'cancel'}) {
			print "<td><a href=\"cancel_job.cgi?name=$in{'name'}&",
			      "id=$j->{'id'}\">$j->{'id'}</a></td>\n";
			}
		else {
			print "<td>$j->{'id'}</td>\n";
			}
		print "<td>$j->{'size'} bytes</td>\n";
		if ($j->{'user'} =~ /^(\S+)\!(\S+)$/) {
			print "<td>$2\@$1</td>\n";
			}
		else { print "<td>$j->{'user'}</td>\n"; }
		if ($j->{'when'}) { print "<td>$j->{'when'}</td>\n"; }
		if ($j->{'file'}) { print "<td>$j->{'file'}</td>\n"; }
		print "</tr>\n";
		}
	print "</table>\n";
	print "$text{'jobs_cancel'}\n" if ($access{'cancel'});
	print "<p>\n";
	}
else { print "<h3>",&text('jobs_none', "<tt>$in{'name'}</tt>"),"</h3>\n"; }

print "<hr>\n";
&footer("", $text{'index_return'});