![[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 / src / sbbs3 / ctrl|
Return to telnetcfgdlgunit.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: TelnetCfgDlgUnit.cpp,v 1.19 2006/12/29 02:51:56 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 "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: ! 81: if(MainForm->bbs_startup.ssh_interface==0) ! 82: SshInterfaceEdit->Text="<ANY>"; ! 83: else { ! 84: sprintf(str,"%d.%d.%d.%d" ! 85: ,(MainForm->bbs_startup.ssh_interface>>24)&0xff ! 86: ,(MainForm->bbs_startup.ssh_interface>>16)&0xff ! 87: ,(MainForm->bbs_startup.ssh_interface>>8)&0xff ! 88: ,MainForm->bbs_startup.ssh_interface&0xff ! 89: ); ! 90: SshInterfaceEdit->Text=AnsiString(str); ! 91: } ! 92: ! 93: TelnetPortEdit->Text=AnsiString((int)MainForm->bbs_startup.telnet_port); ! 94: RLoginPortEdit->Text=AnsiString((int)MainForm->bbs_startup.rlogin_port); ! 95: SshPortEdit->Text=AnsiString((int)MainForm->bbs_startup.ssh_port); ! 96: ! 97: FirstNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.first_node); ! 98: LastNodeEdit->Text=AnsiString((int)MainForm->bbs_startup.last_node); ! 99: AutoStartCheckBox->Checked=MainForm->SysAutoStart; ! 100: AnswerSoundEdit->Text=AnsiString(MainForm->bbs_startup.answer_sound); ! 101: HangupSoundEdit->Text=AnsiString(MainForm->bbs_startup.hangup_sound); ! 102: CmdLogCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_DEBUG_TELNET; ! 103: TelnetGaCheckBox->Checked ! 104: =!(MainForm->bbs_startup.options&BBS_OPT_NO_TELNET_GA); ! 105: XtrnMinCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_XTRN_MINIMIZED; ! 106: AutoLogonCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_AUTO_LOGON; ! 107: HostnameCheckBox->Checked ! 108: =!(MainForm->bbs_startup.options&BBS_OPT_NO_HOST_LOOKUP); ! 109: IdentityCheckBox->Checked ! 110: =MainForm->bbs_startup.options&BBS_OPT_GET_IDENT; ! 111: ! 112: RLoginEnabledCheckBox->Checked ! 113: =MainForm->bbs_startup.options&BBS_OPT_ALLOW_RLOGIN; ! 114: RLogin2ndNameCheckBox->Checked ! 115: =MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN; ! 116: SshEnabledCheckBox->Checked ! 117: =MainForm->bbs_startup.options&BBS_OPT_ALLOW_SSH; ! 118: ! 119: QWKEventsCheckBox->Checked ! 120: =!(MainForm->bbs_startup.options&BBS_OPT_NO_QWK_EVENTS); ! 121: EventsCheckBox->Checked ! 122: =!(MainForm->bbs_startup.options&BBS_OPT_NO_EVENTS); ! 123: JavaScriptCheckBox->Checked ! 124: =!(MainForm->bbs_startup.options&BBS_OPT_NO_JAVASCRIPT); ! 125: ! 126: RLoginEnabledCheckBoxClick(Sender); ! 127: SshEnabledCheckBoxClick(Sender); ! 128: PageControl->ActivePage=GeneralTabSheet; ! 129: } ! 130: //--------------------------------------------------------------------------- ! 131: ! 132: void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender) ! 133: { ! 134: char str[128],*p; ! 135: DWORD addr; ! 136: ! 137: SAFECOPY(str,TelnetInterfaceEdit->Text.c_str()); ! 138: p=str; ! 139: while(*p && *p<=' ') p++; ! 140: if(*p && isdigit(*p)) { ! 141: addr=atoi(p)<<24; ! 142: while(*p && *p!='.') p++; ! 143: if(*p=='.') p++; ! 144: addr|=atoi(p)<<16; ! 145: while(*p && *p!='.') p++; ! 146: if(*p=='.') p++; ! 147: addr|=atoi(p)<<8; ! 148: while(*p && *p!='.') p++; ! 149: if(*p=='.') p++; ! 150: addr|=atoi(p); ! 151: MainForm->bbs_startup.telnet_interface=addr; ! 152: } else ! 153: MainForm->bbs_startup.telnet_interface=0; ! 154: ! 155: SAFECOPY(str,RLoginInterfaceEdit->Text.c_str()); ! 156: p=str; ! 157: while(*p && *p<=' ') p++; ! 158: if(*p && isdigit(*p)) { ! 159: addr=atoi(p)<<24; ! 160: while(*p && *p!='.') p++; ! 161: if(*p=='.') p++; ! 162: addr|=atoi(p)<<16; ! 163: while(*p && *p!='.') p++; ! 164: if(*p=='.') p++; ! 165: addr|=atoi(p)<<8; ! 166: while(*p && *p!='.') p++; ! 167: if(*p=='.') p++; ! 168: addr|=atoi(p); ! 169: MainForm->bbs_startup.rlogin_interface=addr; ! 170: } else ! 171: MainForm->bbs_startup.rlogin_interface=0; ! 172: ! 173: SAFECOPY(str,SshInterfaceEdit->Text.c_str()); ! 174: p=str; ! 175: while(*p && *p<=' ') p++; ! 176: if(*p && isdigit(*p)) { ! 177: addr=atoi(p)<<24; ! 178: while(*p && *p!='.') p++; ! 179: if(*p=='.') p++; ! 180: addr|=atoi(p)<<16; ! 181: while(*p && *p!='.') p++; ! 182: if(*p=='.') p++; ! 183: addr|=atoi(p)<<8; ! 184: while(*p && *p!='.') p++; ! 185: if(*p=='.') p++; ! 186: addr|=atoi(p); ! 187: MainForm->bbs_startup.ssh_interface=addr; ! 188: } else ! 189: MainForm->bbs_startup.ssh_interface=0; ! 190: ! 191: MainForm->bbs_startup.telnet_port=TelnetPortEdit->Text.ToIntDef(23); ! 192: MainForm->bbs_startup.rlogin_port=RLoginPortEdit->Text.ToIntDef(513); ! 193: MainForm->bbs_startup.ssh_port=SshPortEdit->Text.ToIntDef(22); ! 194: ! 195: MainForm->bbs_startup.first_node=FirstNodeEdit->Text.ToIntDef(1); ! 196: MainForm->bbs_startup.last_node=LastNodeEdit->Text.ToIntDef(1); ! 197: ! 198: MainForm->SysAutoStart=AutoStartCheckBox->Checked; ! 199: SAFECOPY(MainForm->bbs_startup.answer_sound ! 200: ,AnswerSoundEdit->Text.c_str()); ! 201: SAFECOPY(MainForm->bbs_startup.hangup_sound ! 202: ,HangupSoundEdit->Text.c_str()); ! 203: if(TelnetGaCheckBox->Checked==false) ! 204: MainForm->bbs_startup.options|=BBS_OPT_NO_TELNET_GA; ! 205: else ! 206: MainForm->bbs_startup.options&=~BBS_OPT_NO_TELNET_GA; ! 207: if(XtrnMinCheckBox->Checked==true) ! 208: MainForm->bbs_startup.options|=BBS_OPT_XTRN_MINIMIZED; ! 209: else ! 210: MainForm->bbs_startup.options&=~BBS_OPT_XTRN_MINIMIZED; ! 211: if(QWKEventsCheckBox->Checked==true) ! 212: MainForm->bbs_startup.options&=~BBS_OPT_NO_QWK_EVENTS; ! 213: else ! 214: MainForm->bbs_startup.options|=BBS_OPT_NO_QWK_EVENTS; ! 215: if(EventsCheckBox->Checked==true) ! 216: MainForm->bbs_startup.options&=~BBS_OPT_NO_EVENTS; ! 217: else ! 218: MainForm->bbs_startup.options|=BBS_OPT_NO_EVENTS; ! 219: if(JavaScriptCheckBox->Checked==true) ! 220: MainForm->bbs_startup.options&=~BBS_OPT_NO_JAVASCRIPT; ! 221: else ! 222: MainForm->bbs_startup.options|=BBS_OPT_NO_JAVASCRIPT; ! 223: ! 224: if(AutoLogonCheckBox->Checked==true) ! 225: MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON; ! 226: else ! 227: MainForm->bbs_startup.options&=~BBS_OPT_AUTO_LOGON; ! 228: if(CmdLogCheckBox->Checked==true) ! 229: MainForm->bbs_startup.options|=BBS_OPT_DEBUG_TELNET; ! 230: else ! 231: MainForm->bbs_startup.options&=~BBS_OPT_DEBUG_TELNET; ! 232: if(HostnameCheckBox->Checked==false) ! 233: MainForm->bbs_startup.options|=BBS_OPT_NO_HOST_LOOKUP; ! 234: else ! 235: MainForm->bbs_startup.options&=~BBS_OPT_NO_HOST_LOOKUP; ! 236: if(IdentityCheckBox->Checked==true) ! 237: MainForm->bbs_startup.options|=BBS_OPT_GET_IDENT; ! 238: else ! 239: MainForm->bbs_startup.options&=~BBS_OPT_GET_IDENT; ! 240: ! 241: if(RLoginEnabledCheckBox->Checked==true) ! 242: MainForm->bbs_startup.options|=BBS_OPT_ALLOW_RLOGIN; ! 243: else ! 244: MainForm->bbs_startup.options&=~BBS_OPT_ALLOW_RLOGIN; ! 245: if(RLogin2ndNameCheckBox->Checked==true) ! 246: MainForm->bbs_startup.options|=BBS_OPT_USE_2ND_RLOGIN; ! 247: else ! 248: MainForm->bbs_startup.options&=~BBS_OPT_USE_2ND_RLOGIN; ! 249: ! 250: if(SshEnabledCheckBox->Checked==true) ! 251: MainForm->bbs_startup.options|=BBS_OPT_ALLOW_SSH; ! 252: else ! 253: MainForm->bbs_startup.options&=~BBS_OPT_ALLOW_SSH; ! 254: ! 255: MainForm->SaveIniSettings(Sender); ! 256: } ! 257: //--------------------------------------------------------------------------- ! 258: ! 259: void __fastcall TTelnetCfgDlg::AnswerSoundButtonClick(TObject *Sender) ! 260: { ! 261: OpenDialog->FileName=AnswerSoundEdit->Text; ! 262: if(OpenDialog->Execute()==true) { ! 263: AnswerSoundEdit->Text=OpenDialog->FileName; ! 264: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 265: } ! 266: } ! 267: //--------------------------------------------------------------------------- ! 268: ! 269: void __fastcall TTelnetCfgDlg::HangupSoundButtonClick(TObject *Sender) ! 270: { ! 271: OpenDialog->FileName=HangupSoundEdit->Text; ! 272: if(OpenDialog->Execute()==true) { ! 273: HangupSoundEdit->Text=OpenDialog->FileName; ! 274: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 275: } ! 276: } ! 277: //--------------------------------------------------------------------------- ! 278: ! 279: void __fastcall TTelnetCfgDlg::RLoginEnabledCheckBoxClick(TObject *Sender) ! 280: { ! 281: RLoginPortEdit->Enabled = RLoginEnabledCheckBox->Checked; ! 282: RLoginInterfaceEdit->Enabled = RLoginEnabledCheckBox->Checked; ! 283: RLoginIPallowButton->Enabled = RLoginEnabledCheckBox->Checked; ! 284: RLogin2ndNameCheckBox->Enabled = RLoginEnabledCheckBox->Checked; ! 285: RLoginPortLabel->Enabled = RLoginEnabledCheckBox->Checked; ! 286: RLoginInterfaceLabel->Enabled = RLoginEnabledCheckBox->Checked; ! 287: } ! 288: //--------------------------------------------------------------------------- ! 289: ! 290: void __fastcall TTelnetCfgDlg::RLoginIPallowButtonClick(TObject *Sender) ! 291: { ! 292: char filename[MAX_PATH+1]; ! 293: ! 294: sprintf(filename,"%srlogin.cfg" ! 295: ,MainForm->cfg.ctrl_dir); ! 296: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 297: TextFileEditForm->Filename=AnsiString(filename); ! 298: TextFileEditForm->Caption="Allowed IP addresses for RLogin"; ! 299: TextFileEditForm->ShowModal(); ! 300: delete TextFileEditForm; ! 301: } ! 302: //--------------------------------------------------------------------------- ! 303: ! 304: void __fastcall TTelnetCfgDlg::SshEnabledCheckBoxClick(TObject *Sender) ! 305: { ! 306: SshPortEdit->Enabled = SshEnabledCheckBox->Checked; ! 307: SshInterfaceEdit->Enabled = SshEnabledCheckBox->Checked; ! 308: SshPortLabel->Enabled = SshEnabledCheckBox->Checked; ! 309: SshInterfaceLabel->Enabled = SshEnabledCheckBox->Checked; ! 310: } ! 311: //--------------------------------------------------------------------------- ! 312: ! 313:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.