eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

modified: LOGON.PAS 

modified:   SYSOP2A.PAS
	modified:   SYSOP2M.PAS
	modified:   SYSOP3.PAS
This commit is contained in:
R. Eric Wheeler 2013-06-12 20:05:42 -07:00
parent cbce28713d
commit 38909c0af9
4 changed files with 435 additions and 433 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
SOURCE/LOGON.PAS
View File

@ -427,7 +427,8 @@ BEGIN
Inc(Tries); Inc(Tries);
IF (Tries >= General.MaxLogonTries) THEN IF (Tries >= General.MaxLogonTries) THEN
BEGIN BEGIN
IF (General.NewUserToggles[20] = 0) OR (General.ForgotPWQuestion = '') OR (ThisUser.ForgotPWAnswer = '') THEN IF (General.NewUserToggles[20] = 0) OR (RGMainStr(6, TRUE) = '')
{(General.ForgotPWQuestion = '')} OR (ThisUser.ForgotPWAnswer = '') THEN
HangUp := TRUE HangUp := TRUE
ELSE ELSE
BEGIN BEGIN

854
SOURCE/SYSOP2A.PAS
View File

@ -1,427 +1,427 @@
{$IFDEF WIN32} {$IFDEF WIN32}
{$I DEFINES.INC} {$I DEFINES.INC}
{$ENDIF} {$ENDIF}
{$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-} {$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-}
UNIT SysOp2A; UNIT SysOp2A;
INTERFACE INTERFACE
PROCEDURE MainBBSConfiguration; PROCEDURE MainBBSConfiguration;
IMPLEMENTATION IMPLEMENTATION
USES USES
Crt, Crt,
Common, Common,
SysOp7, SysOp7,
TimeFunc; TimeFunc;
{ {
RGSysCfgStr(1,FALSE) RGSysCfgStr(1,FALSE)
$Main_BBS_Configuration $Main_BBS_Configuration
%CL^5Main BBS Configuration:^1 %CL^5Main BBS Configuration:^1
^1A. BBS name/number : ^5%BN ^1(^5%BP^1) ^1A. BBS name/number : ^5%BN ^1(^5%BP^1)
^1B. Telnet Url : ^5%TN ^1B. Telnet Url : ^5%TN
^1C. SysOp's name : ^5%SN{15 ^1D. Renegade Version : ^5%VR ^1C. SysOp's name : ^5%SN{15 ^1D. Renegade Version : ^5%VR
^1E. SysOp chat hours : ^5%CS ^1F. Minimum baud hours : ^5%BL ^1E. SysOp chat hours : ^5%CS ^1F. Minimum baud hours : ^5%BL
^1G. Regular DL hours : ^5%DH ^1H. Minimum baud DL hrs: ^5%BM ^1G. Regular DL hours : ^5%DH ^1H. Minimum baud DL hrs: ^5%BM
^1I. BBS Passwords : ^1J. Pre-event warning : ^5%ET seconds ^1I. BBS Passwords : ^1J. Pre-event warning : ^5%ET seconds
^1K. System Menus : ^1L. Bulletin Prefix : ^5%PB ^1K. System Menus : ^1L. Bulletin Prefix : ^5%PB
^1M. MultiNode support: ^5%MN ^1N. Network mode : ^5%NM ^1M. MultiNode support: ^5%MN ^1N. Network mode : ^5%NM
^10. Main data files dir. : ^5%PD ^10. Main data files dir. : ^5%PD
^11. Miscellaneous Files dir.: ^5%PM ^11. Miscellaneous Files dir.: ^5%PM
^12. Message file storage dir: ^5%P1 ^12. Message file storage dir: ^5%P1
^13. Nodelist (Version 7) dir: ^5%P2 ^13. Nodelist (Version 7) dir: ^5%P2
^14. Log files/trap files dir: ^5%PL ^14. Log files/trap files dir: ^5%PL
^15. Temporary directory : ^5%PT ^15. Temporary directory : ^5%PT
^16. Protocols directory : ^5%PP ^16. Protocols directory : ^5%PP
^17. Archivers directory : ^5%P7 ^17. Archivers directory : ^5%P7
^18. File attach directory : ^5%PF ^18. File attach directory : ^5%PF
^19. RAM drive/MultiNode path: ^5%P3 ^19. RAM drive/MultiNode path: ^5%P3
Enter selection [^5A^4-^5N^4,^50^4-^59^4,^5Q^4=^5Quit^4]: @ Enter selection [^5A^4-^5N^4,^50^4-^59^4,^5Q^4=^5Quit^4]: @
$ $
RGSysCfgStr(2,TRUE) RGSysCfgStr(2,TRUE)
$Main_BBS_Configuration_BBS_Name $Main_BBS_Configuration_BBS_Name
%LFNew BBS name: @ %LFNew BBS name: @
$ $
RGSysCfgStr(3,TRUE) RGSysCfgStr(3,TRUE)
$Main_BBS_Configuration_BBS_Phone $Main_BBS_Configuration_BBS_Phone
%LFNew BBS phone number: @ %LFNew BBS phone number: @
$ $
RGSysCfgStr(4,TRUE) RGSysCfgStr(4,TRUE)
$Main_BBS_Configuration_Telnet_URL $Main_BBS_Configuration_Telnet_URL
%LF^4New Telnet Url:%LF^4: @ %LF^4New Telnet Url:%LF^4: @
$ $
RGSysCfgStr(5,TRUE) RGSysCfgStr(5,TRUE)
$Main_BBS_Configuration_SysOp_Name $Main_BBS_Configuration_SysOp_Name
%LFNew SysOp name: @ %LFNew SysOp name: @
$ $
RGNoteStr(0,FALSE) RGNoteStr(0,FALSE)
$Internal_Use_Only $Internal_Use_Only
%LF^7This is for internal use only. %LF^7This is for internal use only.
%PA %PA
$ $
RGNoteStr(1,FALSE) RGNoteStr(1,FALSE)
$Only_Change_Locally $Only_Change_Locally
%LF^7This can only be changed locally. %LF^7This can only be changed locally.
%PA %PA
$ $
RGSysCfgStr(6,TRUE) RGSysCfgStr(6,TRUE)
$Main_BBS_Configuration_SysOp_Chat_Hours $Main_BBS_Configuration_SysOp_Chat_Hours
%LFDo you want to declare sysop chat hours? @ %LFDo you want to declare sysop chat hours? @
$ $
RGSysCfgStr(7,TRUE) RGSysCfgStr(7,TRUE)
$Main_BBS_Configuration_Minimum_Baud_Hours $Main_BBS_Configuration_Minimum_Baud_Hours
%LFDo you want to declare hours people at the minimum baud can logon? @ %LFDo you want to declare hours people at the minimum baud can logon? @
$ $
RGSysCfgStr(8,TRUE) RGSysCfgStr(8,TRUE)
$Main_BBS_Configuration_Download_Hours $Main_BBS_Configuration_Download_Hours
%LFDo you want to declare download hours? @ %LFDo you want to declare download hours? @
$ $
RGSysCfgStr(9,TRUE) RGSysCfgStr(9,TRUE)
$Main_BBS_Configuration_Minimum_Baud_Download_Hours $Main_BBS_Configuration_Minimum_Baud_Download_Hours
%LFDo you want to declare hours people at minimum baud can download? @ %LFDo you want to declare hours people at minimum baud can download? @
$ $
RGSysCfgStr(10,FALSE) RGSysCfgStr(10,FALSE)
$Main_BBS_Configuration_SysOp_Password_Menu $Main_BBS_Configuration_SysOp_Password_Menu
%CL^5System Passwords:^1 %CL^5System Passwords:^1
^1A. SysOp password : ^5%P4 ^1A. SysOp password : ^5%P4
^1B. New user password : ^5%P5 ^1B. New user password : ^5%P5
^1C. Baud override password: ^5%P6 ^1C. Baud override password: ^5%P6
Enter selection [^5A^4-^5C^4,^5Q^4=^5Quit^4]: @ Enter selection [^5A^4-^5C^4,^5Q^4=^5Quit^4]: @
$ $
RGSysCfgStr(11,TRUE) RGSysCfgStr(11,TRUE)
$Main_BBS_Configuration_SysOp_Password $Main_BBS_Configuration_SysOp_Password
%LFNew SysOp password: @ %LFNew SysOp password: @
$ $
RGSysCfgStr(12,TRUE) RGSysCfgStr(12,TRUE)
$Main_BBS_Configuration_New_User_Password $Main_BBS_Configuration_New_User_Password
%LFNew new-user password: @ %LFNew new-user password: @
$ $
RGSysCfgStr(13,TRUE) RGSysCfgStr(13,TRUE)
$Main_BBS_Configuration_Baud_Override_Password $Main_BBS_Configuration_Baud_Override_Password
%LFNew minimum baud rate override password: @ %LFNew minimum baud rate override password: @
$ $
RGSysCfgStr(14,TRUE) RGSysCfgStr(14,TRUE)
$Main_BBS_Configuration_Pre_Event_Time $Main_BBS_Configuration_Pre_Event_Time
%LFNew pre-event warning time@ %LFNew pre-event warning time@
$ $
RGSysCfgStr(15,FALSE) RGSysCfgStr(15,FALSE)
$Main_BBS_Configuration_System_Menus $Main_BBS_Configuration_System_Menus
%CL^5System Menus:^1 %CL^5System Menus:^1
^11. Global : ^5%M1 ^11. Global : ^5%M1
^12. All Start : ^5%M2 ^12. All Start : ^5%M2
^13. Shutle logon : ^5%M3 ^13. Shutle logon : ^5%M3
^14. New user info: ^5%M4 ^14. New user info: ^5%M4
^15. Message Read : ^5%M5 ^15. Message Read : ^5%M5
^16. File List : ^5%M6 ^16. File List : ^5%M6
Enter selection [^51^4-^56^4,^5Q^4=^5Quit^4]: @ Enter selection [^51^4-^56^4,^5Q^4=^5Quit^4]: @
$ $
RGSysCfgStr(16,TRUE) RGSysCfgStr(16,TRUE)
$Main_BBS_Configuration_System_Menus_Global $Main_BBS_Configuration_System_Menus_Global
%LFMenu for global commands (0=None)@ %LFMenu for global commands (0=None)@
$ $
RGSysCfgStr(17,TRUE) RGSysCfgStr(17,TRUE)
$Main_BBS_Configuration_System_Menus_Start $Main_BBS_Configuration_System_Menus_Start
%LFMenu to start all users at@ %LFMenu to start all users at@
$ $
RGSysCfgStr(18,TRUE) RGSysCfgStr(18,TRUE)
$Main_BBS_Configuration_System_Menus_Shuttle $Main_BBS_Configuration_System_Menus_Shuttle
%LFMenu for shuttle logon (0=None)@ %LFMenu for shuttle logon (0=None)@
$ $
RGSysCfgStr(19,TRUE) RGSysCfgStr(19,TRUE)
$Main_BBS_Configuration_System_Menus_New_User $Main_BBS_Configuration_System_Menus_New_User
%LFMenu for new user information@ %LFMenu for new user information@
$ $
RGSysCfgStr(20,TRUE) RGSysCfgStr(20,TRUE)
$Main_BBS_Configuration_System_Menus_Message_Read $Main_BBS_Configuration_System_Menus_Message_Read
%LFMenu for message read@ %LFMenu for message read@
$ $
RGSysCfgStr(21,TRUE) RGSysCfgStr(21,TRUE)
$Main_BBS_Configuration_System_Menus_File_Listing $Main_BBS_Configuration_System_Menus_File_Listing
%LFMenu for file listing@ %LFMenu for file listing@
$ $
RGNoteStr(2,FALSE) RGNoteStr(2,FALSE)
$Invalid_Menu_Number $Invalid_Menu_Number
%LF^7Invalid menu number. %LF^7Invalid menu number.
%PA %PA
$ $
RGSysCfgStr(22,TRUE) RGSysCfgStr(22,TRUE)
$Main_BBS_Configuration_Bulletin_Prefix $Main_BBS_Configuration_Bulletin_Prefix
%LFDefault bulletin prefix: @ %LFDefault bulletin prefix: @
$ $
RGNoteStr(1,FALSE) RGNoteStr(1,FALSE)
$Only_Change_Locally $Only_Change_Locally
%LF^7This can only be changed locally. %LF^7This can only be changed locally.
%PA %PA
$ $
RGSysCfgStr(23,TRUE) RGSysCfgStr(23,TRUE)
$Main_BBS_Configuration_Local_Security $Main_BBS_Configuration_Local_Security
%LFDo you want local security to remain on? @ %LFDo you want local security to remain on? @
$ $
RGSysCfgStr(24,TRUE) RGSysCfgStr(24,TRUE)
$Main_BBS_Configuration_Data_Path $Main_BBS_Configuration_Data_Path
%LF^4New data files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New data files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(25,TRUE) RGSysCfgStr(25,TRUE)
$Main_BBS_Configuration_Misc_Path $Main_BBS_Configuration_Misc_Path
%LF^4New miscellaneous files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New miscellaneous files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(26,TRUE) RGSysCfgStr(26,TRUE)
$Main_BBS_Configuration_Msg_Path $Main_BBS_Configuration_Msg_Path
%LF^4New message files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New message files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(27,TRUE) RGSysCfgStr(27,TRUE)
$Main_BBS_Configuration_NodeList_Path $Main_BBS_Configuration_NodeList_Path
%LF^4New nodelist files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New nodelist files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(28,TRUE) RGSysCfgStr(28,TRUE)
$Main_BBS_Configuration_Log_Path $Main_BBS_Configuration_Log_Path
%LF^4New sysop log files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New sysop log files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(29,TRUE) RGSysCfgStr(29,TRUE)
$Main_BBS_Configuration_Temp_Path $Main_BBS_Configuration_Temp_Path
%LF^4New temporary files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New temporary files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(30,TRUE) RGSysCfgStr(30,TRUE)
$Main_BBS_Configuration_Protocol_Path $Main_BBS_Configuration_Protocol_Path
%LF^4New protocol files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New protocol files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(31,TRUE) RGSysCfgStr(31,TRUE)
$Main_BBS_Configuration_Archive_Path $Main_BBS_Configuration_Archive_Path
%LF^4New archive files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New archive files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(32,TRUE) RGSysCfgStr(32,TRUE)
$Main_BBS_Configuration_Attach_Path $Main_BBS_Configuration_Attach_Path
%LF^4New file attach files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New file attach files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
RGSysCfgStr(33,TRUE) RGSysCfgStr(33,TRUE)
$Main_BBS_Configuration_MultNode_Path $Main_BBS_Configuration_MultNode_Path
%LF^4New multi-node files path (^5End with a ^4"^5\^4"):%LF^4: @ %LF^4New multi-node files path (^5End with a ^4"^5\^4"):%LF^4: @
$ $
} }
PROCEDURE GetTimeRange(CONST RGStrNum: LongInt; VAR LoTime,HiTime: SmallInt); PROCEDURE GetTimeRange(CONST RGStrNum: LongInt; VAR LoTime,HiTime: SmallInt);
VAR VAR
TempStr: Str5; TempStr: Str5;
LowTime, LowTime,
HighTime: Integer; HighTime: Integer;
BEGIN BEGIN
IF (NOT (PYNQ(RGSysCfgStr(RGStrNum,TRUE),0,FALSE))) THEN IF (NOT (PYNQ(RGSysCfgStr(RGStrNum,TRUE),0,FALSE))) THEN
BEGIN BEGIN
LowTime := 0; LowTime := 0;
HighTime := 0; HighTime := 0;
END END
ELSE ELSE
BEGIN BEGIN
NL; NL;
Print('All entries in 24 hour time. Hour: (0-23), Minute: (0-59)'); Print('All entries in 24 hour time. Hour: (0-23), Minute: (0-59)');
NL; NL;
Prt('Starting time: '); Prt('Starting time: ');
MPL(5); MPL(5);
InputFormatted('',TempStr,'##:##',TRUE); InputFormatted('',TempStr,'##:##',TRUE);
IF (StrToInt(Copy(TempStr,1,2)) IN [0..23]) AND (StrToInt(Copy(TempStr,4,2)) IN [0..59]) THEN IF (StrToInt(Copy(TempStr,1,2)) IN [0..23]) AND (StrToInt(Copy(TempStr,4,2)) IN [0..59]) THEN
LowTime := ((StrToInt(Copy(TempStr,1,2)) * 60) + StrToInt(Copy(TempStr,4,2))) LowTime := ((StrToInt(Copy(TempStr,1,2)) * 60) + StrToInt(Copy(TempStr,4,2)))
ELSE ELSE
LowTime := 0; LowTime := 0;
NL; NL;
Prt('Ending time: '); Prt('Ending time: ');
MPL(5); MPL(5);
InputFormatted('',TempStr,'##:##',TRUE); InputFormatted('',TempStr,'##:##',TRUE);
IF (StrToInt(Copy(TempStr,1,2)) IN [0..23]) AND (StrToInt(Copy(TempStr,4,2)) IN [0..59]) THEN IF (StrToInt(Copy(TempStr,1,2)) IN [0..23]) AND (StrToInt(Copy(TempStr,4,2)) IN [0..59]) THEN
HighTime := ((StrToInt(Copy(TempStr,1,2)) * 60) + StrToInt(Copy(TempStr,4,2))) HighTime := ((StrToInt(Copy(TempStr,1,2)) * 60) + StrToInt(Copy(TempStr,4,2)))
ELSE ELSE
HighTime := 0; HighTime := 0;
END; END;
NL; NL;
Print('Hours: '+PHours('Always allowed',LowTime,HighTime)); Print('Hours: '+PHours('Always allowed',LowTime,HighTime));
NL; NL;
IF PYNQ('Are you sure this is what you want? ',0,FALSE) THEN IF PYNQ('Are you sure this is what you want? ',0,FALSE) THEN
BEGIN BEGIN
LoTime := LowTime; LoTime := LowTime;
HiTime := HighTime; HiTime := HighTime;
END; END;
END; END;
PROCEDURE MainBBSConfiguration; PROCEDURE MainBBSConfiguration;
VAR VAR
LineFile: FILE OF LineRec; LineFile: FILE OF LineRec;
Cmd: Char; Cmd: Char;
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
Assign(LineFile,General.DataPath+'NODE'+IntToStr(ThisNode)+'.DAT'); Assign(LineFile,General.DataPath+'NODE'+IntToStr(ThisNode)+'.DAT');
Reset(LineFile); Reset(LineFile);
Seek(LineFile,0); Seek(LineFile,0);
Read(LineFile,Liner); Read(LineFile,Liner);
REPEAT REPEAT
WITH General DO WITH General DO
BEGIN BEGIN
Abort := FALSE; Abort := FALSE;
Next := FALSE; Next := FALSE;
RGSysCfgStr(1,FALSE); RGSysCfgStr(1,FALSE);
OneK(Cmd,'QABCDEFGHIJKLMN0123456789'^M,TRUE,TRUE); OneK(Cmd,'QABCDEFGHIJKLMN0123456789'^M,TRUE,TRUE);
CASE Cmd OF CASE Cmd OF
'A' : BEGIN 'A' : BEGIN
InputWNWC(RGSysCfgStr(2,TRUE),BBSName,(SizeOf(BBSName) - 1),Changed); InputWNWC(RGSysCfgStr(2,TRUE),BBSName,(SizeOf(BBSName) - 1),Changed);
InputFormatted(RGSysCfgStr(3,TRUE),BBSPhone,'###-###-####',FALSE); InputFormatted(RGSysCfgStr(3,TRUE),BBSPhone,'###-###-####',FALSE);
END; END;
'B' : InputWN1(RGSysCfgStr(4,TRUE),Liner.NodeTelnetURL,(SizeOf(Liner.NodeTelnetURL) - 1),[InteractiveEdit],Changed); 'B' : InputWN1(RGSysCfgStr(4,TRUE),Liner.NodeTelnetURL,(SizeOf(Liner.NodeTelnetURL) - 1),[InteractiveEdit],Changed);
'C' : InputWN1(RGSysCfgStr(5,TRUE),SysOpName,(SizeOf(SysOpName) - 1),[InterActiveEdit],Changed); 'C' : InputWN1(RGSysCfgStr(5,TRUE),SysOpName,(SizeOf(SysOpName) - 1),[InterActiveEdit],Changed);
'D' : RGNoteStr(0,FALSE); 'D' : RGNoteStr(0,FALSE);
'E' : IF (InCom) THEN 'E' : IF (InCom) THEN
RGNoteStr(1,FALSE) RGNoteStr(1,FALSE)
ELSE ELSE
GetTimeRange(6,lLowTime,HiTime); GetTimeRange(6,lLowTime,HiTime);
'F' : GetTimeRange(7,MinBaudLowTime,MinBaudHiTime); 'F' : GetTimeRange(7,MinBaudLowTime,MinBaudHiTime);
'G' : GetTimeRange(8,DLLowTime,DLHiTime); 'G' : GetTimeRange(8,DLLowTime,DLHiTime);
'H' : GetTimeRange(9,MinBaudDLLowTime,MinBaudDLHiTime); 'H' : GetTimeRange(9,MinBaudDLLowTime,MinBaudDLHiTime);
'I' : BEGIN 'I' : BEGIN
REPEAT REPEAT
RGSysCfgStr(10,FALSE); RGSysCfgStr(10,FALSE);
OneK(Cmd,^M'ABC',TRUE,TRUE); OneK(Cmd,^M'ABC',TRUE,TRUE);
CASE Cmd OF CASE Cmd OF
'A' : InputWN1(RGSysCfgStr(11,TRUE),SysOpPw,(SizeOf(SysOpPW) - 1),[InterActiveEdit,UpperOnly],Changed); 'A' : InputWN1(RGSysCfgStr(11,TRUE),SysOpPw,(SizeOf(SysOpPW) - 1),[InterActiveEdit,UpperOnly],Changed);
'B' : InputWN1(RGSysCfgStr(12,TRUE),NewUserPW,(SizeOf(SysOpPW) - 1),[InterActiveEdit,UpperOnly],Changed); 'B' : InputWN1(RGSysCfgStr(12,TRUE),NewUserPW,(SizeOf(SysOpPW) - 1),[InterActiveEdit,UpperOnly],Changed);
'C' : InputWN1(RGSysCfgStr(13,TRUE),MinBaudOverride,(SizeOf(SysOpPW) - 1), 'C' : InputWN1(RGSysCfgStr(13,TRUE),MinBaudOverride,(SizeOf(SysOpPW) - 1),
[InterActiveEdit,UpperOnly],Changed); [InterActiveEdit,UpperOnly],Changed);
END; END;
UNTIL (Cmd = ^M) OR (HangUp); UNTIL (Cmd = ^M) OR (HangUp);
Cmd := #0; Cmd := #0;
END; END;
'J' : InputByteWOC(RGSysCfgStr(14,TRUE),EventWarningTime,[DisplayValue,NumbersOnly],0,255); 'J' : InputByteWOC(RGSysCfgStr(14,TRUE),EventWarningTime,[DisplayValue,NumbersOnly],0,255);
'K' : BEGIN 'K' : BEGIN
REPEAT REPEAT
RGSysCfgStr(15,FALSE); RGSysCfgStr(15,FALSE);
OneK(Cmd,^M'123456',TRUE,TRUE); OneK(Cmd,^M'123456Q',TRUE,TRUE);
CASE Cmd OF CASE Cmd OF
'1' : FindMenu(RGSysCfgStr(16,TRUE),GlobalMenu,0,NumMenus,Changed); '1' : FindMenu(RGSysCfgStr(16,TRUE),GlobalMenu,0,NumMenus,Changed);
'2' : FindMenu(RGSysCfgStr(17,TRUE),AllStartMenu,1,NumMenus,Changed); '2' : FindMenu(RGSysCfgStr(17,TRUE),AllStartMenu,1,NumMenus,Changed);
'3' : FindMenu(RGSysCfgStr(18,TRUE),ShuttleLogonMenu,0,NumMenus,Changed); '3' : FindMenu(RGSysCfgStr(18,TRUE),ShuttleLogonMenu,0,NumMenus,Changed);
'4' : FindMenu(RGSysCfgStr(19,TRUE),NewUserInformationMenu,1,NumMenus,Changed); '4' : FindMenu(RGSysCfgStr(19,TRUE),NewUserInformationMenu,1,NumMenus,Changed);
'5' : FindMenu(RGSysCfgStr(20,TRUE),MessageReadMenu,1,NumMenus,Changed); '5' : FindMenu(RGSysCfgStr(20,TRUE),MessageReadMenu,1,NumMenus,Changed);
'6' : FindMenu(RGSysCfgStr(21,TRUE),FileListingMenu,1,NumMenus,Changed); '6' : FindMenu(RGSysCfgStr(21,TRUE),FileListingMenu,1,NumMenus,Changed);
END; END;
UNTIL (Cmd = ^M) OR (HangUp); UNTIL (Cmd IN [^M,'Q']) OR (HangUp);
Cmd := #0; Cmd := #0;
END; END;
'L' : InputWN1(RGSysCfgStr(22,TRUE),BulletPrefix,(SizeOf(BulletPrefix) - 1),[InterActiveEdit,UpperOnly],Changed); 'L' : InputWN1(RGSysCfgStr(22,TRUE),BulletPrefix,(SizeOf(BulletPrefix) - 1),[InterActiveEdit,UpperOnly],Changed);
'M' : IF (InCom) THEN 'M' : IF (InCom) THEN
RGNoteStr(1,FALSE) RGNoteStr(1,FALSE)
ELSE ELSE
BEGIN BEGIN
MultiNode := (NOT MultiNode); MultiNode := (NOT MultiNode);
SaveGeneral(FALSE); SaveGeneral(FALSE);
ClrScr; ClrScr;
Writeln('Please restart Renegade.'); Writeln('Please restart Renegade.');
Halt; Halt;
END; END;
'N' : BEGIN 'N' : BEGIN
NetworkMode := (NOT NetworkMode); NetworkMode := (NOT NetworkMode);
IF (NetworkMode) THEN IF (NetworkMode) THEN
LocalSec := TRUE LocalSec := TRUE
ELSE ELSE
LocalSec := PYNQ(RGSysCfgStr(23,TRUE),0,FALSE); LocalSec := PYNQ(RGSysCfgStr(23,TRUE),0,FALSE);
END; END;
'0' : InputPath(RGSysCfgStr(24,TRUE),DataPath,TRUE,FALSE,Changed); '0' : InputPath(RGSysCfgStr(24,TRUE),DataPath,TRUE,FALSE,Changed);
'1' : InputPath(RGSysCfgStr(25,TRUE),MiscPath,TRUE,FALSE,Changed); '1' : InputPath(RGSysCfgStr(25,TRUE),MiscPath,TRUE,FALSE,Changed);
'2' : InputPath(RGSysCfgStr(26,TRUE),MsgPath,TRUE,FALSE,Changed); '2' : InputPath(RGSysCfgStr(26,TRUE),MsgPath,TRUE,FALSE,Changed);
'3' : InputPath(RGSysCfgStr(27,TRUE),NodePath,TRUE,FALSE,Changed); '3' : InputPath(RGSysCfgStr(27,TRUE),NodePath,TRUE,FALSE,Changed);
'4' : InputPath(RGSysCfgStr(28,TRUE),LogsPath,TRUE,FALSE,Changed); '4' : InputPath(RGSysCfgStr(28,TRUE),LogsPath,TRUE,FALSE,Changed);
'5' : InputPath(RGSysCfgStr(29,TRUE),TempPath,FALSE,FALSE,Changed); '5' : InputPath(RGSysCfgStr(29,TRUE),TempPath,FALSE,FALSE,Changed);
'6' : InputPath(RGSysCfgStr(30,TRUE),ProtPath,TRUE,FALSE,Changed); '6' : InputPath(RGSysCfgStr(30,TRUE),ProtPath,TRUE,FALSE,Changed);
'7' : InputPath(RGSysCfgStr(31,TRUE),ArcsPath,TRUE,FALSE,Changed); '7' : InputPath(RGSysCfgStr(31,TRUE),ArcsPath,TRUE,FALSE,Changed);
'8' : InputPath(RGSysCfgStr(32,TRUE),FileAttachPath,TRUE,FALSE,Changed); '8' : InputPath(RGSysCfgStr(32,TRUE),FileAttachPath,TRUE,FALSE,Changed);
'9' : InputPath(RGSysCfgStr(33,TRUE),lMultPath,TRUE,FALSE,Changed); '9' : InputPath(RGSysCfgStr(33,TRUE),lMultPath,TRUE,FALSE,Changed);
END; END;
END; END;
UNTIL (Cmd = 'Q') OR (HangUp); UNTIL (Cmd = 'Q') OR (HangUp);
Seek(LineFile,0); Seek(LineFile,0);
Write(LineFile,Liner); Write(LineFile,Liner);
Close(LineFile); Close(LineFile);
LastError := IOResult; LastError := IOResult;
END; END;
END. END.

8
SOURCE/SYSOP2M.PAS
View File

@ -60,8 +60,8 @@ BEGIN
PrintACR('^1R. Ask if EXPERT MODE is needed : ^5'+ShowYesNo(NewUserToggles[18] <> 0)); PrintACR('^1R. Ask if EXPERT MODE is needed : ^5'+ShowYesNo(NewUserToggles[18] <> 0));
NewUserToggles[19] := 9; NewUserToggles[19] := 9;
PrintACR('^1S. Ask FORGOT PW question : ^5'+ShowYesNo(NewUserToggles[20] <> 0)); PrintACR('^1S. Ask FORGOT PW question : ^5'+ShowYesNo(NewUserToggles[20] <> 0));
IF (ForgotPWQuestion <> '') THEN IF (RGMainStr(6, TRUE) <> '') THEN
PrintACR('^1 ('+ForgotPWQuestion+')'); {PrintACR('^1 ('+ForgotPWQuestion+')');} PrintACR('^1 ('+ RGMainStr(6,TRUE) + ')');
END; END;
MCIAllowed := TRUE; MCIAllowed := TRUE;
Prt('%LFEnter selection [^5A^4-^5P^4,^5R^4-^5S^4,^5Q^4=^5Quit^4]: '); Prt('%LFEnter selection [^5A^4-^5P^4,^5R^4-^5S^4,^5Q^4=^5Quit^4]: ');
@ -114,7 +114,7 @@ BEGIN
'R' : NewUserToggles[18] := Toggle(NewUserToggles[18],28); 'R' : NewUserToggles[18] := Toggle(NewUserToggles[18],28);
'S' : BEGIN 'S' : BEGIN
NewUserToggles[20] := Toggle(NewUserToggles[20],30); NewUserToggles[20] := Toggle(NewUserToggles[20],30);
IF (NewUserToggles[20] = 0) THEN (*)IF (NewUserToggles[20] = 0) THEN
ForgotPWQuestion := '' ForgotPWQuestion := ''
ELSE ELSE
BEGIN BEGIN
@ -125,7 +125,7 @@ BEGIN
UNTIL (TempStr <> '') OR (HangUp); UNTIL (TempStr <> '') OR (HangUp);
IF (Changed) THEN IF (Changed) THEN
ForgotPWQuestion := TempStr; ForgotPWQuestion := TempStr;
END; END; *)
END; END;
END; END;
UNTIL (Cmd = 'Q') OR (HangUp); UNTIL (Cmd = 'Q') OR (HangUp);

3
SOURCE/SYSOP3.PAS
View File

@ -1338,7 +1338,8 @@ BEGIN
'Z' : BEGIN 'Z' : BEGIN
Print('Question:'); Print('Question:');
NL; NL;
Print(General.ForgotPWQuestion); {Print(General.ForgotPWQuestion);}
Print(RGMainStr(6,TRUE));
NL; NL;
Print('Enter new forgot password answer.'); Print('Enter new forgot password answer.');
Prt(': '); Prt(': ');