Changeset 27240 for main/trunk/greenstone2/bin/script

Timestamp:

2013-04-19T18:02:41+12:00 (11 years ago)

Author:

kjdon

Message:

Because activate uses perl modules like LWP and NET and URI which may not be available in all standard perl distributions, these were recently added into CPAN by Dr Bainbridge. Along with that, cpan was added into the INC array in activate.pl. Doing so caused a conflict on the svn version of the code on Windows, where ActivePerl was installed. That perl installation had a conflict with cpan\auto folder in particular its HTML and Win32 subfolders because these are perl5.8 specific. A new cpan\perl-5.8 folder is being introduced with its own auto subfolder which will contain all these things to prevent conflicts with other versions of perl. However, cpan\auto\Image(\Size) will still remain in the top cpan\auto level since that's not part of the ActivePerl installation. As it contains only perl code and no binaries, it may not as tied down to any specific version of perl.

File:

• main/trunk/greenstone2/bin/script/activate.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/activate.pl

@@ -35 +35 @@
 # GS3 web server again if necessary.
 
+use Config;
 
 BEGIN {
@@ -41 +42 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
+    
+    # Adding cpan in, adds in its auto subfolder which conflicts with ActivePerl on Windows
+    # The auto folder has been moved into a perl-5.8 folder, and this will now be included 
+    # only if the current version of perl is 5.8 (and not ActivePerl).
+    my $perl_dir;
+
+    # Note: $] encodes the version number of perl
+    if ($]>=5.010) { 
+        $perl_dir="perl-5.".substr($],3,2);
+    }
+    elsif ($]>5.008) { 
+    # perl 5.8.1 or above
+    $perl_dir = "perl-5.8";
+    }
+    elsif ($]>=5.008) { 
+    # perl 5.8.1 or above
+    $perl_dir = "perl-5.8";
+    }
+    elsif ($]<5.008) {
+    # assume perl 5.6
+    $perl_dir = "perl-5.6";
+    }
+    else {
+    print STDERR "Warning: Perl 5.8.0 is not a maintained release.\n";
+    print STDERR "         Please upgrade to a newer version of Perl.\n";
+    $perl_dir = "perl-5.8";
+    }
+
+    #if ($ENV{'GSDLOS'} !~ /^windows$/i) {
+        # Use push to put this on the end, so an existing XML::Parser will be used by default
+        if (-d "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir-mt" && $Config{usethreads}){
+            push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir-mt");
+        }
+        else{
+            push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir");
+        }
+    #}
+    
 }