#!/usr/bin/perl
use CGI ':standard';
%gFormList = ("", "Sub_Search.html",
"/x/History_of_Art/space","Space_Search.html");
%gCfgList = ("", "/x/History_of_Art/demoarea/bin/config.default",
"/x/History_of_Art/space",
"/x/History_of_Art/Earth-n-Space/bin/config.default");
push(@INC, "/x/History_of_Art/cgi-bin");
require "tmplprint";
# ----------------------------------------------------------------------
# This function prints most of the boiler-plate information for the
# HTML document. Current parameters are:
#
# $_[0]: Title of this HTML document.
# ----------------------------------------------------------------------
sub prepare
{
if ($alreadyPrepared)
{
return;
}
$alreadyPrepared = 1;
print "Content-type: text/html\n\n";
print "\n\n";
printf("%s\n\n\n\n", $_[0]);
} # END: prepare
# ----------------------------------------------------------------------
# This is a short organizing function, similar in functionality to die().
# ----------------------------------------------------------------------
sub printError
{
local($errorStr) = @_;
print(STDERR "$errorStr\n");
$errorStr =~ s/\n/
/g;
&prepare("Error");
printf("Error: $errorStr\n");
if ($adminEmail ne "")
{
printf("Please contact: $adminEmail
\n");
}
printf("\n\n");
exit(1);
} # END: printError
main:
{
($searchDir) = @ARGV;
$switch{'\[SEARCH_DIR\]'} = $searchDir;
$version = $ENV{'PATH_INFO'};
$configFile = $gCfgList{$ENV{'PATH_INFO'}};
if ($configFile eq "" ||
! -f $configFile)
{
&printError("Bad Config File: $configFile");
}
do($configFile);
$switch{'\[config_type\]'} = "$gConfigType";
$switch{'\[configFile\]'} = "$configFile";
$switch{'\[configdetailsdir\]'} = "$gDetDir";
$switch{'\[HOME_URL\]'} = "$gHomeURL";
$switch{'\[HOME_BUTTON\]'} = "$gHomeButton";
$switch{'\[VERSION\]'} = "$version";
&PrintFile(STDOUT, $gFormList{$version}, *switch);
exit(0);
}