From d060bdce7ba0845453d886db8d8016633dde863c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 21 Jan 2010 08:38:54 +0000
Subject: more self-service skinning config options, and start taking a stab at
 reorganizing config sections, RT#6893

---
 fs_selfservice/FS-SelfService/cgi/image.cgi | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 fs_selfservice/FS-SelfService/cgi/image.cgi

(limited to 'fs_selfservice/FS-SelfService/cgi/image.cgi')

diff --git a/fs_selfservice/FS-SelfService/cgi/image.cgi b/fs_selfservice/FS-SelfService/cgi/image.cgi
new file mode 100755
index 000000000..e951dcd1a
--- /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};
+
-- 
cgit v1.2.1