void __fastcall TMailCfgDlg::SendMailCheckBoxClick(TObject *Sender)
{
bool checked=SendMailCheckBox->Checked;
DeliveryAttemptsEdit->Enabled=checked;
DeliveryAttemptsLabel->Enabled=checked;
RescanFreqEdit->Enabled=checked;
RescanFreqLabel->Enabled=checked;
DNSRadioButton->Enabled=checked;
DNSServerEdit->Enabled=checked;
TcpDnsCheckBox->Enabled=checked;
RelayRadioButton->Enabled=checked;
OutboundSoundEdit->Enabled=checked;
OutboundSoundLabel->Enabled=checked;
OutboundSoundButton->Enabled=checked;
DefCharsetLabel->Enabled=checked;
DefCharsetEdit->Enabled=checked;
DNSRadioButtonClick(Sender);
}
void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
{
char str[128];
if(MainForm->mail_startup.outgoing4.s_addr==0)
NetworkInterfaceEdit->Text="<ANY>";
else {
sprintf(str,"%d.%d.%d.%d"
,(MainForm->mail_startup.outgoing4.s_addr>>24)&0xff
,(MainForm->mail_startup.outgoing4.s_addr>>16)&0xff
,(MainForm->mail_startup.outgoing4.s_addr>>8)&0xff
,MainForm->mail_startup.outgoing4.s_addr&0xff
);
NetworkInterfaceEdit->Text=AnsiString(str);
}
MaxClientsEdit->Text=AnsiString(MainForm->mail_startup.max_clients);
MaxInactivityEdit->Text=AnsiString(MainForm->mail_startup.max_inactivity);
if(MainForm->mail_startup.max_recipients == 0)
MaxRecipientsEdit->Text="N/A";
else
MaxRecipientsEdit->Text=AnsiString(MainForm->mail_startup.max_recipients);
if(MainForm->mail_startup.max_msg_size == 0)
MaxMsgSizeEdit->Text="N/A";
else
MaxMsgSizeEdit->Text=AnsiString(MainForm->mail_startup.max_msg_size);
if(MainForm->mail_startup.max_msgs_waiting == 0)
MaxMsgsWaitingEdit->Text="N/A";
else
MaxMsgsWaitingEdit->Text=AnsiString(MainForm->mail_startup.max_msgs_waiting);
if(MainForm->mail_startup.lines_per_yield == 0)
LinesPerYieldEdit->Text="N/A";
else
LinesPerYieldEdit->Text=AnsiString(MainForm->mail_startup.lines_per_yield);
AutoStartCheckBox->Checked=MainForm->MailAutoStart;
LogFileCheckBox->Checked=MainForm->MailLogFile;
HostnameCheckBox->Checked
=!(MainForm->mail_startup.options&MAIL_OPT_NO_HOST_LOOKUP);
UseSubPortCheckBox->Checked=MainForm->mail_startup.options&MAIL_OPT_USE_SUBMISSION_PORT;
DefCharsetEdit->Text=AnsiString(MainForm->mail_startup.default_charset);
RelayServerEdit->Text=AnsiString(MainForm->mail_startup.relay_server);
RelayAuthNameEdit->Text=AnsiString(MainForm->mail_startup.relay_user);
RelayAuthPassEdit->Text=AnsiString(MainForm->mail_startup.relay_pass);
SMTPPortEdit->Text=AnsiString(MainForm->mail_startup.smtp_port);
SubPortEdit->Text=AnsiString(MainForm->mail_startup.submission_port);
POP3PortEdit->Text=AnsiString(MainForm->mail_startup.pop3_port);
RelayPortEdit->Text=AnsiString(MainForm->mail_startup.relay_port);
if(isalnum(MainForm->mail_startup.dns_server[0]))
DNSServerEdit->Text=AnsiString(MainForm->mail_startup.dns_server);
else
DNSServerEdit->Text="<auto>";
ConnectTimeoutEdit->Text=AnsiString(MainForm->mail_startup.connect_timeout);
InboundSoundEdit->Text=AnsiString(MainForm->mail_startup.inbound_sound);
OutboundSoundEdit->Text=AnsiString(MainForm->mail_startup.outbound_sound);
POP3SoundEdit->Text=AnsiString(MainForm->mail_startup.pop3_sound);
DeliveryAttemptsEdit->Text
=AnsiString(MainForm->mail_startup.max_delivery_attempts);
RescanFreqEdit->Text=AnsiString(MainForm->mail_startup.rescan_frequency);
DefaultUserEdit->Text=AnsiString(MainForm->mail_startup.default_user);
BLSubjectEdit->Text=AnsiString(MainForm->mail_startup.dnsbl_tag);
BLHeaderEdit->Text=AnsiString(MainForm->mail_startup.dnsbl_hdr);
DebugTXCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DEBUG_TX;
DebugRXCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DEBUG_RX_RSP;
DebugHeadersCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DEBUG_RX_HEADER;
NotifyCheckBox->Checked
=!(MainForm->mail_startup.options&MAIL_OPT_NO_NOTIFY);
POP3EnabledCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_ALLOW_POP3;
POP3LogCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DEBUG_POP3;
RelayRadioButton->Checked=MainForm->mail_startup.options
&MAIL_OPT_RELAY_TX;
RelayAuthPlainRadioButton->Checked=MainForm->mail_startup.options
&MAIL_OPT_RELAY_AUTH_PLAIN;
RelayAuthLoginRadioButton->Checked=MainForm->mail_startup.options
&MAIL_OPT_RELAY_AUTH_LOGIN;
RelayAuthCramMD5RadioButton->Checked=MainForm->mail_startup.options
&MAIL_OPT_RELAY_AUTH_CRAM_MD5;
#if 0 /* this is a stupid option */
UserNumberCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_ALLOW_RX_BY_NUMBER;
#endif
AllowRelayCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_ALLOW_RELAY;
AuthViaIpCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_SMTP_AUTH_VIA_IP;
if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_REFUSE)
BLRefuseRadioButton->Checked=true;
else if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_BADUSER)
BLBadUserRadioButton->Checked=true;
else if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_IGNORE)
BLIgnoreRadioButton->Checked=true;
else
BLTagRadioButton->Checked=true;
DNSBLSpamHashCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DNSBL_SPAMHASH;
TcpDnsCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_USE_TCP_DNS;
SendMailCheckBox->Checked=
!(MainForm->mail_startup.options&MAIL_OPT_NO_SENDMAIL);
int i=0;
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_SEND_INTRANSIT);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_DEBUG_RX_BODY);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_ALLOW_RX_BY_NUMBER);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_ALLOW_SYSOP_ALIASES);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_DNSBL_CHKRECVHDRS);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_DNSBL_THROTTLE);
AdvancedCheckListBox->Checked[i++]
=!(MainForm->mail_startup.options&MAIL_OPT_NO_AUTO_EXEMPT);
DNSBLRadioButtonClick(Sender);
DNSRadioButtonClick(Sender);
POP3EnabledCheckBoxClick(Sender);
SendMailCheckBoxClick(Sender);
AllowRelayCheckBoxClick(Sender);
RelayAuthRadioButtonClick(Sender);
UseSubPortCheckBoxClick(Sender);
PageControl->ActivePage=GeneralTabSheet;
}
