#!/usr/bin/perl

#print "Content-type: text/html\n\n";
print "Content-type: image/jpeg\n\n";

# Get the name
$rawData = $ENV{'QUERY_STRING'};
($whatever,$theName) = split(/=/,$rawData,2);
$theName =~ s/\+/ /g;
$theName =~ s/%(..)/pack("c",hex($1))/ge;

#print "<pre>\n";
#print "Generating certificate for '$theName'\n";
#print `pwd`;
print `/home/server2screen/gencert/gencert "$theName" 2>&1`;