diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/image.cgi')
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/image.cgi | 14 |
1 files changed, 11 insertions, 3 deletions
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', |