diff options
| author | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
| commit | e1eb06c05b654a4533bab0e034e87a8de99015cc (patch) | |
| tree | 448f6ca1c635eb08c0b4e51b3d40146febaf5df1 /htdocs/misc/print-invoice.cgi | |
| parent | 47806ec845818ba69604e0452e7c7b25d62f0772 (diff) | |
This commit was manufactured by cvs2svn to create tag 'freeside_current'.freeside_current
Diffstat (limited to 'htdocs/misc/print-invoice.cgi')
| -rwxr-xr-x | htdocs/misc/print-invoice.cgi | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/htdocs/misc/print-invoice.cgi b/htdocs/misc/print-invoice.cgi deleted file mode 100755 index 084dcc1c4..000000000 --- a/htdocs/misc/print-invoice.cgi +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/perl -Tw -# -# just a kludge for now, since this duplicates in a way it shouldn't stuff from -# Bill.pm (like $lpr) ivan@sisd.com 98-jun-16 - -use strict; -use CGI::Base qw(:DEFAULT :CGI); -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearchs); -use FS::Invoice; - -my($lpr) = "|lpr -h"; - -my($cgi) = new CGI::Base; -$cgi->get; -&cgisuidsetup($cgi); - -#untaint invnum -$QUERY_STRING =~ /^(\d*)$/; -my($invnum)=$1; -my($cust_bill)=qsearchs('cust_bill',{'invnum'=>$invnum}); -die "Can't find invoice!\n" unless $cust_bill; - - bless($cust_bill,"FS::Invoice"); - open(LPR,$lpr) or die "Can't open $lpr: $!"; - print LPR $cust_bill->print_text; #( date ) - close LPR - or die $! ? "Error closing $lpr: $!" - : "Exit status $? from $lpr"; - -my($custnum)=$cust_bill->getfield('custnum'); - -$cgi->redirect("../view/cust_main.cgi?$custnum#history"); - -sub idiot { - my($error)=@_; - CGI::Base::SendHeaders(); # one guess - print <<END; -<HTML> - <HEAD> - <TITLE>Error printing invoice</TITLE> - </HEAD> - <BODY> - <CENTER> - <H4>Error printing invoice</H4> - </CENTER> - Your update did not occur because of the following error: - <P><B>$error</B> - </BODY> -</HTML> -END - - exit; - -} - |