PAL.C.T MINI SHELL
#!/usr/bin/perl
# view_job.cgi
# View an existing print job
require './lpadmin-lib.pl';
&ReadParse();
@jobs = &get_jobs($in{'name'});
foreach $j (@jobs) {
$job = $j if ($j->{'id'} eq $in{'id'});
}
($ju = $j->{'user'}) =~ s/\!.*$//;
&can_edit_jobs($in{'name'}, $ju) || &error($text{'view_ecannot'});
if ($job) {
# print job exists.. dump it
@pf = @{$job->{'printfile'}};
$type = &backquote_command("file ".quotemeta($pf[0]), 1);
if ($type =~ /postscript/i) {
print "Content-type: application/postscript\n";
}
elsif ($type =~ /text/) {
print "Content-type: text/plain\n";
}
else {
print "Content-type: application/octet-stream\n";
}
foreach $pf (@pf) {
@st = stat($pf);
$total += $st[7];
}
print "Content-length: $total\n";
print "\n";
foreach $pf (@pf) {
open(FILE, "<$pf");
while(<FILE>) { print; }
close(FILE);
}
}
else {
&error(&text('view_egone', $in{'id'}));
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`