@echo off
REM **************************************************  DEFINIR UNIDAD 
set unidad=C:

REM ********  NO MODIFICAR ***************************



set tlmp=%unidad%\tlmp11

REM **************************************************  DEFINIR RUTAS A TLMP
set forms=%tlmp%\formu_cli
set bases=%tlmp%\bases
set backup=%tlmp%\_backup











REM ********  NO MODIFICAR A PARTIR DE ESTE PUNTO ****
@echo off
cls
set dlc=%tlmp%\dlc64
set bcklog=%backup%\backup.log
set TCP=21932

mkdir %backup%
mkdir %backup%\bases
mkdir %backup%\formu_cli
mkdir %backup%\dlc64

echo. >> %bcklog%
time /t >> %bcklog%
echo -- Inicio proceso de BACKUP > %bcklog%

echo -- Eliminando tmp.ini >> %bcklog%
del %tlmp%\bases\tmp.ini

echo T3st3rTelematel* > %tlmp%\Backup_vGo_ESP.dat
call:APPSERVERS
call:WSSERVERS


echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo bases de datos >> %bcklog%
echo. >> %bcklog%
setlocal enableextensions enabledelayedexpansion
set /a count = 0

:PARARBASES
set /a count += 1
for %%x in ( %bases%\*.lk) do (
	echo -- !count! -- Deteniendo %%~nx >> %bcklog%
	call %dlc%\bin\dbman -stop %%~nx -port %TCP% -user TMTUser -password T3st3rTelematel* >> %bcklog%
)

echo ---- Esperando 30 segs ... >> %bcklog%
echo. >> %bcklog%
%tlmp%\sleep.exe 30
for %%x in ( %bases%\*.db) do (
	rem echo -- !count! -- Comprobando %%~nx >> %bcklog%
	if !count! EQU 5 (
		end local
    		if exist %bases%\%%~nx.lk goto PARARBASESFORCE
	) else  (
		if exist %bases%\%%~nx.lk goto PARARBASES
	)
)
endlocal

GOTO COPIABASES

:PARARBASESFORCE
echo. >> %bcklog%
time /t >> %bcklog%
echo -- FORZAR Detencion bases de datos >> %bcklog%
echo. >> %bcklog%
for %%x in ( %bases%\*.lk) do (
	echo ---- FORZAR Detencion %%~nx >> %bcklog%
	call %dlc%\bin\proshut %bases%\%%~nx -by >> %bcklog%
)
echo ---- Esperando 10 segs ... >> %bcklog%
echo. >> %bcklog%
%tlmp%\sleep.exe 10
for %%x in ( %bases%\*.db) do (
	echo ---- Esperando detencion %%~nx >> %bcklog%
	if exist %bases%\%%~nx.lk GOTO PARARBASESFORCE
)
echo. >> %bcklog%
time /t >> %bcklog%
echo -- FORZAR Detencion Servicio AdminService >> %bcklog%
echo. >> %bcklog%
net stop AdminService11.7(64-bit) >> %bcklog%
taskkill /im java.exe /F >> %bcklog%
del %tlmp%\wrk\*.log /Q /F
GOTO COPIABASES

:APPSERVERS
echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo AppServers >> %bcklog%
for %%x in ( %tlmp%\logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- AppServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -stop -name !modified! -port %TCP% -user TMTUser < %tlmp%\Backup_vGo_ESP.dat >> %bcklog%
	endlocal
)
goto:eof

:WSSERVERS
echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo WSServers >> %bcklog%
for %%x in ( %tlmp%\_W3\_logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- WSServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -stop -name !modified! -port %TCP% -user TMTUser <  %tlmp%\Backup_vGo_ESP.dat >> %bcklog%	
	endlocal
)
goto:eof

:COPIABASES
	echo. >> %bcklog% >> %bcklog%
	time /t >> %bcklog%
	echo -- Copia bases de datos >> %bcklog%
	echo. >> %bcklog% >> %bcklog%
	IF /I EXIST "%windir%\system32\robocopy.exe" (
		robocopy %bases%\ %backup%\bases tlm*.* /is /e /r:1 /w:5 /NJH /NP >> %bcklog%
	) ELSE (
		xcopy %bases%\tlm*.* %backup%\bases\*.* /V /Y /f >> %bcklog%
	)

	echo - >> %bcklog%
	echo. >> %bcklog% >> %bcklog%
	time /t >> %bcklog%
	echo -- Copia bases de formularios >> %bcklog%
	IF /I EXIST "%windir%\system32\robocopy.exe" (
		robocopy %forms% %backup%\formu_cli /is /e /r:1 /w:5 /NJH /NP >> %bcklog%
	) ELSE (
		xcopy %forms%\*.* %backup%\formu_cli\*.* /V /Y /E /F /D >> %bcklog%
	)	

	echo. >> %bcklog% >> %bcklog%
	time /t >> %bcklog%
	echo -- Copia DLC Propeerties >> %bcklog%
	IF /I EXIST "%windir%\system32\robocopy.exe" (
		robocopy %dlc%\properties %backup%\DLC64 /is /e /r:1 /w:5 /NJH /NP >> %bcklog%
	) ELSE (
		xcopy %dlc%\properties\*.* %backup%\DLC64\*.* /V /Y /E /F /D >> %bcklog%
	)	



:TRUNCARBASES
echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- Truncando bases de datos >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ---- Truncando %%~nx >> %bcklog%
	call %dlc%\bin\_proutil %bases%\%%~nx -C truncate bi >> %bcklog%
)

:BIGROW
echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- BiGrow bases de datos >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ---- BiGrow %%~nx >> %bcklog%
	call %dlc%\bin\_proutil %bases%\%%~nx -C bigrow 8 >> %bcklog%
)

:PROLOG
echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- Prolog de registros >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ---- Prolog %%~nx >> %bcklog%
	call %dlc%\bin\prolog %bases%\%%~nx >> %bcklog%
)


echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- Eliminar archivos Banco de datos >> %bcklog%
del %tlmp%\comu\*.zip /Q /F /s
del %tlmp%\comu\flag1 /Q /F /s
del %tlmp%\comu\flag2 /Q /F /s
del %tlmp%\comu\*.con /Q /F /s
del %tlmp%\comu\*.d /Q /F /s


echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- Limpieza carpeta temporal, *.dbi, *.lbi, *.srt, protrace.* >> %bcklog%
echo del %tlmp%\tmp\*.* /Q /F /s
del %tlmp%\dbi????? /Q /F /s
del %tlmp%\lbi????? /Q /F /s
del %tlmp%\srt????? /Q /F /s
del %tlmp%\protrace.* /Q /F /s
del %tlmp%\*.trc /Q /F /s


echo. >> %bcklog% >> %bcklog%
time /t >> %bcklog%
echo -- Iniciando Bases de Datos >> %bcklog%
call %dlc%\bin\dbman -start -all -port %TCP% -user TMTUser -password T3st3rTelematel* >> %bcklog%
net start AdminService11.7(64-bit) >> %bcklog%

:DBWAIT
echo. >> %bcklog%
time /t >> %bcklog%
%tlmp%\sleep.exe 10
for %%x in ( %bases%\*.db) do (
	echo ---- Esperando inicio BD %%~nx >> %bcklog%
	if not exist %bases%\%%~nx.lk GOTO DBWAIT
)

echo. >> %bcklog%
time /t >> %bcklog%
echo -- Iniciando AppServers >> %bcklog%
for %%x in ( %tlmp%\logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- AppServer !modified! >> %bcklog%
	call %dlc%\bin\prolog %tlmp%\logs\%%~nx >> %bcklog%
	call %dlc%\bin\asbman -name !modified! -start -port %TCP% -user TMTUser < %tlmp%\Backup_vGo_ESP.dat >> %bcklog%
	endlocal
)

echo. >> %bcklog%
time /t >> %bcklog%
echo -- Iniciando WSServers >> %bcklog%
for %%x in ( %tlmp%\_W3\_logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- WSServer !modified! >> %bcklog%
	call %dlc%\bin\prolog %tlmp%\_W3\_logs\%%~nx >> %bcklog%
	call %dlc%\bin\asbman -name !modified! -start -port %TCP% -user TMTUser < %tlmp%\Backup_vGo_ESP.dat >> %bcklog%
	endlocal
)

:END
echo. >> %bcklog%
time /t >> %bcklog%
echo -- Proceso finalizado >> %bcklog%