@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 Active Perl 5.16.2.1602 UnInstaller
REM
REM 

set PerlName=ActivePerl-5.16.2.1602
set GUID={B3D26073-E112-416C-80BE-D31858DA2216}
set InsDir=C:\Perl64

pushd %~dp0

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

call path_del.bat C:\Perl64\site\bin
set PATH_CHK1=%ERRORLEVEL%
if not %PATH_CHK1% equ 0 (
	echo %PerlName% Path uninstallation failed PATH_DEL1_ERROR:%PATH_CHK1%
	exit /b 1
)

call path_del.bat C:\Perl64\bin
set PATH_CHK2=%ERRORLEVEL%
if not %PATH_CHK2% equ 0 (
	echo %PerlName% Path uninstallation failed PATH_DEL2_ERROR:%PATH_CHK2%
	exit /b 1
)

:Normal_Exit
popd
exit /b 0

:Error_Exit
popd
exit /b 1