diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi b/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi new file mode 100644 index 000000000..5f344a32e --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi @@ -0,0 +1,19 @@ +#!/usr/bin/perl -T +#!/usr/bin/perl -Tw + +use strict; +use CGI; +use FS::SelfService qw( invoice_logo ); + +my $cgi = new CGI; + +my($query) = $cgi->keywords; +$query =~ /^([^\.\/]*)$/ or '' =~ /^()$/; +my $templatename = $1; +my $hashref = invoice_logo('templatename' => $templatename); + +print $cgi->header( '-type' => $hashref->{'content_type'}, + '-expires' => 'now', + ). + $hashref->{'logo'}; + |