X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fimage.cgi;h=ee17683a62b10c542ba4ba890feb40eede0a032e;hb=219c811aa5ee634bb17e1fa19a2d75351949b8d4;hp=e951dcd1accc5567ffcca986e9c93e6f7e791a5a;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/image.cgi b/fs_selfservice/FS-SelfService/cgi/image.cgi index e951dcd1a..ee17683a6 100755 --- a/fs_selfservice/FS-SelfService/cgi/image.cgi +++ b/fs_selfservice/FS-SelfService/cgi/image.cgi @@ -8,10 +8,18 @@ use FS::SelfService qw( skin_info ); my $cgi = new CGI; my($query) = $cgi->keywords; -$query =~ /^(\w+)$/ or '' =~ /^()$/; -my $name = $1; +my( $name, $agentnum ) = ( '', '' ); +if ( $query =~ /^(\w+)$/ ) { + $name = $1; +} else { + $cgi->param('name') =~ /^(\w+)$/ or '' =~ /^()$/; + $name = $1; + if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { + $agentnum = $1; + } +} -my $info = skin_info(); +my $info = skin_info( agentnum=>$agentnum ); print $cgi->header( '-type' => 'image/png', #for now #'-expires' => 'now',