r17546 - gnucash/branches/2.2/packaging/win32 - [r17499, r17504] Bug #506873, Win32: Add support for Finance-Quote with ActivePerl 5.10, add fallback DateManip.

[Andreas Köhler]

Author: andi5
Date: 2008-09-17 13:35:40 -0400 (Wed, 17 Sep 2008)
New Revision: 17546
Trac: http://svn.gnucash.org/trac/changeset/17546

Modified:
   gnucash/branches/2.2/packaging/win32/install-fq-mods.bat
Log:
[r17499,r17504] Bug #506873, Win32: Add support for Finance-Quote with ActivePerl 5.10, add fallback DateManip.

ActivePerl v5.10 now contains a Finance-Quote module in its repositories, so add
it to the install-fq-mods.bat script.

It seems that the PPM repositories for ActivePerl v5.6 and v5.8 have been
changed so that DateManip cannot be found anymore.  Keep it for second try
nonetheless.

Modified: gnucash/branches/2.2/packaging/win32/install-fq-mods.bat
===================================================================
--- gnucash/branches/2.2/packaging/win32/install-fq-mods.bat	2008-09-17 17:35:31 UTC (rev 17545)
+++ gnucash/branches/2.2/packaging/win32/install-fq-mods.bat	2008-09-17 17:35:40 UTC (rev 17546)
@@ -17,11 +17,8 @@
 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
+    set _perlversion=5.10
+    goto ccp
   )
   if %_perlminor% equ 8 (
     set _perlversion=5.8
@@ -41,15 +38,20 @@
 
 echo * Install DateManip
 echo.
-perl -x -S ppm install DateManip
-if %errorlevel% neq 0 goto error
+perl -x -S ppm install Date-Manip
+if %errorlevel% neq 0 (
+  perl -x -S ppm install DateManip
+  if %errorlevel% neq 0 goto error
+)
 
 echo.
 echo * Install Crypt-SSLeay
 echo.
 set OLDPATH=%PATH%
 set PATH=%CD%;%PATH%
-if %_perlversion% == 5.8 (
+if %_perlversion% == 5.10 (
+  perl -x -S ppm install Crypt-SSLeay
+) else 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