sendFTPSeS.cmd - Invia Sport & Style ai Centri Stampa

sendFTPSeS.cmd

::InviaFTP [_IPftp _USER _PASSWORD _FTP_TO_DIRECTORY _FTP_FROM_DIRECTORY _CS]
::ncftpput -RFd ncftp_log_%CS%.log -u %_USER% -p %_PASSWORD% %_IPftp% %FTP_TO_DIRECTORY% %FTP_FROM_DIRECTORY%
::IF %errorlevel% GEQ 1 GOTO ErroreNCFTP
::echo ERRORE= %errorlevel%
@echo off
Set /P ALL=<tempfile.txt
echo %ALL%

CLS
ECHO.
ECHO *** [DEBUG] ***
echo IP= %1
echo USER= %2
echo PASSWORD= %3
echo DIRECTORY %DESTINAZIONE= %4
echo DIRECTORY DI PARTENZA= %5
echo CS = %6
set _CS=%6
set LOG="FTP_SandS_log_%_CS%_%All%.log"
echo FTP-COMMAND= ncftpput -Ed %LOG% -u %2 -p %3 %1 %4 "file da inviare"
echo.

Title Invio a %_CS%
::gosub data_in_var [All]

set LOG="log\ncftp_log_%_CS%_%All%.log"
::pause
for %%x in (%5) 					do (  
										::ncftpput -Ed %LOG% -u %2 -p %3 %1 %4 "%%x"
										ncftpput -Ed %LOG% -u %2 -p %3 %1 %4 %%x
										IF %errorlevel% GEQ 1 GOSUB ErroreNCFTP & LEAVEFOR 									
										)

unset LOG
exit /b

:ErroreNCFTP 
beep 440 8 600 2 1040 16
START notepad %LOG%
Return
::exit /b

Ses2CS.cmd

@ECHO OFF
SETLOCAL 
CLS
::cd /D "C:\script\Speciale_scommesse\"
:sub_insdata
Set /P _DATA=Inserire la data di uscita dello speciale Sport e Style GGMMAA ? || Set _DATA=nessunascelta
If "%_DATA%" == "nessunascelta" goto sub_error 
ECHO.
SET /P _scelta=Data scelta %_DATA%. E' corretta (s/n)? || SET _scelta=N
IF "%_scelta%" NEQ "s" goto sub_insdata
::Calcolo la lunghezza della data
ECHO %_DATA%> tempfile.txt
FOR %%? IN (tempfile.txt) DO ( SET /A lunSTR=%%~z? - 2 ) >nul
::
::echo %lunSTR%
IF %lunSTR% NEQ 6 (ECHO.
ECHO Data non conforme GGMMDD
wait 3
ECHO.
goto sub_insdata
)
:: Preparo i pdf in locale
SET localfolder=%userprofile%\DESKTOP\SportAndStyle%_DATA%
 md %localfolder%
 md %localfolder%\Roma 
 md %localfolder%\Monza
 md %localfolder%\Benevento
 md %localfolder%\Bologna
copy "Z:\BinuPdfServer\Roma\Out\CORNAZTUT%_DATA%9*.pdf" "%localfolder%\Roma" >nul
copy "Z:\BinuPdfServer\Roma\Out\TTSNAZTUT%_DATA%9*.pdf" "%localfolder%\Roma" >nul
copy "Z:\BinuPdfServer\Bologna\Out\CORNAZTUT%_DATA%9*.pdf" "%localfolder%\Bologna" >nul
copy "Z:\BinuPdfServer\Bologna\Out\TTSNAZTUT%_DATA%9*.pdf" "%localfolder%\Bologna" >nul
copy "Z:\BinuPdfServer\Monza\Out\CORNAZTUT%_DATA%9*.pdf" "%localfolder%\Monza" >nul
copy "Z:\BinuPdfServer\Monza\Out\TTSNAZTUT%_DATA%9*.pdf" "%localfolder%\Monza" >nul
copy "Z:\BinuPdfServer\Bologna\Out\STANAZTUT%_DATA%9*.pdf" "%localfolder%\Bologna" >nul
copy "Z:\BinuPdfServer\Benevento\Out\CORNAZTUT%_DATA%9*.pdf" "%localfolder%\Benevento" >nul
copy "Z:\BinuPdfServer\Benevento\Out\TTSNAZTUT%_DATA%9*.pdf" "%localfolder%\Benevento" >nul

:: Invio Roma
cls
Echo Invio Sport and Style a Roma Salone per CdS...
wait 3
call sendFTPSeS 192.168.187.22 cds_rm cds_rm "Inserti/cds/SportStyle/CdS" "%localfolder%\Roma\CORNAZ*.pdf" ROMA
cls
Echo Invio Sport and Style a Roma Salone per TTS...
wait 3
call sendFTPSeS 192.168.187.22 tts_rm tts_rm "INS" "%localfolder%\Roma\TTSNAZ*.pdf" ROMA
:: Invio Bologna
cls
Echo Invio Sport and Style a Bologna MediaStampa per CdS...
wait 3
call sendFTPSeS 192.168.180.23 cds_rm cds_rm "c:/RipFolders/Ftp_IN/CDS_Bologna/Single/INSERTI/EDIZIONI/SPORT E STYLE" "%localfolder%\Bologna\CORNAZ*.pdf" BOLOGNA
call sendFTPSeS 192.168.180.22 tts_rm tts_rm "c:/RipFolders/Ftp_IN/TTS_Bologna/Single/INS" "%localfolder%\Bologna\TTSNAZ*.pdf" BOLOGNA
cls
Echo Invio Sport and Style a Bologna MediaStampa per TTS...
wait 3
call sendFTPSeS 192.168.180.23 cds_rm cds_rm "c:/RipFolders/Ftp_IN/CDS_Bologna/Single/INSERTI/EDIZIONI/SPORT E STYLE" "%localfolder%\Bologna\STANAZ*.pdf" BOLOGNA
:: Invio Monza
cls
Echo Invio Sport and Style a Monza MonzaStampa per CdS...
wait 3
call sendFTPSeS 192.168.182.22 corsport corsport "c:/RipFolders/Ftp_IN/CDS_Monza/Inserti/COL/SportStyle" "%localfolder%\Monza\CORNAZ*.pdf" MONZA
cls
Echo Invio Sport and Style a Monza MonzaStampa per TTS...
wait 3
cls
call sendFTPSeS 192.168.182.23 tuttosport tuttosport "c:/RipFolders/Ftp_IN/TTS_Monza/Single/Ins" "%localfolder%\Monza\TTSNAZ*.pdf" MONZA
:: Invio Benevento
cls
Echo Invio Sport and Style a CS Benevento per CdS...
wait 3
call sendFTPSeS 192.168.185.20 cds_bn cds_bn "c:/RipFolders/Ftp_IN/CDS_Benevento/Inserto/COLORE/Sport Style/CdS" "%localfolder%\Benevento\CORNAZ*.pdf" Benevento
cls
Echo Invio Sport and Style a CS Benevento per TTS...
wait 3
call sendFTPSeS 192.168.185.21 tuttosport tuttosport "c:/RipFolders/Ftp_IN/TTS_Benevento/Single/inserto/Sport Style" "%localfolder%\Benevento\TTSNAZ*.pdf" Benevento
del /q tempfile.txt >nul
EXIT /B

:sub_error
Echo La Data e' Obbligatoria (GGMMAA)
IF EXIST tempfile.txt del /q tempfile.txt >nul
exit /b