![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to telnetcfgdlgunit.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 telnetcfgdlgunit.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: TelnetCfgDlgUnit.cpp,v 1.4 2000/11/02 03:42:04 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 "TextFileEditUnit.h"
42: #include "TelnetCfgDlgUnit.h"
43: #include <stdio.h> // sprintf()
44: #include <mmsystem.h> // sndPlaySound()
45: //---------------------------------------------------------------------
46: #pragma resource "*.dfm"
47: TTelnetCfgDlg *TelnetCfgDlg;
48: //---------------------------------------------------------------------
49: __fastcall TTelnetCfgDlg::TTelnetCfgDlg(TComponent* AOwner)
50: : TForm(AOwner)
51: {
52: }
53: //---------------------------------------------------------------------
54: void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
55: {
56: char str[128];
57:
58: if(MainForm->bbs_startup.telnet_interface==0)
59: TelnetInterfaceEdit->Text="<ANY>";
60: else {
61: sprintf(str,"%d.%d.%d.%d"
62: ,(MainForm->bbs_startup.telnet_interface>>24)&0xff
63: ,(MainForm->bbs_startup.telnet_interface>>16)&0xff
64: ,(MainForm->bbs_startup.telnet_interface>>8)&0xff
65: ,MainForm->bbs_startup.telnet_interface&0xff
66: );
67: TelnetInterfaceEdit->Text=AnsiString(str);
68: }
69: if(MainForm->bbs_startup.rlogin_interface==0)
70: RLoginInterfaceEdit->Text="<ANY>";
71: else {
72: sprintf(str,"%d.%d.%d.%d"
73: ,(MainForm->bbs_startup.rlogin_interface>>24)&0xff
74: ,(MainForm->bbs_startup.rlogin_interface>>16)&0xff
75: ,(MainForm->bbs_startup.rlogin_interface>>8)&0xff
76: ,MainForm->bbs_startup.rlogin_interface&0xff
77: );
78: RLoginInterfaceEdit->Text=AnsiString(str);
79: }
80: TelnetPortEdit->Text=AnsiString((int)MainForm->bbs_startup.telnet_port);
81: RLoginPortEdit->Text=AnsiString((int)MainForm->bbs_startup.rlogin_port);
82:
83: FirstNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.first_node);
84: LastNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.last_node);
85: AutoStartCheckBox->Checked=MainForm->SysAutoStart;
86: AnswerSoundEdit->Text=AnsiString(MainForm->bbs_startup.answer_sound);
87: HangupSoundEdit->Text=AnsiString(MainForm->bbs_startup.hangup_sound);
88: CmdLogCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_DEBUG_TELNET;
89: KeepAliveCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_KEEP_ALIVE;
90: XtrnMinCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_XTRN_MINIMIZED;
91: AutoLogonCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_AUTO_LOGON;
92: HostnameCheckBox->Checked
93: =!(MainForm->bbs_startup.options&BBS_OPT_NO_HOST_LOOKUP);
94: RLoginEnabledCheckBox->Checked
95: =MainForm->bbs_startup.options&BBS_OPT_ALLOW_RLOGIN;
96: RLogin2ndNameCheckBox->Checked
97: =MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN;
98:
99: RLoginEnabledCheckBoxClick(Sender);
100: PageControl->ActivePage=GeneralTabSheet;
101: }
102: //---------------------------------------------------------------------------
103:
104: void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
105: {
106: char str[128],*p;
107: DWORD addr;
108:
109: sprintf(str,"%.*s",sizeof(str)-1
110: ,TelnetInterfaceEdit->Text.c_str());
111: p=str;
112: while(*p && *p<=' ') p++;
113: if(*p && isdigit(*p)) {
114: addr=atoi(p)<<24;
115: while(*p && *p!='.') p++;
116: if(*p=='.') p++;
117: addr|=atoi(p)<<16;
118: while(*p && *p!='.') p++;
119: if(*p=='.') p++;
120: addr|=atoi(p)<<8;
121: while(*p && *p!='.') p++;
122: if(*p=='.') p++;
123: addr|=atoi(p);
124: MainForm->bbs_startup.telnet_interface=addr;
125: } else
126: MainForm->bbs_startup.telnet_interface=0;
127:
128: sprintf(str,"%.*s",sizeof(str)-1
129: ,RLoginInterfaceEdit->Text.c_str());
130: p=str;
131: while(*p && *p<=' ') p++;
132: if(*p && isdigit(*p)) {
133: addr=atoi(p)<<24;
134: while(*p && *p!='.') p++;
135: if(*p=='.') p++;
136: addr|=atoi(p)<<16;
137: while(*p && *p!='.') p++;
138: if(*p=='.') p++;
139: addr|=atoi(p)<<8;
140: while(*p && *p!='.') p++;
141: if(*p=='.') p++;
142: addr|=atoi(p);
143: MainForm->bbs_startup.rlogin_interface=addr;
144: } else
145: MainForm->bbs_startup.rlogin_interface=0;
146:
147: MainForm->bbs_startup.telnet_port=TelnetPortEdit->Text.ToIntDef(23);
148: MainForm->bbs_startup.rlogin_port=RLoginPortEdit->Text.ToIntDef(513);
149:
150: MainForm->bbs_startup.first_node=FirstNodeEdit->Text.ToIntDef(1);
151: MainForm->bbs_startup.last_node=LastNodeEdit->Text.ToIntDef(1);
152: MainForm->SysAutoStart=AutoStartCheckBox->Checked;
153: sprintf(MainForm->bbs_startup.answer_sound,"%.*s"
154: ,sizeof(MainForm->bbs_startup.answer_sound)-1
155: ,AnswerSoundEdit->Text.c_str());
156: sprintf(MainForm->bbs_startup.hangup_sound,"%.*s"
157: ,sizeof(MainForm->bbs_startup.hangup_sound)-1
158: ,HangupSoundEdit->Text.c_str());
159: if(KeepAliveCheckBox->Checked==true)
160: MainForm->bbs_startup.options|=BBS_OPT_KEEP_ALIVE;
161: else
162: MainForm->bbs_startup.options&=~BBS_OPT_KEEP_ALIVE;
163: if(XtrnMinCheckBox->Checked==true)
164: MainForm->bbs_startup.options|=BBS_OPT_XTRN_MINIMIZED;
165: else
166: MainForm->bbs_startup.options&=~BBS_OPT_XTRN_MINIMIZED;
167: if(AutoLogonCheckBox->Checked==true)
168: MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON;
169: else
170: MainForm->bbs_startup.options&=~BBS_OPT_AUTO_LOGON;
171: if(CmdLogCheckBox->Checked==true)
172: MainForm->bbs_startup.options|=BBS_OPT_DEBUG_TELNET;
173: else
174: MainForm->bbs_startup.options&=~BBS_OPT_DEBUG_TELNET;
175: if(HostnameCheckBox->Checked==false)
176: MainForm->bbs_startup.options|=BBS_OPT_NO_HOST_LOOKUP;
177: else
178: MainForm->bbs_startup.options&=~BBS_OPT_NO_HOST_LOOKUP;
179: if(RLoginEnabledCheckBox->Checked==true)
180: MainForm->bbs_startup.options|=BBS_OPT_ALLOW_RLOGIN;
181: else
182: MainForm->bbs_startup.options&=~BBS_OPT_ALLOW_RLOGIN;
183: if(RLogin2ndNameCheckBox->Checked==true)
184: MainForm->bbs_startup.options|=BBS_OPT_USE_2ND_RLOGIN;
185: else
186: MainForm->bbs_startup.options&=~BBS_OPT_USE_2ND_RLOGIN;
187:
188: MainForm->SaveSettings(Sender);
189: }
190: //---------------------------------------------------------------------------
191:
192: void __fastcall TTelnetCfgDlg::AnswerSoundButtonClick(TObject *Sender)
193: {
194: OpenDialog->FileName=AnswerSoundEdit->Text;
195: if(OpenDialog->Execute()==true) {
196: AnswerSoundEdit->Text=OpenDialog->FileName;
197: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
198: }
199: }
200: //---------------------------------------------------------------------------
201:
202: void __fastcall TTelnetCfgDlg::HangupSoundButtonClick(TObject *Sender)
203: {
204: OpenDialog->FileName=HangupSoundEdit->Text;
205: if(OpenDialog->Execute()==true) {
206: HangupSoundEdit->Text=OpenDialog->FileName;
207: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
208: }
209: }
210: //---------------------------------------------------------------------------
211:
212: void __fastcall TTelnetCfgDlg::RLoginEnabledCheckBoxClick(TObject *Sender)
213: {
214: RLoginPortEdit->Enabled = RLoginEnabledCheckBox->Checked;
215: RLoginInterfaceEdit->Enabled = RLoginEnabledCheckBox->Checked;
216: RLoginIPallowButton->Enabled = RLoginEnabledCheckBox->Checked;
217: RLogin2ndNameCheckBox->Enabled = RLoginEnabledCheckBox->Checked;
218: }
219: //---------------------------------------------------------------------------
220:
221: void __fastcall TTelnetCfgDlg::RLoginIPallowButtonClick(TObject *Sender)
222: {
223: char filename[MAX_PATH];
224:
225: sprintf(filename,"%sRLOGIN.CAN"
226: ,MainForm->cfg.text_dir);
227: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm);
228: TextFileEditForm->Filename=AnsiString(filename);
229: TextFileEditForm->Caption="Allowed IP addresses for RLogin";
230: TextFileEditForm->ShowModal();
231: delete TextFileEditForm;
232: }
233: //---------------------------------------------------------------------------
234:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.