@echo off
REM set DBG=echo

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

set PERLINSTALLER="Perl\StrawberryPerl-Install.bat"
set PERLAPSETUPPATH="Perl\PerlLink.bat"
set LOGFILE="c:\SN2PERLSetup_log.txt"

echo ----- >> %LOGFILE% 2>>&1
echo # Start Program >> %LOGFILE% 2>>&1
echo %date%-%time% >> %LOGFILE% 2>>&1
echo ----- >> %LOGFILE% 2>>&1

echo # Run JDK Serup >> %LOGFILE% 2>>&1
REM ### UnInstall Section ###
pushd %~dp0
%DBG% call Perl\ActivePerl-5.16.2.1602-UnInstall.bat >> %LOGFILE% 2>>&1
if not %errorlevel%==0 goto :error

%DBG% call Perl\strawberryperl-UnInstall.bat >> %LOGFILE% 2>>&1
if not %errorlevel%==0 goto :error

REM ### Install Section ###
pushd %~dp0
%DBG% call %PERLINSTALLER% >> %LOGFILE% 2>>&1
if not %errorlevel%==0 goto :error

pushd %~dp0
%DBG% call %PERLAPSETUPPATH% >> %LOGFILE% 2>>&1
if not %errorlevel%==0 goto :error

echo ----- >> %LOGFILE% 2>>&1
echo # End Program >> %LOGFILE% 2>>&1
echo %date%-%time% >> %LOGFILE% 2>>&1
echo ----- >> %LOGFILE% 2>>&1

echo Operation successful.
exit 0

:error
echo Error occured.
exit 252