X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fcust_bill-logo.cgi;fp=fs_selfservice%2FFS-SelfService%2Fcgi%2Fcust_bill-logo.cgi;h=bf82a87e88a1b0083d45cd3bc509267f201cfbb9;hb=b58e61ac7df612f606c3e68371265e790e0be585;hp=0000000000000000000000000000000000000000;hpb=5d133672add54fb6bdd6690cdd9ca386d7a44a10;p=freeside.git

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;
+