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 | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi b/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi deleted file mode 100644 index 253f853..0000000 --- a/fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -T -#!/usr/bin/perl -Tw - -use strict; -use CGI; -use FS::SelfService qw( invoice_logo ); - -my $cgi = new CGI; - -my %hash = (); -if ( $cgi->param('invnum') ) { - $hash{$_} = scalar($cgi->param($_)) foreach qw( invnum template ); -} else { - my($query) = $cgi->keywords; - $query =~ /^([^\.\/]*)$/ or '' =~ /^()$/; - $hash{'template'} = $1; -} - -my $hashref = invoice_logo(%hash); - -print $cgi->header( '-type' => $hashref->{'content_type'}, - '-expires' => 'now', - ). - $hashref->{'logo'}; - |