;------------------------ Call for the download of the packet -------- DOWNLOADMAIL: ; Download QWK Routine Timeout 5000 ; Timeout Value For Getting Messages When When "Nothing" DOWNFINISHED When "NO CARRIER" END_SCRIPT Waitfor "command:" ; TomCat!'s Main Menu Note Downloading $PACKET.QWK Delay 500 Send "D^M" ; Tell It To [D]ownload Mail Waitfor "this packet" ; String To Start Download Delay 500 Send "Y^M" ; Send Yes To Download Packet When When "Insufficient time" EXITSYSTEM When "NO CARRIER" END_SCRIPT Waitfor "Start" ; Delay 100 ; Download Z $QWKPATH ; Download The .QWK Packet Timeout 30 IF $FAIL DOWNLOADSECTION ; If Not Successful Try Again GOTO DOWNFINISHED ; Successful, Goto DOWNFINISHED --- * QMPro 1.53 * Hey Obe Won! Got any more of that Jell-O in the 'fridge? --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00002 Date: 08/22/95 From: RICK PUMPHREY Time: 02:04am \/To: ALAN AYCOCK (Read 7 times) Subj: GAP BBS MAILRUN SCRIPT HI ALAN, SCRIPT #2 .....THIS IS FOR GAP BBS's when doing mailrun's Rick ; This script is designed for use with a GAP BBS system using the MAINMAIL ; .QWK mail door. It automates login, mail download and .REP upload. ; To operate properly you must enter your name and password in the ; QmodemPro phonebook entry. ; TurnON 8_BIT TurnOFF LINEFEED TurnOFF XON/XOFF TurnON NOISE TurnOFF MUSIC TurnON SCROLL TurnOFF PRINT TurnOFF SPLIT TurnON STATUSLN TurnOFF DOORWAY TimeOut 60 ; Set Waitfor for 30 seconds WHEN "?" "N^M" WHEN "Continue" "^M" Waitfor "First Name" ; Wait for prompt for your name Delay 100 Send "$USERID^M" ; Send UserID from the Phone Book. WaitFor "Password" Delay 100 Send "$PASSWORD^M" Waitfor "Board Command" ; Wait for menu Send "MAINMAIL^M" IF $GETMAIL DOWNLOADMAIL ; If flag to get mail set, get it. DOWNFINISHED: WHEN ; Clear when's Timeout 60 IF $SENDMAIL UPLOADMAIL UPSUCCESS: ; If upload successful, delete packet DELETEF $REPPATH$PACKET.REP Exit ; Script is done. UPLOADMAIL: ; Upload REP section Waitfor "MainMail System Command" Delay 100 Send "U^M" Delay 500 UPLOAD Z $REPPATH$PACKET.REP ; Tell it to send REP packet IF $SUCCESS UPSUCCESS ; If success, goto success label GOTO UPLOADMAIL ; If not success go back to uploadmail DOWNLOADMAIL: ; Download label WHEN When "No Messages" DOWNFINISHED ; If no new mail. Waitfor "MainMail System Command" ; Mail Door Main Menu Delay 1000 Send "D^M" ; Tell it to [D]ownload Mail Delay 500 Waitfor "When Done" ; Download new Mail if $GETMAIL Set Delay 100 Send "Y^M" Delay 500 Timeout 999 Waitfor "Packet Name" DOWNLOAD Z $QWKPATH ; Download the .QWK packet using Zmodem IF $SUCCESS DOWNFINISHED GOTO DOWNLOADMAIL --- * QMPro 1.53 * How much can I get away with and still go to heaven? --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00003 Date: 08/22/95 From: RICK PUMPHREY Time: 02:16am \/To: ALAN AYCOCK (Read 7 times) Subj: #3 - MAILRUN.BAT \ MASCR1 ALAN, THE following 2 files are used together to perform mailrun's Rick p.s. The asteriks are used to just split the 2 files apart for this message.....don't include them in the files when running them. < MAILRUN.BAT > ************************************************************************ REM ****BATCH FILE FOR QWK/REP MAIL-RUNS*** REM BE SURE TO EDIT DIRECTORIES AND WCECHO HOST LABEL REM TO MATCH YOUR SYSTEM'S NEEDS. ; ; @ECHO ON C: CD\WILDCAT WCECHO E H:FREEZONE C: CD\QMODEM QMPRO /S=MAILRUN.SCR C: CD\WILDCAT IF EXIST C:\WILDCAT\GATEWAY\QWKIN\FREEZONE.QWK WCECHO I H:FREEZONE ************************************************************************ < MAILRUN.SCR > ************************************************************************ ;This is a script to make unattended mail runs from a BBS thru a batch file ;using Q-Modem Pro. You will need to "customize" this script to suit your ;needs. I would not recommend setting the redial limit more than 10 attempts ;otherwise, you will get an error "TOO MANY WHEN'S". See the accompaning ;MAILRUN.DOC file for instructions and details. ; ; TURNON 8_BIT TURNOFF LINEFEED TURNOFF NOISE TURNOFF MUSIC TURNON SCROLL TURNOFF PRINT TURNOFF ECHO TURNOFF SPLIT TURNON STATUSLN TURNOFF DOORWAY STRING QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT STRING INITIAL DOOR XFER NAME HOSTNAME ASSIGN HOSTNAME "THE BBS NAME HERE" ;The BBS you want to call ASSIGN QWKFILE MAILPACK.QWK ;The name of .QWK packet ASSIGN REPFILE MAILPACK.REP ;The name of .REP packet ASSIGN QWKPATH C:\WILDCAT\GATEWAY\QWKIN\ ;Your .QWK d/l Dir. ASSIGN REPPATH C:\WILDCAT\GATEWAY\QWKOUT\ ;Your .REP u/l Dir. ASSIGN DOOR T ;"T" for Transfer Mail ASSIGN XFER Z ;Your d/l protocol ASSIGN NAME "!BIG JOHNS PASSWORD" ;Your name and password ASSIGN TELNUM "ATDT 6192864505^M" ;BBS phone number ASSIGN LIMIT 10 ;# of times to re-dial ASSIGN INITIAL "ATZ^M" ;Your modem init. string SETCOMM 38400 8 NONE 1 ;---------------------------- Initialize the Modem ---------------------- INIT: SEND "ATH^M" DELAY 1000 ASSIGN 0 $LIMIT CLRSCR DISPLAY "Initializing Modem ... " DELAY 1000 SEND "$INITIAL" WAITFOR "OK" ;----------------------------- Dial the Board --------------------------- GETON: WHEN "BUSY" AGAIN WHEN "NO CARRIER" AGAIN PAUSE 2000 DECR 0 IF "$0" < "1" GETOUT TIMEOUT 60 GETON CLRSCR DISPLAYLN "Attempting to connect with $HOSTNAME" DISPLAYLN "Dial attempts left are $0" DISPLAYLN "Dialing string: $TELNUM" DELAY 100 SEND "$TELNUM" WAITFOR "CONNECT" GOTO ONTHESYSTEM AGAIN: PAUSE 1000 SEND "ATH1M^M" PAUSE 5000 (Continued to next message) --- * QMPro 1.53 * Humans: The species that should have never seen sheep. --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00004 Date: 08/22/95 From: RICK PUMPHREY Time: 02:16am \/To: ALAN AYCOCK (Read 7 times) Subj: #3 - MAILRUN.BAT \ MASCR2 (Continued from previous message) GOTO GETON ;-------------------- We have connected to the System ------------------ ONTHESYSTEM: WAITFOR "Press Escape" Delay 300 Send "^[^[" WAITFOR "first name" DELAY 100 SEND "$NAME^M" WHEN "NO CARRIER" GETOUT TIMEOUT 100 GETOUT SEND "^M" ;-------------------- Call for the Download of the Mail Packet --------- DOWNSECTION: DL: DOS "DEL $QWKPATH$QWKFILE SEND "^M" WAITFOR "wcMAIL command?" DELAY 100 SEND "D^M" WHEN "to download!" UPSECTION WHEN "NO CARRIER" GETOUT WAITFOR "oodbye when done" DELAY 1000 SEND "Y^M" WHEN "Insufficient time" UPSECTION WAITFOR "Start" DELAY 100 DOWNLOAD $XFER $QWKPATH$QWKFILE WHEN "Transfer UNCESSFUL!" DOWNSECTION DELAY 200 ;-------------------------- Lets Upload the Replies --------------------- UPSECTION: SEND "^M" WHEN "NO CARRIER" GETOUT SEND "^M" WAITFOR "wcMAIL command?" DELAY 100 EXIST $REPPATH$REPFILE SENDEM GOTO GETOUT SENDEM: SEND "U^M" DELAY 100 WAITFOR "Start" PAUSE 1000 UPLOAD $XFER $REPPATH$REPFILE WHEN "Transfer UNCESSFUL!" UPSECTION DOS "DEL $REPPATH$REPFILE GOTO ALLDONE ;--------------------------- Lets get out of Here ---------------------- ALLDONE: SEND "^M" WAITFOR "wcMAIL command?" GETOUT: DELAY 500 SEND "G^M" PAUSE 100 SEND "Y^M" PAUSE 100 HANGUP SEND "ATZ^M^~^~^~^~^~^~ATH1M0^M" SYSTEM Y EXIT --- * QMPro 1.53 * Humans: The species that should have never seen sheep. --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0)