eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sysop password prompt now configurable

This commit is contained in:
mysticbbs 2012-07-15 16:14:39 -04:00
parent 7b2efa2e78
commit 05f2be1961
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/bbs_menus.pas
View File

@ -310,7 +310,7 @@ Begin
PageForSysopChat (Pos('/F', strUpper(Data)) > 0) {$ENDIF}; PageForSysopChat (Pos('/F', strUpper(Data)) > 0) {$ENDIF};
End; End;
'*' : Begin '*' : Begin
If Not Session.io.GetPW ('|CR|09Sysop Password: ', Session.GetPrompt(417), Config.SysopPW) Then Exit; {++lang} If Not Session.io.GetPW (Session.GetPrompt(493), Session.GetPrompt(417), Config.SysopPW) Then Exit;
Case Cmd[2] of Case Cmd[2] of
'#' : Begin '#' : Begin
@ -747,6 +747,7 @@ Var
Begin Begin
If View Then Begin If View Then Begin
Keys := #13; Keys := #13;
If (Menu.MenuType > 0) and (Session.io.Graphics = 1) Then Begin If (Menu.MenuType > 0) and (Session.io.Graphics = 1) Then Begin
Do_LightBar_Menu; Do_LightBar_Menu;
Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY); Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY);