fs_selfservice/FS-SelfService/cgi/cust_bill-logo.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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'};