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

4
SOURCE/SYSOP2A.PAS
View File

@ -375,7 +375,7 @@ BEGIN
'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);
@ -384,7 +384,7 @@ BEGIN
'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);

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(': ');