lpadmin/view_job.cgi

   1 #!/usr/local/bin/perl
   2 # view_job.cgi
   3 # View an existing print job
   4
   5 require './lpadmin-lib.pl';
   6 &ReadParse();
   7
   8 @jobs = &get_jobs($in{'name'});
   9 foreach $j (@jobs) {
  10         $job = $j if ($j->{'id'} eq $in{'id'});
  11         }
  12 ($ju = $j->{'user'}) =~ s/\!.*$//;
  13 &can_edit_jobs($in{'name'}, $ju) || &error($text{'view_ecannot'});
  14 if ($job) {
  15         # print job exists.. dump it
  16         @pf = @{$job->{'printfile'}};
  17         $type = &backquote_command("file ".quotemeta($pf[0]), 1);
  18         if ($type =~ /postscript/i) {
  19                 print "Content-type: application/postscript\n";
  20                 }
  21         elsif ($type =~ /text/) {
  22                 print "Content-type: text/plain\n";
  23                 }
  24         else {
  25                 print "Content-type: application/octet-stream\n";
  26                 }
  27         foreach $pf (@pf) {
  28                 @st = stat($pf);
  29                 $total += $st[7];
  30                 }
  31         print "Content-length: $total\n";
  32         print "\n";
  33         foreach $pf (@pf) {
  34                 open(FILE, $pf);
  35                 while(<FILE>) { print; }
  36                 close(FILE);
  37                 }
  38         }
  39 else {
  40         &error(&text('view_egone', $in{'id'}));
  41         }
  42