-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmajor.src
356 lines (291 loc) · 4.17 KB
/
major.src
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
# major.src
# MajorBBS Clone Command Shell for Synchronet
# $Id: major.src,v 1.12 2020/04/23 02:46:08 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
!include sbbsdefs.inc
:main
cmd_home
menu major/main
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
node_action node_main
logkey_comma
cmdkey ?
end_cmd
cmdkey T
exec_bin chat_sec
end_cmd
cmdkey I
text_file_section
end_cmd
cmdkey F
call message
end_cmd
cmdkey E
cmd_home
menu major/email
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
logkey
cmdkey R
mail_read
end_cmd
cmdkey W
print "_\r\nbhE-mail (User name or number): w"
getname 40
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send
end_cmd
cmdkey S
int i
copy i _netmail_misc
or i _inetmail_misc
and i NMAIL_FILE
compare i 0
if_false
no_yes "\r\nAttach a file"
end_if
if_true
mail_send_netmail
else
mail_send_netfile
end_if
end_cmd
cmdkey U
print "_\r\nbhE-mail (User name or number): w"
getname 40
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send_file
end_cmd
cmdkey E
mail_read_sent
end_cmd
cmdkey X
cmd_pop
end_cmd
end_cmd
cmdkey L
call transfers
end_cmd
cmdkey D
xtrn_section
end_cmd
cmdkey A
cmd_home
menu major/userdefs
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
logkey
cmdkey S
info_user
end_cmd
cmdkey A
user_defaults
end_cmd
cmdkey X
cmd_pop
end_cmd
end_cmd
cmdkey R
print "\r\nchList Users\r\n"
mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
getcmd LSA\r
cmdkey L
userlist_logons
end_cmd
cmdkey S
userlist_sub
end_cmd
cmdkey A
userlist_all
end_cmd
# fall-through for CR, Ctrl-C, etc
end_cmd
cmdkey S
compare_ars SYSOP or exempt Q or I or N
if_true
call sysop
end_if
end_cmd
cmdkey X
file_download_batch
if_true
end_cmd
end_if
logoff
end_cmd
end_cmd
############################### Message Section ###############################
:message
cmd_home
menu major/msg
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
# Update node status
node_action node_main
logkey_comma
cmdkey ?
end_cmd
cmdkey X
cmd_pop
return
end_cmd
cmdkey R
msg_read
end_cmd
cmdkey W
msg_post
end_cmd
cmdkey Q
cmd_home
menu major/quickscn
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
logkey
cmdstr S
msg_new_scan
end_cmd
cmdstr L
msg_your_scan
end_cmd
cmdstr K
msg_find_text
end_cmd
cmdstr C
cmd_home
menu maincfg
async
print "\r\nyhConfig: n"
getcmd ?QNPIS
logkey
cmdkey ?
compare_ars expert
if_true
menu maincfg
end_if
end_cmd
cmdkey N
msg_new_scan_cfg
end_cmd
cmdkey S
msg_your_scan_cfg
end_cmd
cmdkey P
msg_ptrs_cfg
end_cmd
cmdkey I
msg_ptrs_reinit
end_cmd
cmdkey Q
cmd_pop
end_cmd
end_cmd
cmd_pop
end_cmd
cmdkey T
exec_bin chat_sec
end_cmd
cmdkey S
msg_select_area
end_cmd
cmdkey F
call transfers
end_cmd
cmd_pop
return
############################ Transfer Menu Commands ###########################
:transfers
cmd_home
menu major/file
getstr 10
compare_str ""
if_true
end_cmd
end_if
ungetstr
getkey
logkey
cmdkey F
print "\r\nchList Files\r\n"
getfilespec
if_true
file_list
end_if
end_cmd
cmdkey D
print "\r\nchDownload File(s)\r\n"
file_download_batch
if_true
end_cmd
end_if
getfilespec
if_true
file_download
end_if
end_cmd
cmdkey U
print "\r\nchUpload File\r\n"
chkfile "%zmenu/upload.*"
if_true
menu upload
end_if
file_upload
end_cmd
cmdkey S
file_select_area
end_cmd
cmdkey X
cmd_pop
return
end_cmd
end_cmd
############################## Sysop Commands #################################
:sysop
menu sysmain
print "n\r\nchSelect an option (or X to exit): n"
getstrupr 40
compare_str "X"
if_true
return
end_if
exec_bin "str_cmds %s"
goto sysop