projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix fallout from fixing UTF-8 XML-RPC self-service issues, RT#13656
[freeside.git]
/
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