![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to webcfgdlgunit.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 webcfgdlgunit.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: WebCfgDlgUnit.cpp,v 1.4 2005/04/26 08:49:35 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 2005 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: ! 38: #include <vcl.h> ! 39: #pragma hdrstop ! 40: ! 41: #include "MainFormUnit.h" ! 42: #include "WebCfgDlgUnit.h" ! 43: #include "TextFileEditUnit.h" ! 44: #include <stdio.h> // sprintf() ! 45: #include <mmsystem.h> // sndPlaySound() ! 46: //--------------------------------------------------------------------------- ! 47: #pragma package(smart_init) ! 48: #pragma resource "*.dfm" ! 49: TWebCfgDlg *WebCfgDlg; ! 50: //--------------------------------------------------------------------------- ! 51: __fastcall TWebCfgDlg::TWebCfgDlg(TComponent* Owner) ! 52: : TForm(Owner) ! 53: { ! 54: } ! 55: //--------------------------------------------------------------------------- ! 56: void __fastcall TWebCfgDlg::FormShow(TObject *Sender) ! 57: { ! 58: char str[128]; ! 59: char** p; ! 60: ! 61: if(MainForm->web_startup.interface_addr==0) ! 62: NetworkInterfaceEdit->Text="<ANY>"; ! 63: else { ! 64: sprintf(str,"%d.%d.%d.%d" ! 65: ,(MainForm->web_startup.interface_addr>>24)&0xff ! 66: ,(MainForm->web_startup.interface_addr>>16)&0xff ! 67: ,(MainForm->web_startup.interface_addr>>8)&0xff ! 68: ,MainForm->web_startup.interface_addr&0xff ! 69: ); ! 70: NetworkInterfaceEdit->Text=AnsiString(str); ! 71: } ! 72: if(MainForm->web_startup.max_clients==0) ! 73: MaxClientsEdit->Text="infinite"; ! 74: else ! 75: MaxClientsEdit->Text=AnsiString((int)MainForm->web_startup.max_clients); ! 76: MaxInactivityEdit->Text=AnsiString((int)MainForm->web_startup.max_inactivity); ! 77: PortEdit->Text=AnsiString((int)MainForm->web_startup.port); ! 78: AutoStartCheckBox->Checked=MainForm->WebAutoStart; ! 79: ! 80: HtmlRootEdit->Text=AnsiString(MainForm->web_startup.root_dir); ! 81: ErrorSubDirEdit->Text=AnsiString(MainForm->web_startup.error_dir); ! 82: CGIDirEdit->Text=AnsiString(MainForm->web_startup.cgi_dir); ! 83: EmbeddedJsExtEdit->Text=AnsiString(MainForm->web_startup.js_ext); ! 84: ServerSideJsExtEdit->Text=AnsiString(MainForm->web_startup.ssjs_ext); ! 85: ! 86: CGIContentEdit->Text=AnsiString(MainForm->web_startup.default_cgi_content); ! 87: CGIMaxInactivityEdit->Text=AnsiString((int)MainForm->web_startup.max_cgi_inactivity); ! 88: ! 89: IndexFileEdit->Text.SetLength(0); ! 90: for(p=MainForm->web_startup.index_file_name;*p;p++) { ! 91: if(p!=MainForm->web_startup.index_file_name) ! 92: IndexFileEdit->Text=IndexFileEdit->Text+","; ! 93: IndexFileEdit->Text=IndexFileEdit->Text+AnsiString(*p); ! 94: } ! 95: ! 96: CGIExtEdit->Text.SetLength(0); ! 97: for(p=MainForm->web_startup.cgi_ext;*p;p++) { ! 98: if(p!=MainForm->web_startup.cgi_ext) ! 99: CGIExtEdit->Text=CGIExtEdit->Text+","; ! 100: CGIExtEdit->Text=CGIExtEdit->Text+AnsiString(*p); ! 101: } ! 102: ! 103: CGICheckBox->Checked=!(MainForm->web_startup.options&WEB_OPT_NO_CGI); ! 104: ! 105: AnswerSoundEdit->Text=AnsiString(MainForm->web_startup.answer_sound); ! 106: HangupSoundEdit->Text=AnsiString(MainForm->web_startup.hangup_sound); ! 107: HackAttemptSoundEdit->Text=AnsiString(MainForm->web_startup.hack_sound); ! 108: ! 109: DebugTxCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_DEBUG_TX; ! 110: DebugRxCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_DEBUG_RX; ! 111: AccessLogCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_HTTP_LOGGING; ! 112: AccessLogCheckBoxClick(Sender); ! 113: ! 114: VirtualHostsCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_VIRTUAL_HOSTS; ! 115: ! 116: HostnameCheckBox->Checked ! 117: =!(MainForm->web_startup.options&BBS_OPT_NO_HOST_LOOKUP); ! 118: ! 119: PageControl->ActivePage=GeneralTabSheet; ! 120: ! 121: CGICheckBoxClick(Sender); ! 122: } ! 123: //--------------------------------------------------------------------------- ! 124: void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender) ! 125: { ! 126: char str[128],*p; ! 127: DWORD addr; ! 128: ! 129: SAFECOPY(str,NetworkInterfaceEdit->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->web_startup.interface_addr=addr; ! 144: } else ! 145: MainForm->web_startup.interface_addr=0; ! 146: MainForm->web_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10); ! 147: MainForm->web_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(300); ! 148: MainForm->web_startup.port=PortEdit->Text.ToIntDef(23); ! 149: MainForm->WebAutoStart=AutoStartCheckBox->Checked; ! 150: ! 151: SAFECOPY(MainForm->web_startup.root_dir ! 152: ,HtmlRootEdit->Text.c_str()); ! 153: SAFECOPY(MainForm->web_startup.error_dir ! 154: ,ErrorSubDirEdit->Text.c_str()); ! 155: SAFECOPY(MainForm->web_startup.cgi_dir ! 156: ,CGIDirEdit->Text.c_str()); ! 157: SAFECOPY(MainForm->web_startup.js_ext ! 158: ,EmbeddedJsExtEdit->Text.c_str()); ! 159: SAFECOPY(MainForm->web_startup.ssjs_ext ! 160: ,ServerSideJsExtEdit->Text.c_str()); ! 161: ! 162: SAFECOPY(MainForm->web_startup.default_cgi_content ! 163: ,CGIContentEdit->Text.c_str()); ! 164: MainForm->web_startup.max_cgi_inactivity ! 165: =CGIMaxInactivityEdit->Text.ToIntDef(120); ! 166: ! 167: strListFree(&MainForm->web_startup.index_file_name); ! 168: strListSplitCopy(&MainForm->web_startup.index_file_name, ! 169: IndexFileEdit->Text.c_str(),","); ! 170: ! 171: strListFree(&MainForm->web_startup.cgi_ext); ! 172: strListSplitCopy(&MainForm->web_startup.cgi_ext, ! 173: CGIExtEdit->Text.c_str(),","); ! 174: ! 175: if(CGICheckBox->Checked==false) ! 176: MainForm->web_startup.options|=WEB_OPT_NO_CGI; ! 177: else ! 178: MainForm->web_startup.options&=~WEB_OPT_NO_CGI; ! 179: ! 180: SAFECOPY(MainForm->web_startup.answer_sound ! 181: ,AnswerSoundEdit->Text.c_str()); ! 182: SAFECOPY(MainForm->web_startup.hangup_sound ! 183: ,HangupSoundEdit->Text.c_str()); ! 184: SAFECOPY(MainForm->web_startup.hack_sound ! 185: ,HackAttemptSoundEdit->Text.c_str()); ! 186: ! 187: if(DebugTxCheckBox->Checked==true) ! 188: MainForm->web_startup.options|=WEB_OPT_DEBUG_TX; ! 189: else ! 190: MainForm->web_startup.options&=~WEB_OPT_DEBUG_TX; ! 191: if(DebugRxCheckBox->Checked==true) ! 192: MainForm->web_startup.options|=WEB_OPT_DEBUG_RX; ! 193: else ! 194: MainForm->web_startup.options&=~WEB_OPT_DEBUG_RX; ! 195: if(AccessLogCheckBox->Checked==true) ! 196: MainForm->web_startup.options|=WEB_OPT_HTTP_LOGGING; ! 197: else ! 198: MainForm->web_startup.options&=~WEB_OPT_HTTP_LOGGING; ! 199: if(HostnameCheckBox->Checked==false) ! 200: MainForm->web_startup.options|=BBS_OPT_NO_HOST_LOOKUP; ! 201: else ! 202: MainForm->web_startup.options&=~BBS_OPT_NO_HOST_LOOKUP; ! 203: if(VirtualHostsCheckBox->Checked==true) ! 204: MainForm->web_startup.options|=WEB_OPT_VIRTUAL_HOSTS; ! 205: else ! 206: MainForm->web_startup.options&=~WEB_OPT_VIRTUAL_HOSTS; ! 207: ! 208: MainForm->SaveIniSettings(Sender); ! 209: } ! 210: //--------------------------------------------------------------------------- ! 211: void __fastcall TWebCfgDlg::AnswerSoundButtonClick(TObject *Sender) ! 212: { ! 213: OpenDialog->FileName=AnswerSoundEdit->Text; ! 214: if(OpenDialog->Execute()==true) { ! 215: AnswerSoundEdit->Text=OpenDialog->FileName; ! 216: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 217: } ! 218: } ! 219: //--------------------------------------------------------------------------- ! 220: void __fastcall TWebCfgDlg::HangupSoundButtonClick(TObject *Sender) ! 221: { ! 222: OpenDialog->FileName=HangupSoundEdit->Text; ! 223: if(OpenDialog->Execute()==true) { ! 224: HangupSoundEdit->Text=OpenDialog->FileName; ! 225: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 226: } ! 227: } ! 228: //--------------------------------------------------------------------------- ! 229: void __fastcall TWebCfgDlg::HackAttemptSoundButtonClick(TObject *Sender) ! 230: { ! 231: OpenDialog->FileName=HackAttemptSoundEdit->Text; ! 232: if(OpenDialog->Execute()==true) { ! 233: HackAttemptSoundEdit->Text=OpenDialog->FileName; ! 234: sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC); ! 235: } ! 236: } ! 237: //--------------------------------------------------------------------------- ! 238: ! 239: void __fastcall TWebCfgDlg::AccessLogCheckBoxClick(TObject *Sender) ! 240: { ! 241: LogBaseLabel->Enabled=AccessLogCheckBox->Checked; ! 242: LogBaseNameEdit->Enabled=AccessLogCheckBox->Checked; ! 243: } ! 244: //--------------------------------------------------------------------------- ! 245: ! 246: void __fastcall TWebCfgDlg::CGIEnvButtonClick(TObject *Sender) ! 247: { ! 248: char path[MAX_PATH+1]; ! 249: ! 250: iniFileName(path,sizeof(path),MainForm->cfg.ctrl_dir,"cgi_env.ini"); ! 251: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 252: TextFileEditForm->Filename=AnsiString(path); ! 253: TextFileEditForm->Caption="CGI Environment Variables"; ! 254: TextFileEditForm->ShowModal(); ! 255: delete TextFileEditForm; ! 256: } ! 257: //--------------------------------------------------------------------------- ! 258: ! 259: void __fastcall TWebCfgDlg::WebHandlersButtonClick(TObject *Sender) ! 260: { ! 261: char path[MAX_PATH+1]; ! 262: ! 263: iniFileName(path,sizeof(path),MainForm->cfg.ctrl_dir,"web_handler.ini"); ! 264: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 265: TextFileEditForm->Filename=AnsiString(path); ! 266: TextFileEditForm->Caption="Web Content Handlers"; ! 267: TextFileEditForm->ShowModal(); ! 268: delete TextFileEditForm; ! 269: } ! 270: //--------------------------------------------------------------------------- ! 271: ! 272: void __fastcall TWebCfgDlg::CGICheckBoxClick(TObject *Sender) ! 273: { ! 274: bool enabled=CGICheckBox->Checked; ! 275: ! 276: CGIDirLabel->Enabled=enabled; ! 277: CGIDirEdit->Enabled=enabled; ! 278: CGIExtLabel->Enabled=enabled; ! 279: CGIExtEdit->Enabled=enabled; ! 280: CGIContentLabel->Enabled=enabled; ! 281: CGIContentEdit->Enabled=enabled; ! 282: CGIMaxInactivityLabel->Enabled=enabled; ! 283: CGIMaxInactivityEdit->Enabled=enabled; ! 284: CGIEnvButton->Enabled=enabled; ! 285: } ! 286: //--------------------------------------------------------------------------- ! 287:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.