![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mailcfgdlgunit.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3 / ctrl|
Return to mailcfgdlgunit.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / ctrl |
1.1 ! root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */ ! 2: ! 3: /* $Id: MailCfgDlgUnit.cpp,v 1.22 2006/12/27 06:30:13 rswindell Exp $ */ ! 4: ! 5: /**************************************************************************** ! 6: * @format.tab-size 4 (Plain Text/Source Code File Header) * ! 7: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * ! 8: * * ! 9: * Copyright 2006 Rob Swindell - http://www.synchro.net/copyright.html * ! 10: * * ! 11: * This program is free software; you can redistribute it and/or * ! 12: * modify it under the terms of the GNU General Public License * ! 13: * as published by the Free Software Foundation; either version 2 * ! 14: * of the License, or (at your option) any later version. * ! 15: * See the GNU General Public License for more details: gpl.txt or * ! 16: * http://www.fsf.org/copyleft/gpl.html * ! 17: * * ! 18: * Anonymous FTP access to the most recent released source is available at * ! 19: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net * ! 20: * * ! 21: * Anonymous CVS access to the development source and modification history * ! 22: * is available at cvs.synchro.net:/cvsroot/sbbs, example: * ! 23: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login * ! 24: * (just hit return, no password is necessary) * ! 25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src * ! 26: * * ! 27: * For Synchronet coding style and modification guidelines, see * ! 28: * http://www.synchro.net/source.html * ! 29: * * ! 30: * You are encouraged to submit any modifications (preferably in Unix diff * ! 31: * format) via e-mail to [email protected] * ! 32: * * ! 33: * Note: If this box doesn't appear square, then you need to fix your tabs. * ! 34: ****************************************************************************/ ! 35: ! 36: //--------------------------------------------------------------------- ! 37: #include <vcl.h> ! 38: #pragma hdrstop ! 39: ! 40: #include "MainFormUnit.h" ! 41: #include "MailCfgDlgUnit.h" ! 42: #include "TextFileEditUnit.h" ! 43: #include <stdio.h> // sprintf() ! 44: #include <mmsystem.h> // sndPlaySound() ! 45: //--------------------------------------------------------------------- ! 46: #pragma resource "*.dfm" ! 47: TMailCfgDlg *MailCfgDlg; ! 48: //--------------------------------------------------------------------- ! 49: __fastcall TMailCfgDlg::TMailCfgDlg(TComponent* AOwner) ! 50: : TForm(AOwner) ! 51: { ! 52: } ! 53: //--------------------------------------------------------------------- ! 54: void __fastcall TMailCfgDlg::InboundSoundButtonClick(TObject *Sender) ! 55: { ! 56: OpenDialog->FileName=InboundSoundEdit->Text; ! 57: if(OpenDialog->Execute()==true) { ! 58: InboundSoundEdit->Text=OpenDialog->FileName; ! 59: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 60: } ! 61: } ! 62: //--------------------------------------------------------------------------- ! 63: ! 64: void __fastcall TMailCfgDlg::OutboundSoundButtonClick(TObject *Sender) ! 65: { ! 66: OpenDialog->FileName=OutboundSoundEdit->Text; ! 67: if(OpenDialog->Execute()==true) { ! 68: OutboundSoundEdit->Text=OpenDialog->FileName; ! 69: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 70: } ! 71: } ! 72: //--------------------------------------------------------------------------- ! 73: ! 74: void __fastcall TMailCfgDlg::FormShow(TObject *Sender) ! 75: { ! 76: char str[128]; ! 77: ! 78: if(MainForm->mail_startup.interface_addr==0) ! 79: NetworkInterfaceEdit->Text="<ANY>"; ! 80: else { ! 81: sprintf(str,"%d.%d.%d.%d" ! 82: ,(MainForm->mail_startup.interface_addr>>24)&0xff ! 83: ,(MainForm->mail_startup.interface_addr>>16)&0xff ! 84: ,(MainForm->mail_startup.interface_addr>>8)&0xff ! 85: ,MainForm->mail_startup.interface_addr&0xff ! 86: ); ! 87: NetworkInterfaceEdit->Text=AnsiString(str); ! 88: } ! 89: MaxClientsEdit->Text=AnsiString(MainForm->mail_startup.max_clients); ! 90: MaxInactivityEdit->Text=AnsiString(MainForm->mail_startup.max_inactivity); ! 91: MaxRecipientsEdit->Text=AnsiString(MainForm->mail_startup.max_recipients); ! 92: MaxMsgSizeEdit->Text=AnsiString(MainForm->mail_startup.max_msg_size); ! 93: LinesPerYieldEdit->Text=AnsiString(MainForm->mail_startup.lines_per_yield); ! 94: ! 95: AutoStartCheckBox->Checked=MainForm->MailAutoStart; ! 96: LogFileCheckBox->Checked=MainForm->MailLogFile; ! 97: HostnameCheckBox->Checked ! 98: =!(MainForm->mail_startup.options&MAIL_OPT_NO_HOST_LOOKUP); ! 99: ! 100: DefCharsetEdit->Text=AnsiString(MainForm->mail_startup.default_charset); ! 101: RelayServerEdit->Text=AnsiString(MainForm->mail_startup.relay_server); ! 102: RelayAuthNameEdit->Text=AnsiString(MainForm->mail_startup.relay_user); ! 103: RelayAuthPassEdit->Text=AnsiString(MainForm->mail_startup.relay_pass); ! 104: SMTPPortEdit->Text=AnsiString(MainForm->mail_startup.smtp_port); ! 105: POP3PortEdit->Text=AnsiString(MainForm->mail_startup.pop3_port); ! 106: RelayPortEdit->Text=AnsiString(MainForm->mail_startup.relay_port); ! 107: if(isalnum(MainForm->mail_startup.dns_server[0])) ! 108: DNSServerEdit->Text=AnsiString(MainForm->mail_startup.dns_server); ! 109: else ! 110: DNSServerEdit->Text="<auto>"; ! 111: InboundSoundEdit->Text=AnsiString(MainForm->mail_startup.inbound_sound); ! 112: OutboundSoundEdit->Text=AnsiString(MainForm->mail_startup.outbound_sound); ! 113: POP3SoundEdit->Text=AnsiString(MainForm->mail_startup.pop3_sound); ! 114: DeliveryAttemptsEdit->Text ! 115: =AnsiString(MainForm->mail_startup.max_delivery_attempts); ! 116: RescanFreqEdit->Text=AnsiString(MainForm->mail_startup.rescan_frequency); ! 117: DefaultUserEdit->Text=AnsiString(MainForm->mail_startup.default_user); ! 118: BLSubjectEdit->Text=AnsiString(MainForm->mail_startup.dnsbl_tag); ! 119: BLHeaderEdit->Text=AnsiString(MainForm->mail_startup.dnsbl_hdr); ! 120: ! 121: DebugTXCheckBox->Checked=MainForm->mail_startup.options ! 122: &MAIL_OPT_DEBUG_TX; ! 123: DebugRXCheckBox->Checked=MainForm->mail_startup.options ! 124: &MAIL_OPT_DEBUG_RX_RSP; ! 125: DebugHeadersCheckBox->Checked=MainForm->mail_startup.options ! 126: &MAIL_OPT_DEBUG_RX_HEADER; ! 127: NotifyCheckBox->Checked ! 128: =!(MainForm->mail_startup.options&MAIL_OPT_NO_NOTIFY); ! 129: POP3EnabledCheckBox->Checked=MainForm->mail_startup.options ! 130: &MAIL_OPT_ALLOW_POP3; ! 131: POP3LogCheckBox->Checked=MainForm->mail_startup.options ! 132: &MAIL_OPT_DEBUG_POP3; ! 133: RelayRadioButton->Checked=MainForm->mail_startup.options ! 134: &MAIL_OPT_RELAY_TX; ! 135: RelayAuthPlainRadioButton->Checked=MainForm->mail_startup.options ! 136: &MAIL_OPT_RELAY_AUTH_PLAIN; ! 137: RelayAuthLoginRadioButton->Checked=MainForm->mail_startup.options ! 138: &MAIL_OPT_RELAY_AUTH_LOGIN; ! 139: RelayAuthCramMD5RadioButton->Checked=MainForm->mail_startup.options ! 140: &MAIL_OPT_RELAY_AUTH_CRAM_MD5; ! 141: ! 142: #if 0 /* this is a stupid option */ ! 143: UserNumberCheckBox->Checked=MainForm->mail_startup.options ! 144: &MAIL_OPT_ALLOW_RX_BY_NUMBER; ! 145: #endif ! 146: AllowRelayCheckBox->Checked=MainForm->mail_startup.options ! 147: &MAIL_OPT_ALLOW_RELAY; ! 148: AuthViaIpCheckBox->Checked=MainForm->mail_startup.options ! 149: &MAIL_OPT_SMTP_AUTH_VIA_IP; ! 150: if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_REFUSE) ! 151: BLRefuseRadioButton->Checked=true; ! 152: else if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_BADUSER) ! 153: BLBadUserRadioButton->Checked=true; ! 154: else if(MainForm->mail_startup.options&MAIL_OPT_DNSBL_IGNORE) ! 155: BLIgnoreRadioButton->Checked=true; ! 156: else ! 157: BLTagRadioButton->Checked=true; ! 158: BLDebugCheckBox->Checked=MainForm->mail_startup.options ! 159: &MAIL_OPT_DNSBL_DEBUG; ! 160: ! 161: TcpDnsCheckBox->Checked=MainForm->mail_startup.options ! 162: &MAIL_OPT_USE_TCP_DNS; ! 163: SendMailCheckBox->Checked= ! 164: !(MainForm->mail_startup.options&MAIL_OPT_NO_SENDMAIL); ! 165: ! 166: int i=0; ! 167: AdvancedCheckListBox->Checked[i++] ! 168: =(MainForm->mail_startup.options&MAIL_OPT_SEND_INTRANSIT); ! 169: AdvancedCheckListBox->Checked[i++] ! 170: =(MainForm->mail_startup.options&MAIL_OPT_DEBUG_RX_BODY); ! 171: AdvancedCheckListBox->Checked[i++] ! 172: =(MainForm->mail_startup.options&MAIL_OPT_ALLOW_RX_BY_NUMBER); ! 173: AdvancedCheckListBox->Checked[i++] ! 174: =(MainForm->mail_startup.options&MAIL_OPT_DNSBL_CHKRECVHDRS); ! 175: AdvancedCheckListBox->Checked[i++] ! 176: =(MainForm->mail_startup.options&MAIL_OPT_DNSBL_THROTTLE); ! 177: ! 178: DNSBLRadioButtonClick(Sender); ! 179: DNSRadioButtonClick(Sender); ! 180: POP3EnabledCheckBoxClick(Sender); ! 181: SendMailCheckBoxClick(Sender); ! 182: AllowRelayCheckBoxClick(Sender); ! 183: RelayAuthRadioButtonClick(Sender); ! 184: PageControl->ActivePage=GeneralTabSheet; ! 185: } ! 186: //--------------------------------------------------------------------------- ! 187: static void setBit(unsigned long* l, long bit, bool yes) ! 188: { ! 189: if(yes) ! 190: *l|=bit; ! 191: else ! 192: *l&=~bit; ! 193: } ! 194: //--------------------------------------------------------------------------- ! 195: void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender) ! 196: { ! 197: char str[128],*p; ! 198: DWORD addr; ! 199: ! 200: SAFECOPY(str,NetworkInterfaceEdit->Text.c_str()); ! 201: p=str; ! 202: while(*p && *p<=' ') p++; ! 203: if(*p && isdigit(*p)) { ! 204: addr=atoi(p)<<24; ! 205: while(*p && *p!='.') p++; ! 206: if(*p=='.') p++; ! 207: addr|=atoi(p)<<16; ! 208: while(*p && *p!='.') p++; ! 209: if(*p=='.') p++; ! 210: addr|=atoi(p)<<8; ! 211: while(*p && *p!='.') p++; ! 212: if(*p=='.') p++; ! 213: addr|=atoi(p); ! 214: MainForm->mail_startup.interface_addr=addr; ! 215: } else ! 216: MainForm->mail_startup.interface_addr=0; ! 217: ! 218: MainForm->mail_startup.smtp_port=SMTPPortEdit->Text.ToIntDef(25); ! 219: MainForm->mail_startup.pop3_port=POP3PortEdit->Text.ToIntDef(110); ! 220: MainForm->mail_startup.relay_port=RelayPortEdit->Text.ToIntDef(25); ! 221: MainForm->mail_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10); ! 222: MainForm->mail_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(120); ! 223: MainForm->mail_startup.max_recipients=MaxRecipientsEdit->Text.ToIntDef(100); ! 224: MainForm->mail_startup.max_msg_size ! 225: =MaxMsgSizeEdit->Text.ToIntDef(MainForm->mail_startup.max_msg_size); ! 226: MainForm->mail_startup.max_delivery_attempts ! 227: =DeliveryAttemptsEdit->Text.ToIntDef(10); ! 228: MainForm->mail_startup.rescan_frequency=RescanFreqEdit->Text.ToIntDef(300); ! 229: MainForm->mail_startup.lines_per_yield=LinesPerYieldEdit->Text.ToIntDef(10); ! 230: ! 231: SAFECOPY(MainForm->mail_startup.default_charset ! 232: ,DefCharsetEdit->Text.c_str()); ! 233: SAFECOPY(MainForm->mail_startup.default_user ! 234: ,DefaultUserEdit->Text.c_str()); ! 235: if(isalnum(*DNSServerEdit->Text.c_str())) ! 236: SAFECOPY(MainForm->mail_startup.dns_server ! 237: ,DNSServerEdit->Text.c_str()); ! 238: else ! 239: MainForm->mail_startup.dns_server[0]=0; ! 240: SAFECOPY(MainForm->mail_startup.relay_server ! 241: ,RelayServerEdit->Text.c_str()); ! 242: SAFECOPY(MainForm->mail_startup.relay_user ! 243: ,RelayAuthNameEdit->Text.c_str()); ! 244: SAFECOPY(MainForm->mail_startup.relay_pass ! 245: ,RelayAuthPassEdit->Text.c_str()); ! 246: SAFECOPY(MainForm->mail_startup.inbound_sound ! 247: ,InboundSoundEdit->Text.c_str()); ! 248: SAFECOPY(MainForm->mail_startup.outbound_sound ! 249: ,OutboundSoundEdit->Text.c_str()); ! 250: SAFECOPY(MainForm->mail_startup.pop3_sound ! 251: ,POP3SoundEdit->Text.c_str()); ! 252: SAFECOPY(MainForm->mail_startup.dnsbl_tag ! 253: ,BLSubjectEdit->Text.c_str()); ! 254: SAFECOPY(MainForm->mail_startup.dnsbl_hdr ! 255: ,BLHeaderEdit->Text.c_str()); ! 256: ! 257: if(RelayRadioButton->Checked==true) ! 258: MainForm->mail_startup.options|=MAIL_OPT_RELAY_TX; ! 259: else ! 260: MainForm->mail_startup.options&=~MAIL_OPT_RELAY_TX; ! 261: MainForm->mail_startup.options&=~(MAIL_OPT_RELAY_AUTH_MASK); ! 262: if(RelayAuthLoginRadioButton->Checked==true) ! 263: MainForm->mail_startup.options|=MAIL_OPT_RELAY_AUTH_LOGIN; ! 264: else if(RelayAuthPlainRadioButton->Checked==true) ! 265: MainForm->mail_startup.options|=MAIL_OPT_RELAY_AUTH_PLAIN; ! 266: else if(RelayAuthCramMD5RadioButton->Checked==true) ! 267: MainForm->mail_startup.options|=MAIL_OPT_RELAY_AUTH_CRAM_MD5; ! 268: if(DebugTXCheckBox->Checked==true) ! 269: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_TX; ! 270: else ! 271: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_TX; ! 272: if(DebugRXCheckBox->Checked==true) ! 273: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_RX_RSP; ! 274: else ! 275: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_RX_RSP; ! 276: if(NotifyCheckBox->Checked==false) ! 277: MainForm->mail_startup.options|=MAIL_OPT_NO_NOTIFY; ! 278: else ! 279: MainForm->mail_startup.options&=~MAIL_OPT_NO_NOTIFY; ! 280: if(DebugHeadersCheckBox->Checked==true) ! 281: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_RX_HEADER; ! 282: else ! 283: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_RX_HEADER; ! 284: if(POP3EnabledCheckBox->Checked==true) ! 285: MainForm->mail_startup.options|=MAIL_OPT_ALLOW_POP3; ! 286: else ! 287: MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_POP3; ! 288: if(POP3LogCheckBox->Checked==true) ! 289: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_POP3; ! 290: else ! 291: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_POP3; ! 292: #if 0 /* this is a stupid option */ ! 293: if(UserNumberCheckBox->Checked==true) ! 294: MainForm->mail_startup.options|=MAIL_OPT_ALLOW_RX_BY_NUMBER; ! 295: else ! 296: MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_RX_BY_NUMBER; ! 297: #endif ! 298: if(AllowRelayCheckBox->Checked==true) ! 299: MainForm->mail_startup.options|=MAIL_OPT_ALLOW_RELAY; ! 300: else ! 301: MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_RELAY; ! 302: if(AuthViaIpCheckBox->Checked==true) ! 303: MainForm->mail_startup.options|=MAIL_OPT_SMTP_AUTH_VIA_IP; ! 304: else ! 305: MainForm->mail_startup.options&=~MAIL_OPT_SMTP_AUTH_VIA_IP; ! 306: ! 307: /* DNSBL */ ! 308: MainForm->mail_startup.options&= ! 309: ~(MAIL_OPT_DNSBL_IGNORE|MAIL_OPT_DNSBL_REFUSE|MAIL_OPT_DNSBL_BADUSER); ! 310: if(BLIgnoreRadioButton->Checked==true) ! 311: MainForm->mail_startup.options|=MAIL_OPT_DNSBL_IGNORE; ! 312: else if(BLRefuseRadioButton->Checked==true) ! 313: MainForm->mail_startup.options|=MAIL_OPT_DNSBL_REFUSE; ! 314: else if(BLBadUserRadioButton->Checked==true) ! 315: MainForm->mail_startup.options|=MAIL_OPT_DNSBL_BADUSER; ! 316: if(BLDebugCheckBox->Checked==true) ! 317: MainForm->mail_startup.options|=MAIL_OPT_DNSBL_DEBUG; ! 318: else ! 319: MainForm->mail_startup.options&=~MAIL_OPT_DNSBL_DEBUG; ! 320: ! 321: if(HostnameCheckBox->Checked==false) ! 322: MainForm->mail_startup.options|=MAIL_OPT_NO_HOST_LOOKUP; ! 323: else ! 324: MainForm->mail_startup.options&=~MAIL_OPT_NO_HOST_LOOKUP; ! 325: if(TcpDnsCheckBox->Checked==true) ! 326: MainForm->mail_startup.options|=MAIL_OPT_USE_TCP_DNS; ! 327: else ! 328: MainForm->mail_startup.options&=~MAIL_OPT_USE_TCP_DNS; ! 329: if(SendMailCheckBox->Checked==false) ! 330: MainForm->mail_startup.options|=MAIL_OPT_NO_SENDMAIL; ! 331: else ! 332: MainForm->mail_startup.options&=~MAIL_OPT_NO_SENDMAIL; ! 333: ! 334: int i=0; ! 335: setBit(&MainForm->mail_startup.options ! 336: ,MAIL_OPT_SEND_INTRANSIT ! 337: ,AdvancedCheckListBox->Checked[i++]); ! 338: setBit(&MainForm->mail_startup.options ! 339: ,MAIL_OPT_DEBUG_RX_BODY ! 340: ,AdvancedCheckListBox->Checked[i++]); ! 341: setBit(&MainForm->mail_startup.options ! 342: ,MAIL_OPT_ALLOW_RX_BY_NUMBER ! 343: ,AdvancedCheckListBox->Checked[i++]); ! 344: setBit(&MainForm->mail_startup.options ! 345: ,MAIL_OPT_DNSBL_CHKRECVHDRS ! 346: ,AdvancedCheckListBox->Checked[i++]); ! 347: setBit(&MainForm->mail_startup.options ! 348: ,MAIL_OPT_DNSBL_THROTTLE ! 349: ,AdvancedCheckListBox->Checked[i++]); ! 350: ! 351: MainForm->MailAutoStart=AutoStartCheckBox->Checked; ! 352: MainForm->MailLogFile=LogFileCheckBox->Checked; ! 353: ! 354: MainForm->SaveIniSettings(Sender); ! 355: } ! 356: //--------------------------------------------------------------------------- ! 357: ! 358: ! 359: void __fastcall TMailCfgDlg::POP3SoundButtonClick(TObject *Sender) ! 360: { ! 361: OpenDialog->FileName=POP3SoundEdit->Text; ! 362: if(OpenDialog->Execute()==true) { ! 363: POP3SoundEdit->Text=OpenDialog->FileName; ! 364: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 365: } ! 366: } ! 367: //--------------------------------------------------------------------------- ! 368: ! 369: void __fastcall TMailCfgDlg::DNSRadioButtonClick(TObject *Sender) ! 370: { ! 371: bool checked = RelayRadioButton->Checked && SendMailCheckBox->Checked; ! 372: RelayTabSheet->TabVisible=checked; ! 373: RelayPortEdit->Enabled=checked; ! 374: RelayPortLabel->Enabled=checked; ! 375: checked = (!RelayRadioButton->Checked) && SendMailCheckBox->Checked; ! 376: DNSServerEdit->Enabled=checked; ! 377: DNSServerLabel->Enabled=checked; ! 378: TcpDnsCheckBox->Enabled=checked; ! 379: } ! 380: //--------------------------------------------------------------------------- ! 381: ! 382: void __fastcall TMailCfgDlg::POP3EnabledCheckBoxClick(TObject *Sender) ! 383: { ! 384: POP3PortEdit->Enabled=POP3EnabledCheckBox->Checked; ! 385: POP3PortLabel->Enabled=POP3EnabledCheckBox->Checked; ! 386: POP3SoundEdit->Enabled=POP3EnabledCheckBox->Checked; ! 387: POP3SoundLabel->Enabled=POP3EnabledCheckBox->Checked; ! 388: POP3SoundButton->Enabled=POP3EnabledCheckBox->Checked; ! 389: POP3LogCheckBox->Enabled=POP3EnabledCheckBox->Checked; ! 390: } ! 391: //--------------------------------------------------------------------------- ! 392: ! 393: ! 394: void __fastcall TMailCfgDlg::SendMailCheckBoxClick(TObject *Sender) ! 395: { ! 396: bool checked=SendMailCheckBox->Checked; ! 397: ! 398: DeliveryAttemptsEdit->Enabled=checked; ! 399: DeliveryAttemptsLabel->Enabled=checked; ! 400: RescanFreqEdit->Enabled=checked; ! 401: RescanFreqLabel->Enabled=checked; ! 402: DNSRadioButton->Enabled=checked; ! 403: DNSServerEdit->Enabled=checked; ! 404: TcpDnsCheckBox->Enabled=checked; ! 405: RelayRadioButton->Enabled=checked; ! 406: OutboundSoundEdit->Enabled=checked; ! 407: OutboundSoundLabel->Enabled=checked; ! 408: OutboundSoundButton->Enabled=checked; ! 409: DefCharsetLabel->Enabled=checked; ! 410: DefCharsetEdit->Enabled=checked; ! 411: ! 412: DNSRadioButtonClick(Sender); ! 413: } ! 414: //--------------------------------------------------------------------------- ! 415: ! 416: ! 417: void __fastcall TMailCfgDlg::DNSBLRadioButtonClick(TObject *Sender) ! 418: { ! 419: BLSubjectEdit->Enabled=BLTagRadioButton->Checked; ! 420: BLHeaderEdit->Enabled=BLTagRadioButton->Checked; ! 421: BLSubjectLabel->Enabled=BLTagRadioButton->Checked; ! 422: BLHeaderLabel->Enabled=BLTagRadioButton->Checked; ! 423: } ! 424: //--------------------------------------------------------------------------- ! 425: ! 426: void __fastcall TMailCfgDlg::DNSBLServersButtonClick(TObject *Sender) ! 427: { ! 428: char filename[MAX_PATH+1]; ! 429: ! 430: sprintf(filename,"%sdns_blacklist.cfg",MainForm->cfg.ctrl_dir); ! 431: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 432: TextFileEditForm->Filename=AnsiString(filename); ! 433: TextFileEditForm->Caption="Services Configuration"; ! 434: TextFileEditForm->ShowModal(); ! 435: delete TextFileEditForm; ! 436: } ! 437: //--------------------------------------------------------------------------- ! 438: ! 439: ! 440: void __fastcall TMailCfgDlg::DNSBLExemptionsButtonClick(TObject *Sender) ! 441: { ! 442: char filename[MAX_PATH+1]; ! 443: ! 444: sprintf(filename,"%sdnsbl_exempt.cfg",MainForm->cfg.ctrl_dir); ! 445: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 446: TextFileEditForm->Filename=AnsiString(filename); ! 447: TextFileEditForm->Caption="Services Configuration"; ! 448: TextFileEditForm->ShowModal(); ! 449: delete TextFileEditForm; ! 450: } ! 451: //--------------------------------------------------------------------------- ! 452: ! 453: void __fastcall TMailCfgDlg::AllowRelayCheckBoxClick(TObject *Sender) ! 454: { ! 455: AuthViaIpCheckBox->Enabled=AllowRelayCheckBox->Checked; ! 456: } ! 457: //--------------------------------------------------------------------------- ! 458: ! 459: void __fastcall TMailCfgDlg::RelayAuthRadioButtonClick(TObject *Sender) ! 460: { ! 461: bool enabled = !RelayAuthNoneRadioButton->Checked; ! 462: ! 463: RelayAuthNameEdit->Enabled=enabled; ! 464: RelayAuthPassEdit->Enabled=enabled; ! 465: RelayAuthNameLabel->Enabled=enabled; ! 466: RelayAuthPassLabel->Enabled=enabled; ! 467: } ! 468: //--------------------------------------------------------------------------- ! 469:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.