script.qwk

功能丰富的串口通讯程序

# script to login to a PCBoard BBS, download QWK mail, and logout
# run this from the shell as seyon -script channel1
# or run it from crond

# dial the number

if !linked
dial "354-5776"
endif

# keep dialing the number until connected

connect:
waitfor "CONNECT"
if !waitfor
redial
goto connect
endif

# pause to allow the system to catch up

pause 3

# usual stiff

waitfor "Enter Language # to use (Enter)=no change? " # comment
transmit "^M" 

# if you turn on color, you'll have to modify the expected
# prompts to include the color escape codes, not a good thing
# better turn on color at the end of the script, if yo want it
# I don't know of another Unix comm program that has when

waitfor "Do you want Color? Y=Yes, N or Enter = No? "
transmit "^M" 

# name and password

waitfor "Enter your first name? "
transmit "jone doe^M"
waitfor "Password (Dots will echo)? "
transmit "you guess^M"

# get rid of those nasty prompts that we don't know how many we will get
# we cannot do this without the when command, since PCBoard keeps changing
# the prompt depending on the number of your call

when "(Enter)=More? " "^M"
when "Enter = Yes? " "n^M"

# the usuall Channel 1 prompt

waitfor "Channel 1 Command? "

# once we are here, clear all standing when commands

when

# goto the QWK mail door

transmit "open 7^M"

# once here, ask for your packet

waitfor "Qmail Command? "
transmit "d^M"

# of course we want it

waitfor "receive these messages (Y/N)? "
transmit "y
"

# once th epacket is archived and the BBS is ready to send it, execute
# Zmodem to receive it. Seyon doesn't allow auto-Zmodem in a script

waitfor "Prepare to download"
pause 3
shell "$rz -vv"

# all done, sign off

waitfor "Qmail Command? "
transmit "g^M"

# hangup, quit Seyon and return to the shell

hangup
quit