Skip to content
Snippets Groups Projects
Commit bb5b9d86 authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

New module: msgscancfg.js to replace copy/pasta msg config menu in *.src 

Also added 2 new menu options:
R - re-load msg scan config & pointers
W - save msg scan config & pointers

Leaving the menu file named "maincfg.msg" even though that's a pretty
badly named file - should rename that file at some point, but keep 8.3
format for DOS (e.g. TheDraw, AcidDraw) compatibility.
mscancfg.msg maybe? Ah, the fun of abbreviating things to 8 chars again.
parent 7a5c6e36
No related branches found
No related tags found
1 merge request!463MRC mods by Codefenix (2024-10-20)
Pipeline #3906 passed
Stage: build
Hide whitespace changes
Inline Side-by-side
exec/default.src
+ 7
− 51
View file @ bb5b9d86
......@@ -214,7 +214,7 @@ if_true
cmdkey A
auto_message
end_cmd
cmdkey /A
compare_ars ANSI and not GUEST
if_false
......@@ -265,7 +265,7 @@ cmdkey I
cmdkey J
msg_select_area
end_cmd
cmdkey L
msg_list
end_cmd
......@@ -277,7 +277,7 @@ cmdkey /L
cmdkey W
nodelist_users
end_cmd
cmdkey M
minute_bank
end_cmd
......@@ -387,7 +387,7 @@ cmdkey /*
end_cmd
cmdkey &
call main_cfg
exec_bin "msgscancfg"
end_cmd
cmdkey #
......@@ -457,50 +457,6 @@ cmdkey Q
cmd_pop
return
########################### Main Config Section ##############################
:main_cfg
compare_user_misc UM_expert
if_false
menu maincfg
end_if
async
print "\r\n\1y\1hConfig: \1n"
getcmd ?QNPIS\r
logkey
cmdkey ?
compare_user_misc UM_expert
if_true
menu maincfg
end_if
goto main_cfg
end_cmd
cmdkey N
msg_new_scan_cfg
return
end_cmd
cmdkey S
msg_your_scan_cfg
return
end_cmd
cmdkey P
msg_ptrs_cfg
return
end_cmd
cmdkey I
msg_ptrs_reinit
return
end_cmd
return
########################### File Transfer Section #############################
:file_transfers
......@@ -753,11 +709,11 @@ cmdkey L
cmdkey /L
nodelist_all
end_cmd
cmdkey W
nodelist_users
end_cmd
cmdkey N
print "\r\n\1c\1hNew File Scan\r\n"
file_new_scan
......@@ -874,7 +830,7 @@ cmdkey &
end_if
crlf
end_cmd
cmdkey E
crlf
toggle_user_misc UM_EXTDESC
......
exec/major.src
+ 1
− 36
View file @ bb5b9d86
......@@ -230,42 +230,7 @@ cmdkey Q
end_cmd
cmdstr C
cmd_home
menu maincfg
async
print "\r\n\x01y\x01hConfig: \x01n"
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
exec_bin "msgscancfg"
end_cmd
cmdkey T
......
exec/msgscancfg.js 0 → 100644
+ 44
− 0
View file @ bb5b9d86
// Message Scan Configuration menu
require("sbbsdefs.js", "USER_EXPERT");
"use strict";
const menufile = "maincfg";
while(bbs.online) {
if(!(user.settings & USER_EXPERT))
bbs.menu(menufile);
bbs.nodesync();
console.print("\r\n\x01y\x01hConfig: \x01n");
var key = console.getkeys("?QNPISRW\r");
bbs.log_key(key);
switch(key) {
case '?':
if(user.settings & USER_EXPERT)
bbs.menu(menufile);
continue;
case 'N':
bbs.cfg_msg_scan(SCAN_CFG_NEW);
break;
case 'S':
bbs.cfg_msg_scan(SCAN_CFG_TOYOU);
break;
case 'P':
bbs.cfg_msg_ptrs();
break;
case 'I':
bbs.reinit_msg_ptrs();
break;
case 'R':
bbs.reload_msg_scan();
console.print("\r\nMessage scan configuration and pointers re-loaded.\r\n");
break;
case 'W':
bbs.save_msg_scan();
console.print("\r\nMessage scan configuration and pointers saved.\r\n");
break;
}
exit();
}
exec/renegade.src
+ 4
− 48
View file @ bb5b9d86
......@@ -281,7 +281,7 @@ cmdkey N
end_if
if_true
mail_send_netmail
else
else
mail_send_netfile
end_if
end_cmd
......@@ -316,50 +316,6 @@ if_true
crlf
end_cmd
########################### Main Config Section ##############################
:main_cfg
compare_ars expert
if_false
menu maincfg
end_if
async
print "\r\n\x01y\x01hConfig: \x01n"
getcmd ?QNPIS\r
logkey
cmdkey ?
compare_ars expert
if_true
menu maincfg
end_if
goto main_cfg
end_cmd
cmdkey N
msg_new_scan_cfg
return
end_cmd
cmdkey S
msg_your_scan_cfg
return
end_cmd
cmdkey P
msg_ptrs_cfg
return
end_cmd
cmdkey I
msg_ptrs_reinit
return
end_cmd
return
########################### File Transfer Section #############################
:file_transfers
......@@ -530,7 +486,7 @@ cmdkey L
cmdkey /L
nodelist_all
end_cmd
cmdkey W
nodelist_users
end_cmd
......@@ -748,7 +704,7 @@ cmdkey C
cmdkey /L
nodelist_all
end_cmd
cmdkey W
nodelist_users
end_cmd
......@@ -818,7 +774,7 @@ cmdkey Y
end_cmd
cmdkey Z
call main_cfg
exec_bin "msgscancfg"
end_cmd
cmdkey #
......
exec/sdos.src
+ 2
− 45
View file @ bb5b9d86
......@@ -468,7 +468,7 @@ if_true
nodelist_all
return
end_if
compare_word who
if_true
nodelist_users
......@@ -556,7 +556,7 @@ cmdstr "dir"
end_cmd
cmdstr "config"
call main_cfg
exec_bin "msgscancfg"
end_cmd
cmdstr "send"
......@@ -648,47 +648,4 @@ cmdstr "readmsgs"
call global
end_cmd
########################### Main Config Section ##############################
:main_cfg
compare_user_misc UM_expert
if_false
menu maincfg
end_if
async
print "\r\n\x01y\x01hConfig: \x01n"
getcmd ?QNPIS\r
logkey
cmdkey ?
compare_user_misc UM_expert
if_true
menu maincfg
end_if
goto main_cfg
end_cmd
cmdkey N
msg_new_scan_cfg
return
end_cmd
cmdkey S
msg_your_scan_cfg
return
end_cmd
cmdkey P
msg_ptrs_cfg
return
end_cmd
cmdkey I
msg_ptrs_reinit
return
end_cmd
return
# End of SDOS.SRC
exec/simple.src
+ 1
− 34
View file @ bb5b9d86
......@@ -154,7 +154,7 @@ cmdstr R
end_cmd
cmdstr C
call msg_cfg
exec_bin "msgscancfg"
end_cmd
# Quit back to main menu
......@@ -349,37 +349,4 @@ if_true
end_if
return
########################### Msg Config Section ##############################
:msg_cfg
menu maincfg
async
print "\r\n\x01y\x01hCommand: \x01n"
getstrupr 10
logkey
cmdkey N
msg_new_scan_cfg
return
end_cmd
cmdkey S
msg_your_scan_cfg
return
end_cmd
cmdkey P
msg_ptrs_cfg
return
end_cmd
cmdkey I
msg_ptrs_reinit
return
end_cmd
return
#end of SIMPLE.SRC
exec/wildcat.src
+ 3
− 39
View file @ bb5b9d86
......@@ -399,43 +399,7 @@ cmdkey C
end_cmd
cmdkey U
cmd_home
compare_ars expert
if_false
menu maincfg
end_if
async
print "\r\n\x01y\x01hConfig: \x01n"
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
exec_bin "msgscancfg"
end_cmd
cmdkey H
......@@ -531,9 +495,9 @@ cmdkey D
if_true
compare_ars "UNIX"
if_true
exec_int "%y -i"
exec_int "%y -i"
else
exec_int "%y"
exec_int "%y"
end_if
end_if
end_cmd
......
exec/wwiv.src
+ 3
− 46
View file @ bb5b9d86
......@@ -170,7 +170,7 @@ cmdkey L
cmdkey /L
nodelist_users
end_cmd
cmdkey W
nodelist_all
end_cmd
......@@ -273,7 +273,7 @@ cmdkey /*
end_cmd
cmdkey &
call main_cfg
exec_bin "msgscancfg"
end_cmd
cmdkey #
......@@ -342,49 +342,6 @@ cmdkey Q
cmd_pop
return
########################### Main Config Section ##############################
:main_cfg
compare_ars expert
if_false
menu MAINCFG
end_if
async
print "\r\n\x01y\x01hConfig: \x01n"
getcmd ?QNPIS\r
logkey
cmdkey ?
compare_ars expert
if_true
menu MAINCFG
end_if
goto main_cfg
end_cmd
cmdkey N
msg_new_scan_cfg
return
end_cmd
cmdkey S
msg_your_scan_cfg
return
end_cmd
cmdkey P
msg_ptrs_cfg
return
end_cmd
cmdkey I
msg_ptrs_reinit
return
end_cmd
return
########################### File Transfer Section #############################
:file_transfers
......@@ -570,7 +527,7 @@ cmdkey L
cmdkey /L
nodelist_users
end_cmd
cmdkey W
nodelist_all
end_cmd
......
text/menu/maincfg.msg
+ 4
− 2
View file @ bb5b9d86
......@@ -6,7 +6,9 @@
W HCSY NCAreas to scan for your messagesWB
HCP NCSet new-scan pointersWB
HCI NCReinitialize new-scan pointersWB
HCR NCReload new-scan config & pointers WB
HCW NCSave new-scan config & pointers WB
۲IJ
HCQ NCQuit to Main menuWB
HCQ NCQuit to Main/Message menu WB
Z
\ No newline at end of file
Z
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment