Skip to content
Snippets Groups Projects
Commit eac7a734 authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

Add Max Concurrent Connections setting to mail config dialog

Removed the yield line interval (this is a questionable setting anyway).

Also, made the unlimited max-connections display as "N/A" (instead of
"0") in the Terminal Server config dialog.
parent de9333e7
No related branches found
No related tags found
1 merge request!463MRC mods by Codefenix (2024-10-20)
Pipeline #386 passed
...@@ -95,10 +95,10 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender) ...@@ -95,10 +95,10 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
MaxMsgsWaitingEdit->Text="N/A"; MaxMsgsWaitingEdit->Text="N/A";
else else
MaxMsgsWaitingEdit->Text=AnsiString(MainForm->mail_startup.max_msgs_waiting); MaxMsgsWaitingEdit->Text=AnsiString(MainForm->mail_startup.max_msgs_waiting);
if(MainForm->mail_startup.lines_per_yield == 0) if(MainForm->mail_startup.max_concurrent_connections == 0)
LinesPerYieldEdit->Text="N/A"; MaxConConEdit->Text="N/A";
else else
LinesPerYieldEdit->Text=AnsiString(MainForm->mail_startup.lines_per_yield); MaxConConEdit->Text=AnsiString((int)MainForm->mail_startup.max_concurrent_connections);
AutoStartCheckBox->Checked=MainForm->MailAutoStart; AutoStartCheckBox->Checked=MainForm->MailAutoStart;
LogFileCheckBox->Checked=MainForm->MailLogFile; LogFileCheckBox->Checked=MainForm->MailLogFile;
...@@ -234,7 +234,7 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender) ...@@ -234,7 +234,7 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
MainForm->mail_startup.max_msgs_waiting=MaxMsgsWaitingEdit->Text.ToIntDef(0); MainForm->mail_startup.max_msgs_waiting=MaxMsgsWaitingEdit->Text.ToIntDef(0);
MainForm->mail_startup.max_delivery_attempts=DeliveryAttemptsEdit->Text.ToIntDef(MAIL_DEFAULT_MAX_DELIVERY_ATTEMPTS); MainForm->mail_startup.max_delivery_attempts=DeliveryAttemptsEdit->Text.ToIntDef(MAIL_DEFAULT_MAX_DELIVERY_ATTEMPTS);
MainForm->mail_startup.rescan_frequency=RescanFreqEdit->Text.ToIntDef(MAIL_DEFAULT_RESCAN_FREQUENCY); MainForm->mail_startup.rescan_frequency=RescanFreqEdit->Text.ToIntDef(MAIL_DEFAULT_RESCAN_FREQUENCY);
MainForm->mail_startup.lines_per_yield=LinesPerYieldEdit->Text.ToIntDef(0); MainForm->mail_startup.max_concurrent_connections=MaxConConEdit->Text.ToIntDef(0);
SAFECOPY(MainForm->mail_startup.default_charset SAFECOPY(MainForm->mail_startup.default_charset
,DefCharsetEdit->Text.c_str()); ,DefCharsetEdit->Text.c_str());
......
object MailCfgDlg: TMailCfgDlg object MailCfgDlg: TMailCfgDlg
Left = 1213 Left = 1274
Top = 393 Top = 822
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Mail Server Configuration' Caption = 'Mail Server Configuration'
ClientHeight = 246 ClientHeight = 246
...@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg ...@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg
Top = 3 Top = 3
Width = 278 Width = 278
Height = 199 Height = 199
ActivePage = POP3TabSheet ActivePage = GeneralTabSheet
TabIndex = 2 TabIndex = 0
TabOrder = 3 TabOrder = 3
object GeneralTabSheet: TTabSheet object GeneralTabSheet: TTabSheet
Caption = 'General' Caption = 'General'
...@@ -84,13 +84,13 @@ object MailCfgDlg: TMailCfgDlg ...@@ -84,13 +84,13 @@ object MailCfgDlg: TMailCfgDlg
AutoSize = False AutoSize = False
Caption = 'Max Inactivity' Caption = 'Max Inactivity'
end end
object LinesPerYieldLabel: TLabel object MaxConConLabel: TLabel
Left = 7 Left = 7
Top = 140 Top = 140
Width = 85 Width = 85
Height = 19 Height = 19
AutoSize = False AutoSize = False
Caption = 'Lines Per Yield' Caption = 'Max Con-Conn'
end end
object MaxMsgsLabel: TLabel object MaxMsgsLabel: TLabel
Left = 7 Left = 7
...@@ -178,14 +178,12 @@ object MailCfgDlg: TMailCfgDlg ...@@ -178,14 +178,12 @@ object MailCfgDlg: TMailCfgDlg
ShowHint = True ShowHint = True
TabOrder = 10 TabOrder = 10
end end
object LinesPerYieldEdit: TEdit object MaxConConEdit: TEdit
Left = 92 Left = 92
Top = 140 Top = 140
Width = 39 Width = 39
Height = 21 Height = 21
Hint = Hint = 'Maximum Concurrent Connections from same IP (0=unlimited)'
'Number of lines of message text sent/received between time-slice' +
' yields'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 6 TabOrder = 6
......
...@@ -112,8 +112,8 @@ __published: ...@@ -112,8 +112,8 @@ __published:
TEdit *BLHeaderEdit; TEdit *BLHeaderEdit;
TLabel *BLSubjectLabel; TLabel *BLSubjectLabel;
TLabel *BLHeaderLabel; TLabel *BLHeaderLabel;
TEdit *LinesPerYieldEdit; TEdit *MaxConConEdit;
TLabel *LinesPerYieldLabel; TLabel *MaxConConLabel;
TLabel *MaxRecipientsLabel; TLabel *MaxRecipientsLabel;
TEdit *MaxRecipientsEdit; TEdit *MaxRecipientsEdit;
TButton *DNSBLExemptionsButton; TButton *DNSBLExemptionsButton;
......
...@@ -83,6 +83,9 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender) ...@@ -83,6 +83,9 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
FirstNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.first_node); FirstNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.first_node);
LastNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.last_node); LastNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.last_node);
if(MainForm->bbs_startup.max_concurrent_connections == 0)
MaxConConEdit->Text="N/A";
else
MaxConConEdit->Text=AnsiString((int)MainForm->bbs_startup.max_concurrent_connections); MaxConConEdit->Text=AnsiString((int)MainForm->bbs_startup.max_concurrent_connections);
AutoStartCheckBox->Checked=MainForm->SysAutoStart; AutoStartCheckBox->Checked=MainForm->SysAutoStart;
AnswerSoundEdit->Text=AnsiString(MainForm->bbs_startup.answer_sound); AnswerSoundEdit->Text=AnsiString(MainForm->bbs_startup.answer_sound);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment