Skip to content
Snippets Groups Projects
Commit 42f836fc authored by rswindell's avatar rswindell
Browse files

Added StatusBar popup menu for clearing error counters and viewing error log. 

Added menu item for editing modopts.ini.
parent 74daf32c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/MainFormUnit.cpp
+ 24
− 9
View file @ 42f836fc
......@@ -2997,15 +2997,6 @@ void __fastcall TMainForm::UpTimerTick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::BBSViewErrorLogMenuItemClick(TObject *Sender)
{
char filename[MAX_PATH+1];
sprintf(filename,"%sERROR.LOG"
,MainForm->cfg.logs_dir);
ViewFile(filename,"Error Log");
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ChatToggleExecute(TObject *Sender)
{
......@@ -3825,6 +3816,30 @@ TFont* __fastcall TMainForm::LogAttributes(int log_level, TColor Color, TFont* F
return LogFont[log_level];
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ClearErrorsExecute(TObject *Sender)
{
errors=0;
node_t node;
for(int i=0;i<cfg.sys_nodes;i++) {
int file;
if(NodeForm->getnodedat(i+1,&node,&file))
break;
node.errors=0;
if(NodeForm->putnodedat(i+1,&node,file))
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ViewErrorLogExecute(TObject *Sender)
{
char filename[MAX_PATH+1];
sprintf(filename,"%sERROR.LOG"
,MainForm->cfg.logs_dir);
ViewFile(filename,"Error Log");
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ViewLoginAttemptsMenuItemClick(TObject *Sender)
{
LoginAttemptsForm->Show();
......
src/sbbs3/ctrl/MainFormUnit.dfm
+ 52
− 16
View file @ 42f836fc
......@@ -51,7 +51,7 @@ object MainForm: TMainForm
object HorizontalSplitter: TSplitter
Left = 0
Top = 164
Width = 632
Width = 624
Height = 1
Cursor = crVSplit
Align = alTop
......@@ -62,8 +62,8 @@ object MainForm: TMainForm
object Logo: TImage
Left = 0
Top = 165
Width = 632
Height = 164
Width = 624
Height = 152
Align = alClient
AutoSize = True
Center = True
......@@ -13385,7 +13385,7 @@ object MainForm: TMainForm
object Toolbar: TToolBar
Left = 0
Top = 0
Width = 632
Width = 624
Height = 30
BorderWidth = 1
EdgeBorders = [ebTop, ebBottom]
......@@ -13607,6 +13607,7 @@ object MainForm: TMainForm
Text = 'Starting up...'
Width = 100
end>
PopupMenu = StatusBarPopupMenu
SimplePanel = False
end
object MainMenu: TMainMenu
......@@ -13703,6 +13704,9 @@ object MainForm: TMainForm
ImageIndex = 25
OnClick = ForceNetworkCalloutMenuItemClick
end
object ClearErrorMenuItem: TMenuItem
Action = ClearErrors
end
object N1: TMenuItem
Caption = '-'
end
......@@ -13710,10 +13714,8 @@ object MainForm: TMainForm
AutoHotkeys = maManual
Caption = 'View'
ImageIndex = 47
object ViewErrorLog: TMenuItem
Caption = 'Error Log'
ImageIndex = 29
OnClick = BBSViewErrorLogMenuItemClick
object BBSViewErrorLogMenuItem: TMenuItem
Action = ViewErrorLog
end
object ViewStatisticsLog: TMenuItem
Caption = 'Statistics Log'
......@@ -13802,15 +13804,20 @@ object MainForm: TMainForm
Hint = 'WELCOME.MSG'
OnClick = TextMenuItemEditClick
end
object BBSEditFeedbackMsg: TMenuItem
Caption = 'New User Feedback Instructions'
Hint = 'FEEDBACK.MSG'
OnClick = TextMenuItemEditClick
end
object BBSEditNupGuessMenuItem: TMenuItem
Caption = 'New User Password Failure'
Hint = 'NUPGUESS.MSG'
OnClick = TextMenuItemEditClick
end
object BBSEditFeedbackMsg: TMenuItem
Caption = 'New User Feedback Instructions'
Hint = 'FEEDBACK.MSG'
OnClick = TextMenuItemEditClick
object BBSEditModOptsMenuItem: TMenuItem
Caption = 'Module Options'
Hint = 'modopts.ini'
OnClick = CtrlMenuItemEditClick
end
end
object BBSEditFilters: TMenuItem
......@@ -13867,6 +13874,16 @@ object MainForm: TMainForm
Hint = 'subject.can'
OnClick = TextMenuItemEditClick
end
object BBSEditPasswordFilterMenuItem: TMenuItem
Caption = 'Password Filter'
Hint = 'password.can'
OnClick = TextMenuItemEditClick
end
object BBSEditBadPasswordMessageMenuItem: TMenuItem
Caption = 'Password Filter Message'
Hint = 'badpassword.msg'
OnClick = TextMenuItemEditClick
end
object BBSEditFilenameFilter: TMenuItem
Caption = 'File Name Filter'
Hint = 'file.can'
......@@ -14267,11 +14284,8 @@ object MainForm: TMainForm
OnClick = ViewStatusBarMenuItemClick
end
object ViewErrorLogMenuItem: TMenuItem
Action = ViewErrorLog
AutoHotkeys = maManual
Caption = 'Error Log...'
Hint = 'ERROR.LOG'
ImageIndex = 29
OnClick = ViewLogClick
end
object ViewLoginAttemptsMenuItem: TMenuItem
Caption = 'Login Attempts...'
......@@ -14596,6 +14610,17 @@ object MainForm: TMainForm
ImageIndex = 4
OnExecute = WebConfigureExecute
end
object ClearErrors: TAction
Caption = 'Clear Error Counters'
ImageIndex = 31
OnExecute = ClearErrorsExecute
end
object ViewErrorLog: TAction
Caption = 'Error Log...'
Hint = 'error.log'
ImageIndex = 29
OnExecute = ViewErrorLogExecute
end
end
object ImageList: TImageList
Left = 360
......@@ -17221,4 +17246,15 @@ object MainForm: TMainForm
Left = 472
Top = 40
end
object StatusBarPopupMenu: TPopupMenu
Left = 296
Top = 40
object ViewErrorLogPopupMenuItem: TMenuItem
Action = ViewErrorLog
Caption = 'View Error Log...'
end
object ClearErrorCounter: TMenuItem
Action = ClearErrors
end
end
end
src/sbbs3/ctrl/MainFormUnit.h
+ 13
− 3
View file @ 42f836fc
......@@ -6,7 +6,7 @@
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2010 Rob Swindell - http://www.synchro.net/copyright.html *
* Copyright 2011 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License *
......@@ -201,7 +201,7 @@ __published: // IDE-managed Components
TMenuItem *BBSViewAnotherDaysLog;
TMenuItem *BBSViewYesterdaysLog;
TMenuItem *BBSViewTodaysLog;
TMenuItem *ViewErrorLog;
TMenuItem *BBSViewErrorLogMenuItem;
TMenuItem *ViewStatisticsLog;
TAction *UserList;
TToolButton *UserListButton;
......@@ -316,6 +316,15 @@ __published: // IDE-managed Components
TMenuItem *WebPauseMenuItem;
TMenuItem *ServicesPauseMenuItem;
TMenuItem *LogoffMessage;
TPopupMenu *StatusBarPopupMenu;
TMenuItem *ClearErrorCounter;
TAction *ClearErrors;
TMenuItem *ClearErrorMenuItem;
TMenuItem *BBSEditModOptsMenuItem;
TAction *ViewErrorLog;
TMenuItem *ViewErrorLogPopupMenuItem;
TMenuItem *BBSEditPasswordFilterMenuItem;
TMenuItem *BBSEditBadPasswordMessageMenuItem;
TMenuItem *ViewLoginAttemptsMenuItem;
void __fastcall FileExitMenuItemClick(TObject *Sender);
void __fastcall ViewToolbarMenuItemClick(TObject *Sender);
......@@ -357,7 +366,6 @@ __published: // IDE-managed Components
void __fastcall CtrlMenuItemEditClick(TObject *Sender);
void __fastcall UpTimerTick(TObject *Sender);
void __fastcall LogTimerTick(TObject *Sender);
void __fastcall BBSViewErrorLogMenuItemClick(TObject *Sender);
void __fastcall ChatToggleExecute(TObject *Sender);
void __fastcall ViewClientsExecute(TObject *Sender);
void __fastcall UserEditExecute(TObject *Sender);
......@@ -406,6 +414,8 @@ __published: // IDE-managed Components
void __fastcall WebConfigureExecute(TObject *Sender);
void __fastcall ViewServicesExecute(TObject *Sender);
void __fastcall SemFileTimerTick(TObject *Sender);
void __fastcall ClearErrorsExecute(TObject *Sender);
void __fastcall ViewErrorLogExecute(TObject *Sender);
void __fastcall ViewLoginAttemptsMenuItemClick(TObject *Sender);
private: // User declarations
public: // User declarations
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment