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

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