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=f822e27a1e00594332ffa487a1c284234c5580a6;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924 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',