AUDIT: r16931 - gnucash/trunk/packaging/win32 - Win32: Detect and warn about ActivePerl 5.10 (#506873).

[Andreas Köhler]

Author: andi5
Date: 2008-02-08 17:23:25 -0500 (Fri, 08 Feb 2008)
New Revision: 16931
Trac: http://svn.gnucash.org/trac/changeset/16931

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

BP


Modified: gnucash/trunk/packaging/win32/install-fq-mods.bat
===================================================================
--- gnucash/trunk/packaging/win32/install-fq-mods.bat	2008-02-06 23:38:37 UTC (rev 16930)
+++ gnucash/trunk/packaging/win32/install-fq-mods.bat	2008-02-08 22:23:25 UTC (rev 16931)
@@ -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