@echo off
REM  RAID800                               
REM  Perl Install tool for RAID800 SVP
REM       All Rights Reserved, Copyright (C) 2020,Hitachi, Ltd. 
REM
REM History  :Version    :DATE        : Coder        : Patch No
REM RAID 800 
REM          :01-00      :2020.01.28  : T.Yamanaka   : #97547 (Strawberry Perl 5.28.2 is supported) 
REM
REM Document
REM Strawberry Perl 5.28.2.1 Installer 
REM
REM 

pushd %~dp0

for /f "tokens=1-4 delims=," %%a in (PerlVer.txt) do (
  set PerlName=%%a
  set MsiFile=%%b
  set GUID=%%c
  set InsDir=%%d
)

call Msi_Install.bat
set INS_CHK=%ERRORLEVEL%
if %INS_CHK% equ 2 goto :Normal_Exit
if not %INS_CHK% equ 0 goto :Error_Exit

set cpcmd=copy PerlVer.txt C:\Strawberry\PerlVer.txt
%cpcmd%
set CPY_CHK=%ERRORLEVEL%
if not %CPY_CHK% equ 0 (
  echo PerlVer.txt Copy failed 1
  timeout /T 5 /NOBREAK > nul 2>&1
  %cpcmd%
)
if not %CPY_CHK% equ 0 (
  echo PerlVer.txt Copy failed 2
  timeout /T 5 /NOBREAK > nul 2>&1
  %cpcmd%
)
if not %CPY_CHK% equ 0 goto :Copy_failed

:Normal_Exit
popd
exit /b 0

:Copy_failed
popd
exit /b 2

:Error_Exit
popd
exit /b 1