Ignore:
Timestamp:
2000-05-04T17:14:00+12:00 (24 years ago)
Author:
sjboddie
Message:

attempting to get end-user collection building working under windows

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/cgi-bin/GSDLHOME.pm

    r1143 r1145  
    33BEGIN {
    44
    5     # get arguments
    6     my $cgi = new CGI;
    7 
    8     $ENV{'GSDLHOME'} = $cgi->param("gsdlhome") if (!defined $ENV{'GSDLHOME'});
    9 
    10     # delete this line once _gsdlhome macro is fixed
    11     $ENV{'GSDLHOME'} =~ s/d:gsdl/d:\\gsdl/i;
    12 
    13     unless (defined $ENV{'GSDLHOME'})
    14     {
    15         print "Content-type: text/html\n\n";
    16     my $title = "Greenstone Software: Web Error Encountered";
    17     print "<html><title>$title</title>\n";
    18     print "<body bgcolor=\"#ffffff\"><h3>$title</h3>\n";
    19     print "<p> GSDLHOME not set.\n";
    20     print "</body>\n</html>\n";
    21     exit(0);
    22     }
     5    $ENV{'GSDLHOME'} = 'd:/home/dl/gsdl' unless defined $ENV{'GSDLHOME'};
    236
    247    # just in case GSDLHOME has a slash on the end which would cause
     
    3114    $ENV{'GSDLOS'} = 'windows';
    3215    }
    33 
    34     if ($ENV{'GSDLOS'} eq "windows") {
    35     $ENV{'PATH'} .= ':' . $ENV{'GSDLHOME'} . '\bin\script';
    36     $ENV{'PATH'} .= ':' . $ENV{'GSDLHOME'} . '\bin\windows';
    37     unshift (@INC, $ENV{'GSDLHOME'} . '\perllib');
    38     unshift (@INC, $ENV{'GSDLHOME'} . '\perllib\cpan');
    39     } else {
    40     $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/script";
    41     $ENV{'PATH'} .= ":$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}";
    42     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
    43     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
    44     }
     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");
    4521}
    4622
Note: See TracChangeset for help on using the changeset viewer.