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

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

attempting to get end-user collection building working under windows

  • Property svn:keywords set to Author Date Id Revision
File size: 566 bytes
Line 
1package GSDLHOME;
2
3BEGIN {
4
5 $ENV{'GSDLHOME'} = 'd:/home/dl/gsdl' unless defined $ENV{'GSDLHOME'};
6
7 # just in case GSDLHOME has a slash on the end which would cause
8 # double slashes below
9 $ENV{'GSDLHOME'} =~ s/[\/\\]+$//;
10
11 $ENV{'GSDLOS'} = $^O;
12
13 if ($ENV{'GSDLOS'} =~ /(win|dos)/i) {
14 $ENV{'GSDLOS'} = 'windows';
15 }
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");
21}
22
231;
Note: See TracBrowser for help on using the repository browser.