201 lines
No EOL
3.5 KiB
Batchfile
201 lines
No EOL
3.5 KiB
Batchfile
@echo off
|
|
REM -------------- Variables -------------V1.0-------
|
|
|
|
set dirpath=D:\to_pp\
|
|
|
|
set host=10.0.139.12
|
|
|
|
set ftp-dir=fast
|
|
|
|
set check=0
|
|
|
|
For /F "tokens=1,2,3 delims=/" %%i in ('type c:\suite.txt') do Call :suite-set %%i
|
|
|
|
For /F "tokens=1,2,3 delims=/" %%i in ('echo %date%') do Call :set-date %%i %%j %%k
|
|
|
|
For /F "tokens=1,2,3 delims=:" %%i in ('echo %time%') do Call :set-time %%i %%j %%k
|
|
|
|
|
|
REM ------------- Variables ----------------------
|
|
|
|
|
|
|
|
REM -------------- Zip the Folders ----------------------------------------------------------
|
|
|
|
FOR /F "tokens=1,2,3 delims=<>.," %%i in ('dir %dirpath%*. /B') do Call :load-variables %%i %%j %%k
|
|
|
|
goto :ftp-files
|
|
|
|
:load-variables
|
|
|
|
set name=%1
|
|
|
|
:zipit
|
|
c:\progra~1\winzip\wzzip -p -r %dirpath%%name% %dirpath%%name%\*.*
|
|
|
|
move /Y %dirpath%%name%.zip %dirpath%%name%-W-%suite%-%d%-%t%.zip
|
|
|
|
|
|
|
|
C:\windows\system32\md5sums -u %dirpath%%name%-W-%suite%-%d%-%t%.zip > %dirpath%%name%-W-%suite%-%d%-%t%.zip.md5
|
|
|
|
goto exit
|
|
|
|
REM -------------- Zip the Folders ----------------------------------------------------------
|
|
|
|
|
|
|
|
:suite-set
|
|
set suite=%1
|
|
goto :exit
|
|
|
|
:set-date
|
|
set d=%4%2%3
|
|
rem echo %s%
|
|
goto :exit
|
|
|
|
:set-time
|
|
set t=%1%2%4
|
|
rem echo %t%
|
|
goto :exit
|
|
|
|
|
|
|
|
|
|
|
|
|
|
:ftp-files
|
|
REM ------------- FTP the FILES --------------------------------------------------------------
|
|
@echo off
|
|
|
|
|
|
|
|
|
|
@echo off
|
|
color 07
|
|
set i=0
|
|
echo.
|
|
echo.
|
|
echo Sending Data via ftp ...........
|
|
echo.
|
|
echo.
|
|
|
|
d:
|
|
cd %dirpath%
|
|
|
|
echo from the directory %dirpath%
|
|
|
|
> %dirpath%send.ftp echo open %host%
|
|
>> %dirpath%send.ftp echo anonymous
|
|
>> %dirpath%send.ftp echo cd %ftp-dir%
|
|
>> %dirpath%send.ftp echo mput *.zip
|
|
>> %dirpath%send.ftp echo mput *.md5
|
|
>> %dirpath%send.ftp echo ls
|
|
>> %dirpath%send.ftp echo bye
|
|
|
|
|
|
|
|
ftp -is:%dirpath%send.ftp> %dirpath%\report.txt
|
|
|
|
|
|
|
|
REM ------------ Check the FTP status ----------------------------------------
|
|
|
|
@echo off
|
|
rem cls
|
|
color f5
|
|
|
|
|
|
|
|
for /F "usebackq tokens=1 skip=2 delims==>," %%i in (`"find "Invalid command." %dirpath%report.txt"`) do call :ftp-check %%i
|
|
|
|
|
|
if [%check%]==[0] (
|
|
for /F "usebackq tokens=1,2,3 delims==>, " %%i in (`"find "Connected" %dirpath%report.txt"`) do call :ftp-success %%i %%j %%k
|
|
)
|
|
|
|
goto :end
|
|
|
|
|
|
|
|
|
|
rem ----------------- Display Successfull FTP ---------------------------------------
|
|
:ftp-success
|
|
|
|
|
|
if [%2]==[Connected] (
|
|
echo The files:
|
|
for /F "usebackq tokens=1 delims=>," %%m in (`"find "W-%suite%" %dirpath%report.txt"`) do call :print-success %%m
|
|
echo.
|
|
echo.
|
|
echo were FTP'd successfully !!!
|
|
echo.
|
|
echo.
|
|
goto :cleanup
|
|
)
|
|
|
|
:print-success
|
|
color 2f
|
|
echo %1
|
|
set check=1
|
|
goto :end
|
|
|
|
|
|
|
|
|
|
rem ----------------- Display FAILED FTP --------------------------------------------
|
|
:ftp-check
|
|
|
|
|
|
if [%1]==[Invalid] (
|
|
if /I [%1]==["Invalid command."] then
|
|
(
|
|
color 47
|
|
echo.
|
|
echo.
|
|
echo.
|
|
echo.
|
|
echo.
|
|
echo The FTP transfer FAILED !!!!
|
|
echo.
|
|
echo Please notify the Staff ......
|
|
echo.
|
|
echo.
|
|
set check=1
|
|
pause
|
|
c:
|
|
color 07
|
|
goto :end
|
|
)
|
|
)
|
|
|
|
|
|
|
|
|
|
REM ---------------- Cleanup temporary files and folders ---------------------------
|
|
|
|
:cleanup
|
|
@echo off
|
|
|
|
del /Q %dirpath%*.zip
|
|
del /Q %dirpath%*.md5
|
|
del /Q %dirpath%*.ftp
|
|
del /Q %dirpath%*.txt
|
|
del /Q %dirpath%%name%\*.*
|
|
|
|
IF EXIST %name% (rmdir %dirpath%%name%)
|
|
echo.
|
|
echo.
|
|
echo The Time is: %time%
|
|
echo.
|
|
echo The Date is: %date%'
|
|
echo.
|
|
rem pause
|
|
color 07
|
|
c:
|
|
|
|
|
|
:end
|
|
:exit
|
|
|
|
rem ----------------- The END ---------------------------------------------------------- |