projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add a domain pulldown to svc_acct linking, closes: Bug#277 / prevent "stealing" servi...
[freeside.git]
/
httemplate
/
view
/
cust_bill-pdf.cgi
diff --git
a/httemplate/view/cust_bill-pdf.cgi
b/httemplate/view/cust_bill-pdf.cgi
index
03340a1
..
2a86c32
100755
(executable)
--- a/
httemplate/view/cust_bill-pdf.cgi
+++ b/
httemplate/view/cust_bill-pdf.cgi
@@
-2,12
+2,16
@@
#untaint invnum
my($query) = $cgi->keywords;
#untaint invnum
my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
+$query =~ /^(\d+)
(.pdf)?
$/;
my $invnum = $1;
my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
die "Invoice #$invnum not found!" unless $cust_bill;
my $invnum = $1;
my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
die "Invoice #$invnum not found!" unless $cust_bill;
-http_header('Content-Type' => 'application/postscript' );
+my $pdf = $cust_bill->print_pdf;
+
+http_header('Content-Type' => 'application/pdf' );
+http_header('Content-Length' => length($pdf) );
+http_header('Cache-control' => 'max-age=60' );
%>
%>
-<%= $
cust_bill->print_ps
%>
+<%= $
pdf
%>