fs_selfservice/FS-SelfService/cgi/image.cgi

   1 #!/usr/bin/perl -T
   2 #!/usr/bin/perl -Tw
   3
   4 use strict;
   5 use CGI;
   6 use FS::SelfService qw( skin_info );
   7
   8 my $cgi = new CGI;
   9
  10 my($query) = $cgi->keywords;
  11 $query =~ /^(\w+)$/ or '' =~ /^()$/;
  12 my $name = $1;
  13
  14 my $info = skin_info();
  15
  16 print $cgi->header( '-type'    => 'image/png', #for now
  17                     #'-expires' => 'now',
  18                   ).
  19       $info->{$name};
  20