Viewing file:  view_job.cgi (909 B) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/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'}));
}
|