htdocs/view/cust_bill.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # Usage: cust_bill.cgi invnum
   4 #        http://server.name/path/cust_bill.cgi?invnum
   5 #
   6 # Note: Should be run setuid freeside as user nobody.
   7 #
   8 # this is a quick & ugly hack which does little more than add some formatting to the ascii output from /dbin/print-invoice
   9 #
  10 # ivan@voicenet.com 96-dec-05
  11 #
  12 # added navigation bar
  13 # ivan@voicenet.com 97-jan-30
  14 #
  15 # now uses Invoice.pm
  16 # ivan@voicenet.com 97-jun-30
  17 #
  18 # what to do if cust_bill search errors?
  19 # ivan@voicenet.com 97-jul-7
  20 #
  21 # s/FS::Search/FS::Record/; $cgisuidsetup($cgi); ivan@sisd.com 98-mar-14
  22 #
  23 # Changes to allow page to work at a relative position in server
  24 #       bmccane@maxbaud.net     98-apr-3
  25 #
  26 # also print 'printed' field ivan@sisd.com 98-jul-10
  27
  28 use strict;
  29 use IO::File;
  30 use CGI::Base qw(:DEFAULT :CGI); # CGI module
  31 use CGI::Carp qw(fatalsToBrowser);
  32 use FS::UID qw(cgisuidsetup);
  33 use FS::Record qw(qsearchs);
  34 use FS::Invoice;
  35
  36 my($cgi) = new CGI::Base;
  37 $cgi->get;
  38 &cgisuidsetup($cgi);
  39
  40 #untaint invnum
  41 $QUERY_STRING =~ /^(\d+)$/;
  42 my($invnum)=$1;
  43
  44 my($cust_bill) = qsearchs('cust_bill',{'invnum'=>$invnum});
  45 die "Invoice #$invnum not found!" unless $cust_bill;
  46 my($custnum) = $cust_bill->getfield('custnum');
  47
  48 my($printed) = $cust_bill->printed;
  49
  50 SendHeaders(); # one guess.
  51 print <<END;
  52 <HTML>
  53   <HEAD>
  54     <TITLE>Invoice View</TITLE>
  55   </HEAD>
  56   <BODY>
  57     <CENTER>
  58     <H1>Invoice View</H1>
  59     <A HREF="../view/cust_main.cgi?$custnum">View this customer (#$custnum)</A> | <A HREF="../">Main menu</A>
  60     </CENTER><HR>
  61     <BASEFONT SIZE=3>
  62     <CENTER>
  63       <A HREF="../edit/cust_pay.cgi?$invnum">Enter payments (check/cash) against this invoice</A>
  64       <BR><A HREF="../misc/print-invoice.cgi?$invnum">Reprint this invoice</A>
  65       <BR><BR>(Printed $printed times)
  66     </CENTER>
  67     <FONT SIZE=-1><PRE>
  68 END
  69
  70 bless($cust_bill,"FS::Invoice");
  71 print $cust_bill->print_text;
  72
  73         #formatting
  74         print <<END;
  75     </PRE></FONT>
  76   </BODY>
  77 </HTML>
  78 END
  79