![[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 / sbbs3 / ctrl|
Return to ftpcfgdlgunit.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: FtpCfgDlgUnit.cpp,v 1.3 2000/11/02 03:42: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 "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: MaxClientsEdit->Text=AnsiString((int)MainForm->ftp_startup.max_clients); ! 70: MaxInactivityEdit->Text=AnsiString((int)MainForm->ftp_startup.max_inactivity); ! 71: PortEdit->Text=AnsiString((int)MainForm->ftp_startup.port); ! 72: AutoStartCheckBox->Checked=MainForm->FtpAutoStart; ! 73: LogFileCheckBox->Checked=MainForm->FtpLogFile; ! 74: ! 75: IndexFileNameEdit->Text=AnsiString(MainForm->ftp_startup.index_file_name); ! 76: AnswerSoundEdit->Text=AnsiString(MainForm->ftp_startup.answer_sound); ! 77: HangupSoundEdit->Text=AnsiString(MainForm->ftp_startup.hangup_sound); ! 78: CmdLogCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_RX; ! 79: DebugTxCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_TX; ! 80: DebugDataCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_DATA; ! 81: DirFilesCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DIR_FILES; ! 82: AllowQWKCheckBox->Checked ! 83: =MainForm->ftp_startup.options&FTP_OPT_ALLOW_QWK; ! 84: LocalFileSysCheckBox->Checked ! 85: =!(MainForm->ftp_startup.options&FTP_OPT_NO_LOCAL_FSYS); ! 86: HostnameCheckBox->Checked ! 87: =!(MainForm->ftp_startup.options&FTP_OPT_NO_HOST_LOOKUP); ! 88: AutoIndexCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_INDEX_FILE; ! 89: AutoIndexCheckBoxClick(Sender); ! 90: PageControl->ActivePage=GeneralTabSheet; ! 91: } ! 92: //--------------------------------------------------------------------------- ! 93: ! 94: void __fastcall TFtpCfgDlg::OKBtnClick(TObject *Sender) ! 95: { ! 96: char str[128],*p; ! 97: DWORD addr; ! 98: ! 99: sprintf(str,"%.*s",sizeof(str)-1 ! 100: ,NetworkInterfaceEdit->Text.c_str()); ! 101: p=str; ! 102: while(*p && *p<=' ') p++; ! 103: if(*p && isdigit(*p)) { ! 104: addr=atoi(p)<<24; ! 105: while(*p && *p!='.') p++; ! 106: if(*p=='.') p++; ! 107: addr|=atoi(p)<<16; ! 108: while(*p && *p!='.') p++; ! 109: if(*p=='.') p++; ! 110: addr|=atoi(p)<<8; ! 111: while(*p && *p!='.') p++; ! 112: if(*p=='.') p++; ! 113: addr|=atoi(p); ! 114: MainForm->ftp_startup.interface_addr=addr; ! 115: } else ! 116: MainForm->ftp_startup.interface_addr=0; ! 117: MainForm->ftp_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10); ! 118: MainForm->ftp_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(300); ! 119: MainForm->ftp_startup.port=PortEdit->Text.ToIntDef(23); ! 120: MainForm->FtpAutoStart=AutoStartCheckBox->Checked; ! 121: MainForm->FtpLogFile=LogFileCheckBox->Checked; ! 122: ! 123: sprintf(MainForm->ftp_startup.index_file_name,"%.*s" ! 124: ,sizeof(MainForm->ftp_startup.index_file_name)-1 ! 125: ,IndexFileNameEdit->Text.c_str()); ! 126: sprintf(MainForm->ftp_startup.answer_sound,"%.*s" ! 127: ,sizeof(MainForm->ftp_startup.answer_sound)-1 ! 128: ,AnswerSoundEdit->Text.c_str()); ! 129: sprintf(MainForm->ftp_startup.hangup_sound,"%.*s" ! 130: ,sizeof(MainForm->ftp_startup.hangup_sound)-1 ! 131: ,HangupSoundEdit->Text.c_str()); ! 132: if(DebugTxCheckBox->Checked==true) ! 133: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_TX; ! 134: else ! 135: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_TX; ! 136: if(CmdLogCheckBox->Checked==true) ! 137: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_RX; ! 138: else ! 139: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_RX; ! 140: if(DebugDataCheckBox->Checked==true) ! 141: MainForm->ftp_startup.options|=FTP_OPT_DEBUG_DATA; ! 142: else ! 143: MainForm->ftp_startup.options&=~FTP_OPT_DEBUG_DATA; ! 144: if(HostnameCheckBox->Checked==false) ! 145: MainForm->ftp_startup.options|=FTP_OPT_NO_HOST_LOOKUP; ! 146: else ! 147: MainForm->ftp_startup.options&=~FTP_OPT_NO_HOST_LOOKUP; ! 148: if(AllowQWKCheckBox->Checked==true) ! 149: MainForm->ftp_startup.options|=FTP_OPT_ALLOW_QWK; ! 150: else ! 151: MainForm->ftp_startup.options&=~FTP_OPT_ALLOW_QWK; ! 152: if(DirFilesCheckBox->Checked==true) ! 153: MainForm->ftp_startup.options|=FTP_OPT_DIR_FILES; ! 154: else ! 155: MainForm->ftp_startup.options&=~FTP_OPT_DIR_FILES; ! 156: if(LocalFileSysCheckBox->Checked==false) ! 157: MainForm->ftp_startup.options|=FTP_OPT_NO_LOCAL_FSYS; ! 158: else ! 159: MainForm->ftp_startup.options&=~FTP_OPT_NO_LOCAL_FSYS; ! 160: if(AutoIndexCheckBox->Checked==true) ! 161: MainForm->ftp_startup.options|=FTP_OPT_INDEX_FILE; ! 162: else ! 163: MainForm->ftp_startup.options&=~FTP_OPT_INDEX_FILE; ! 164: ! 165: MainForm->SaveSettings(Sender); ! 166: } ! 167: //--------------------------------------------------------------------------- ! 168: ! 169: void __fastcall TFtpCfgDlg::AnswerSoundButtonClick(TObject *Sender) ! 170: { ! 171: OpenDialog->FileName=AnswerSoundEdit->Text; ! 172: if(OpenDialog->Execute()==true) { ! 173: AnswerSoundEdit->Text=OpenDialog->FileName; ! 174: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 175: } ! 176: } ! 177: //--------------------------------------------------------------------------- ! 178: ! 179: void __fastcall TFtpCfgDlg::HangupSoundButtonClick(TObject *Sender) ! 180: { ! 181: OpenDialog->FileName=HangupSoundEdit->Text; ! 182: if(OpenDialog->Execute()==true) { ! 183: HangupSoundEdit->Text=OpenDialog->FileName; ! 184: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 185: } ! 186: } ! 187: //--------------------------------------------------------------------------- ! 188: ! 189: void __fastcall TFtpCfgDlg::AutoIndexCheckBoxClick(TObject *Sender) ! 190: { ! 191: IndexFileNameEdit->Enabled=AutoIndexCheckBox->Checked; ! 192: } ! 193: //--------------------------------------------------------------------------- ! 194: ! 195:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.