#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
print "Iniciando backup!\n\n";
print "Espere por favor...\n\n";

# CUENTA (Ej. cuenta: elserver.com)
my $cuenta = "mipagina.com.ar";

# USUARIO DE MYSQL
my $usuario = "root";

# PASSWORD DE MYSQL
my $pass = "root";

# IP INTERNA DE MYSQL
my $ip = "192.168.xxx.xxx";

# BASE DE MYSQL
my $base = "midb";

my ($wkday,$month,$day,$time,$year) = split(/\s+/, localtime);
my $fecha = "$day-$month-$year";
system("/usr/local/mysql/bin/mysqldump $base -u $usuario --password='$pass' -h $ip > /www/$cuenta/mysql_backup/$cuenta-$fecha.sql");
print "Backup Finalizado!!!\n\n";

for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
)
)
goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3
set n3=%~n1

echo off
for %%a in (C:\zpru\*.txt) do (
for /f "tokens=1,2* delims=_" %%b in ("%%~na") do (
echo %%d 
)
)

for %%a in (c:\icr\data\*.txt) do (
for /f "tokens=1,2* delims=_" %%b in ("%%~na") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
rem echo %%d >>prueba.txt

echo %%~na, en el archivo : %%d >>prueba2.txt

rem set n3=%%d

)
)

goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3

for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=1,2* delims=_" %%b in ("%%~na") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)

set n3=%%d
)
)
)
)

goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3


C:\ICR\DATA\encolador.exe N %n0% Tabla:Entrada %n1% %n2% N sa sa CDRA-BAS BASCDR
rem --Comprueba si existen las carpetas de empresa y sucursal segun los archivos que encuentre y crea las carpetas--
IF NOT EXIST c:\ICR\DATA\Procesados\%n1%\%n2% MKDIR c:\ICR\DATA\Procesados\%n1%\%n2%
rem --Copia cada archivo txt a su carpeta que corrsponda de empresa y sucursal--
copy /y %n0% "c:\ICR\DATA\Procesados\%n1%\%n2%\"
rem --Elimina los txt del directorio "\DATA\"--
del /q %n0%
rem --Genera un archivo txt en la carpeta "\Registros\" con los comando que creo y ejecuto el BAT--
echo EMPRESA: %n1% SUCURSAL: %n2% PERIODO:	%n3%  >>%SYSTEMDRIVE%\ICR\DATA\Procesados\Registros\%date:~0,2%-%date:~3,2%-%date:~6,4%-%time:~0,2%.%time:~3,2%.txt