|
Last change
on this file since 1132 was 1132, checked in by sjboddie, 24 years ago |
|
needed for end-user building stuff
|
-
Property svn:keywords
set to
Author Date Id Revision
|
|
File size:
874 bytes
|
| Line | |
|---|
| 1 | package GSDLHOME;
|
|---|
| 2 |
|
|---|
| 3 | BEGIN {
|
|---|
| 4 |
|
|---|
| 5 | # get arguments
|
|---|
| 6 | my $cgi = new CGI;
|
|---|
| 7 | $ENV{'GSDLHOME'} = $cgi->param("gsdlhome") if (!defined $ENV{'GSDLHOME'});
|
|---|
| 8 |
|
|---|
| 9 | unless (defined $ENV{'GSDLHOME'})
|
|---|
| 10 | {
|
|---|
| 11 | print "Content-type: text/html\n\n";
|
|---|
| 12 | my $title = "Greenstone Software: Web Error Encountered";
|
|---|
| 13 | print "<html><title>$title</title>\n";
|
|---|
| 14 | print "<body bgcolor=\"#ffffff\"><h3>$title</h3>\n";
|
|---|
| 15 | print "<p> GSDLHOME not set.\n";
|
|---|
| 16 | print "</body>\n</html>\n";
|
|---|
| 17 | exit(0);
|
|---|
| 18 | }
|
|---|
| 19 |
|
|---|
| 20 | $ENV{'GSDLOS'} = $^O; # special perl variable set to OS
|
|---|
| 21 | ##### Need to check to see what this is set to
|
|---|
| 22 | ##### under Windows
|
|---|
| 23 |
|
|---|
| 24 | $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/script";
|
|---|
| 25 | $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}";
|
|---|
| 26 |
|
|---|
| 27 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
|
|---|
| 28 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
|
|---|
| 29 | }
|
|---|
| 30 |
|
|---|
| 31 | 1;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
