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 | 18 |
1 files changed, 18 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..bf82a87e8 --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi @@ -0,0 +1,18 @@ +#!/usr/bin/perl -Tw + +use strict; +use CGI; +use FS::SelfService qw( invoice_logo ); + +$cgi = new CGI; + +my($query) = $cgi->keywords; +$query =~ /^([^\.\/]*)$/ or '' =~ /^()$/; +my $templatename = $1; +invoice_logo($templatename); + +print $cgi->header( '-type' => $content_type, + '-expires' => 'now', + ). + $logo; + |