@setlocal
@set TEMPV=13
@REM set TEMPV=12 - 20120719 - To take to Dell02
@REM set TEMPV=11 - 20120415 - To take back to Dell01
@REM set TEMPV=10
@REM set TEMPV=09 - 2011-02-09 - Do when things look good
@REM set TEMPV=08 - 2010-11-27 - Should be at least EACH month... if not more, if change...
@REM set TEMPV=07 - 2010-08-16 - LOts of good stuff to save...
@REM set TEMPV=06
@REM set TEMPV=05 - 2009-11-[02 & 09] - Sync with Dell02 perl
@REM set TEMPV=04 - 2009-06-24 moved to 05 zip...
@if NOT EXIST zips\. goto ERR1
@set TEMPZIP=zips\perl-%TEMPV%.zip
@set TEMPOPT=-a
@if NOT EXIST %TEMPZIP% goto DNCHK
@echo NOTE: %TEMPZIP% EXISTS, so this is an UPDATE ONLY
@set TEMPOPT=-u
:DNCHK
@set TEMPOPT=%TEMPOPT% -o
@echo Note: will also call clobnow to clean up directory...
@echo Action zip8 %TEMPOPT% %TEMPZIP% *.*
@echo PROCEED?
@pause
call clobnow
call zip8 %TEMPOPT% %TEMPZIP% *.*
@if ERRORLEVEL 1 goto ERR2
@if NOT EXIST %TEMPZIP% goto ERR3
dir %TEMPZIP%
call savetod2 %TEMPZIP%
@echo Done LAN...
@REM call ftp-copy-one %TEMPZIP%
@REM echo Done WAN
@call genzipindex %TEMPZIP%
@goto END

:ERR1
@echo ERROR: Folder 'zips' does NOT exist ... check name, location ...
@goto END
:ERR2
@echo ERROR: Got ERRORLEVEL %ERRORLEVEL% ... check problem!
@goto END
:ERR3
@echo ERROR: Failed to create %TEMPZIP% zip file ... check name, location ...
@goto END

:END

