![[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 / sbbs3 / ctrl|
Return to mailcfgdlgunit.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 / ctrl |
1.1 root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
2:
3: /* $Id: MailCfgDlgUnit.cpp,v 1.5 2000/11/17 04:31:18 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 2000 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 <stdio.h> // sprintf()
43: #include <mmsystem.h> // sndPlaySound()
44: //---------------------------------------------------------------------
45: #pragma resource "*.dfm"
46: TMailCfgDlg *MailCfgDlg;
47: //---------------------------------------------------------------------
48: __fastcall TMailCfgDlg::TMailCfgDlg(TComponent* AOwner)
49: : TForm(AOwner)
50: {
51: }
52: //---------------------------------------------------------------------
53: void __fastcall TMailCfgDlg::InboundSoundButtonClick(TObject *Sender)
54: {
55: OpenDialog->FileName=InboundSoundEdit->Text;
56: if(OpenDialog->Execute()==true) {
57: InboundSoundEdit->Text=OpenDialog->FileName;
58: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
59: }
60: }
61: //---------------------------------------------------------------------------
62:
63: void __fastcall TMailCfgDlg::OutboundSoundButtonClick(TObject *Sender)
64: {
65: OpenDialog->FileName=OutboundSoundEdit->Text;
66: if(OpenDialog->Execute()==true) {
67: OutboundSoundEdit->Text=OpenDialog->FileName;
68: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
69: }
70: }
71: //---------------------------------------------------------------------------
72:
73: void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
74: {
75: char str[128];
76:
77: if(MainForm->mail_startup.interface_addr==0)
78: NetworkInterfaceEdit->Text="<ANY>";
79: else {
80: sprintf(str,"%d.%d.%d.%d"
81: ,(MainForm->mail_startup.interface_addr>>24)&0xff
82: ,(MainForm->mail_startup.interface_addr>>16)&0xff
83: ,(MainForm->mail_startup.interface_addr>>8)&0xff
84: ,MainForm->mail_startup.interface_addr&0xff
85: );
86: NetworkInterfaceEdit->Text=AnsiString(str);
87: }
88: MaxClientsEdit->Text=AnsiString(MainForm->mail_startup.max_clients);
89: MaxInactivityEdit->Text=AnsiString(MainForm->mail_startup.max_inactivity);
90:
91: AutoStartCheckBox->Checked=MainForm->MailAutoStart;
92: LogFileCheckBox->Checked=MainForm->MailLogFile;
93: HostnameCheckBox->Checked
94: =!(MainForm->mail_startup.options&MAIL_OPT_NO_HOST_LOOKUP);
95:
96: RelayServerEdit->Text=AnsiString(MainForm->mail_startup.relay_server);
97: SMTPPortEdit->Text=AnsiString(MainForm->mail_startup.smtp_port);
98: POP3PortEdit->Text=AnsiString(MainForm->mail_startup.pop3_port);
99: RelayPortEdit->Text=AnsiString(MainForm->mail_startup.relay_port);
100: DNSServerEdit->Text=AnsiString(MainForm->mail_startup.dns_server);
101: InboundSoundEdit->Text=AnsiString(MainForm->mail_startup.inbound_sound);
102: OutboundSoundEdit->Text=AnsiString(MainForm->mail_startup.outbound_sound);
103: DeliveryAttemptsEdit->Text
104: =AnsiString(MainForm->mail_startup.max_delivery_attempts);
105: RescanFreqEdit->Text=AnsiString(MainForm->mail_startup.rescan_frequency);
106:
107: DebugTXCheckBox->Checked=MainForm->mail_startup.options
108: &MAIL_OPT_DEBUG_TX;
109: DebugHeadersCheckBox->Checked=MainForm->mail_startup.options
110: &MAIL_OPT_DEBUG_RX_HEADER;
111: POP3EnabledCheckBox->Checked=MainForm->mail_startup.options
112: &MAIL_OPT_ALLOW_POP3;
113: POP3LogCheckBox->Checked=MainForm->mail_startup.options
114: &MAIL_OPT_DEBUG_POP3;
115: RelayRadioButton->Checked=MainForm->mail_startup.options
116: &MAIL_OPT_RELAY_TX;
117: UserNumberCheckBox->Checked=MainForm->mail_startup.options
118: &MAIL_OPT_ALLOW_RX_BY_NUMBER;
119: RBLCheckBox->Checked=MainForm->mail_startup.options
120: &MAIL_OPT_USE_RBL;
121: DULCheckBox->Checked=MainForm->mail_startup.options
122: &MAIL_OPT_USE_DUL;
123: RSSCheckBox->Checked=MainForm->mail_startup.options
124: &MAIL_OPT_USE_RSS;
125: TcpDnsCheckBox->Checked=MainForm->mail_startup.options
126: &MAIL_OPT_USE_TCP_DNS;
127: SendMailCheckBox->Checked=
128: !(MainForm->mail_startup.options&MAIL_OPT_NO_SENDMAIL);
129:
130: DNSRadioButtonClick(Sender);
131: POP3EnabledCheckBoxClick(Sender);
132: SendMailCheckBoxClick(Sender);
133: PageControl->ActivePage=GeneralTabSheet;
134: }
135: //---------------------------------------------------------------------------
136:
137: void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
138: {
139: char str[128],*p;
140: DWORD addr;
141:
142: sprintf(str,"%.*s",sizeof(str)-1
143: ,NetworkInterfaceEdit->Text.c_str());
144: p=str;
145: while(*p && *p<=' ') p++;
146: if(*p && isdigit(*p)) {
147: addr=atoi(p)<<24;
148: while(*p && *p!='.') p++;
149: if(*p=='.') p++;
150: addr|=atoi(p)<<16;
151: while(*p && *p!='.') p++;
152: if(*p=='.') p++;
153: addr|=atoi(p)<<8;
154: while(*p && *p!='.') p++;
155: if(*p=='.') p++;
156: addr|=atoi(p);
157: MainForm->mail_startup.interface_addr=addr;
158: } else
159: MainForm->mail_startup.interface_addr=0;
160:
161: MainForm->mail_startup.smtp_port=SMTPPortEdit->Text.ToIntDef(25);
162: MainForm->mail_startup.pop3_port=POP3PortEdit->Text.ToIntDef(110);
163: MainForm->mail_startup.relay_port=RelayPortEdit->Text.ToIntDef(25);
164: MainForm->mail_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10);
165: MainForm->mail_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(120);
166: MainForm->mail_startup.max_delivery_attempts
167: =DeliveryAttemptsEdit->Text.ToIntDef(10);
168: MainForm->mail_startup.rescan_frequency=RescanFreqEdit->Text.ToIntDef(300);
169:
170: sprintf(MainForm->mail_startup.dns_server,"%.*s"
171: ,sizeof(MainForm->mail_startup.dns_server)-1
172: ,DNSServerEdit->Text.c_str());
173: sprintf(MainForm->mail_startup.relay_server,"%.*s"
174: ,sizeof(MainForm->mail_startup.relay_server)-1
175: ,RelayServerEdit->Text.c_str());
176: sprintf(MainForm->mail_startup.inbound_sound,"%.*s"
177: ,sizeof(MainForm->mail_startup.inbound_sound)-1
178: ,InboundSoundEdit->Text.c_str());
179: sprintf(MainForm->mail_startup.outbound_sound,"%.*s"
180: ,sizeof(MainForm->mail_startup.outbound_sound)-1
181: ,OutboundSoundEdit->Text.c_str());
182: sprintf(MainForm->mail_startup.pop3_sound,"%.*s"
183: ,sizeof(MainForm->mail_startup.pop3_sound)-1
184: ,POP3SoundEdit->Text.c_str());
185:
186: if(RelayRadioButton->Checked==true)
187: MainForm->mail_startup.options|=MAIL_OPT_RELAY_TX;
188: else
189: MainForm->mail_startup.options&=~MAIL_OPT_RELAY_TX;
190: if(DebugTXCheckBox->Checked==true)
191: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_TX;
192: else
193: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_TX;
194: if(DebugHeadersCheckBox->Checked==true)
195: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_RX_HEADER;
196: else
197: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_RX_HEADER;
198: if(POP3EnabledCheckBox->Checked==true)
199: MainForm->mail_startup.options|=MAIL_OPT_ALLOW_POP3;
200: else
201: MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_POP3;
202: if(POP3LogCheckBox->Checked==true)
203: MainForm->mail_startup.options|=MAIL_OPT_DEBUG_POP3;
204: else
205: MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_POP3;
206: if(UserNumberCheckBox->Checked==true)
207: MainForm->mail_startup.options|=MAIL_OPT_ALLOW_RX_BY_NUMBER;
208: else
209: MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_RX_BY_NUMBER;
210: if(RBLCheckBox->Checked==true)
211: MainForm->mail_startup.options|=MAIL_OPT_USE_RBL;
212: else
213: MainForm->mail_startup.options&=~MAIL_OPT_USE_RBL;
214: if(DULCheckBox->Checked==true)
215: MainForm->mail_startup.options|=MAIL_OPT_USE_DUL;
216: else
217: MainForm->mail_startup.options&=~MAIL_OPT_USE_DUL;
218: if(RSSCheckBox->Checked==true)
219: MainForm->mail_startup.options|=MAIL_OPT_USE_RSS;
220: else
221: MainForm->mail_startup.options&=~MAIL_OPT_USE_RSS;
222: if(HostnameCheckBox->Checked==false)
223: MainForm->mail_startup.options|=MAIL_OPT_NO_HOST_LOOKUP;
224: else
225: MainForm->mail_startup.options&=~MAIL_OPT_NO_HOST_LOOKUP;
226: if(TcpDnsCheckBox->Checked==true)
227: MainForm->mail_startup.options|=MAIL_OPT_USE_TCP_DNS;
228: else
229: MainForm->mail_startup.options&=~MAIL_OPT_USE_TCP_DNS;
230: if(SendMailCheckBox->Checked==false)
231: MainForm->mail_startup.options|=MAIL_OPT_NO_SENDMAIL;
232: else
233: MainForm->mail_startup.options&=~MAIL_OPT_NO_SENDMAIL;
234:
235: MainForm->MailAutoStart=AutoStartCheckBox->Checked;
236: MainForm->MailLogFile=LogFileCheckBox->Checked;
237:
238: MainForm->SaveSettings(Sender);
239: }
240: //---------------------------------------------------------------------------
241:
242:
243: void __fastcall TMailCfgDlg::POP3SoundButtonClick(TObject *Sender)
244: {
245: OpenDialog->FileName=POP3SoundEdit->Text;
246: if(OpenDialog->Execute()==true) {
247: POP3SoundEdit->Text=OpenDialog->FileName;
248: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
249: }
250: }
251: //---------------------------------------------------------------------------
252:
253: void __fastcall TMailCfgDlg::DNSRadioButtonClick(TObject *Sender)
254: {
255: RelayServerEdit->Enabled=RelayRadioButton->Checked;
256: RelayPortEdit->Enabled=RelayRadioButton->Checked;
257: RelayPortLabel->Enabled=RelayRadioButton->Checked;
258: DNSServerEdit->Enabled=!RelayRadioButton->Checked;
259: TcpDnsCheckBox->Enabled=!RelayRadioButton->Checked;
260: }
261: //---------------------------------------------------------------------------
262:
263: void __fastcall TMailCfgDlg::POP3EnabledCheckBoxClick(TObject *Sender)
264: {
265: POP3PortEdit->Enabled=POP3EnabledCheckBox->Checked;
266: POP3PortLabel->Enabled=POP3EnabledCheckBox->Checked;
267: POP3SoundEdit->Enabled=POP3EnabledCheckBox->Checked;
268: POP3SoundLabel->Enabled=POP3EnabledCheckBox->Checked;
269: POP3SoundButton->Enabled=POP3EnabledCheckBox->Checked;
270: POP3LogCheckBox->Enabled=POP3EnabledCheckBox->Checked;
271: }
272: //---------------------------------------------------------------------------
273:
274:
275: void __fastcall TMailCfgDlg::SendMailCheckBoxClick(TObject *Sender)
276: {
277: bool checked=SendMailCheckBox->Checked;
278:
279: DeliveryAttemptsEdit->Enabled=checked;
280: DeliveryAttemptsLabel->Enabled=checked;
281: RescanFreqEdit->Enabled=checked;
282: RescanFreqLabel->Enabled=checked;
283: DNSRadioButton->Enabled=checked;
284: DNSServerEdit->Enabled=checked;
285: TcpDnsCheckBox->Enabled=checked;
286: RelayRadioButton->Enabled=checked;
287: RelayServerEdit->Enabled=checked;
288: RelayPortEdit->Enabled=checked;
289: RelayPortLabel->Enabled=checked;
290: OutboundSoundEdit->Enabled=checked;
291: OutboundSoundLabel->Enabled=checked;
292: OutboundSoundButton->Enabled=checked;
293:
294: if(checked)
295: DNSRadioButtonClick(Sender);
296: }
297: //---------------------------------------------------------------------------
298:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.