-
Notifications
You must be signed in to change notification settings - Fork 0
/
script.QWK
90 lines (59 loc) · 1.76 KB
/
script.QWK
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
# 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