htdocs/misc/print-invoice.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: print-invoice.cgi,v 1.2 1998-12-17 09:12:47 ivan Exp $
   4 #
   5 # just a kludge for now, since this duplicates in a way it shouldn't stuff from
   6 # Bill.pm (like $lpr) ivan@sisd.com 98-jun-16
   7 #
   8 # $Log: print-invoice.cgi,v $
   9 # Revision 1.2  1998-12-17 09:12:47  ivan
  10 # s/CGI::(Request|Base)/CGI.pm/;
  11 #
  12
  13 use strict;
  14 use vars qw($conf);
  15 use CGI;
  16 use CGI::Carp qw(fatalsToBrowser);
  17 use FS::UID qw(cgisuidsetup);
  18 use FS::CGI qw(popurl);
  19 use FS::Record qw(qsearchs);
  20 use FS::cust_bill;
  21
  22 my($cgi) = new CGI;
  23 &cgisuidsetup($cgi);
  24
  25 $conf = new FS::Conf;
  26 my $lpr = $conf->config('lpr');
  27
  28 #untaint invnum
  29 $cgi->query_string =~ /^(\d*)$/;
  30 my($invnum)=$1;
  31 my($cust_bill)=qsearchs('cust_bill',{'invnum'=>$invnum});
  32 die "Can't find invoice!\n" unless $cust_bill;
  33
  34         open(LPR,"|$lpr") or die "Can't open $lpr: $!";
  35         print LPR $cust_bill->print_text; #( date )
  36         close LPR
  37           or die $! ? "Error closing $lpr: $!"
  38                        : "Exit status $? from $lpr";
  39
  40 my($custnum)=$cust_bill->getfield('custnum');
  41
  42 print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum#history");
  43