r16988 - gnucash/branches/2.2/packaging/win32 - [r16931] Win32: Detect and warn about ActivePerl 5.10 (#506873).

[Andreas Köhler]

Author: andi5
Date: 2008-03-01 09:50:15 -0500 (Sat, 01 Mar 2008)
New Revision: 16988
Trac: http://svn.gnucash.org/trac/changeset/16988

Modified:
   gnucash/branches/2.2/packaging/win32/install-fq-mods.bat
Log:
[r16931] Win32: Detect and warn about ActivePerl 5.10 (#506873).


Modified: gnucash/branches/2.2/packaging/win32/install-fq-mods.bat
===================================================================
--- gnucash/branches/2.2/packaging/win32/install-fq-mods.bat	2008-03-01 14:50:05 UTC (rev 16987)
+++ gnucash/branches/2.2/packaging/win32/install-fq-mods.bat	2008-03-01 14:50:15 UTC (rev 16988)
@@ -1,4 +1,5 @@
 @echo off
+setlocal
 
 if not exist ssleay32.dll (
   echo.
@@ -10,18 +11,30 @@
 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
+perl -e "exit(int($]));"
+set _perlmajor=%errorlevel%
+perl -e "$ver=1000*sprintf(\"%%.3f\", $]); exit(int($ver)-5000);"
+set _perlminor=%errorlevel%
+if %_perlmajor% equ 5 (
+  if %_perlminor% equ 10 (
+    echo.
+    echo Found ActivePerl 5.10.  This version does not yet support Finance-Quote.
+    echo Please install ActivePerl 5.8 (http://www.activestate.com/store/activeperl^)
+    echo instead and add the bin directory to your Path environment variable.
+    goto error
+  )
+  if %_perlminor% equ 8 (
+    set _perlversion=5.8
+    goto ccp
+  )
+  if %_perlminor% equ 6 (
+    set _perlversion=5.6
+    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 Please install ActivePerl 5.8 (http://www.activestate.com/store/activeperl)
 echo and add the bin directory to your Path environment variable.
 goto error
 :ccp
@@ -36,7 +49,7 @@
 echo.
 set OLDPATH=%PATH%
 set PATH=%CD%;%PATH%
-if defined _haveperl58 (
+if %_perlversion% == 5.8 (
   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