#!/usr/bin/perl
print "Content-type: text/html\n\n";
# This is to trick IIS into using the CWD of the script being executed...
#
use File::Basename;
if ( $ENV{'SERVER_SOFTWARE'} =~ /IIS/ )
{
$cwd = dirname($ENV{'PATH_TRANSLATED'});
chdir($cwd);
}
$QUERY_STRING = $ENV{'QUERY_STRING'};
$QUERY_STRING =~ /prog=([^\&]*)/;
$file = $1.".cgi";
if ( not open( IN, $file ) )
{
print "System error\n";
print ""
. "Cannot open program file $file: ".$!
. "If this persists, please contact "
. "customer services.";
print "QUERY_STRING = ".$QUERY_STRING
. "";
print "
" . $@ . "
\n";
print "\n";
}
my $line;
my $perl;
while ( $line = )
{
$perl .= $line;
}
close( IN );
eval( $perl );
if ( $@ ne "" )
{
print "System error\n";
print ""
. "A system error has occured. If this persists, please contact "
. "customer services "
. "quoting the following message:"
. "";
print "
QUERY_STRING = ".$QUERY_STRING
. "";
print "
" . $@ . "
\n";
print "\n";
}
exit;