:: Download & upgrade IBExpert binaries

@ECHO OFF

SETLOCAL

SET BaseAddr=http://www.ibexpert.com/rus
SET IBE=ibe_sfx.exe
SET IBEScript=IBEScript_sfx.exe
SET CDir=%~dp0%

CALL :Get %IBE% || (ECHO Cannot update %IBE% && GOTO :Err)

IF DEFINED DoUpdate (
	CALL "%CDir%\unrar.exe" x -y "%CDir%\%IBE%" IBExpert.exe "%CDir%\..\IBExpert\"
)

CALL :Get %IBEScript% || (ECHO Cannot update %IBEScript% && GOTO :Err)

IF DEFINED DoUpdate (
	CALL "%CDir%\unrar.exe" x -y "%CDir%\%IBEScript%" IBEScript.exe "%CDir%\..\IBExpert\"
)

GOTO :EOF

:Err
PAUSE
GOTO :EOF

:: ==================================================== ::
:: Function Get
::   Downloads a file from HTTP, checks if it differs from the existing one, replaces it if yes, returns a flag
:: IN
::   %1 - name of EXE to get
:: OUT
::   DoUpdate - defined if a newer build was downloaded

:Get

SET DoUpdate=

:: Download
CALL "%CDir%\curl.exe" %BaseAddr%/%1 -o "%CDir%\%1.~tmp" || GOTO :Get_Err

:: Get checksums

:: If old file exists, get its checksum. Do not check for errors, replace the file in that case
IF EXIST %CDir%\%1 (
	:: Get the value
	FOR /F %%S IN ('CALL "%CDir%\busybox.exe" cksum "%CDir%\%1"') DO (
		SET CheckSumOld=%%S
	)
)

:: Check if smth wrong
CALL "%CDir%\busybox.exe" cksum "%CDir%\%1.~tmp" > nul || GOTO :Get_Err
:: Get the value
FOR /F %%S IN ('CALL "%CDir%\busybox.exe" cksum "%CDir%\%1.~tmp"') DO (
	SET CheckSumNew=%%S
)
IF NOT DEFINED CheckSumNew GOTO :Get_Err

:: Compare checksums
IF .%CheckSumOld%.==.%CheckSumNew%. (ECHO File wasn't changed && GOTO :Get_Cleanup)

ECHO File %1 changed, updating

DEL "%CDir%\%1" 2> NUL
REN "%CDir%\%1.~tmp" "%1"
SET DoUpdate=1

GOTO :EOF

:Get_Cleanup
DEL "%CDir%\%1.~tmp" > NUL
GOTO :EOF

:Get_Err
ECHO Get: Error, stopping
GOTO :EOF
:: ==================================================== ::