source: trunk/gsdl/cgi-bin/GSDLHOME.pm@ 1157

Last change on this file since 1157 was 1157, checked in by sjboddie, 24 years ago

GSDLHOME.pm and gsdlsite.cfg now have dummy GSDLHOME's in cvs repository.
they'll be replaced with something more sensible when creating distributions

  • Property svn:keywords set to Author Date Id Revision
File size: 563 bytes
RevLine 
[1132]1package GSDLHOME;
2
3BEGIN {
4
[1157]5 $ENV{'GSDLHOME'} = '**GSDLHOME**' unless defined $ENV{'GSDLHOME'};
[1143]6
7 # just in case GSDLHOME has a slash on the end which would cause
8 # double slashes below
9 $ENV{'GSDLHOME'} =~ s/[\/\\]+$//;
[1132]10
[1143]11 $ENV{'GSDLOS'} = $^O;
[1132]12
[1143]13 if ($ENV{'GSDLOS'} =~ /(win|dos)/i) {
14 $ENV{'GSDLOS'} = 'windows';
15 }
[1145]16
17 $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/script";
18 $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}";
19 unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
20 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
[1132]21}
22
231;
Note: See TracBrowser for help on using the repository browser.