DP Tool Club 15/CD_ASCQ_15_070894.iso/vrac/petnet10.zip/PN_MAIL.BAT

DOS Batch File | 1994-06-14 | 2KB | 51 lines

@echo off
rem
rem   A simpler variant of a batch file to execute a mail run, originaly
rem   written by Rick Norton and modified by Dimitri V. to save old packets.
rem
rem   It uses the included PN_MAIL.SCR script for QModem Pro.
rem
rem   Your version of DOS should support the "rename" command
rem
rem   Let's rename your old QWK packets before we start:
rem
c:
cd c:\qmpro\download
IF EXIST CRITCONN.QW9 DEL CRITCONN.QW9
IF EXIST CRITCONN.QW8 RENAME CRITCONN.QW8 CRITCONN.QW9
IF EXIST CRITCONN.QW7 RENAME CRITCONN.QW7 CRITCONN.QW8
IF EXIST CRITCONN.QW6 RENAME CRITCONN.QW6 CRITCONN.QW7
IF EXIST CRITCONN.QW5 RENAME CRITCONN.QW5 CRITCONN.QW6
IF EXIST CRITCONN.QW4 RENAME CRITCONN.QW4 CRITCONN.QW5
IF EXIST CRITCONN.QW3 RENAME CRITCONN.QW3 CRITCONN.QW4
IF EXIST CRITCONN.QW2 RENAME CRITCONN.QW2 CRITCONN.QW3
IF EXIST CRITCONN.QW1 RENAME CRITCONN.QW1 CRITCONN.QW2
IF EXIST CRITCONN.QWK RENAME CRITCONN.QWK CRITCONN.QW1
rem
rem   Rename your old REP packets, to have just in case:
rem
cd c:\qmpro\upload
IF EXIST CRITCONN.RE9 DEL CRITCONN.RE9
IF EXIST CRITCONN.RE8 RENAME CRITCONN.RE8 CRITCONN.RE9
IF EXIST CRITCONN.RE7 RENAME CRITCONN.RE7 CRITCONN.RE8
IF EXIST CRITCONN.RE6 RENAME CRITCONN.RE6 CRITCONN.RE7
IF EXIST CRITCONN.RE5 RENAME CRITCONN.RE5 CRITCONN.RE6
IF EXIST CRITCONN.RE4 RENAME CRITCONN.RE4 CRITCONN.RE5
IF EXIST CRITCONN.RE3 RENAME CRITCONN.RE3 CRITCONN.RE4
IF EXIST CRITCONN.RE2 RENAME CRITCONN.RE2 CRITCONN.RE3
IF EXIST CRITCONN.RE1 RENAME CRITCONN.RE1 CRITCONN.RE2
IF EXIST CRITCONN.REP RENAME CRITCONN.REP CRITCONN.RE1
rem
rem
cd \wc30
tnet export critconn
cd \qmpro
qmpro /s=pn_mail
cd \wc30
tnet import critconn
netbull
gotto end

:end
exit