From 77959c58c5fb26e5b5b9f777c10a3d6657dc9bb2 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Thu, 30 Dec 2004 08:11:40 +0000
Subject: [PATCH] Added "Maximum Web Sessions" to configuration wizard. Only
save .ini settings (not registry) when completing config wizard. Don't
back-up any .cnf files when completing config wizard.
---
src/sbbs3/ctrl/ConfigWizardUnit.cpp | 6 +++--
src/sbbs3/ctrl/ConfigWizardUnit.dfm | 37 +++++++++++++++++++++++++----
src/sbbs3/ctrl/ConfigWizardUnit.h | 3 +++
3 files changed, 40 insertions(+), 6 deletions(-)
diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.cpp b/src/sbbs3/ctrl/ConfigWizardUnit.cpp
index 2aa43dc5e3..89d6357329 100644
--- a/src/sbbs3/ctrl/ConfigWizardUnit.cpp
+++ b/src/sbbs3/ctrl/ConfigWizardUnit.cpp
@@ -256,6 +256,7 @@ void __fastcall TConfigWizard::FormShow(TObject *Sender)
DNSAddressEdit->Text=MainForm->mail_startup.dns_server;
MaxMailUpDown->Position=MainForm->mail_startup.max_clients;
MaxFtpUpDown->Position=MainForm->ftp_startup.max_clients;
+ MaxWebUpDown->Position=MainForm->web_startup.max_clients;
NodesUpDown->Position=scfg.sys_nodes;
for(i=0;i<sizeof(tz_str)/sizeof(tz_str[0]);i++) {
@@ -306,9 +307,10 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
MainForm->bbs_startup.last_node=NodesUpDown->Position;
MainForm->ftp_startup.max_clients=MaxFtpUpDown->Position;
MainForm->mail_startup.max_clients=MaxMailUpDown->Position;
+ MainForm->web_startup.max_clients=MaxWebUpDown->Position;
strcpy(MainForm->mail_startup.dns_server,DNSAddressEdit->Text.c_str());
- MainForm->SaveSettings(Sender);
+ MainForm->SaveIniSettings(Sender);
// Write CNF files
strcpy(scfg.sys_name,SystemNameEdit->Text.c_str());
@@ -352,7 +354,7 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
}
scfg.new_install=FALSE;
- if(!save_cfg(&scfg,5)) {
+ if(!save_cfg(&scfg,0)) {
Application->MessageBox("Error saving configuration"
,"ERROR",MB_OK|MB_ICONEXCLAMATION);
} else
diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.dfm b/src/sbbs3/ctrl/ConfigWizardUnit.dfm
index c808789180..d7a454f6f7 100644
--- a/src/sbbs3/ctrl/ConfigWizardUnit.dfm
+++ b/src/sbbs3/ctrl/ConfigWizardUnit.dfm
@@ -557,9 +557,9 @@ object ConfigWizard: TConfigWizard
OnClick = BackButtonClick
end
object NextButton: TButton
- Left = 393
+ Left = 392
Top = 327
- Width = 88
+ Width = 89
Height = 31
Caption = '&Next >'
TabOrder = 1
@@ -580,6 +580,7 @@ object ConfigWizard: TConfigWizard
Top = 14
Width = 360
Height = 267
+ PageIndex = 5
TabOrder = 3
OnPageChanged = WizNotebookPageChanged
object TPage
@@ -764,7 +765,7 @@ object ConfigWizard: TConfigWizard
Width = 185
Height = 24
Style = csDropDownList
- ItemHeight = 0
+ ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 0
@@ -814,7 +815,7 @@ object ConfigWizard: TConfigWizard
Top = 40
Width = 241
Height = 24
- ItemHeight = 0
+ ItemHeight = 16
TabOrder = 0
OnChange = VerifyInternetAddresses
end
@@ -915,6 +916,14 @@ object ConfigWizard: TConfigWizard
AutoSize = False
Caption = 'Maximum Number of Simultaneous Mail Sessions'
end
+ object Label15: TLabel
+ Left = 7
+ Top = 208
+ Width = 345
+ Height = 25
+ AutoSize = False
+ Caption = 'Maximum Number of Simultaneous Web Sessions'
+ end
object NodesEdit: TEdit
Left = 8
Top = 40
@@ -985,6 +994,26 @@ object ConfigWizard: TConfigWizard
State = cbChecked
TabOrder = 6
end
+ object MaxWebEdit: TEdit
+ Left = 8
+ Top = 232
+ Width = 41
+ Height = 24
+ TabOrder = 7
+ Text = '0'
+ end
+ object MaxWebUpDown: TUpDown
+ Left = 49
+ Top = 232
+ Width = 15
+ Height = 24
+ Associate = MaxWebEdit
+ Min = 0
+ Max = 500
+ Position = 0
+ TabOrder = 8
+ Wrap = False
+ end
end
object TPage
Left = 0
diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.h b/src/sbbs3/ctrl/ConfigWizardUnit.h
index cfd1aedc7e..354b1f03a2 100644
--- a/src/sbbs3/ctrl/ConfigWizardUnit.h
+++ b/src/sbbs3/ctrl/ConfigWizardUnit.h
@@ -84,6 +84,9 @@ __published: // IDE-managed Components
TCheckBox *NewUsersCheckBox;
TRadioButton *DeletedEmailSysopButton;
TCheckBox *AliasesCheckBox;
+ TLabel *Label15;
+ TEdit *MaxWebEdit;
+ TUpDown *MaxWebUpDown;
void __fastcall NextButtonClick(TObject *Sender);
void __fastcall CancelButtonClick(TObject *Sender);
void __fastcall BackButtonClick(TObject *Sender);
--
GitLab