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);
IF (Tries >= General.MaxLogonTries) THEN
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
ELSE
BEGIN

4
SOURCE/SYSOP2A.PAS
View File

@ -375,7 +375,7 @@ BEGIN
'K' : BEGIN
REPEAT
RGSysCfgStr(15,FALSE);
OneK(Cmd,^M'123456',TRUE,TRUE);
OneK(Cmd,^M'123456Q',TRUE,TRUE);
CASE Cmd OF
'1' : FindMenu(RGSysCfgStr(16,TRUE),GlobalMenu,0,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);
'6' : FindMenu(RGSysCfgStr(21,TRUE),FileListingMenu,1,NumMenus,Changed);
END;
UNTIL (Cmd = ^M) OR (HangUp);
UNTIL (Cmd IN [^M,'Q']) OR (HangUp);
Cmd := #0;
END;
'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));
NewUserToggles[19] := 9;
PrintACR('^1S. Ask FORGOT PW question : ^5'+ShowYesNo(NewUserToggles[20] <> 0));
IF (ForgotPWQuestion <> '') THEN
PrintACR('^1 ('+ForgotPWQuestion+')');
IF (RGMainStr(6, TRUE) <> '') THEN
{PrintACR('^1 ('+ForgotPWQuestion+')');} PrintACR('^1 ('+ RGMainStr(6,TRUE) + ')');
END;
MCIAllowed := TRUE;
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);
'S' : BEGIN
NewUserToggles[20] := Toggle(NewUserToggles[20],30);
IF (NewUserToggles[20] = 0) THEN
(*)IF (NewUserToggles[20] = 0) THEN
ForgotPWQuestion := ''
ELSE
BEGIN
@ -125,7 +125,7 @@ BEGIN
UNTIL (TempStr <> '') OR (HangUp);
IF (Changed) THEN
ForgotPWQuestion := TempStr;
END;
END; *)
END;
END;
UNTIL (Cmd = 'Q') OR (HangUp);

3
SOURCE/SYSOP3.PAS
View File

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