@echo off

REM set curdir to drive and path of current (batch) script
FOR %%I in (%0) DO SET CURDIR=%%~dpI

SET ENCRYPT="%CURDIR%DOORS_DXLEncrypt_9.2ff\end_user_protdxl.exe"
REM SET ENCRYPT=type

rem Für jede zu verschlüsselnde Datei:
rem encryptDXL.cmd "%QuellPfad%" "%TargetPath%"

rem Für jede nicht zu verschlüsselnde Datei:
rem copy "%SourcePath%" "%TargetPath%"


rem Pfad für den Verzeichnisbaum Development wird ermittelt relativ zur Batch Datei
set SourcePath=%CURDIR%..\..\MigrationTool\
echo Source Path: %SourcePath%        
echo.      
rem pause
              
rem Pfad für den Verzeichnisbaum Deployment wird ermittelt relativ zur Batch Datei
set TargetPath=%CURDIR%..\..\MigrationTool\50_Deployment\MigrationTool\
echo Target Path: %TargetPath%
echo.
echo Please validate the path before continuing! To abort, press Cntrl-Break!


if NOT EXIST "%ENCRYPT%" echo Encryption tool %ENCRYPT% not found!
rem pause


if EXIST "%TargetPath%" (
echo DELETING %TargetPath%
RD /S /Q "%TargetPath%"
)
  

rem ##### Core Library Files ##################################################################################################
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\HelperFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\HelperFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\FileSystemFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\FileSystemFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\AttributeFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\AttributeFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\AttributeSetterFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\AttributeSetterFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\AttributeGetterFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\AttributeGetterFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\SkipFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\SkipFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\StringFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\StringFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\RtfStringFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\RtfStringFncs.inc" 
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\HtmlStringFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\HtmlStringFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\StreamFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\StreamFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\ObjectFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\ObjectFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\ModuleFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\ModuleFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Core\doors.inc" "%TargetPath%bin\Libraries\StandardLibs\Core\doors.inc"

                                                                                                                                                                  
rem ##### Interface Library Files ###################################################################################################
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\COM\ComFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\COM\ComFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\COM\WordComFncs.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\COM\WordComFncs.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\Misc\IntegrityCliInterface.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\Misc\IntegrityCliInterface.inc
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\UI\StringTable.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\UI\StringTable.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\UI\DBExplorer.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\UI\DBExplorer.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\UI\LoginDlg.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\UI\LoginDlg.inc"
CALL :Encrypt "%SourcePath%30_Implementation\Libraries\StandardLibs\Interface\UI\SimpleDBBrowser.inc" "%TargetPath%bin\Libraries\StandardLibs\Interface\UI\SimpleDBBrowser.inc"

rem ##### Documentation ###################################################################################################  
CALL :Copy "%SourcePath%10_Documentation\40_Manual\DOORS2IMS Migration Tool Manual.pdf" "%TargetPath%doc\DOORS2IMS Migration Tool Manual.pdf"
CALL :Copy "%SourcePath%10_Documentation\30_Release_Notes\Requirements Specification and Release Notes for DOORS2IMS Migration Tool.pdf" "%TargetPath%doc\Requirements Specification and Release Notes for DOORS2IMS Migration Tool.pdf"
                                                                                
set SourcePath=
set TargetPath=

goto :endWithPause


rem ##### Sub Routing for creating a directory recursively #####
:makeDir

SET X=%~dp1
if NOT EXIST "%~dp1" call :makeDir "%X:~0,-1%"

if NOT EXIST "%~1" (
  echo Creating directory %1
  mkdir "%~1"
)

goto :end
rem ############################################################


rem ##### Sub Routing for Encrypting a file, automatically creating the parent directory #####
:Encrypt
call :makeDir "%~dp2"
echo Source: %1
echo Target: %2
%ENCRYPT% "%~1" > "%~2"
goto :end
rem ############################################################

rem ##### Sub Routing for copying a file, automatically creating the parent directory #####
:Copy
call :makeDir "%~dp2"
copy "%~1" "%~2"
goto :end
rem ############################################################

:endWithPause
pause

:end