mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Fix line-ending styles on a few windows scripts
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23448 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens
parent
3ad0ae2c60
commit
70a5b90fb6
@ -1,49 +1,49 @@
|
|||||||
' script to download perl install file and save on local disc
|
' script to download perl install file and save on local disc
|
||||||
' the location of which is provided by first argument
|
' the location of which is provided by first argument
|
||||||
|
|
||||||
|
|
||||||
Const WindowsFolder = 0
|
Const WindowsFolder = 0
|
||||||
Const SystemFolder = 1
|
Const SystemFolder = 1
|
||||||
Const TemporaryFolder = 2
|
Const TemporaryFolder = 2
|
||||||
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
|
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
|
||||||
Dim tempFolder: tempFolder = fso.GetSpecialFolder(TemporaryFolder)
|
Dim tempFolder: tempFolder = fso.GetSpecialFolder(TemporaryFolder)
|
||||||
|
|
||||||
strHDLocation = Wscript.Arguments.Item(0)
|
strHDLocation = Wscript.Arguments.Item(0)
|
||||||
|
|
||||||
' Set your settings
|
' Set your settings
|
||||||
strFileURL = "http://strawberry-perl.googlecode.com/files/strawberry-perl-5.12.3.0.msi"
|
strFileURL = "http://strawberry-perl.googlecode.com/files/strawberry-perl-5.12.3.0.msi"
|
||||||
|
|
||||||
Wscript.Echo " copying " & strFileURL
|
Wscript.Echo " copying " & strFileURL
|
||||||
Wscript.Echo " to " & strHDLocation
|
Wscript.Echo " to " & strHDLocation
|
||||||
|
|
||||||
|
|
||||||
' Fetch the file
|
' Fetch the file
|
||||||
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
|
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
|
||||||
|
|
||||||
objXMLHTTP.open "GET", strFileURL, false
|
objXMLHTTP.open "GET", strFileURL, false
|
||||||
objXMLHTTP.send()
|
objXMLHTTP.send()
|
||||||
|
|
||||||
If objXMLHTTP.Status = 200 Then
|
If objXMLHTTP.Status = 200 Then
|
||||||
Set objADOStream = CreateObject("ADODB.Stream")
|
Set objADOStream = CreateObject("ADODB.Stream")
|
||||||
objADOStream.Open
|
objADOStream.Open
|
||||||
objADOStream.Type = 1 'adTypeBinary
|
objADOStream.Type = 1 'adTypeBinary
|
||||||
|
|
||||||
objADOStream.Write objXMLHTTP.ResponseBody
|
objADOStream.Write objXMLHTTP.ResponseBody
|
||||||
objADOStream.Position = 0 'Set the stream position to the start
|
objADOStream.Position = 0 'Set the stream position to the start
|
||||||
|
|
||||||
Set objFSO = Createobject("Scripting.FileSystemObject")
|
Set objFSO = Createobject("Scripting.FileSystemObject")
|
||||||
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
|
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
|
||||||
|
|
||||||
objADOStream.SaveToFile strHDLocation
|
objADOStream.SaveToFile strHDLocation
|
||||||
objADOStream.Close
|
objADOStream.Close
|
||||||
Set objADOStream = Nothing
|
Set objADOStream = Nothing
|
||||||
If objFSO.Fileexists(strHDLocation) Then
|
If objFSO.Fileexists(strHDLocation) Then
|
||||||
Wscript.Echo " "
|
Wscript.Echo " "
|
||||||
Wscript.Echo " " & strHDLocation & " downloaded OK"
|
Wscript.Echo " " & strHDLocation & " downloaded OK"
|
||||||
Wscript.Echo " "
|
Wscript.Echo " "
|
||||||
Set objFSO = Nothing
|
Set objFSO = Nothing
|
||||||
wscript.quit 0
|
wscript.quit 0
|
||||||
End if
|
End if
|
||||||
End if
|
End if
|
||||||
|
|
||||||
wscript.quit 1
|
wscript.quit 1
|
||||||
|
|||||||
@ -1,188 +1,188 @@
|
|||||||
@echo off
|
@echo off
|
||||||
setlocal
|
setlocal
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
if not exist ssleay32.dll (
|
if not exist ssleay32.dll (
|
||||||
echo.
|
echo.
|
||||||
echo Did not find ssleay32.dll in current directory.
|
echo Did not find ssleay32.dll in current directory.
|
||||||
echo Please start this cmd file in the bin directory created by the setup.exe.
|
echo Please start this cmd file in the bin directory created by the setup.exe.
|
||||||
goto error
|
goto error
|
||||||
)
|
)
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Check Perl
|
echo * Check Perl
|
||||||
echo.
|
echo.
|
||||||
perl -v > NUL 2>&1
|
perl -v > NUL 2>&1
|
||||||
if %errorlevel% equ 0 goto chkver
|
if %errorlevel% equ 0 goto chkver
|
||||||
echo.
|
echo.
|
||||||
echo No Perl executable found, attempt to install Strawberry Perl
|
echo No Perl executable found, attempt to install Strawberry Perl
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Download Strawberry Perl package
|
echo * Download Strawberry Perl package
|
||||||
echo.
|
echo.
|
||||||
call cscript//nologo getperl.vbs %TEMP%\Perl.msi
|
call cscript//nologo getperl.vbs %TEMP%\Perl.msi
|
||||||
if %errorlevel% neq 0 (
|
if %errorlevel% neq 0 (
|
||||||
echo Return Value: "%errorlevel%"
|
echo Return Value: "%errorlevel%"
|
||||||
echo.
|
echo.
|
||||||
echo failed to download perl install file
|
echo failed to download perl install file
|
||||||
echo.
|
echo.
|
||||||
goto error
|
goto error
|
||||||
)
|
)
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Run automated Perl install
|
echo * Run automated Perl install
|
||||||
echo.
|
echo.
|
||||||
msiexec /qb /l* %TEMP%\perl-log.txt /i %TEMP%\Perl.msi PERL_PATH=Yes PERL_EXT=Yes
|
msiexec /qb /l* %TEMP%\perl-log.txt /i %TEMP%\Perl.msi PERL_PATH=Yes PERL_EXT=Yes
|
||||||
if %errorlevel% neq 0 (
|
if %errorlevel% neq 0 (
|
||||||
echo Return Value: "%errorlevel%"
|
echo Return Value: "%errorlevel%"
|
||||||
echo.
|
echo.
|
||||||
echo failed to install perl from %TEMP%\Perl.msi
|
echo failed to install perl from %TEMP%\Perl.msi
|
||||||
echo.
|
echo.
|
||||||
del %TEMP%\Perl.msi
|
del %TEMP%\Perl.msi
|
||||||
goto error
|
goto error
|
||||||
)
|
)
|
||||||
perl -v
|
perl -v
|
||||||
del %TEMP%\Perl.msi
|
del %TEMP%\Perl.msi
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Update PATH variable to include Perl
|
echo * Update PATH variable to include Perl
|
||||||
echo.
|
echo.
|
||||||
:: delims is a TAB followed by a space
|
:: delims is a TAB followed by a space
|
||||||
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v Path') DO SET NewPath=%%B
|
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v Path') DO SET NewPath=%%B
|
||||||
ECHO NewPath = %NewPath%
|
ECHO NewPath = %NewPath%
|
||||||
set Path=%NewPath%
|
set Path=%NewPath%
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:chkver
|
:chkver
|
||||||
echo.
|
echo.
|
||||||
echo * Check Perl version
|
echo * Check Perl version
|
||||||
echo.
|
echo.
|
||||||
perl -e "exit(int($]));"
|
perl -e "exit(int($]));"
|
||||||
set _perlmajor=%errorlevel%
|
set _perlmajor=%errorlevel%
|
||||||
perl -e "$ver=1000*sprintf(\"%%.3f\", $]); exit(int($ver)-5000);"
|
perl -e "$ver=1000*sprintf(\"%%.3f\", $]); exit(int($ver)-5000);"
|
||||||
set _perlminor=%errorlevel%
|
set _perlminor=%errorlevel%
|
||||||
if %_perlmajor% equ 5 (
|
if %_perlmajor% equ 5 (
|
||||||
if %_perlminor% geq 10 (
|
if %_perlminor% geq 10 (
|
||||||
set _perlversion=5.10
|
set _perlversion=5.10
|
||||||
goto pchk
|
goto pchk
|
||||||
)
|
)
|
||||||
if %_perlminor% equ 8 (
|
if %_perlminor% equ 8 (
|
||||||
set _perlversion=5.8
|
set _perlversion=5.8
|
||||||
goto pchk
|
goto pchk
|
||||||
)
|
)
|
||||||
REM Note: GnuCash no longer "officially" supports perl 5.6, but as long as it works it will be allowed...
|
REM Note: GnuCash no longer "officially" supports perl 5.6, but as long as it works it will be allowed...
|
||||||
if %_perlminor% equ 6 (
|
if %_perlminor% equ 6 (
|
||||||
set _perlversion=5.6
|
set _perlversion=5.6
|
||||||
goto pchk
|
goto pchk
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
echo.
|
echo.
|
||||||
echo Found perl version %_perlmajor%.%_perlminor%, but GnuCash requires at least version 5.8.
|
echo Found perl version %_perlmajor%.%_perlminor%, but GnuCash requires at least version 5.8.
|
||||||
echo Please install version 5.8 or above of
|
echo Please install version 5.8 or above of
|
||||||
echo * ActivePerl (http://www.activestate.com/store/activeperl) or
|
echo * ActivePerl (http://www.activestate.com/store/activeperl) or
|
||||||
echo * Strawberry Perl (http://strawberry-perl.googlecode.com/files/)
|
echo * Strawberry Perl (http://strawberry-perl.googlecode.com/files/)
|
||||||
echo and add the bin directory to your Path environment variable.
|
echo and add the bin directory to your Path environment variable.
|
||||||
goto error
|
goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:pchk
|
:pchk
|
||||||
REM echo.
|
REM echo.
|
||||||
REM echo * Run gnc-path-check
|
REM echo * Run gnc-path-check
|
||||||
REM echo.
|
REM echo.
|
||||||
REM perl -w gnc-path-check
|
REM perl -w gnc-path-check
|
||||||
REM if %errorlevel% neq 0 goto error
|
REM if %errorlevel% neq 0 goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Determine which Perl flavour we have found
|
echo * Determine which Perl flavour we have found
|
||||||
echo.
|
echo.
|
||||||
perl -e "use Win32;if(defined &Win32::BuildNumber){exit 2;}else{exit 3;};"
|
perl -e "use Win32;if(defined &Win32::BuildNumber){exit 2;}else{exit 3;};"
|
||||||
REM echo status = %errorlevel%
|
REM echo status = %errorlevel%
|
||||||
if %errorlevel% equ 2 (
|
if %errorlevel% equ 2 (
|
||||||
echo => ActivePerl
|
echo => ActivePerl
|
||||||
goto inst_mod_as
|
goto inst_mod_as
|
||||||
) else if %errorlevel% equ 3 (
|
) else if %errorlevel% equ 3 (
|
||||||
echo => Other, probably Strawberry perl ?
|
echo => Other, probably Strawberry perl ?
|
||||||
goto inst_mod_oth
|
goto inst_mod_oth
|
||||||
) else if %errorlevel% neq 0 goto error
|
) else if %errorlevel% neq 0 goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:inst_mod_oth
|
:inst_mod_oth
|
||||||
echo.
|
echo.
|
||||||
echo * Install required perl modules
|
echo * Install required perl modules
|
||||||
echo.
|
echo.
|
||||||
perl -w gnc-fq-update
|
perl -w gnc-fq-update
|
||||||
if %errorlevel% neq 0 goto error
|
if %errorlevel% neq 0 goto error
|
||||||
goto fqchk
|
goto fqchk
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:inst_mod_as
|
:inst_mod_as
|
||||||
echo * Install DateManip
|
echo * Install DateManip
|
||||||
echo.
|
echo.
|
||||||
perl -x -S ppm install Date-Manip
|
perl -x -S ppm install Date-Manip
|
||||||
if %errorlevel% neq 0 (
|
if %errorlevel% neq 0 (
|
||||||
perl -x -S ppm install DateManip
|
perl -x -S ppm install DateManip
|
||||||
if %errorlevel% neq 0 goto error
|
if %errorlevel% neq 0 goto error
|
||||||
)
|
)
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Install Crypt-SSLeay
|
echo * Install Crypt-SSLeay
|
||||||
echo.
|
echo.
|
||||||
|
|
||||||
set OLDPATH=%PATH%
|
set OLDPATH=%PATH%
|
||||||
set PATH=%CD%;%PATH%
|
set PATH=%CD%;%PATH%
|
||||||
if %_perlversion% == 5.6 (
|
if %_perlversion% == 5.6 (
|
||||||
perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/Crypt-SSLeay.ppd
|
perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/Crypt-SSLeay.ppd
|
||||||
) else if %_perlversion% == 5.8 (
|
) else if %_perlversion% == 5.8 (
|
||||||
echo anything | perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
|
echo anything | perl -x -S ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
|
||||||
) else (
|
) else (
|
||||||
perl -x -S ppm install Crypt-SSLeay
|
perl -x -S ppm install Crypt-SSLeay
|
||||||
)
|
)
|
||||||
set errlvlbak=%errorlevel%
|
set errlvlbak=%errorlevel%
|
||||||
set PATH=%OLDPATH%
|
set PATH=%OLDPATH%
|
||||||
if "%errlvlbak%" neq "0" goto error
|
if "%errlvlbak%" neq "0" goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Install Finance-Quote
|
echo * Install Finance-Quote
|
||||||
echo.
|
echo.
|
||||||
perl -x -S ppm install Finance-Quote
|
perl -x -S ppm install Finance-Quote
|
||||||
if %errorlevel% neq 0 goto error
|
if %errorlevel% neq 0 goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:fqchk
|
:fqchk
|
||||||
echo.
|
echo.
|
||||||
echo * Run gnc-fq-check
|
echo * Run gnc-fq-check
|
||||||
echo.
|
echo.
|
||||||
perl -w gnc-fq-check
|
perl -w gnc-fq-check
|
||||||
if %errorlevel% neq 0 goto error
|
if %errorlevel% neq 0 goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
echo.
|
echo.
|
||||||
echo * Run gnc-fq-helper
|
echo * Run gnc-fq-helper
|
||||||
echo.
|
echo.
|
||||||
echo (yahoo "AMZN") | perl -w gnc-fq-helper
|
echo (yahoo "AMZN") | perl -w gnc-fq-helper
|
||||||
if %errorlevel% neq 0 goto error
|
if %errorlevel% neq 0 goto error
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:success
|
:success
|
||||||
echo.
|
echo.
|
||||||
echo * Installation succeeded
|
echo * Installation succeeded
|
||||||
echo.
|
echo.
|
||||||
goto end
|
goto end
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:error:
|
:error:
|
||||||
echo.
|
echo.
|
||||||
echo An error occurred, see above.
|
echo An error occurred, see above.
|
||||||
echo.
|
echo.
|
||||||
|
|
||||||
REM ----------------------------------------------------------------------------
|
REM ----------------------------------------------------------------------------
|
||||||
:end
|
:end
|
||||||
pause
|
pause
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user