r16036 - gnucash/trunk/packaging/win32 - Add support for ActivePerl 5.6 to install-fq-mods.bat.

[Andreas Köhler]

Author: andi5
Date: 2007-05-01 18:05:42 -0400 (Tue, 01 May 2007)
New Revision: 16036
Trac: http://svn.gnucash.org/trac/changeset/16036

Modified:
   gnucash/trunk/packaging/win32/install-fq-mods.bat
Log:
Add support for ActivePerl 5.6 to install-fq-mods.bat.


Modified: gnucash/trunk/packaging/win32/install-fq-mods.bat
===================================================================
--- gnucash/trunk/packaging/win32/install-fq-mods.bat	2007-05-01 14:03:44 UTC (rev 16035)
+++ gnucash/trunk/packaging/win32/install-fq-mods.bat	2007-05-01 22:05:42 UTC (rev 16036)
@@ -3,10 +3,29 @@
 if not exist ssleay32.dll (
   echo.
   echo Did not find ssleay32.dll in current directory.
-  echo Please start this batch file in the bin directory created by the installer.
+  echo Please start this batch file in the bin directory created by the setup.exe.
   goto error
 )
 
+echo.
+echo * Check Perl
+echo.
+perl -e "$ver=1000*sprintf(\"%%.3f\", $]); exit(int($ver/100)+$ver%%1000);"
+if %errorlevel% equ 58 (
+  set _haveperl58=1
+  goto ccp
+)
+if %errorlevel% equ 56 (
+  set _haveperl58=
+  goto ccp
+)
+echo.
+echo Did not find a usable perl.
+echo Please install ActivePerl (http://www.activestate.com/store/activeperl)
+echo and add the bin directory to your Path environment variable.
+goto error
+:ccp
+
 echo * Install DateManip
 echo.
 perl -x -S ppm install DateManip
@@ -17,7 +36,11 @@
 echo.
 set OLDPATH=%PATH%
 set PATH=%CD%;%PATH%
-echo anything | perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
+if defined _haveperl58 (
+  echo anything | perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
+) else (
+  perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/Crypt-SSLeay.ppd
+)
 set errlvlbak=%errorlevel%
 set PATH=%OLDPATH%
 if %errlvlbak% neq 0 goto error