$TYPE = "\U$ARGV[0]";

$SERVER_COMMENTS = $ENV{SERVER_COMMENTS}; $SERVER_COMMENTS =~ s/\@/\\\@/g;
$BASE_DIR        = $ENV{SERVER_WWW_HOME};
$BASE_HREF       = $ENV{SERVER_WWW_URL};
$SERVER_NAME     = $ENV{SERVER_NAME};
$SERVER_HOME     = $ENV{SERVER_HOME};
$ENV{BACKGROUND} = "BGCOLOR='$ENV{SERVER_WWW_BACKGROUND}'";
chop($CONTACT    = `cat $ENV{SERVER_SOLVERS}/$TYPE/CONTACT`); $CONTACT =~ s/\@/\\\@/g;

$TEMPLATE = `cat $ENV{SERVER_LIB}/cgi/solver-comment.cgi`;
$TEMPLATE =~ s/<WEB_PERL>/$ENV{SERVER_WEB_PERL}/g;
$TEMPLATE =~ s/<CONTACT>/$CONTACT/g;
$TEMPLATE =~ s/<SERVER_NAME>/$SERVER_NAME/g;
$TEMPLATE =~ s/<SERVER_COMMENTS>/$SERVER_COMMENTS/g;
$TEMPLATE =~ s/<SERVER_CGI_LIB>/$ENV{SERVER_CGI_LIB}/g;
$TEMPLATE =~ s/<BASE_DIR>/$BASE_DIR/g;
$TEMPLATE =~ s/<BASE_HREF>/$BASE_HREF/g;
$TEMPLATE =~ s/BGCOLOR/$ENV{BACKGROUND}/g;
print $TEMPLATE;
