diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/image.cgi')
-rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/image.cgi | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/image.cgi b/fs_selfservice/FS-SelfService/cgi/image.cgi new file mode 100755 index 0000000..e951dcd --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/image.cgi @@ -0,0 +1,20 @@ +#!/usr/bin/perl -T +#!/usr/bin/perl -Tw + +use strict; +use CGI; +use FS::SelfService qw( skin_info ); + +my $cgi = new CGI; + +my($query) = $cgi->keywords; +$query =~ /^(\w+)$/ or '' =~ /^()$/; +my $name = $1; + +my $info = skin_info(); + +print $cgi->header( '-type' => 'image/png', #for now + #'-expires' => 'now', + ). + $info->{$name}; + |