@ECHO OFF
REM This file created by VADV32 v3.2.061118 @ 08:50:13 on 12-03-2006
ECHO Begin program ...

SET DSZLOG=E:\VABBS\DSZ1.LOG

CD /D E:\VABBS
VNET.EXE 0 /U NETWORKID=80

CD /D E:\VANETS\ASPNET
IF NOT EXIST Z0000000.001 GOTO Transfer
IF EXIST OUT\Z0000000.001 GOTO Transfer

ECHO ... creating packet ...
IF EXIST OUT\*0000000.001 DEL OUT\*0000000.001 > NUL.
IF EXIST *0000000.001 COPY *0000000.001 OUT > NUL.
IF EXIST *0000000.001 DEL *0000000.001 > NUL.
CD OUT
IF EXIST Y0000000.001 COPY Y0000000.001 .. > NUL.
IF EXIST Y0000000.001 DEL Y0000000.001 > NUL.
PKZIP.EXE -m -ex Z0000000.001 *.* > NUL.


REM *** If you are using a mailer rather than FTP to send/receive packets,
REM *** you can using the batch file by removing the "Transfer" section.
:Transfer
ECHO ... sending and receiving packets ...
CD /D E:\VABBS

REM *** Check the username and password below to ensure it is correct.
ECHO OPEN BBS.AT2K.ORG > VPOLL80.FTP
REM *** Username...
ECHO 1802000 >> VPOLL80.FTP
REM *** Password...
ECHO test >> VPOLL80.FTP
ECHO BINARY >> VPOLL80.FTP
ECHO PUT E:\VANETS\ASPNET\OUT\Z0000000.001 >> VPOLL80.FTP
ECHO GET Z0001802.000 E:\VANETS\ASPNET\INCOMING.PKT >> VPOLL80.FTP
ECHO DEL Z0001802.000 >> VPOLL80.FTP
ECHO BYE >> VPOLL80.FTP

FTP.EXE -s:E:\VABBS\VPOLL80.FTP | find /v "bytes sent in"
IF ERRORLEVEL 1 GOTO Aft_Sent
IF EXIST E:\VANETS\ASPNET\OUT\Z0000000.001 DEL E:\VANETS\ASPNET\OUT\Z0000000.001 > NUL.


:Aft_Sent
CD /D E:\VABBS
IF NOT EXIST E:\VANETS\ASPNET\INCOMING.PKT GOTO Exit
VNET.EXE 0 /IMPORT=E:\VANETS\ASPNET\INCOMING.PKT NETWORKID=80


:Exit
ECHO ... cleaning up ...
IF EXIST E:\VABBS\VPOLL80.FTP DEL E:\VABBS\VPOLL80.FTP > NUL.
IF EXIST E:\VANETS\ASPNET\OUT\*0000000.001 DEL E:\VANETS\ASPNET\OUT\*0000000.001 > NUL.

SET DSZLOG=
ECHO ... Done!