Skip to content
Snippets Groups Projects
Commit 77959c58 authored by rswindell's avatar rswindell
Browse files

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.
parent 971815ac
No related branches found
No related tags found
No related merge requests found
...@@ -256,6 +256,7 @@ void __fastcall TConfigWizard::FormShow(TObject *Sender) ...@@ -256,6 +256,7 @@ void __fastcall TConfigWizard::FormShow(TObject *Sender)
DNSAddressEdit->Text=MainForm->mail_startup.dns_server; DNSAddressEdit->Text=MainForm->mail_startup.dns_server;
MaxMailUpDown->Position=MainForm->mail_startup.max_clients; MaxMailUpDown->Position=MainForm->mail_startup.max_clients;
MaxFtpUpDown->Position=MainForm->ftp_startup.max_clients; MaxFtpUpDown->Position=MainForm->ftp_startup.max_clients;
MaxWebUpDown->Position=MainForm->web_startup.max_clients;
NodesUpDown->Position=scfg.sys_nodes; NodesUpDown->Position=scfg.sys_nodes;
for(i=0;i<sizeof(tz_str)/sizeof(tz_str[0]);i++) { for(i=0;i<sizeof(tz_str)/sizeof(tz_str[0]);i++) {
...@@ -306,9 +307,10 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender) ...@@ -306,9 +307,10 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
MainForm->bbs_startup.last_node=NodesUpDown->Position; MainForm->bbs_startup.last_node=NodesUpDown->Position;
MainForm->ftp_startup.max_clients=MaxFtpUpDown->Position; MainForm->ftp_startup.max_clients=MaxFtpUpDown->Position;
MainForm->mail_startup.max_clients=MaxMailUpDown->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()); strcpy(MainForm->mail_startup.dns_server,DNSAddressEdit->Text.c_str());
MainForm->SaveSettings(Sender); MainForm->SaveIniSettings(Sender);
// Write CNF files // Write CNF files
strcpy(scfg.sys_name,SystemNameEdit->Text.c_str()); strcpy(scfg.sys_name,SystemNameEdit->Text.c_str());
...@@ -352,7 +354,7 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender) ...@@ -352,7 +354,7 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
} }
scfg.new_install=FALSE; scfg.new_install=FALSE;
if(!save_cfg(&scfg,5)) { if(!save_cfg(&scfg,0)) {
Application->MessageBox("Error saving configuration" Application->MessageBox("Error saving configuration"
,"ERROR",MB_OK|MB_ICONEXCLAMATION); ,"ERROR",MB_OK|MB_ICONEXCLAMATION);
} else } else
......
...@@ -557,9 +557,9 @@ object ConfigWizard: TConfigWizard ...@@ -557,9 +557,9 @@ object ConfigWizard: TConfigWizard
OnClick = BackButtonClick OnClick = BackButtonClick
end end
object NextButton: TButton object NextButton: TButton
Left = 393 Left = 392
Top = 327 Top = 327
Width = 88 Width = 89
Height = 31 Height = 31
Caption = '&Next >' Caption = '&Next >'
TabOrder = 1 TabOrder = 1
...@@ -580,6 +580,7 @@ object ConfigWizard: TConfigWizard ...@@ -580,6 +580,7 @@ object ConfigWizard: TConfigWizard
Top = 14 Top = 14
Width = 360 Width = 360
Height = 267 Height = 267
PageIndex = 5
TabOrder = 3 TabOrder = 3
OnPageChanged = WizNotebookPageChanged OnPageChanged = WizNotebookPageChanged
object TPage object TPage
...@@ -764,7 +765,7 @@ object ConfigWizard: TConfigWizard ...@@ -764,7 +765,7 @@ object ConfigWizard: TConfigWizard
Width = 185 Width = 185
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 16
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
...@@ -814,7 +815,7 @@ object ConfigWizard: TConfigWizard ...@@ -814,7 +815,7 @@ object ConfigWizard: TConfigWizard
Top = 40 Top = 40
Width = 241 Width = 241
Height = 24 Height = 24
ItemHeight = 0 ItemHeight = 16
TabOrder = 0 TabOrder = 0
OnChange = VerifyInternetAddresses OnChange = VerifyInternetAddresses
end end
...@@ -915,6 +916,14 @@ object ConfigWizard: TConfigWizard ...@@ -915,6 +916,14 @@ object ConfigWizard: TConfigWizard
AutoSize = False AutoSize = False
Caption = 'Maximum Number of Simultaneous Mail Sessions' Caption = 'Maximum Number of Simultaneous Mail Sessions'
end 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 object NodesEdit: TEdit
Left = 8 Left = 8
Top = 40 Top = 40
...@@ -985,6 +994,26 @@ object ConfigWizard: TConfigWizard ...@@ -985,6 +994,26 @@ object ConfigWizard: TConfigWizard
State = cbChecked State = cbChecked
TabOrder = 6 TabOrder = 6
end 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 end
object TPage object TPage
Left = 0 Left = 0
......
...@@ -84,6 +84,9 @@ __published: // IDE-managed Components ...@@ -84,6 +84,9 @@ __published: // IDE-managed Components
TCheckBox *NewUsersCheckBox; TCheckBox *NewUsersCheckBox;
TRadioButton *DeletedEmailSysopButton; TRadioButton *DeletedEmailSysopButton;
TCheckBox *AliasesCheckBox; TCheckBox *AliasesCheckBox;
TLabel *Label15;
TEdit *MaxWebEdit;
TUpDown *MaxWebUpDown;
void __fastcall NextButtonClick(TObject *Sender); void __fastcall NextButtonClick(TObject *Sender);
void __fastcall CancelButtonClick(TObject *Sender); void __fastcall CancelButtonClick(TObject *Sender);
void __fastcall BackButtonClick(TObject *Sender); void __fastcall BackButtonClick(TObject *Sender);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment