-=> Captain, Look at this...Lyle Taylor Speaking about delete after send <=-
LT> Is there a way to automatically delete a mail pkt after a successful
LT> ul? If so, how?
Lyle,
Here is a copy of my Script file that might help you out,
You will have to edit it to fit your needs, also it is set up to do
as many passes as it takes to get ALL the mail that I have in all
the conferences that I like to read!!!
Have Fun!!!
Tony Antkowiak
Co-SysOp Right Choice BBS
Fidonet Address 1:230/151
Internet Address tony.antkowiak@blade.net
---------------cut and delete all including this line and above-----
TurnON 8_BIT ; These Are Our Terminal Settings
TurnOFF LINEFEED ; For This Session
TurnOFF XON/XOFF
TurnOFF NOISE
TurnOFF MUSIC ; This script is used for logging
TurnON SCROLL ; on to a WILDCAT 4.x system
TurnOFF PRINT ; edit it to suit your needs
TurnOFF SPLIT
TurnON STATUSLN
TurnOFF DOORWAY
TimeOut 45 ; Set Waitfor for 45 seconds
When "PROTOCOL MENU" "Z^M" ; Select Default Protocol Prompt
When "twice for the BBS:" "^[^["
Waitfor "What is your first name" ; Wait for WC to prompt for your name
Delay 100
Send "!$USERID $PASSWORD^M" ; Send UserID from the Dialing Entry
;WaitFor "Password?" ; Wait For Password Prompt
;Delay 100
;Send "$PASSWORD^M" ; Send Password From Dialing Entry
Waitfor "WCMAIL" ; TomCat!'s Main Menu
DOWNLOADAGAIN:
IF $GETMAIL DOWNLOADMAIL ; If Downloading Qwk packet
DOWNFINISHED: ; Label For DownFinished
UPLOADAGAIN:
IF $SENDMAIL UPLOADMAIL ; If Send Rep Packet
UPSUCCESS: ; Label For Upload Success
TimeOut 30 EXITSYSTEM ; Goto EXITSYSTEM Upon Timeout
DELETEF $REPPATH$PACKET.REP ; Delete .REP Packet
When "Auto Logoff" "H^M"
Waitfor "WCMAIL" ; Wait For TomCat Menu
Delay 100
Send "G^M" ; Send Hangup Command
EXITSYSTEM:
Exit ; Script Is Done.
UPLOADMAIL: ; Label For Upload Routine
Timeout 30 ; Reset Timeout Value
Waitfor "WCMAIL" ; TomCat!'s Main Menu
Delay 100
Send "U^M" ; Tell It To [U]pload Mail
Delay 500 ; Pause For 1/2 Second
UPLOAD Z $REPPATH$PACKET.REP ; Upload .REP Packet
IF $SUCCESS UPSUCCESS ; If Success Then Goto UPSUCCESS
GOTO UPLOADAGAIN ; If Not Loop Back Around
DOWNLOADMAIL: ; Download QWK Routine
Timeout 500 ; Timeout Value For Getting Messages
When "Nothing" DOWNFINISHED
Send "^M"
Waitfor "WCMAIL" ; TomCat!'s Main Menu
Delay 100
Send "D^M" ; Tell It To [D]ownload Mail
Waitfor "this packet" ; String To Start Download
Delay 100
Send "Y^M" ; Send Yes To Download Packet
Waitfor "Start Your" ;
DOWNLOAD Z $QWKPATH ; Download The .QWK Packet
GOTO DOWNLOADAGAIN ; If Not Try
... New Mail not found. Start whine-pout sequence? (Y/N)
___ Blue Wave/QWK v2.12
--- QScan/WC v1.18b / 01-0614
---------------
* Origin: RIGHT CHOICE BBS * LAKE STATION,IN * 219-962-2132 (1:230/151)
|