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

9
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
@ -499,7 +499,7 @@ Var
If ValidLightBar(A) Then Begin If ValidLightBar(A) Then Begin
If LBMenuPos = 0 Then LBMenuPos := A; If LBMenuPos = 0 Then LBMenuPos := A;
Session.io.AnsiGotoXY (MenuList[A].X, MenuList[A].Y); Session.io.AnsiGotoXY (MenuList[A].X, MenuList[A].Y);
Session.io.OutFull (MenuList[A].TextLo); Session.io.OutFull (MenuList[A].TextLo);
End; End;
Session.io.AllowArrow := True; Session.io.AllowArrow := True;
@ -531,7 +531,7 @@ Var
#72, #72,
#75 : Begin {Up, Left} #75 : Begin {Up, Left}
Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y); Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y);
Session.io.OutFull (MenuList[LBMenuPos].TextLo); Session.io.OutFull (MenuList[LBMenuPos].TextLo);
If Menu.MenuType = 1 Then Begin If Menu.MenuType = 1 Then Begin
TempPos := LBMenuPos; TempPos := LBMenuPos;
@ -553,7 +553,7 @@ Var
#80, #80,
#77 : Begin {Down, Right} #77 : Begin {Down, Right}
Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y); Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y);
Session.io.OutFull (MenuList[LBMenuPos].TextLo); Session.io.OutFull (MenuList[LBMenuPos].TextLo);
If Menu.MenuType = 1 Then Begin If Menu.MenuType = 1 Then Begin
If LBMenuPos < CmdNum Then Begin If LBMenuPos < CmdNum Then 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);