← Back
Editing: view_job.cgi
#!/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'})); }
Save File
Cancel