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

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use CGI;
   5 use FS::SelfService qw( invoice_logo );
   6
   7 my $cgi = new CGI;
   8
   9 my($query) = $cgi->keywords;
  10 $query =~ /^([^\.\/]*)$/ or '' =~ /^()$/;
  11 my $templatename = $1;
  12 my $hashref = invoice_logo($templatename);
  13
  14 print $cgi->header( '-type'    => $hashref->{'content_type'},
  15                     '-expires' => 'now',
  16                   ).
  17       $hashref->{'logo'};
  18