6 use FS::SelfService qw( skin_info );
10 my($query) = $cgi->keywords;
11 my( $name, $agentnum ) = ( '', '' );
12 if ( $query =~ /^(\w+)$/ ) {
15 $cgi->param('name') =~ /^(\w+)$/ or '' =~ /^()$/;
17 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
22 my $info = skin_info( agentnum=>$agentnum );
24 print $cgi->header( '-type' => 'image/png', #for now