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

#!/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;