package GSDLHOME; BEGIN { # get arguments my $cgi = new CGI; $ENV{'GSDLHOME'} = $cgi->param("gsdlhome") if (!defined $ENV{'GSDLHOME'}); unless (defined $ENV{'GSDLHOME'}) { print "Content-type: text/html\n\n"; my $title = "Greenstone Software: Web Error Encountered"; print "$title\n"; print "

$title

\n"; print "

GSDLHOME not set.\n"; print "\n\n"; exit(0); } $ENV{'GSDLOS'} = $^O; # special perl variable set to OS ##### Need to check to see what this is set to ##### under Windows $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/script"; $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}"; unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); } 1;