![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ftpcfgdlgunit.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 ftpcfgdlgunit.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: FtpCfgDlgUnit.cpp,v 1.10 2006/05/10 22:25:43 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 "FtpCfgDlgUnit.h"
42: #include "TextFileEditUnit.h"
43: #include <stdio.h> // sprintf()
44: #include <mmsystem.h> // sndPlaySound()
45: //---------------------------------------------------------------------
46: #pragma resource "*.dfm"
47: TFtpCfgDlg *FtpCfgDlg;
48: //---------------------------------------------------------------------
49: __fastcall TFtpCfgDlg::TFtpCfgDlg(TComponent* AOwner)
50: : TForm(AOwner)
51: {
52: }
53: //---------------------------------------------------------------------
54: void __fastcall TFtpCfgDlg::FormShow(TObject *Sender)
55: {
56: char str[128];
57:
58: if(MainForm->ftp_startup.interface_addr==0)
59: NetworkInterfaceEdit->Text="<ANY>";
60: else {
61: sprintf(str,"%d.%d.%d.%d"
62: ,(MainForm->ftp_startup.interface_addr>>24)&0xff
63: ,(MainForm->ftp_startup.interface_addr>>16)&0xff
64: ,(MainForm->ftp_startup.interface_addr>>8)&0xff
65: ,MainForm->ftp_startup.interface_addr&0xff
66: );
67: NetworkInterfaceEdit->Text=AnsiString(str);
68: }
69: if(MainForm->ftp_startup.pasv_ip_addr==0)
70: PasvIpAddrEdit->Text="<unspecified>";
71: else {
72: sprintf(str,"%d.%d.%d.%d"
73: ,(MainForm->ftp_startup.pasv_ip_addr>>24)&0xff
74: ,(MainForm->ftp_startup.pasv_ip_addr>>16)&0xff
75: ,(MainForm->ftp_startup.pasv_ip_addr>>8)&0xff
76: ,MainForm->ftp_startup.pasv_ip_addr&0xff
77: );
78: PasvIpAddrEdit->Text=AnsiString(str);
79: }
80:
81: MaxClientsEdit->Text=AnsiString((int)MainForm->ftp_startup.max_clients);
82: MaxInactivityEdit->Text=AnsiString((int)MainForm->ftp_startup.max_inactivity);
83: QwkTimeoutEdit->Text=AnsiString((int)MainForm->ftp_startup.qwk_timeout);
84: PortEdit->Text=AnsiString((int)MainForm->ftp_startup.port);
85: AutoStartCheckBox->Checked=MainForm->FtpAutoStart;
86: LogFileCheckBox->Checked=MainForm->FtpLogFile;
87:
88: PasvIpLookupCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_LOOKUP_PASV_IP;
89: PasvPortLowEdit->Text=AnsiString((int)MainForm->ftp_startup.pasv_port_low);
90: PasvPortHighEdit->Text=AnsiString((int)MainForm->ftp_startup.pasv_port_high);
91:
92: IndexFileNameEdit->Text=AnsiString(MainForm->ftp_startup.index_file_name);
93: HtmlFileNameEdit->Text=AnsiString(MainForm->ftp_startup.html_index_file);
94: HtmlJavaScriptEdit->Text=AnsiString(MainForm->ftp_startup.html_index_script);
95: AnswerSoundEdit->Text=AnsiString(MainForm->ftp_startup.answer_sound);
96: HangupSoundEdit->Text=AnsiString(MainForm->ftp_startup.hangup_sound);
97: HackAttemptSoundEdit->Text=AnsiString(MainForm->ftp_startup.hack_sound);
98: CmdLogCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_RX;
99: DebugTxCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_TX;
100: DebugDataCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_DATA;
101: DirFilesCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DIR_FILES;
102: AllowQWKCheckBox->Checked
103: =MainForm->ftp_startup.options&FTP_OPT_ALLOW_QWK;
104: LocalFileSysCheckBox->Checked
105: =!(MainForm->ftp_startup.options&FTP_OPT_NO_LOCAL_FSYS);
106: HostnameCheckBox->Checked
107: =!(MainForm->ftp_startup.options&FTP_OPT_NO_HOST_LOOKUP);
108: AutoIndexCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_INDEX_FILE;
109: AutoIndexCheckBoxClick(Sender);
110: HtmlIndexCheckBox->Checked
111: =MainForm->ftp_startup.options&FTP_OPT_HTML_INDEX_FILE;
112: HtmlIndexCheckBoxClick(Sender);
113: PasvIpLookupCheckBoxClick(Sender);
114:
115: PageControl->ActivePage=GeneralTabSheet;
116: }
117: //---------------------------------------------------------------------------
118:
119: void __fastcall TFtpCfgDlg::OKBtnClick(TObject *Sender)
120: {
121: char str[128],*p;
122: DWORD addr;
123:
124: SAFECOPY(str,NetworkInterfaceEdit->Text.c_str());
125: p=str;
126: while(*p && *p<=' ') p++;
127: if(*p && isdigit(*p)) {
128: addr=atoi(p)<<24;
129: while(*p && *p!='.') p++;
130: if(*p=='.') p++;
131: addr|=atoi(p)<<16;
132: while(*p && *p!='.') p++;
133: if(*p=='.') p++;
134: addr|=atoi(p)<<8;
135: while(*p && *p!='.') p++;
136: if(*p=='.') p++;
137: addr|=atoi(p);
138: MainForm->ftp_startup.interface_addr=addr;
139: } else
140: MainForm->ftp_startup.interface_addr=0;
141: SAFECOPY(str,PasvIpAddrEdit->Text.c_str());
142: p=str;
143: while(*p && *p<=' ') p++;
144: if(*p && isdigit(*p)) {
145: addr=atoi(p)<<24;
146: while(*p && *p!='.') p++;
147: if(*p=='.') p++;
148: addr|=atoi(p)<<16;
149: while(*p && *p!='.') p++;
150: if(*p=='.') p++;
151: addr|=atoi(p)<<8;
152: while(*p && *p!='.') p++;
153: if(*p=='.') p++;
154: addr|=atoi(p);
155: MainForm->ftp_startup.pasv_ip_addr=addr;
156: } else
157: MainForm->ftp_startup.pasv_ip_addr=0;
158:
159: MainForm->ftp_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10);
160: MainForm->ftp_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(300);
161: MainForm->ftp_startup.qwk_timeout=QwkTimeoutEdit->Text.ToIntDef(600);
162: MainForm->ftp_startup.port=PortEdit->Text.ToIntDef(23);
163: MainForm->FtpAutoStart=AutoStartCheckBox->Checked;
164: MainForm->FtpLogFile=LogFileCheckBox->Checked;
165:
166: MainForm->ftp_startup.pasv_port_low=PasvPortLowEdit->Text.ToIntDef(IPPORT_RESERVED);
167: MainForm->ftp_startup.pasv_port_high=PasvPortHighEdit->Text.ToIntDef(0xffff);
168:
169: SAFECOPY(MainForm->ftp_startup.index_file_name
170: ,IndexFileNameEdit->Text.c_str());
171: SAFECOPY(MainForm->ftp_startup.html_index_file
172: ,HtmlFileNameEdit->Text.c_str());
173: SAFECOPY(MainForm->ftp_startup.html_index_script
174: ,HtmlJavaScriptEdit->Text.c_str());
175:
176: SAFECOPY(MainForm->ftp_startup.answer_sound
177: ,AnswerSoundEdit->Text.c_str());
178: SAFECOPY(MainForm->ftp_startup.hangup_sound
179: ,HangupSoundEdit->Text.c_str());
180: SAFECOPY(MainForm->ftp_startup.hack_sound
181: ,HackAttemptSoundEdit->Text.c_str());
182:
183: if(DebugTxCheckBox->Checked==true)
184: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_TX;
185: else
186: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_TX;
187: if(CmdLogCheckBox->Checked==true)
188: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_RX;
189: else
190: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_RX;
191: if(DebugDataCheckBox->Checked==true)
192: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_DATA;
193: else
194: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_DATA;
195: if(HostnameCheckBox->Checked==false)
196: MainForm->ftp_startup.options|=FTP_OPT_NO_HOST_LOOKUP;
197: else
198: MainForm->ftp_startup.options&=~FTP_OPT_NO_HOST_LOOKUP;
199: if(AllowQWKCheckBox->Checked==true)
200: MainForm->ftp_startup.options|=FTP_OPT_ALLOW_QWK;
201: else
202: MainForm->ftp_startup.options&=~FTP_OPT_ALLOW_QWK;
203: if(DirFilesCheckBox->Checked==true)
204: MainForm->ftp_startup.options|=FTP_OPT_DIR_FILES;
205: else
206: MainForm->ftp_startup.options&=~FTP_OPT_DIR_FILES;
207: if(LocalFileSysCheckBox->Checked==false)
208: MainForm->ftp_startup.options|=FTP_OPT_NO_LOCAL_FSYS;
209: else
210: MainForm->ftp_startup.options&=~FTP_OPT_NO_LOCAL_FSYS;
211: if(AutoIndexCheckBox->Checked==true)
212: MainForm->ftp_startup.options|=FTP_OPT_INDEX_FILE;
213: else
214: MainForm->ftp_startup.options&=~FTP_OPT_INDEX_FILE;
215: if(HtmlIndexCheckBox->Checked==true)
216: MainForm->ftp_startup.options|=FTP_OPT_HTML_INDEX_FILE;
217: else
218: MainForm->ftp_startup.options&=~FTP_OPT_HTML_INDEX_FILE;
219: if(PasvIpLookupCheckBox->Checked==true)
220: MainForm->ftp_startup.options|=FTP_OPT_LOOKUP_PASV_IP;
221: else
222: MainForm->ftp_startup.options&=~FTP_OPT_LOOKUP_PASV_IP;
223:
224: MainForm->SaveIniSettings(Sender);
225: }
226: //---------------------------------------------------------------------------
227:
228: void __fastcall TFtpCfgDlg::AnswerSoundButtonClick(TObject *Sender)
229: {
230: OpenDialog->FileName=AnswerSoundEdit->Text;
231: if(OpenDialog->Execute()==true) {
232: AnswerSoundEdit->Text=OpenDialog->FileName;
233: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
234: }
235: }
236: //---------------------------------------------------------------------------
237:
238: void __fastcall TFtpCfgDlg::HangupSoundButtonClick(TObject *Sender)
239: {
240: OpenDialog->FileName=HangupSoundEdit->Text;
241: if(OpenDialog->Execute()==true) {
242: HangupSoundEdit->Text=OpenDialog->FileName;
243: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
244: }
245: }
246: //---------------------------------------------------------------------------
247: void __fastcall TFtpCfgDlg::HackAttemptSoundButtonClick(TObject *Sender)
248: {
249: OpenDialog->FileName=HackAttemptSoundEdit->Text;
250: if(OpenDialog->Execute()==true) {
251: HackAttemptSoundEdit->Text=OpenDialog->FileName;
252: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
253: }
254: }
255: //---------------------------------------------------------------------------
256:
257: void __fastcall TFtpCfgDlg::AutoIndexCheckBoxClick(TObject *Sender)
258: {
259: IndexFileNameEdit->Enabled=AutoIndexCheckBox->Checked;
260: }
261: //---------------------------------------------------------------------------
262:
263:
264: void __fastcall TFtpCfgDlg::HtmlJavaScriptButtonClick(TObject *Sender)
265: {
266: OpenDialog->FileName=HtmlJavaScriptEdit->Text;
267: if(OpenDialog->Execute()==true) {
268: HtmlJavaScriptEdit->Text=OpenDialog->FileName;
269: }
270: }
271: //---------------------------------------------------------------------------
272:
273: void __fastcall TFtpCfgDlg::HtmlIndexCheckBoxClick(TObject *Sender)
274: {
275: HtmlFileNameEdit->Enabled=HtmlIndexCheckBox->Checked;
276: HtmlJavaScriptEdit->Enabled=HtmlIndexCheckBox->Checked;
277: HtmlJavaScriptLabel->Enabled=HtmlIndexCheckBox->Checked;
278: }
279: //---------------------------------------------------------------------------
280:
281: void __fastcall TFtpCfgDlg::PasvIpLookupCheckBoxClick(TObject *Sender)
282: {
283: PasvIpAddrEdit->Enabled = !PasvIpLookupCheckBox->Checked;
284: }
285: //---------------------------------------------------------------------------
286:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.