X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fimage.cgi;h=ee17683a62b10c542ba4ba890feb40eede0a032e;hp=e951dcd1accc5567ffcca986e9c93e6f7e791a5a;hb=57d9974e8e0164453ad7e6b5df4cd8cd78897ef0;hpb=b10deb15ae594cc85eef8db967784fed1fa8ec8f 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',