![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mainformunit.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 mainformunit.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: MainFormUnit.cpp,v 1.157 2006/09/24 19:45:17 deuce 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 "sbbs.h" // unixtodstr() ! 38: #include <vcl.h> ! 39: #include <vcl/Registry.hpp> /* TRegistry */ ! 40: #pragma hdrstop ! 41: #include <winsock.h> // IPPORT_TELNET, INADDR_ANY ! 42: #include <process.h> // _beginthread() ! 43: #include <io.h> ! 44: #include <stdio.h> ! 45: #include <sys/stat.h> ! 46: #include <sys/locking.h> ! 47: #include <fcntl.h> ! 48: #include <share.h> ! 49: ! 50: #include "MainFormUnit.h" ! 51: #include "TelnetFormUnit.h" ! 52: #include "EventsFormUnit.h" ! 53: #include "ServicesFormUnit.h" ! 54: #include "FtpFormUnit.h" ! 55: #include "WebFormUnit.h" ! 56: #include "MailFormUnit.h" ! 57: #include "NodeFormUnit.h" ! 58: ! 59: #include "StatsFormUnit.h" ! 60: #include "ClientFormUnit.h" ! 61: #include "CtrlPathDialogUnit.h" ! 62: #include "TelnetCfgDlgUnit.h" ! 63: #include "MailCfgDlgUnit.h" ! 64: #include "FtpCfgDlgUnit.h" ! 65: #include "WebCfgDlgUnit.h" ! 66: #include "ServicesCfgDlgUnit.h" ! 67: #include "AboutBoxFormUnit.h" ! 68: #include "CodeInputFormUnit.h" ! 69: #include "TextFileEditUnit.h" ! 70: #include "UserListFormUnit.h" ! 71: #include "PropertiesDlgUnit.h" ! 72: #include "ConfigWizardUnit.h" ! 73: #include "PreviewFormUnit.h" ! 74: ! 75: #include "sbbs_ini.h" // sbbs_read_ini() ! 76: #include "userdat.h" // lastuser() ! 77: #include "ntsvcs.h" // NTSVC_NAME_* ! 78: ! 79: //--------------------------------------------------------------------------- ! 80: #pragma package(smart_init) ! 81: #pragma link "trayicon" ! 82: #pragma link "Trayicon" ! 83: #pragma resource "*.dfm" ! 84: TMainForm *MainForm; ! 85: ! 86: #define LOG_TIME_FMT " m/d hh:mm:ssa/p" ! 87: ! 88: /* Service functions are NT-only, must call dynamically :-( */ ! 89: typedef WINADVAPI SC_HANDLE (WINAPI *OpenSCManager_t)(LPCTSTR,LPCTSTR,DWORD); ! 90: typedef WINADVAPI SC_HANDLE (WINAPI *OpenService_t)(SC_HANDLE,LPCTSTR,DWORD); ! 91: typedef WINADVAPI BOOL (WINAPI *StartService_t)(SC_HANDLE,DWORD,LPCTSTR*); ! 92: typedef WINADVAPI BOOL (WINAPI *ControlService_t)(SC_HANDLE,DWORD,LPSERVICE_STATUS); ! 93: typedef WINADVAPI BOOL (WINAPI *QueryServiceStatus_t)(SC_HANDLE,LPSERVICE_STATUS); ! 94: typedef WINADVAPI BOOL (WINAPI *QueryServiceConfig_t)(SC_HANDLE,LPQUERY_SERVICE_CONFIG,DWORD,LPDWORD); ! 95: typedef WINADVAPI BOOL (WINAPI *CloseServiceHandle_t)(SC_HANDLE); ! 96: ! 97: OpenSCManager_t openSCManager; ! 98: OpenService_t openService; ! 99: StartService_t startService; ! 100: ControlService_t controlService; ! 101: QueryServiceStatus_t queryServiceStatus; ! 102: QueryServiceConfig_t queryServiceConfig; ! 103: CloseServiceHandle_t closeServiceHandle; ! 104: ! 105: SC_HANDLE hSCManager; ! 106: SC_HANDLE bbs_svc; ! 107: SC_HANDLE ftp_svc; ! 108: SC_HANDLE web_svc; ! 109: SC_HANDLE mail_svc; ! 110: SC_HANDLE services_svc; ! 111: SERVICE_STATUS bbs_svc_status; ! 112: SERVICE_STATUS ftp_svc_status; ! 113: SERVICE_STATUS web_svc_status; ! 114: SERVICE_STATUS mail_svc_status; ! 115: SERVICE_STATUS services_svc_status; ! 116: QUERY_SERVICE_CONFIG* bbs_svc_config; ! 117: DWORD bbs_svc_config_size; ! 118: QUERY_SERVICE_CONFIG* ftp_svc_config; ! 119: DWORD ftp_svc_config_size; ! 120: QUERY_SERVICE_CONFIG* web_svc_config; ! 121: DWORD web_svc_config_size; ! 122: QUERY_SERVICE_CONFIG* mail_svc_config; ! 123: DWORD mail_svc_config_size; ! 124: QUERY_SERVICE_CONFIG* services_svc_config; ! 125: DWORD services_svc_config_size; ! 126: ! 127: DWORD MaxLogLen=20000; ! 128: int threads=1; ! 129: time_t initialized=0; ! 130: static str_list_t recycle_semfiles; ! 131: static str_list_t shutdown_semfiles; ! 132: bool terminating=false; ! 133: ! 134: static void thread_up(void* p, BOOL up, BOOL setuid) ! 135: { ! 136: char str[128]; ! 137: static HANDLE mutex; ! 138: ! 139: if(!mutex) ! 140: mutex=CreateMutex(NULL,false,NULL); ! 141: WaitForSingleObject(mutex,INFINITE); ! 142: if(up) ! 143: threads++; ! 144: else if(threads>0) ! 145: threads--; ! 146: sprintf(str,"Threads: %d",threads); ! 147: AnsiString Str=AnsiString(str); ! 148: if(MainForm->StatusBar->Panels->Items[0]->Text!=Str) ! 149: MainForm->StatusBar->Panels->Items[0]->Text=Str; ! 150: ReleaseMutex(mutex); ! 151: } ! 152: ! 153: int sockets=0; ! 154: ! 155: void socket_open(void* p, BOOL open) ! 156: { ! 157: char str[128]; ! 158: static HANDLE mutex; ! 159: ! 160: if(!mutex) ! 161: mutex=CreateMutex(NULL,false,NULL); ! 162: WaitForSingleObject(mutex,INFINITE); ! 163: if(open) ! 164: sockets++; ! 165: else if(sockets>0) ! 166: sockets--; ! 167: sprintf(str,"Sockets: %d",sockets); ! 168: AnsiString Str=AnsiString(str); ! 169: if(MainForm->StatusBar->Panels->Items[1]->Text!=Str) ! 170: MainForm->StatusBar->Panels->Items[1]->Text=Str; ! 171: ReleaseMutex(mutex); ! 172: } ! 173: ! 174: int clients=0; ! 175: int total_clients=0; ! 176: ! 177: static void client_add(void* p, BOOL add) ! 178: { ! 179: char str[128]; ! 180: ! 181: if(add) { ! 182: clients++; ! 183: total_clients++; ! 184: } else if(clients>0) ! 185: clients--; ! 186: sprintf(str,"Clients: %d",clients); ! 187: AnsiString Str=AnsiString(str); ! 188: if(MainForm->StatusBar->Panels->Items[2]->Text!=Str) ! 189: MainForm->StatusBar->Panels->Items[2]->Text=Str; ! 190: ! 191: sprintf(str,"Served: %d",total_clients); ! 192: Str=AnsiString(str); ! 193: if(MainForm->StatusBar->Panels->Items[3]->Text!=Str) ! 194: MainForm->StatusBar->Panels->Items[3]->Text=Str; ! 195: } ! 196: ! 197: static void client_on(void* p, BOOL on, int sock, client_t* client, BOOL update) ! 198: { ! 199: char str[128]; ! 200: int i,j; ! 201: time_t t; ! 202: static HANDLE mutex; ! 203: TListItem* Item; ! 204: ! 205: if(!mutex) ! 206: mutex=CreateMutex(NULL,false,NULL); ! 207: WaitForSingleObject(mutex,INFINITE); ! 208: WaitForSingleObject(ClientForm->ListMutex,INFINITE); ! 209: ! 210: /* Search for exising entry for this socket */ ! 211: for(i=0;i<ClientForm->ListView->Items->Count;i++) { ! 212: if(ClientForm->ListView->Items->Item[i]->Caption.ToIntDef(0)==sock) ! 213: break; ! 214: } ! 215: if(i>=ClientForm->ListView->Items->Count) { ! 216: if(update) { /* Can't update a non-existing entry */ ! 217: ReleaseMutex(mutex); ! 218: ReleaseMutex(ClientForm->ListMutex); ! 219: return; ! 220: } ! 221: i=-1; ! 222: } ! 223: ! 224: if(on) { ! 225: if(!update) ! 226: client_add(NULL, TRUE); ! 227: } else { // Off ! 228: client_add(NULL, FALSE); ! 229: if(i>=0) ! 230: ClientForm->ListView->Items->Delete(i); ! 231: ReleaseMutex(mutex); ! 232: ReleaseMutex(ClientForm->ListMutex); ! 233: return; ! 234: } ! 235: if(client!=NULL && client->size==sizeof(client_t)) { ! 236: if(i>=0) { ! 237: Item=ClientForm->ListView->Items->Item[i]; ! 238: } else { ! 239: Item=ClientForm->ListView->Items->Add(); ! 240: Item->Data=(void*)client->time; ! 241: Item->Caption=sock; ! 242: } ! 243: Item->SubItems->Clear(); ! 244: Item->SubItems->Add(client->protocol); ! 245: Item->SubItems->Add(client->user); ! 246: Item->SubItems->Add(client->addr); ! 247: Item->SubItems->Add(client->host); ! 248: Item->SubItems->Add(client->port); ! 249: t=time(NULL)-(time_t)Item->Data; ! 250: sprintf(str,"%d:%02d",t/60,t%60); ! 251: Item->SubItems->Add(str); ! 252: } ! 253: ReleaseMutex(mutex); ! 254: ReleaseMutex(ClientForm->ListMutex); ! 255: } ! 256: ! 257: static int bbs_lputs(void* p, int level, char *str) ! 258: { ! 259: static HANDLE mutex; ! 260: ! 261: if(!mutex) ! 262: mutex=CreateMutex(NULL,false,NULL); ! 263: WaitForSingleObject(mutex,INFINITE); ! 264: ! 265: while(MaxLogLen && TelnetForm->Log->Text.Length()>=MaxLogLen) ! 266: TelnetForm->Log->Lines->Delete(0); ! 267: ! 268: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 269: Line+=AnsiString(str).Trim(); ! 270: TelnetForm->Log->Lines->Add(Line); ! 271: ReleaseMutex(mutex); ! 272: return(Line.Length()); ! 273: } ! 274: ! 275: static void bbs_status(void* p, char *str) ! 276: { ! 277: static HANDLE mutex; ! 278: ! 279: if(!mutex) ! 280: mutex=CreateMutex(NULL,false,NULL); ! 281: WaitForSingleObject(mutex,INFINITE); ! 282: ! 283: TelnetForm->Status->Caption=AnsiString(str); ! 284: ! 285: ReleaseMutex(mutex); ! 286: } ! 287: ! 288: static void bbs_clients(void* p, int clients) ! 289: { ! 290: static HANDLE mutex; ! 291: static save_clients; ! 292: ! 293: save_clients=clients; ! 294: ! 295: if(!mutex) ! 296: mutex=CreateMutex(NULL,false,NULL); ! 297: WaitForSingleObject(mutex,INFINITE); ! 298: ! 299: TelnetForm->ProgressBar->Max ! 300: =(MainForm->bbs_startup.last_node ! 301: -MainForm->bbs_startup.first_node)+1; ! 302: TelnetForm->ProgressBar->Position=clients; ! 303: ! 304: ReleaseMutex(mutex); ! 305: } ! 306: ! 307: static void bbs_terminated(void* p, int code) ! 308: { ! 309: Screen->Cursor=crDefault; ! 310: MainForm->TelnetStart->Enabled=true; ! 311: MainForm->TelnetStop->Enabled=false; ! 312: MainForm->TelnetRecycle->Enabled=false; ! 313: Application->ProcessMessages(); ! 314: } ! 315: static void bbs_started(void* p) ! 316: { ! 317: Screen->Cursor=crDefault; ! 318: MainForm->TelnetStart->Enabled=false; ! 319: MainForm->TelnetStop->Enabled=true; ! 320: MainForm->TelnetRecycle->Enabled=true; ! 321: Application->ProcessMessages(); ! 322: } ! 323: static void bbs_start(void) ! 324: { ! 325: Screen->Cursor=crAppStart; ! 326: bbs_status(NULL,"Starting"); ! 327: ! 328: FILE* fp=fopen(MainForm->ini_file,"r"); ! 329: sbbs_read_ini(fp ! 330: ,&MainForm->global ! 331: ,NULL ,&MainForm->bbs_startup ! 332: ,NULL ,NULL ! 333: ,NULL ,NULL ! 334: ,NULL ,NULL ! 335: ,NULL ,NULL ! 336: ); ! 337: if(fp!=NULL) ! 338: fclose(fp); ! 339: ! 340: _beginthread((void(*)(void*))bbs_thread,0,&MainForm->bbs_startup); ! 341: Application->ProcessMessages(); ! 342: } ! 343: ! 344: static int event_lputs(int level, char *str) ! 345: { ! 346: static HANDLE mutex; ! 347: ! 348: if(!mutex) ! 349: mutex=CreateMutex(NULL,false,NULL); ! 350: WaitForSingleObject(mutex,INFINITE); ! 351: ! 352: while(MaxLogLen && EventsForm->Log->Text.Length()>=MaxLogLen) ! 353: EventsForm->Log->Lines->Delete(0); ! 354: ! 355: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 356: Line+=AnsiString(str).Trim(); ! 357: EventsForm->Log->Lines->Add(Line); ! 358: ReleaseMutex(mutex); ! 359: return(Line.Length()); ! 360: } ! 361: ! 362: static int service_lputs(void* p, int level, char *str) ! 363: { ! 364: static HANDLE mutex; ! 365: ! 366: if(!mutex) ! 367: mutex=CreateMutex(NULL,false,NULL); ! 368: WaitForSingleObject(mutex,INFINITE); ! 369: ! 370: while(MaxLogLen && ServicesForm->Log->Text.Length()>=MaxLogLen) ! 371: ServicesForm->Log->Lines->Delete(0); ! 372: ! 373: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 374: Line+=AnsiString(str).Trim(); ! 375: ServicesForm->Log->Lines->Add(Line); ! 376: ReleaseMutex(mutex); ! 377: return(Line.Length()); ! 378: } ! 379: ! 380: static void services_status(void* p, char *str) ! 381: { ! 382: static HANDLE mutex; ! 383: ! 384: if(!mutex) ! 385: mutex=CreateMutex(NULL,false,NULL); ! 386: WaitForSingleObject(mutex,INFINITE); ! 387: ! 388: ServicesForm->Status->Caption=AnsiString(str); ! 389: ! 390: ReleaseMutex(mutex); ! 391: } ! 392: ! 393: static void services_terminated(void* p, int code) ! 394: { ! 395: Screen->Cursor=crDefault; ! 396: MainForm->ServicesStart->Enabled=true; ! 397: MainForm->ServicesStop->Enabled=false; ! 398: MainForm->ServicesRecycle->Enabled=false; ! 399: Application->ProcessMessages(); ! 400: } ! 401: static void services_started(void* p) ! 402: { ! 403: Screen->Cursor=crDefault; ! 404: MainForm->ServicesStart->Enabled=false; ! 405: MainForm->ServicesStop->Enabled=true; ! 406: MainForm->ServicesRecycle->Enabled=true; ! 407: Application->ProcessMessages(); ! 408: } ! 409: ! 410: static void services_clients(void* p, int clients) ! 411: { ! 412: } ! 413: ! 414: static int mail_lputs(void* p, int level, char *str) ! 415: { ! 416: static HANDLE mutex; ! 417: static FILE* LogStream; ! 418: ! 419: if(!mutex) ! 420: mutex=CreateMutex(NULL,false,NULL); ! 421: WaitForSingleObject(mutex,INFINITE); ! 422: ! 423: if(str==NULL) { ! 424: if(LogStream!=NULL) ! 425: fclose(LogStream); ! 426: LogStream=NULL; ! 427: ReleaseMutex(mutex); ! 428: return(0); ! 429: } ! 430: ! 431: while(MaxLogLen && MailForm->Log->Text.Length()>=MaxLogLen) ! 432: MailForm->Log->Lines->Delete(0); ! 433: ! 434: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 435: Line+=AnsiString(str).Trim(); ! 436: MailForm->Log->Lines->Add(Line); ! 437: ! 438: if(MainForm->MailLogFile && MainForm->MailStop->Enabled) { ! 439: AnsiString LogFileName ! 440: =AnsiString(MainForm->cfg.data_dir) ! 441: +"LOGS\\MS" ! 442: +Now().FormatString("mmddyy") ! 443: +".LOG"; ! 444: ! 445: if(!FileExists(LogFileName)) { ! 446: if(LogStream!=NULL) { ! 447: fclose(LogStream); ! 448: LogStream=NULL; ! 449: } ! 450: } ! 451: if(LogStream==NULL) ! 452: LogStream=_fsopen(LogFileName.c_str(),"a",SH_DENYNONE); ! 453: ! 454: if(LogStream!=NULL) { ! 455: Line=Now().FormatString("hh:mm:ss")+" "; ! 456: Line+=AnsiString(str).Trim(); ! 457: Line+="\n"; ! 458: fwrite(AnsiString(Line).c_str(),1,Line.Length(),LogStream); ! 459: } ! 460: } ! 461: ! 462: ReleaseMutex(mutex); ! 463: return(Line.Length()); ! 464: } ! 465: ! 466: static void mail_status(void* p, char *str) ! 467: { ! 468: static HANDLE mutex; ! 469: ! 470: if(!mutex) ! 471: mutex=CreateMutex(NULL,false,NULL); ! 472: WaitForSingleObject(mutex,INFINITE); ! 473: ! 474: MailForm->Status->Caption=AnsiString(str); ! 475: ! 476: ReleaseMutex(mutex); ! 477: } ! 478: ! 479: static void mail_clients(void* p, int clients) ! 480: { ! 481: static HANDLE mutex; ! 482: ! 483: if(!mutex) ! 484: mutex=CreateMutex(NULL,false,NULL); ! 485: WaitForSingleObject(mutex,INFINITE); ! 486: ! 487: MailForm->ProgressBar->Max=MainForm->mail_startup.max_clients; ! 488: MailForm->ProgressBar->Position=clients; ! 489: ! 490: ReleaseMutex(mutex); ! 491: } ! 492: ! 493: static void mail_terminated(void* p, int code) ! 494: { ! 495: Screen->Cursor=crDefault; ! 496: MainForm->MailStart->Enabled=true; ! 497: MainForm->MailStop->Enabled=false; ! 498: MainForm->MailRecycle->Enabled=false; ! 499: Application->ProcessMessages(); ! 500: } ! 501: static void mail_started(void* p) ! 502: { ! 503: Screen->Cursor=crDefault; ! 504: MainForm->MailStart->Enabled=false; ! 505: MainForm->MailStop->Enabled=true; ! 506: MainForm->MailRecycle->Enabled=true; ! 507: Application->ProcessMessages(); ! 508: } ! 509: static void mail_start(void) ! 510: { ! 511: Screen->Cursor=crAppStart; ! 512: mail_status(NULL, "Starting"); ! 513: ! 514: FILE* fp=fopen(MainForm->ini_file,"r"); ! 515: sbbs_read_ini(fp ! 516: ,&MainForm->global ! 517: ,NULL ,NULL ! 518: ,NULL ,NULL ! 519: ,NULL ,NULL ! 520: ,NULL ,&MainForm->mail_startup ! 521: ,NULL ,NULL ! 522: ); ! 523: if(fp!=NULL) ! 524: fclose(fp); ! 525: ! 526: _beginthread((void(*)(void*))mail_server,0,&MainForm->mail_startup); ! 527: Application->ProcessMessages(); ! 528: } ! 529: ! 530: static int ftp_lputs(void* p, int level, char *str) ! 531: { ! 532: static HANDLE mutex; ! 533: static FILE* LogStream; ! 534: ! 535: if(!mutex) ! 536: mutex=CreateMutex(NULL,false,NULL); ! 537: WaitForSingleObject(mutex,INFINITE); ! 538: ! 539: if(str==NULL) { ! 540: if(LogStream!=NULL) ! 541: fclose(LogStream); ! 542: LogStream=NULL; ! 543: ReleaseMutex(mutex); ! 544: return(0); ! 545: } ! 546: ! 547: while(MaxLogLen && FtpForm->Log->Text.Length()>=MaxLogLen) ! 548: FtpForm->Log->Lines->Delete(0); ! 549: ! 550: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 551: Line+=AnsiString(str).Trim(); ! 552: FtpForm->Log->Lines->Add(Line); ! 553: ! 554: if(MainForm->FtpLogFile && MainForm->FtpStop->Enabled) { ! 555: AnsiString LogFileName ! 556: =AnsiString(MainForm->cfg.data_dir) ! 557: +"LOGS\\FS" ! 558: +Now().FormatString("mmddyy") ! 559: +".LOG"; ! 560: ! 561: if(!FileExists(LogFileName)) { ! 562: FileClose(FileCreate(LogFileName)); ! 563: if(LogStream!=NULL) { ! 564: fclose(LogStream); ! 565: LogStream=NULL; ! 566: } ! 567: } ! 568: if(LogStream==NULL) ! 569: LogStream=_fsopen(LogFileName.c_str(),"a",SH_DENYNONE); ! 570: ! 571: if(LogStream!=NULL) { ! 572: Line=Now().FormatString("hh:mm:ss")+" "; ! 573: Line+=AnsiString(str).Trim(); ! 574: Line+="\n"; ! 575: fwrite(AnsiString(Line).c_str(),1,Line.Length(),LogStream); ! 576: } ! 577: } ! 578: ! 579: ReleaseMutex(mutex); ! 580: return(Line.Length()); ! 581: } ! 582: ! 583: static void ftp_status(void* p, char *str) ! 584: { ! 585: static HANDLE mutex; ! 586: ! 587: if(!mutex) ! 588: mutex=CreateMutex(NULL,false,NULL); ! 589: WaitForSingleObject(mutex,INFINITE); ! 590: ! 591: FtpForm->Status->Caption=AnsiString(str); ! 592: ! 593: ReleaseMutex(mutex); ! 594: } ! 595: ! 596: static void ftp_clients(void* p, int clients) ! 597: { ! 598: static HANDLE mutex; ! 599: ! 600: if(!mutex) ! 601: mutex=CreateMutex(NULL,false,NULL); ! 602: WaitForSingleObject(mutex,INFINITE); ! 603: ! 604: FtpForm->ProgressBar->Max=MainForm->ftp_startup.max_clients; ! 605: FtpForm->ProgressBar->Position=clients; ! 606: ! 607: ReleaseMutex(mutex); ! 608: } ! 609: ! 610: static void ftp_terminated(void* p, int code) ! 611: { ! 612: Screen->Cursor=crDefault; ! 613: MainForm->FtpStart->Enabled=true; ! 614: MainForm->FtpStop->Enabled=false; ! 615: MainForm->FtpRecycle->Enabled=false; ! 616: Application->ProcessMessages(); ! 617: } ! 618: static void ftp_started(void* p) ! 619: { ! 620: Screen->Cursor=crDefault; ! 621: MainForm->FtpStart->Enabled=false; ! 622: MainForm->FtpStop->Enabled=true; ! 623: MainForm->FtpRecycle->Enabled=true; ! 624: Application->ProcessMessages(); ! 625: } ! 626: static void ftp_start(void) ! 627: { ! 628: Screen->Cursor=crAppStart; ! 629: ftp_status(NULL, "Starting"); ! 630: ! 631: FILE* fp=fopen(MainForm->ini_file,"r"); ! 632: sbbs_read_ini(fp ! 633: ,&MainForm->global ! 634: ,NULL ,NULL ! 635: ,NULL ,&MainForm->ftp_startup ! 636: ,NULL ,NULL ! 637: ,NULL ,NULL ! 638: ,NULL ,NULL ! 639: ); ! 640: if(fp!=NULL) ! 641: fclose(fp); ! 642: ! 643: _beginthread((void(*)(void*))ftp_server,0,&MainForm->ftp_startup); ! 644: Application->ProcessMessages(); ! 645: } ! 646: //--------------------------------------------------------------------------- ! 647: static int web_lputs(void* p, int level, char *str) ! 648: { ! 649: static HANDLE mutex; ! 650: static FILE* LogStream; ! 651: ! 652: if(!mutex) ! 653: mutex=CreateMutex(NULL,false,NULL); ! 654: WaitForSingleObject(mutex,INFINITE); ! 655: ! 656: if(str==NULL) { ! 657: if(LogStream!=NULL) ! 658: fclose(LogStream); ! 659: LogStream=NULL; ! 660: ReleaseMutex(mutex); ! 661: return(0); ! 662: } ! 663: ! 664: while(MaxLogLen && WebForm->Log->Text.Length()>=MaxLogLen) ! 665: WebForm->Log->Lines->Delete(0); ! 666: ! 667: AnsiString Line=Now().FormatString(LOG_TIME_FMT)+" "; ! 668: Line+=AnsiString(str).Trim(); ! 669: WebForm->Log->Lines->Add(Line); ! 670: #if 0 ! 671: if(MainForm->WebLogFile && MainForm->WebStop->Enabled) { ! 672: AnsiString LogFileName ! 673: =AnsiString(MainForm->cfg.data_dir) ! 674: +"LOGS\\FS" ! 675: +Now().FormatString("mmddyy") ! 676: +".LOG"; ! 677: ! 678: if(!FileExists(LogFileName)) { ! 679: FileClose(FileCreate(LogFileName)); ! 680: if(LogStream!=NULL) { ! 681: fclose(LogStream); ! 682: LogStream=NULL; ! 683: } ! 684: } ! 685: if(LogStream==NULL) ! 686: LogStream=_fsopen(LogFileName.c_str(),"a",SH_DENYNONE); ! 687: ! 688: if(LogStream!=NULL) { ! 689: Line=Now().FormatString("hh:mm:ss")+" "; ! 690: Line+=AnsiString(str).Trim(); ! 691: Line+="\n"; ! 692: fwrite(AnsiString(Line).c_str(),1,Line.Length(),LogStream); ! 693: } ! 694: } ! 695: #endif ! 696: ReleaseMutex(mutex); ! 697: return(Line.Length()); ! 698: } ! 699: ! 700: static void web_status(void* p, char *str) ! 701: { ! 702: static HANDLE mutex; ! 703: ! 704: if(!mutex) ! 705: mutex=CreateMutex(NULL,false,NULL); ! 706: WaitForSingleObject(mutex,INFINITE); ! 707: ! 708: WebForm->Status->Caption=AnsiString(str); ! 709: ! 710: ReleaseMutex(mutex); ! 711: } ! 712: ! 713: static void web_clients(void* p, int clients) ! 714: { ! 715: static HANDLE mutex; ! 716: ! 717: if(!mutex) ! 718: mutex=CreateMutex(NULL,false,NULL); ! 719: WaitForSingleObject(mutex,INFINITE); ! 720: ! 721: WebForm->ProgressBar->Max=MainForm->ftp_startup.max_clients; ! 722: WebForm->ProgressBar->Position=clients; ! 723: ! 724: ReleaseMutex(mutex); ! 725: } ! 726: ! 727: static void web_terminated(void* p, int code) ! 728: { ! 729: Screen->Cursor=crDefault; ! 730: MainForm->WebStart->Enabled=true; ! 731: MainForm->WebStop->Enabled=false; ! 732: MainForm->WebRecycle->Enabled=false; ! 733: Application->ProcessMessages(); ! 734: } ! 735: static void web_started(void* p) ! 736: { ! 737: Screen->Cursor=crDefault; ! 738: MainForm->WebStart->Enabled=false; ! 739: MainForm->WebStop->Enabled=true; ! 740: MainForm->WebRecycle->Enabled=true; ! 741: Application->ProcessMessages(); ! 742: } ! 743: static void web_start(void) ! 744: { ! 745: Screen->Cursor=crAppStart; ! 746: web_status(NULL, "Starting"); ! 747: ! 748: FILE* fp=fopen(MainForm->ini_file,"r"); ! 749: sbbs_read_ini(fp ! 750: ,&MainForm->global ! 751: ,NULL ,NULL ! 752: ,NULL ,NULL ! 753: ,NULL ,&MainForm->web_startup ! 754: ,NULL ,NULL ! 755: ,NULL ,NULL ! 756: ); ! 757: if(fp!=NULL) ! 758: fclose(fp); ! 759: ! 760: _beginthread((void(*)(void*))web_server,0,&MainForm->web_startup); ! 761: Application->ProcessMessages(); ! 762: } ! 763: //--------------------------------------------------------------------------- ! 764: /* Server recycle callback (read relevant startup .ini file section) */ ! 765: static void recycle(void* cbdata) ! 766: { ! 767: char str[MAX_PATH*2]; ! 768: FILE* fp=NULL; ! 769: bbs_startup_t* bbs=NULL; ! 770: ftp_startup_t* ftp=NULL; ! 771: web_startup_t* web=NULL; ! 772: mail_startup_t* mail=NULL; ! 773: services_startup_t* services=NULL; ! 774: ! 775: SAFEPRINTF(str,"Reading %s",MainForm->ini_file); ! 776: if(cbdata==(void*)&MainForm->bbs_startup) { ! 777: bbs=&MainForm->bbs_startup; ! 778: bbs_lputs(cbdata,LOG_INFO,str); ! 779: } else if(cbdata==(void*)&MainForm->ftp_startup) { ! 780: ftp=&MainForm->ftp_startup; ! 781: ftp_lputs(cbdata,LOG_INFO,str); ! 782: } else if(cbdata==(void*)&MainForm->web_startup) { ! 783: web=&MainForm->web_startup; ! 784: web_lputs(cbdata,LOG_INFO,str); ! 785: } else if(cbdata==(void*)&MainForm->mail_startup) { ! 786: mail=&MainForm->mail_startup; ! 787: mail_lputs(cbdata,LOG_INFO,str); ! 788: } else if(cbdata==(void*)&MainForm->services_startup) { ! 789: services=&MainForm->services_startup; ! 790: service_lputs(cbdata,LOG_INFO,str); ! 791: } ! 792: ! 793: fp=fopen(MainForm->ini_file,"r"); ! 794: sbbs_read_ini(fp ! 795: ,&MainForm->global ! 796: ,NULL ,bbs ! 797: ,NULL ,ftp ! 798: ,NULL ,web ! 799: ,NULL ,mail ! 800: ,NULL ,services ! 801: ); ! 802: if(fp!=NULL) ! 803: fclose(fp); ! 804: } ! 805: //--------------------------------------------------------------------------- ! 806: __fastcall TMainForm::TMainForm(TComponent* Owner) ! 807: : TForm(Owner) ! 808: { ! 809: /* Defaults */ ! 810: SAFECOPY(global.ctrl_dir,"c:\\sbbs\\ctrl\\"); ! 811: global.js.max_bytes=JAVASCRIPT_MAX_BYTES; ! 812: global.js.cx_stack=JAVASCRIPT_CONTEXT_STACK; ! 813: global.js.branch_limit=JAVASCRIPT_BRANCH_LIMIT; ! 814: global.js.gc_interval=JAVASCRIPT_GC_INTERVAL; ! 815: global.js.yield_interval=JAVASCRIPT_YIELD_INTERVAL; ! 816: global.sem_chk_freq=5; /* seconds */ ! 817: ! 818: /* These are SBBSCTRL-specific */ ! 819: LoginCommand="telnet://localhost"; ! 820: ConfigCommand="%sscfg.exe %s -l25"; ! 821: MinimizeToSysTray=false; ! 822: UndockableForms=false; ! 823: UseFileAssociations=true; ! 824: Initialized=false; ! 825: ! 826: char* p; ! 827: if((p=getenv("SBBSCTRL"))!=NULL) ! 828: SAFECOPY(global.ctrl_dir,p); ! 829: p=lastchar(global.ctrl_dir); ! 830: if(*p!='/' && *p!='\\') ! 831: strcat(global.ctrl_dir,"\\"); ! 832: ! 833: memset(&bbs_startup,0,sizeof(bbs_startup)); ! 834: bbs_startup.size=sizeof(bbs_startup); ! 835: bbs_startup.cbdata=&bbs_startup; ! 836: bbs_startup.first_node=1; ! 837: bbs_startup.last_node=4; ! 838: bbs_startup.options=BBS_OPT_XTRN_MINIMIZED|BBS_OPT_SYSOP_AVAILABLE; ! 839: bbs_startup.telnet_port=IPPORT_TELNET; ! 840: bbs_startup.telnet_interface=INADDR_ANY; ! 841: bbs_startup.rlogin_port=513; ! 842: bbs_startup.rlogin_interface=INADDR_ANY; ! 843: bbs_startup.lputs=bbs_lputs; ! 844: bbs_startup.status=bbs_status; ! 845: bbs_startup.clients=bbs_clients; ! 846: bbs_startup.started=bbs_started; ! 847: bbs_startup.recycle=recycle; ! 848: bbs_startup.terminated=bbs_terminated; ! 849: bbs_startup.thread_up=thread_up; ! 850: bbs_startup.client_on=client_on; ! 851: bbs_startup.socket_open=socket_open; ! 852: bbs_startup.event_lputs=event_lputs; ! 853: ! 854: memset(&mail_startup,0,sizeof(mail_startup)); ! 855: mail_startup.size=sizeof(mail_startup); ! 856: mail_startup.cbdata=&mail_startup; ! 857: mail_startup.smtp_port=IPPORT_SMTP; ! 858: mail_startup.relay_port=IPPORT_SMTP; ! 859: mail_startup.pop3_port=110; ! 860: mail_startup.interface_addr=INADDR_ANY; ! 861: mail_startup.lputs=mail_lputs; ! 862: mail_startup.status=mail_status; ! 863: mail_startup.clients=mail_clients; ! 864: mail_startup.started=mail_started; ! 865: mail_startup.recycle=recycle; ! 866: mail_startup.terminated=mail_terminated; ! 867: mail_startup.options=MAIL_OPT_ALLOW_POP3; ! 868: mail_startup.thread_up=thread_up; ! 869: mail_startup.client_on=client_on; ! 870: mail_startup.socket_open=socket_open; ! 871: mail_startup.max_delivery_attempts=50; ! 872: mail_startup.rescan_frequency=3600; /* 60 minutes */ ! 873: mail_startup.lines_per_yield=10; ! 874: mail_startup.max_clients=10; ! 875: mail_startup.max_msg_size=10*1024*1024; ! 876: ! 877: memset(&ftp_startup,0,sizeof(ftp_startup)); ! 878: ftp_startup.size=sizeof(ftp_startup); ! 879: ftp_startup.cbdata=&ftp_startup; ! 880: ftp_startup.port=IPPORT_FTP; ! 881: ftp_startup.interface_addr=INADDR_ANY; ! 882: ftp_startup.lputs=ftp_lputs; ! 883: ftp_startup.status=ftp_status; ! 884: ftp_startup.clients=ftp_clients; ! 885: ftp_startup.started=ftp_started; ! 886: ftp_startup.recycle=recycle; ! 887: ftp_startup.terminated=ftp_terminated; ! 888: ftp_startup.thread_up=thread_up; ! 889: ftp_startup.client_on=client_on; ! 890: ftp_startup.socket_open=socket_open; ! 891: ftp_startup.options ! 892: =FTP_OPT_INDEX_FILE|FTP_OPT_HTML_INDEX_FILE|FTP_OPT_ALLOW_QWK; ! 893: ftp_startup.max_clients=10; ! 894: strcpy(ftp_startup.index_file_name,"00index"); ! 895: strcpy(ftp_startup.html_index_file,"00index.html"); ! 896: strcpy(ftp_startup.html_index_script,"ftp-html.js"); ! 897: ! 898: memset(&web_startup,0,sizeof(web_startup)); ! 899: web_startup.size=sizeof(web_startup); ! 900: web_startup.cbdata=&web_startup; ! 901: web_startup.lputs=web_lputs; ! 902: web_startup.status=web_status; ! 903: web_startup.clients=web_clients; ! 904: web_startup.started=web_started; ! 905: web_startup.recycle=recycle; ! 906: web_startup.terminated=web_terminated; ! 907: web_startup.thread_up=thread_up; ! 908: web_startup.client_on=client_on; ! 909: web_startup.socket_open=socket_open; ! 910: ! 911: memset(&services_startup,0,sizeof(services_startup)); ! 912: services_startup.size=sizeof(services_startup); ! 913: services_startup.cbdata=&services_startup; ! 914: services_startup.interface_addr=INADDR_ANY; ! 915: services_startup.lputs=service_lputs; ! 916: services_startup.status=services_status; ! 917: services_startup.clients=services_clients; ! 918: services_startup.started=services_started; ! 919: services_startup.recycle=recycle; ! 920: services_startup.terminated=services_terminated; ! 921: services_startup.thread_up=thread_up; ! 922: services_startup.client_on=client_on; ! 923: services_startup.socket_open=socket_open; ! 924: ! 925: bbs_log=INVALID_HANDLE_VALUE; ! 926: event_log=INVALID_HANDLE_VALUE; ! 927: ftp_log=INVALID_HANDLE_VALUE; ! 928: web_log=INVALID_HANDLE_VALUE; ! 929: mail_log=INVALID_HANDLE_VALUE; ! 930: services_log=INVALID_HANDLE_VALUE; ! 931: ! 932: /* Default local "Spy Terminal" settings */ ! 933: SpyTerminalFont=new TFont; ! 934: SpyTerminalFont->Name="Terminal"; ! 935: SpyTerminalFont->Size=9; ! 936: SpyTerminalFont->Pitch=fpFixed; ! 937: SpyTerminalWidth=434; ! 938: SpyTerminalHeight=365; ! 939: SpyTerminalKeyboardActive=true; ! 940: ! 941: Application->OnMinimize=FormMinimize; ! 942: ! 943: /* Get pointers to NT Service functions */ ! 944: HANDLE hSCMlib = LoadLibrary("ADVAPI32.DLL"); ! 945: if(hSCMlib!=NULL) { ! 946: openSCManager=(OpenSCManager_t)GetProcAddress(hSCMlib, "OpenSCManagerA"); ! 947: openService=(OpenService_t)GetProcAddress(hSCMlib,"OpenServiceA"); ! 948: startService=(StartService_t)GetProcAddress(hSCMlib,"StartServiceA"); ! 949: controlService=(ControlService_t)GetProcAddress(hSCMlib,"ControlService"); ! 950: queryServiceStatus=(QueryServiceStatus_t)GetProcAddress(hSCMlib,"QueryServiceStatus"); ! 951: queryServiceConfig=(QueryServiceConfig_t)GetProcAddress(hSCMlib,"QueryServiceConfigA"); ! 952: closeServiceHandle=(CloseServiceHandle_t)GetProcAddress(hSCMlib,"CloseServiceHandle"); ! 953: FreeLibrary(hSCMlib); ! 954: } ! 955: ! 956: /* Open Service Manager */ ! 957: if(openSCManager!=NULL) ! 958: hSCManager = openSCManager( ! 959: NULL, // machine (NULL == local) ! 960: NULL, // database (NULL == default) ! 961: SC_MANAGER_CONNECT // access required ! 962: ); ! 963: ! 964: /* Open Synchronet Services */ ! 965: if(hSCManager!=NULL) { ! 966: bbs_svc = openService(hSCManager, NTSVC_NAME_BBS, GENERIC_READ|GENERIC_EXECUTE); ! 967: ftp_svc = openService(hSCManager, NTSVC_NAME_FTP, GENERIC_READ|GENERIC_EXECUTE); ! 968: web_svc = openService(hSCManager, NTSVC_NAME_WEB, GENERIC_READ|GENERIC_EXECUTE); ! 969: mail_svc = openService(hSCManager, NTSVC_NAME_MAIL, GENERIC_READ|GENERIC_EXECUTE); ! 970: services_svc = openService(hSCManager, NTSVC_NAME_SERVICES, GENERIC_READ|GENERIC_EXECUTE); ! 971: } ! 972: } ! 973: //--------------------------------------------------------------------------- ! 974: void __fastcall TMainForm::FileExitMenuItemClick(TObject *Sender) ! 975: { ! 976: Close(); ! 977: } ! 978: void __fastcall TMainForm::FormCreate(TObject *Sender) ! 979: { ! 980: Height=400; // Just incase we mess it up in the IDE ! 981: Width=700; ! 982: ! 983: // Verify SBBS.DLL version ! 984: long bbs_ver = bbs_ver_num(); ! 985: if(bbs_ver != VERSION_HEX) { ! 986: char str[128]; ! 987: sprintf(str,"Incorrect SBBS.DLL Version (%lX)",bbs_ver); ! 988: Application->MessageBox(str,"ERROR",MB_OK|MB_ICONEXCLAMATION); ! 989: Application->Terminate(); ! 990: } ! 991: ! 992: // Read Registry keys ! 993: TRegistry* Registry=new TRegistry; ! 994: if(!Registry->OpenKey(REG_KEY,true)) { ! 995: Application->MessageBox("Error opening registry key" ! 996: ,REG_KEY,MB_OK|MB_ICONEXCLAMATION); ! 997: Application->Terminate(); ! 998: return; ! 999: } ! 1000: if(Registry->ValueExists("MainFormTop")) ! 1001: Top=Registry->ReadInteger("MainFormTop"); ! 1002: if(Registry->ValueExists("MainFormLeft")) ! 1003: Left=Registry->ReadInteger("MainFormLeft"); ! 1004: if(Registry->ValueExists("MainFormHeight")) ! 1005: Height=Registry->ReadInteger("MainFormHeight"); ! 1006: if(Registry->ValueExists("MainFormWidth")) ! 1007: Width=Registry->ReadInteger("MainFormWidth"); ! 1008: else ! 1009: WindowState=wsMaximized; // Default to fullscreen ! 1010: if(Registry->ValueExists("SpyTerminalWidth")) ! 1011: SpyTerminalWidth=Registry->ReadInteger("SpyTerminalWidth"); ! 1012: if(Registry->ValueExists("SpyTerminalHeight")) ! 1013: SpyTerminalHeight=Registry->ReadInteger("SpyTerminalHeight"); ! 1014: if(Registry->ValueExists("SpyTerminalFontName")) ! 1015: SpyTerminalFont->Name=Registry->ReadString("SpyTerminalFontName"); ! 1016: if(Registry->ValueExists("SpyTerminalFontSize")) ! 1017: SpyTerminalFont->Size=Registry->ReadInteger("SpyTerminalFontSize"); ! 1018: if(Registry->ValueExists("SpyTerminalKeyboardActive")) ! 1019: SpyTerminalKeyboardActive ! 1020: =Registry->ReadBool("SpyTerminalKeyboardActive"); ! 1021: ! 1022: Registry->CloseKey(); ! 1023: delete Registry; ! 1024: } ! 1025: //--------------------------------------------------------------------------- ! 1026: void __fastcall TMainForm::FormShow(TObject *Sender) ! 1027: { ! 1028: StartupTimer->Enabled=true; ! 1029: } ! 1030: //--------------------------------------------------------------------------- ! 1031: ! 1032: void __fastcall TMainForm::ViewToolbarMenuItemClick(TObject *Sender) ! 1033: { ! 1034: Toolbar->Visible=ViewToolbarMenuItem->Checked; ! 1035: } ! 1036: //--------------------------------------------------------------------------- ! 1037: BOOL NTsvcEnabled(SC_HANDLE svc, QUERY_SERVICE_CONFIG* config, DWORD config_size) ! 1038: { ! 1039: if(svc==NULL || startService==NULL || queryServiceStatus==NULL || config==NULL) ! 1040: return(FALSE); ! 1041: ! 1042: DWORD ret; ! 1043: if(!queryServiceConfig(svc,config,config_size,&ret)) ! 1044: return(FALSE); ! 1045: if(config->dwStartType==SERVICE_DISABLED) ! 1046: return(FALSE); ! 1047: return(TRUE); ! 1048: } ! 1049: //--------------------------------------------------------------------------- ! 1050: BOOL __fastcall TMainForm::bbsServiceEnabled(void) ! 1051: { ! 1052: return NTsvcEnabled(bbs_svc,bbs_svc_config,bbs_svc_config_size); ! 1053: } ! 1054: BOOL __fastcall TMainForm::mailServiceEnabled(void) ! 1055: { ! 1056: return NTsvcEnabled(mail_svc,mail_svc_config,mail_svc_config_size); ! 1057: } ! 1058: BOOL __fastcall TMainForm::ftpServiceEnabled(void) ! 1059: { ! 1060: return NTsvcEnabled(ftp_svc,ftp_svc_config,ftp_svc_config_size); ! 1061: } ! 1062: BOOL __fastcall TMainForm::webServiceEnabled(void) ! 1063: { ! 1064: return NTsvcEnabled(web_svc,web_svc_config,web_svc_config_size); ! 1065: } ! 1066: BOOL __fastcall TMainForm::servicesServiceEnabled(void) ! 1067: { ! 1068: return NTsvcEnabled(services_svc,services_svc_config,services_svc_config_size); ! 1069: } ! 1070: //--------------------------------------------------------------------------- ! 1071: void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action) ! 1072: { ! 1073: UpTimer->Enabled=false; /* Stop updating the status bar */ ! 1074: StatsTimer->Enabled=false; ! 1075: ! 1076: if(TrayIcon->Visible) /* minimized to tray? */ ! 1077: TrayIcon->Visible=false; /* restore to avoid crash */ ! 1078: ! 1079: /* This is necessary to save form sizes/positions */ ! 1080: if(Initialized) /* Don't overwrite registry settings with defaults */ ! 1081: SaveRegistrySettings(Sender); ! 1082: ! 1083: StatusBar->Panels->Items[4]->Text="Terminating servers..."; ! 1084: time_t start=time(NULL); ! 1085: while( (TelnetStop->Enabled && !bbsServiceEnabled()) ! 1086: || (MailStop->Enabled && !mailServiceEnabled()) ! 1087: || (FtpStop->Enabled && !ftpServiceEnabled()) ! 1088: || (WebStop->Enabled && !webServiceEnabled()) ! 1089: || (ServicesStop->Enabled && !servicesServiceEnabled())) { ! 1090: if(time(NULL)-start>30) ! 1091: break; ! 1092: Application->ProcessMessages(); ! 1093: YIELD(); ! 1094: } ! 1095: StatusBar->Panels->Items[4]->Text="Closing..."; ! 1096: Application->ProcessMessages(); ! 1097: ! 1098: LogTimer->Enabled=false; ! 1099: ServiceStatusTimer->Enabled=false; ! 1100: NodeForm->Timer->Enabled=false; ! 1101: ClientForm->Timer->Enabled=false; ! 1102: #if 0 ! 1103: /* Extra time for callbacks to be called by child threads */ ! 1104: start=time(NULL); ! 1105: while(time(NULL)<start+2) { ! 1106: Application->ProcessMessages(); ! 1107: YIELD(); ! 1108: } ! 1109: #endif ! 1110: #if 0 ! 1111: if(hSCManager!=NULL) ! 1112: closeServiceHandle(hSCManager); ! 1113: #endif ! 1114: } ! 1115: //--------------------------------------------------------------------------- ! 1116: void __fastcall TMainForm::FormCloseQuery(TObject *Sender, bool &CanClose) ! 1117: { ! 1118: CanClose=false; ! 1119: ! 1120: if(TelnetStop->Enabled && !bbsServiceEnabled()) { ! 1121: if(!terminating && TelnetForm->ProgressBar->Position ! 1122: && Application->MessageBox("Shut down the Telnet Server?" ! 1123: ,"Telnet Server In Use", MB_OKCANCEL)!=IDOK) ! 1124: return; ! 1125: TelnetStopExecute(Sender); ! 1126: } ! 1127: ! 1128: if(MailStop->Enabled && !mailServiceEnabled()) { ! 1129: if(!terminating && MailForm->ProgressBar->Position ! 1130: && Application->MessageBox("Shut down the Mail Server?" ! 1131: ,"Mail Server In Use", MB_OKCANCEL)!=IDOK) ! 1132: return; ! 1133: MailStopExecute(Sender); ! 1134: } ! 1135: ! 1136: if(FtpStop->Enabled && !ftpServiceEnabled()) { ! 1137: if(!terminating && FtpForm->ProgressBar->Position ! 1138: && Application->MessageBox("Shut down the FTP Server?" ! 1139: ,"FTP Server In Use", MB_OKCANCEL)!=IDOK) ! 1140: return; ! 1141: FtpStopExecute(Sender); ! 1142: } ! 1143: ! 1144: if(WebStop->Enabled && !webServiceEnabled()) { ! 1145: if(!terminating && WebForm->ProgressBar->Position ! 1146: && Application->MessageBox("Shut down the Web Server?" ! 1147: ,"Web Server In Use", MB_OKCANCEL)!=IDOK) ! 1148: return; ! 1149: WebStopExecute(Sender); ! 1150: } ! 1151: ! 1152: if(ServicesStop->Enabled && !servicesServiceEnabled()) ! 1153: ServicesStopExecute(Sender); ! 1154: ! 1155: CanClose=true; ! 1156: } ! 1157: ! 1158: //--------------------------------------------------------------------------- ! 1159: BOOL StartNTsvc(SC_HANDLE svc, SERVICE_STATUS* status, QUERY_SERVICE_CONFIG* config, DWORD config_size) ! 1160: { ! 1161: if(svc==NULL || startService==NULL || queryServiceStatus==NULL || config==NULL) ! 1162: return(FALSE); ! 1163: ! 1164: DWORD ret; ! 1165: if(!queryServiceConfig(svc,config,config_size,&ret)) ! 1166: return(FALSE); ! 1167: if(config->dwStartType==SERVICE_DISABLED) ! 1168: return(FALSE); ! 1169: if(!queryServiceStatus(svc,status)) ! 1170: return(FALSE); ! 1171: if(status->dwCurrentState!=SERVICE_STOPPED) ! 1172: return(TRUE); ! 1173: if(!startService(svc,0,NULL)) ! 1174: Application->MessageBox(AnsiString("ERROR " + IntToStr(GetLastError()) + ! 1175: " starting " + config->lpDisplayName).c_str() ! 1176: ,"ERROR" ! 1177: ,MB_OK|MB_ICONEXCLAMATION); ! 1178: return(TRUE); ! 1179: } ! 1180: //--------------------------------------------------------------------------- ! 1181: void __fastcall TMainForm::TelnetStartExecute(TObject *Sender) ! 1182: { ! 1183: if(!StartNTsvc(bbs_svc,&bbs_svc_status,bbs_svc_config,bbs_svc_config_size)) ! 1184: bbs_start(); ! 1185: } ! 1186: //--------------------------------------------------------------------------- ! 1187: void __fastcall TMainForm::ServicesStartExecute(TObject *Sender) ! 1188: { ! 1189: if(StartNTsvc(services_svc,&services_svc_status,services_svc_config,services_svc_config_size)) ! 1190: return; ! 1191: Screen->Cursor=crAppStart; ! 1192: services_status(NULL, "Starting"); ! 1193: ! 1194: FILE* fp=fopen(ini_file,"r"); ! 1195: sbbs_read_ini(fp ! 1196: ,&MainForm->global ! 1197: ,NULL ,NULL ! 1198: ,NULL ,NULL ! 1199: ,NULL ,NULL ! 1200: ,NULL ,NULL ! 1201: ,NULL ,&services_startup ! 1202: ); ! 1203: if(fp!=NULL) ! 1204: fclose(fp); ! 1205: ! 1206: _beginthread((void(*)(void*))services_thread,0,&services_startup); ! 1207: Application->ProcessMessages(); ! 1208: } ! 1209: ! 1210: //--------------------------------------------------------------------------- ! 1211: BOOL StopNTsvc(SC_HANDLE svc, SERVICE_STATUS* status) ! 1212: { ! 1213: if(svc==NULL || controlService==NULL) ! 1214: return(FALSE); ! 1215: ! 1216: return controlService(svc,SERVICE_CONTROL_STOP,status); ! 1217: } ! 1218: ! 1219: //--------------------------------------------------------------------------- ! 1220: ! 1221: void __fastcall TMainForm::ServicesStopExecute(TObject *Sender) ! 1222: { ! 1223: if(StopNTsvc(services_svc,&services_svc_status)) ! 1224: return; ! 1225: Screen->Cursor=crAppStart; ! 1226: services_status(NULL, "Terminating"); ! 1227: services_terminate(); ! 1228: Application->ProcessMessages(); ! 1229: } ! 1230: //--------------------------------------------------------------------------- ! 1231: ! 1232: void __fastcall TMainForm::TelnetStopExecute(TObject *Sender) ! 1233: { ! 1234: if(StopNTsvc(bbs_svc,&bbs_svc_status)) ! 1235: return; ! 1236: Screen->Cursor=crAppStart; ! 1237: bbs_status(NULL, "Terminating"); ! 1238: bbs_terminate(); ! 1239: Application->ProcessMessages(); ! 1240: } ! 1241: //--------------------------------------------------------------------------- ! 1242: ! 1243: void __fastcall TMainForm::TelnetConfigureExecute(TObject *Sender) ! 1244: { ! 1245: static inside; ! 1246: if(inside) return; ! 1247: inside=true; ! 1248: ! 1249: Application->CreateForm(__classid(TTelnetCfgDlg), &TelnetCfgDlg); ! 1250: TelnetCfgDlg->ShowModal(); ! 1251: delete TelnetCfgDlg; ! 1252: ! 1253: inside=false; ! 1254: } ! 1255: //--------------------------------------------------------------------------- ! 1256: ! 1257: ! 1258: void __fastcall TMainForm::NodeListStartExecute(TObject *Sender) ! 1259: { ! 1260: NodeForm->Timer->Enabled=true; ! 1261: NodeListStart->Enabled=false; ! 1262: NodeListStop->Enabled=true; ! 1263: } ! 1264: //--------------------------------------------------------------------------- ! 1265: ! 1266: void __fastcall TMainForm::NodeListStopExecute(TObject *Sender) ! 1267: { ! 1268: NodeForm->Timer->Enabled=false; ! 1269: NodeListStart->Enabled=true; ! 1270: NodeListStop->Enabled=false; ! 1271: } ! 1272: //--------------------------------------------------------------------------- ! 1273: ! 1274: ! 1275: void __fastcall TMainForm::MailConfigureExecute(TObject *Sender) ! 1276: { ! 1277: static inside; ! 1278: if(inside) return; ! 1279: inside=true; ! 1280: ! 1281: Application->CreateForm(__classid(TMailCfgDlg), &MailCfgDlg); ! 1282: MailCfgDlg->ShowModal(); ! 1283: delete MailCfgDlg; ! 1284: ! 1285: inside=false; ! 1286: } ! 1287: //--------------------------------------------------------------------------- ! 1288: ! 1289: void __fastcall TMainForm::MailStartExecute(TObject *Sender) ! 1290: { ! 1291: if(!StartNTsvc(mail_svc,&mail_svc_status,mail_svc_config,mail_svc_config_size)) ! 1292: mail_start(); ! 1293: } ! 1294: //--------------------------------------------------------------------------- ! 1295: ! 1296: void __fastcall TMainForm::MailStopExecute(TObject *Sender) ! 1297: { ! 1298: if(StopNTsvc(mail_svc,&mail_svc_status)) ! 1299: return; ! 1300: Screen->Cursor=crAppStart; ! 1301: mail_status(NULL, "Terminating"); ! 1302: mail_terminate(); ! 1303: Application->ProcessMessages(); ! 1304: } ! 1305: //--------------------------------------------------------------------------- ! 1306: void __fastcall TMainForm::ViewTelnetExecute(TObject *Sender) ! 1307: { ! 1308: TelnetForm->Visible=ViewTelnet->Checked; ! 1309: } ! 1310: //--------------------------------------------------------------------------- ! 1311: void __fastcall TMainForm::ViewEventsExecute(TObject *Sender) ! 1312: { ! 1313: EventsForm->Visible=ViewEvents->Checked; ! 1314: } ! 1315: //--------------------------------------------------------------------------- ! 1316: ! 1317: void __fastcall TMainForm::ViewNodesExecute(TObject *Sender) ! 1318: { ! 1319: NodeForm->Visible=ViewNodes->Checked; ! 1320: } ! 1321: //--------------------------------------------------------------------------- ! 1322: ! 1323: void __fastcall TMainForm::ViewMailServerExecute(TObject *Sender) ! 1324: { ! 1325: MailForm->Visible=ViewMailServer->Checked; ! 1326: } ! 1327: //--------------------------------------------------------------------------- ! 1328: ! 1329: void __fastcall TMainForm::ViewFtpServerExecute(TObject *Sender) ! 1330: { ! 1331: FtpForm->Visible=ViewFtpServer->Checked; ! 1332: } ! 1333: //--------------------------------------------------------------------------- ! 1334: void __fastcall TMainForm::ViewWebServerExecute(TObject *Sender) ! 1335: { ! 1336: WebForm->Visible=ViewWebServer->Checked; ! 1337: } ! 1338: //--------------------------------------------------------------------------- ! 1339: void __fastcall TMainForm::ViewServicesExecute(TObject *Sender) ! 1340: { ! 1341: ServicesForm->Visible=ViewServices->Checked; ! 1342: } ! 1343: //--------------------------------------------------------------------------- ! 1344: void __fastcall TMainForm::ViewStatsExecute(TObject *Sender) ! 1345: { ! 1346: StatsForm->Visible=ViewStats->Checked; ! 1347: } ! 1348: //--------------------------------------------------------------------------- ! 1349: void __fastcall TMainForm::ViewClientsExecute(TObject *Sender) ! 1350: { ! 1351: ClientForm->Visible=ViewClients->Checked; ! 1352: } ! 1353: //--------------------------------------------------------------------------- ! 1354: void __fastcall TMainForm::FtpStartExecute(TObject *Sender) ! 1355: { ! 1356: if(!StartNTsvc(ftp_svc,&ftp_svc_status,ftp_svc_config,ftp_svc_config_size)) ! 1357: ftp_start(); ! 1358: } ! 1359: //--------------------------------------------------------------------------- ! 1360: ! 1361: void __fastcall TMainForm::FtpStopExecute(TObject *Sender) ! 1362: { ! 1363: if(StopNTsvc(ftp_svc,&ftp_svc_status)) ! 1364: return; ! 1365: Screen->Cursor=crAppStart; ! 1366: ftp_status(NULL, "Terminating"); ! 1367: ftp_terminate(); ! 1368: Application->ProcessMessages(); ! 1369: } ! 1370: //--------------------------------------------------------------------------- ! 1371: ! 1372: void __fastcall TMainForm::FtpConfigureExecute(TObject *Sender) ! 1373: { ! 1374: static inside; ! 1375: if(inside) return; ! 1376: inside=true; ! 1377: ! 1378: Application->CreateForm(__classid(TFtpCfgDlg), &FtpCfgDlg); ! 1379: FtpCfgDlg->ShowModal(); ! 1380: delete FtpCfgDlg; ! 1381: ! 1382: inside=false; ! 1383: } ! 1384: //--------------------------------------------------------------------------- ! 1385: void __fastcall TMainForm::WebStartExecute(TObject *Sender) ! 1386: { ! 1387: if(!StartNTsvc(web_svc,&web_svc_status,web_svc_config,web_svc_config_size)) ! 1388: web_start(); ! 1389: } ! 1390: //--------------------------------------------------------------------------- ! 1391: void __fastcall TMainForm::WebStopExecute(TObject *Sender) ! 1392: { ! 1393: if(StopNTsvc(web_svc,&web_svc_status)) ! 1394: return; ! 1395: Screen->Cursor=crAppStart; ! 1396: web_status(NULL, "Terminating"); ! 1397: web_terminate(); ! 1398: Application->ProcessMessages(); ! 1399: } ! 1400: //--------------------------------------------------------------------------- ! 1401: void __fastcall TMainForm::WebConfigureExecute(TObject *Sender) ! 1402: { ! 1403: static inside; ! 1404: if(inside) return; ! 1405: inside=true; ! 1406: ! 1407: Application->CreateForm(__classid(TWebCfgDlg), &WebCfgDlg); ! 1408: WebCfgDlg->ShowModal(); ! 1409: delete WebCfgDlg; ! 1410: ! 1411: inside=false; ! 1412: } ! 1413: //--------------------------------------------------------------------------- ! 1414: void __fastcall TMainForm::BBSConfigureMenuItemClick(TObject *Sender) ! 1415: { ! 1416: char str[256]; ! 1417: ! 1418: sprintf(str,ConfigCommand.c_str() ! 1419: ,cfg.exec_dir, cfg.ctrl_dir); ! 1420: STARTUPINFO startup_info={0}; ! 1421: PROCESS_INFORMATION process_info; ! 1422: startup_info.cb=sizeof(startup_info); ! 1423: startup_info.lpTitle="Synchronet Configuration Utility"; ! 1424: CreateProcess( ! 1425: NULL, // pointer to name of executable module ! 1426: str, // pointer to command line string ! 1427: NULL, // process security attributes ! 1428: NULL, // thread security attributes ! 1429: FALSE, // handle inheritance flag ! 1430: CREATE_NEW_CONSOLE|CREATE_SEPARATE_WOW_VDM, // creation flags ! 1431: NULL, // pointer to new environment block ! 1432: cfg.ctrl_dir, // pointer to current directory name ! 1433: &startup_info, // pointer to STARTUPINFO ! 1434: &process_info // pointer to PROCESS_INFORMATION ! 1435: ); ! 1436: // Resource leak if you don't close these: ! 1437: CloseHandle(process_info.hThread); ! 1438: CloseHandle(process_info.hProcess); ! 1439: } ! 1440: //--------------------------------------------------------------------------- ! 1441: ! 1442: ! 1443: ! 1444: ! 1445: void __fastcall TMainForm::NodeCloseButtonClick(TObject *Sender) ! 1446: { ! 1447: ViewNodesExecute(Sender); ! 1448: } ! 1449: //--------------------------------------------------------------------------- ! 1450: ! 1451: void __fastcall TMainForm::TelnetCloseButtonClick(TObject *Sender) ! 1452: { ! 1453: ViewTelnetExecute(Sender); ! 1454: } ! 1455: //--------------------------------------------------------------------------- ! 1456: ! 1457: void __fastcall TMainForm::MailCloseButtonClick(TObject *Sender) ! 1458: { ! 1459: ViewMailServerExecute(Sender); ! 1460: } ! 1461: //--------------------------------------------------------------------------- ! 1462: ! 1463: void __fastcall TMainForm::FtpCloseButtonClick(TObject *Sender) ! 1464: { ! 1465: ViewFtpServerExecute(Sender); ! 1466: } ! 1467: //--------------------------------------------------------------------------- ! 1468: void __fastcall TMainForm::StatsTimerTick(TObject *Sender) ! 1469: { ! 1470: char str[128]; ! 1471: int i; ! 1472: static stats_t stats; ! 1473: static users; ! 1474: static newusers; ! 1475: static counter; ! 1476: ! 1477: if(!StatsForm->Visible) ! 1478: return; ! 1479: ! 1480: getstats(&cfg,0,&stats); ! 1481: ! 1482: StatsForm->TotalLogons->Caption=AnsiString(stats.logons); ! 1483: StatsForm->LogonsToday->Caption=AnsiString(stats.ltoday); ! 1484: StatsForm->TotalTimeOn->Caption=AnsiString(stats.timeon); ! 1485: StatsForm->TimeToday->Caption=AnsiString(stats.ttoday); ! 1486: StatsForm->TotalEMail->Caption=AnsiString(getmail(&cfg,0,0)); ! 1487: StatsForm->EMailToday->Caption=AnsiString(stats.etoday); ! 1488: StatsForm->TotalFeedback->Caption=AnsiString(getmail(&cfg,1,0)); ! 1489: StatsForm->FeedbackToday->Caption=AnsiString(stats.ftoday); ! 1490: /* Don't scan a large user database more often than necessary */ ! 1491: if(!counter || users<100 || (counter%(users/100))==0 || stats.nusers!=newusers) ! 1492: users=total_users(&cfg); ! 1493: StatsForm->TotalUsers->Caption=AnsiString(users); ! 1494: StatsForm->NewUsersToday->Caption=AnsiString(newusers=stats.nusers); ! 1495: StatsForm->PostsToday->Caption=AnsiString(stats.ptoday); ! 1496: StatsForm->UploadedFiles->Caption=AnsiString(stats.uls); ! 1497: if(stats.ulb>=1024*1024) ! 1498: sprintf(str,"%.1fM",stats.ulb/(1024.0*1024.0)); ! 1499: else if(stats.ulb>=1024) ! 1500: sprintf(str,"%luK",stats.ulb/1024); ! 1501: else ! 1502: sprintf(str,"%lu",stats.ulb); ! 1503: StatsForm->UploadedBytes->Caption=AnsiString(str); ! 1504: StatsForm->DownloadedFiles->Caption=AnsiString(stats.dls); ! 1505: if(stats.dlb>=1024*1024) ! 1506: sprintf(str,"%.1fM",stats.dlb/(1024.0*1024.0)); ! 1507: else if(stats.dlb>=1024) ! 1508: sprintf(str,"%luK",stats.dlb/1024); ! 1509: else ! 1510: sprintf(str,"%lu",stats.dlb); ! 1511: StatsForm->DownloadedBytes->Caption=AnsiString(str); ! 1512: ! 1513: counter++; ! 1514: } ! 1515: //--------------------------------------------------------------------------- ! 1516: void __fastcall TMainForm::StatsCloseButtonClick(TObject *Sender) ! 1517: { ! 1518: ViewStatsExecute(Sender); ! 1519: } ! 1520: //--------------------------------------------------------------------------- ! 1521: enum { ! 1522: PAGE_UPPERLEFT ! 1523: ,PAGE_UPPERRIGHT ! 1524: ,PAGE_LOWERRIGHT ! 1525: ,PAGE_LOWERLEFT ! 1526: }; ! 1527: TPageControl* __fastcall TMainForm::PageControl(int num) ! 1528: { ! 1529: switch(num) ! 1530: { ! 1531: case PAGE_UPPERLEFT: ! 1532: return(UpperLeftPageControl); ! 1533: case PAGE_UPPERRIGHT: ! 1534: return(UpperRightPageControl); ! 1535: case PAGE_LOWERRIGHT: ! 1536: return(LowerRightPageControl); ! 1537: case PAGE_LOWERLEFT: ! 1538: return(LowerLeftPageControl); ! 1539: } ! 1540: return(NULL); ! 1541: } ! 1542: int __fastcall TMainForm::PageNum(TPageControl* obj) ! 1543: { ! 1544: if(obj==UpperLeftPageControl) ! 1545: return(PAGE_UPPERLEFT); ! 1546: if(obj==UpperRightPageControl) ! 1547: return(PAGE_UPPERRIGHT); ! 1548: if(obj==LowerRightPageControl) ! 1549: return(PAGE_LOWERRIGHT); ! 1550: if(obj==LowerLeftPageControl) ! 1551: return(PAGE_LOWERLEFT); ! 1552: return(PAGE_LOWERRIGHT); ! 1553: } ! 1554: TColor __fastcall TMainForm::ReadColor(TRegistry* Registry ! 1555: ,AnsiString name) ! 1556: { ! 1557: if(Registry->ValueExists(name + "Color")) ! 1558: return(StringToColor(Registry->ReadString(name + "Color"))); ! 1559: ! 1560: return(clWindow); // Default ! 1561: } ! 1562: void __fastcall TMainForm::WriteColor(TRegistry* Registry ! 1563: ,AnsiString name, TColor color) ! 1564: { ! 1565: Registry->WriteString(name + "Color", ColorToString(color)); ! 1566: } ! 1567: ! 1568: int FontStyleToInt(TFont* Font) ! 1569: { ! 1570: int style=0; ! 1571: for(int i=fsBold;i<=fsStrikeOut;i++) ! 1572: if(Font->Style.Contains((TFontStyle)i)) ! 1573: style|=(1<<i); ! 1574: return(style); ! 1575: } ! 1576: ! 1577: void IntToFontStyle(int style, TFont* Font) ! 1578: { ! 1579: Font->Style=Font->Style.Clear(); ! 1580: for(int i=fsBold;i<=fsStrikeOut;i++) ! 1581: if(style&(1<<i)) ! 1582: Font->Style=Font->Style<<(TFontStyle)i; ! 1583: } ! 1584: ! 1585: void __fastcall TMainForm::ReadFont(AnsiString subkey, TFont* Font) ! 1586: { ! 1587: // Read Registry keys ! 1588: TRegistry* Registry=new TRegistry; ! 1589: AnsiString key = REG_KEY + subkey + "Font"; ! 1590: if(!Registry->OpenKey(key,true)) { ! 1591: Application->MessageBox("Error opening registry key" ! 1592: ,key.c_str(),MB_OK|MB_ICONEXCLAMATION); ! 1593: Application->Terminate(); ! 1594: return; ! 1595: } ! 1596: if(Registry->ValueExists("Name")) ! 1597: Font->Name=Registry->ReadString("Name"); ! 1598: if(Registry->ValueExists("Color")) ! 1599: Font->Color=StringToColor(Registry->ReadString("Color")); ! 1600: if(Registry->ValueExists("Height")) ! 1601: Font->Height=Registry->ReadInteger("Height"); ! 1602: if(Registry->ValueExists("Size")) ! 1603: Font->Size=Registry->ReadInteger("Size"); ! 1604: ! 1605: if(Registry->ValueExists("Style")) ! 1606: IntToFontStyle(Registry->ReadInteger("Style"),Font); ! 1607: ! 1608: Registry->CloseKey(); ! 1609: delete Registry; ! 1610: } ! 1611: void __fastcall TMainForm::WriteFont(AnsiString subkey, TFont* Font) ! 1612: { ! 1613: // Read Registry keys ! 1614: TRegistry* Registry=new TRegistry; ! 1615: AnsiString key = REG_KEY + subkey + "Font"; ! 1616: if(!Registry->OpenKey(key,true)) { ! 1617: Application->MessageBox("Error opening registry key" ! 1618: ,key.c_str(),MB_OK|MB_ICONEXCLAMATION); ! 1619: Application->Terminate(); ! 1620: return; ! 1621: } ! 1622: Registry->WriteString("Name",Font->Name); ! 1623: Registry->WriteString("Color",ColorToString(Font->Color)); ! 1624: Registry->WriteInteger("Height",Font->Height); ! 1625: Registry->WriteInteger("Size",Font->Size); ! 1626: Registry->WriteInteger("Style",FontStyleToInt(Font)); ! 1627: ! 1628: Registry->CloseKey(); ! 1629: delete Registry; ! 1630: } ! 1631: void __fastcall TMainForm::StartupTimerTick(TObject *Sender) ! 1632: { ! 1633: bool TelnetFormFloating=false; ! 1634: bool EventsFormFloating=false; ! 1635: bool ServicesFormFloating=false; ! 1636: bool NodeFormFloating=false; ! 1637: bool StatsFormFloating=false; ! 1638: bool ClientFormFloating=false; ! 1639: bool MailFormFloating=false; ! 1640: bool FtpFormFloating=false; ! 1641: bool WebFormFloating=false; ! 1642: int NodeFormPage=PAGE_UPPERLEFT; ! 1643: int StatsFormPage=PAGE_UPPERLEFT; ! 1644: int ClientFormPage=PAGE_UPPERLEFT; ! 1645: int TelnetFormPage=PAGE_LOWERLEFT; ! 1646: int EventsFormPage=PAGE_LOWERLEFT; ! 1647: int MailFormPage=PAGE_UPPERRIGHT; ! 1648: int FtpFormPage=PAGE_LOWERRIGHT; ! 1649: int WebFormPage=PAGE_LOWERRIGHT; ! 1650: int ServicesFormPage=PAGE_LOWERRIGHT; ! 1651: #if 0 /* not yet working */ ! 1652: bool TelnetFormVisible=true; ! 1653: bool EventsFormVisible=true; ! 1654: bool ServicesFormVisible=true; ! 1655: bool NodeFormVisible=true; ! 1656: bool StatsFormVisible=true; ! 1657: bool ClientFormVisible=true; ! 1658: bool MailFormVisible=true; ! 1659: bool FtpFormVisible=true; ! 1660: bool WebFormVisible=true; ! 1661: #endif ! 1662: ! 1663: AnsiString Str; ! 1664: ! 1665: delete StartupTimer; ! 1666: ! 1667: // Read Registry keys ! 1668: TRegistry* Registry=new TRegistry; ! 1669: if(!Registry->OpenKey(REG_KEY,true)) { ! 1670: Application->MessageBox("Error opening registry key" ! 1671: ,REG_KEY,MB_OK|MB_ICONEXCLAMATION); ! 1672: Application->Terminate(); ! 1673: return; ! 1674: } ! 1675: ! 1676: TopPanel->Height=Height/3; ! 1677: UpperLeftPageControl->Width=Width/2; ! 1678: LowerLeftPageControl->Width=Width/2; ! 1679: ! 1680: if(Registry->ValueExists("TopPanelHeight")) ! 1681: TopPanel->Height=Registry->ReadInteger("TopPanelHeight"); ! 1682: if(Registry->ValueExists("UpperLeftPageControlWidth")) ! 1683: UpperLeftPageControl->Width ! 1684: =Registry->ReadInteger("UpperLeftPageControlWidth"); ! 1685: if(Registry->ValueExists("LowerLeftPageControlWidth")) ! 1686: LowerLeftPageControl->Width ! 1687: =Registry->ReadInteger("LowerLeftPageControlWidth"); ! 1688: if(Registry->ValueExists("UndockableForms")) ! 1689: UndockableForms=Registry->ReadBool("UndockableForms"); ! 1690: ! 1691: if(UndockableForms) { ! 1692: if(Registry->ValueExists("TelnetFormFloating")) ! 1693: TelnetFormFloating=Registry->ReadBool("TelnetFormFloating"); ! 1694: if(Registry->ValueExists("EventsFormFloating")) ! 1695: EventsFormFloating=Registry->ReadBool("EventsFormFloating"); ! 1696: if(Registry->ValueExists("ServicesFormFloating")) ! 1697: ServicesFormFloating=Registry->ReadBool("ServicesFormFloating"); ! 1698: if(Registry->ValueExists("NodeFormFloating")) ! 1699: NodeFormFloating=Registry->ReadBool("NodeFormFloating"); ! 1700: if(Registry->ValueExists("StatsFormFloating")) ! 1701: StatsFormFloating=Registry->ReadBool("StatsFormFloating"); ! 1702: if(Registry->ValueExists("ClientFormFloating")) ! 1703: ClientFormFloating=Registry->ReadBool("ClientFormFloating"); ! 1704: if(Registry->ValueExists("MailFormFloating")) ! 1705: MailFormFloating=Registry->ReadBool("MailFormFloating"); ! 1706: if(Registry->ValueExists("FtpFormFloating")) ! 1707: FtpFormFloating=Registry->ReadBool("FtpFormFloating"); ! 1708: if(Registry->ValueExists("WebFormFloating")) ! 1709: WebFormFloating=Registry->ReadBool("WebFormFloating"); ! 1710: } ! 1711: #if 0 ! 1712: if(Registry->ValueExists("TelnetFormVisible")) ! 1713: TelnetFormVisible=Registry->ReadBool("TelnetFormVisible"); ! 1714: if(Registry->ValueExists("EventsFormVisible")) ! 1715: EventsFormVisible=Registry->ReadBool("EventsFormVisible"); ! 1716: if(Registry->ValueExists("ServicesFormVisible")) ! 1717: ServicesFormVisible=Registry->ReadBool("ServicesFormVisible"); ! 1718: if(Registry->ValueExists("NodeFormVisible")) ! 1719: NodeFormVisible=Registry->ReadBool("NodeFormVisible"); ! 1720: if(Registry->ValueExists("StatsFormVisible")) ! 1721: StatsFormVisible=Registry->ReadBool("StatsFormVisible"); ! 1722: if(Registry->ValueExists("ClientFormVisible")) ! 1723: ClientFormVisible=Registry->ReadBool("ClientFormVisible"); ! 1724: if(Registry->ValueExists("MailFormVisible")) ! 1725: MailFormVisible=Registry->ReadBool("MailFormVisible"); ! 1726: if(Registry->ValueExists("FtpFormVisible")) ! 1727: FtpFormVisible=Registry->ReadBool("FtpFormVisible"); ! 1728: if(Registry->ValueExists("WebFormVisible")) ! 1729: WebFormVisible=Registry->ReadBool("WebFormVisible"); ! 1730: #endif ! 1731: if(Registry->ValueExists("TelnetFormPage")) ! 1732: TelnetFormPage=Registry->ReadInteger("TelnetFormPage"); ! 1733: if(Registry->ValueExists("EventsFormPage")) ! 1734: EventsFormPage=Registry->ReadInteger("EventsFormPage"); ! 1735: if(Registry->ValueExists("ServicesFormPage")) ! 1736: ServicesFormPage=Registry->ReadInteger("ServicesFormPage"); ! 1737: if(Registry->ValueExists("NodeFormPage")) ! 1738: NodeFormPage=Registry->ReadInteger("NodeFormPage"); ! 1739: if(Registry->ValueExists("StatsFormPage")) ! 1740: StatsFormPage=Registry->ReadInteger("StatsFormPage"); ! 1741: if(Registry->ValueExists("ClientFormPage")) ! 1742: ClientFormPage=Registry->ReadInteger("ClientFormPage"); ! 1743: if(Registry->ValueExists("MailFormPage")) ! 1744: MailFormPage=Registry->ReadInteger("MailFormPage"); ! 1745: if(Registry->ValueExists("FtpFormPage")) ! 1746: FtpFormPage=Registry->ReadInteger("FtpFormPage"); ! 1747: if(Registry->ValueExists("WebFormPage")) ! 1748: WebFormPage=Registry->ReadInteger("WebFormPage"); ! 1749: ! 1750: TelnetForm->Log->Color=ReadColor(Registry,"TelnetLog"); ! 1751: ReadFont("TelnetLog",TelnetForm->Log->Font); ! 1752: EventsForm->Log->Color=ReadColor(Registry,"EventsLog"); ! 1753: ReadFont("EventsLog",EventsForm->Log->Font); ! 1754: ServicesForm->Log->Color=ReadColor(Registry,"ServicesLog"); ! 1755: ReadFont("ServicesLog",ServicesForm->Log->Font); ! 1756: MailForm->Log->Color=ReadColor(Registry,"MailLog"); ! 1757: ReadFont("MailLog",MailForm->Log->Font); ! 1758: FtpForm->Log->Color=ReadColor(Registry,"FtpLog"); ! 1759: ReadFont("FtpLog",FtpForm->Log->Font); ! 1760: WebForm->Log->Color=ReadColor(Registry,"WebLog"); ! 1761: ReadFont("WebLog",WebForm->Log->Font); ! 1762: NodeForm->ListBox->Color=ReadColor(Registry,"NodeList"); ! 1763: ReadFont("NodeList",NodeForm->ListBox->Font); ! 1764: ClientForm->ListView->Color=ReadColor(Registry,"ClientList"); ! 1765: ReadFont("ClientList",ClientForm->ListView->Font); ! 1766: ! 1767: if(Registry->ValueExists("TelnetFormTop")) ! 1768: TelnetForm->Top=Registry->ReadInteger("TelnetFormTop"); ! 1769: if(Registry->ValueExists("TelnetFormLeft")) ! 1770: TelnetForm->Left=Registry->ReadInteger("TelnetFormLeft"); ! 1771: if(Registry->ValueExists("TelnetFormWidth")) ! 1772: TelnetForm->Width=Registry->ReadInteger("TelnetFormWidth"); ! 1773: if(Registry->ValueExists("TelnetFormHeight")) ! 1774: TelnetForm->Height=Registry->ReadInteger("TelnetFormHeight"); ! 1775: ! 1776: if(Registry->ValueExists("EventsFormTop")) ! 1777: EventsForm->Top=Registry->ReadInteger("EventsFormTop"); ! 1778: if(Registry->ValueExists("EventsFormLeft")) ! 1779: EventsForm->Left=Registry->ReadInteger("EventsFormLeft"); ! 1780: if(Registry->ValueExists("EventsFormWidth")) ! 1781: EventsForm->Width=Registry->ReadInteger("EventsFormWidth"); ! 1782: if(Registry->ValueExists("EventsFormHeight")) ! 1783: EventsForm->Height=Registry->ReadInteger("EventsFormHeight"); ! 1784: ! 1785: if(Registry->ValueExists("ServicesFormTop")) ! 1786: ServicesForm->Top=Registry->ReadInteger("ServicesFormTop"); ! 1787: if(Registry->ValueExists("ServicesFormLeft")) ! 1788: ServicesForm->Left=Registry->ReadInteger("ServicesFormLeft"); ! 1789: if(Registry->ValueExists("ServicesFormWidth")) ! 1790: ServicesForm->Width=Registry->ReadInteger("ServicesFormWidth"); ! 1791: if(Registry->ValueExists("ServicesFormHeight")) ! 1792: ServicesForm->Height=Registry->ReadInteger("ServicesFormHeight"); ! 1793: ! 1794: if(Registry->ValueExists("FtpFormTop")) ! 1795: FtpForm->Top=Registry->ReadInteger("FtpFormTop"); ! 1796: if(Registry->ValueExists("FtpFormLeft")) ! 1797: FtpForm->Left=Registry->ReadInteger("FtpFormLeft"); ! 1798: if(Registry->ValueExists("FtpFormWidth")) ! 1799: FtpForm->Width=Registry->ReadInteger("FtpFormWidth"); ! 1800: if(Registry->ValueExists("FtpFormHeight")) ! 1801: FtpForm->Height=Registry->ReadInteger("FtpFormHeight"); ! 1802: ! 1803: if(Registry->ValueExists("WebFormTop")) ! 1804: WebForm->Top=Registry->ReadInteger("WebFormTop"); ! 1805: if(Registry->ValueExists("WebFormLeft")) ! 1806: WebForm->Left=Registry->ReadInteger("WebFormLeft"); ! 1807: if(Registry->ValueExists("WebFormWidth")) ! 1808: WebForm->Width=Registry->ReadInteger("WebFormWidth"); ! 1809: if(Registry->ValueExists("WebFormHeight")) ! 1810: WebForm->Height=Registry->ReadInteger("WebFormHeight"); ! 1811: ! 1812: if(Registry->ValueExists("MailFormTop")) ! 1813: MailForm->Top=Registry->ReadInteger("MailFormTop"); ! 1814: if(Registry->ValueExists("MailFormLeft")) ! 1815: MailForm->Left=Registry->ReadInteger("MailFormLeft"); ! 1816: if(Registry->ValueExists("MailFormWidth")) ! 1817: MailForm->Width=Registry->ReadInteger("MailFormWidth"); ! 1818: if(Registry->ValueExists("MailFormHeight")) ! 1819: MailForm->Height=Registry->ReadInteger("MailFormHeight"); ! 1820: ! 1821: if(Registry->ValueExists("NodeFormTop")) ! 1822: NodeForm->Top=Registry->ReadInteger("NodeFormTop"); ! 1823: if(Registry->ValueExists("NodeFormLeft")) ! 1824: NodeForm->Left=Registry->ReadInteger("NodeFormLeft"); ! 1825: if(Registry->ValueExists("NodeFormWidth")) ! 1826: NodeForm->Width=Registry->ReadInteger("NodeFormWidth"); ! 1827: if(Registry->ValueExists("NodeFormHeight")) ! 1828: NodeForm->Height=Registry->ReadInteger("NodeFormHeight"); ! 1829: ! 1830: if(Registry->ValueExists("StatsFormTop")) ! 1831: StatsForm->Top=Registry->ReadInteger("StatsFormTop"); ! 1832: if(Registry->ValueExists("StatsFormLeft")) ! 1833: StatsForm->Left=Registry->ReadInteger("StatsFormLeft"); ! 1834: if(Registry->ValueExists("StatsFormWidth")) ! 1835: StatsForm->Width=Registry->ReadInteger("StatsFormWidth"); ! 1836: if(Registry->ValueExists("StatsFormHeight")) ! 1837: StatsForm->Height=Registry->ReadInteger("StatsFormHeight"); ! 1838: ! 1839: if(Registry->ValueExists("ClientFormTop")) ! 1840: ClientForm->Top=Registry->ReadInteger("ClientFormTop"); ! 1841: if(Registry->ValueExists("ClientFormLeft")) ! 1842: ClientForm->Left=Registry->ReadInteger("ClientFormLeft"); ! 1843: if(Registry->ValueExists("ClientFormWidth")) ! 1844: ClientForm->Width=Registry->ReadInteger("ClientFormWidth"); ! 1845: if(Registry->ValueExists("ClientFormHeight")) ! 1846: ClientForm->Height=Registry->ReadInteger("ClientFormHeight"); ! 1847: ! 1848: for(int i=0;i<ClientForm->ListView->Columns->Count;i++) { ! 1849: char str[128]; ! 1850: sprintf(str,"ClientListColumn%dWidth",i); ! 1851: if(Registry->ValueExists(str)) ! 1852: ClientForm->ListView->Columns->Items[i]->Width ! 1853: =Registry->ReadInteger(str); ! 1854: } ! 1855: ! 1856: if(Registry->ValueExists("ToolbarVisible")) ! 1857: Toolbar->Visible=Registry->ReadBool("ToolbarVisible"); ! 1858: ! 1859: ViewToolbarMenuItem->Checked=Toolbar->Visible; ! 1860: ViewStatusBarMenuItem->Checked=StatusBar->Visible; ! 1861: ! 1862: if(Registry->ValueExists("MaxLogLen")) ! 1863: MaxLogLen=Registry->ReadInteger("MaxLogLen"); ! 1864: ! 1865: if(Registry->ValueExists("LoginCommand")) ! 1866: LoginCommand=Registry->ReadString("LoginCommand"); ! 1867: if(Registry->ValueExists("ConfigCommand")) ! 1868: ConfigCommand=Registry->ReadString("ConfigCommand"); ! 1869: if(Registry->ValueExists("Password")) ! 1870: Password=Registry->ReadString("Password"); ! 1871: if(Registry->ValueExists("MinimizeToSysTray")) ! 1872: MinimizeToSysTray=Registry->ReadBool("MinimizeToSysTray"); ! 1873: if(Registry->ValueExists("UseFileAssociations")) ! 1874: UseFileAssociations=Registry->ReadBool("UseFileAssociations"); ! 1875: if(Registry->ValueExists("NodeDisplayInterval")) ! 1876: NodeForm->Timer->Interval=Registry->ReadInteger("NodeDisplayInterval")*1000; ! 1877: if(Registry->ValueExists("ClientDisplayInterval")) ! 1878: ClientForm->Timer->Interval=Registry->ReadInteger("ClientDisplayInterval")*1000; ! 1879: ! 1880: if(Registry->ValueExists("MailLogFile")) ! 1881: MailLogFile=Registry->ReadInteger("MailLogFile"); ! 1882: else ! 1883: MailLogFile=true; ! 1884: ! 1885: if(Registry->ValueExists("FtpLogFile")) ! 1886: FtpLogFile=Registry->ReadInteger("FtpLogFile"); ! 1887: else ! 1888: FtpLogFile=true; ! 1889: ! 1890: FILE* fp; ! 1891: if((!Registry->ValueExists("SysAutoStart") ! 1892: || (Registry->ValueExists("Imported") && Registry->ReadBool("Imported"))) ! 1893: && ini_file[0]) { ! 1894: if((fp=fopen(ini_file,"r"))==NULL) { ! 1895: char err[MAX_PATH*2]; ! 1896: sprintf(err,"Error %d opening initialization file: %s",errno,ini_file); ! 1897: Application->MessageBox(err,"ERROR",MB_OK|MB_ICONEXCLAMATION); ! 1898: Application->Terminate(); ! 1899: return; ! 1900: } ! 1901: sbbs_read_ini(fp ! 1902: ,&global ! 1903: ,&SysAutoStart ,&bbs_startup ! 1904: ,&FtpAutoStart ,&ftp_startup ! 1905: ,&WebAutoStart ,&web_startup ! 1906: ,&MailAutoStart ,&mail_startup ! 1907: ,&ServicesAutoStart ,&services_startup ! 1908: ); ! 1909: StatusBar->Panels->Items[4]->Text="Read " + AnsiString(ini_file); ! 1910: fclose(fp); ! 1911: ! 1912: } else { /* Legacy (v3.10-3.11) */ ! 1913: ! 1914: if(Registry->ValueExists("SysAutoStart")) ! 1915: SysAutoStart=Registry->ReadInteger("SysAutoStart"); ! 1916: else ! 1917: SysAutoStart=true; ! 1918: ! 1919: if(Registry->ValueExists("MailAutoStart")) ! 1920: MailAutoStart=Registry->ReadInteger("MailAutoStart"); ! 1921: else ! 1922: MailAutoStart=true; ! 1923: ! 1924: if(Registry->ValueExists("FtpAutoStart")) ! 1925: FtpAutoStart=Registry->ReadInteger("FtpAutoStart"); ! 1926: else ! 1927: FtpAutoStart=true; ! 1928: ! 1929: if(Registry->ValueExists("WebAutoStart")) ! 1930: WebAutoStart=Registry->ReadInteger("WebAutoStart"); ! 1931: else ! 1932: WebAutoStart=true; ! 1933: ! 1934: if(Registry->ValueExists("ServicesAutoStart")) ! 1935: ServicesAutoStart=Registry->ReadInteger("ServicesAutoStart"); ! 1936: else ! 1937: ServicesAutoStart=true; ! 1938: ! 1939: if(Registry->ValueExists("Hostname")) ! 1940: SAFECOPY(global.host_name,Registry->ReadString("Hostname").c_str()); ! 1941: if(Registry->ValueExists("CtrlDirectory")) ! 1942: SAFECOPY(global.ctrl_dir,Registry->ReadString("CtrlDirectory").c_str()); ! 1943: if(Registry->ValueExists("TempDirectory")) ! 1944: SAFECOPY(global.temp_dir,Registry->ReadString("TempDirectory").c_str()); ! 1945: ! 1946: if(Registry->ValueExists("SemFileCheckFrequency")) ! 1947: global.sem_chk_freq=Registry->ReadInteger("SemFileCheckFrequency"); ! 1948: ! 1949: /* JavaScript Operating Parameters */ ! 1950: if(Registry->ValueExists("JS_MaxBytes")) ! 1951: global.js.max_bytes=Registry->ReadInteger("JS_MaxBytes"); ! 1952: if(global.js.max_bytes==0) ! 1953: global.js.max_bytes=JAVASCRIPT_MAX_BYTES; ! 1954: if(Registry->ValueExists("JS_ContextStack")) ! 1955: global.js.cx_stack=Registry->ReadInteger("JS_ContextStack"); ! 1956: if(global.js.cx_stack==0) ! 1957: global.js.cx_stack=JAVASCRIPT_CONTEXT_STACK; ! 1958: if(Registry->ValueExists("JS_BranchLimit")) ! 1959: global.js.branch_limit=Registry->ReadInteger("JS_BranchLimit"); ! 1960: if(Registry->ValueExists("JS_GcInterval")) ! 1961: global.js.gc_interval=Registry->ReadInteger("JS_GcInterval"); ! 1962: if(Registry->ValueExists("JS_YieldInterval")) ! 1963: global.js.yield_interval=Registry->ReadInteger("JS_YieldInterval"); ! 1964: ! 1965: if(Registry->ValueExists("TelnetInterface")) ! 1966: bbs_startup.telnet_interface=Registry->ReadInteger("TelnetInterface"); ! 1967: if(Registry->ValueExists("RLoginInterface")) ! 1968: bbs_startup.rlogin_interface=Registry->ReadInteger("RLoginInterface"); ! 1969: ! 1970: if(Registry->ValueExists("TelnetPort")) ! 1971: bbs_startup.telnet_port=Registry->ReadInteger("TelnetPort"); ! 1972: if(Registry->ValueExists("RLoginPort")) ! 1973: bbs_startup.rlogin_port=Registry->ReadInteger("RLoginPort"); ! 1974: ! 1975: if(Registry->ValueExists("FirstNode")) ! 1976: bbs_startup.first_node=Registry->ReadInteger("FirstNode"); ! 1977: ! 1978: if(Registry->ValueExists("LastNode")) ! 1979: bbs_startup.last_node=Registry->ReadInteger("LastNode"); ! 1980: ! 1981: if(Registry->ValueExists("OutbufHighwaterMark")) ! 1982: bbs_startup.outbuf_highwater_mark=Registry->ReadInteger("OutbufHighwaterMark"); ! 1983: else ! 1984: bbs_startup.outbuf_highwater_mark=1024; ! 1985: if(Registry->ValueExists("OutbufDrainTimeout")) ! 1986: bbs_startup.outbuf_drain_timeout=Registry->ReadInteger("OutbufDrainTimeout"); ! 1987: else ! 1988: bbs_startup.outbuf_drain_timeout=10; ! 1989: ! 1990: if(Registry->ValueExists("AnswerSound")) ! 1991: SAFECOPY(bbs_startup.answer_sound ! 1992: ,Registry->ReadString("AnswerSound").c_str()); ! 1993: ! 1994: if(Registry->ValueExists("HangupSound")) ! 1995: SAFECOPY(bbs_startup.hangup_sound ! 1996: ,Registry->ReadString("HangupSound").c_str()); ! 1997: ! 1998: if(Registry->ValueExists("StartupOptions")) ! 1999: bbs_startup.options=Registry->ReadInteger("StartupOptions"); ! 2000: ! 2001: if(Registry->ValueExists("MailMaxClients")) ! 2002: mail_startup.max_clients=Registry->ReadInteger("MailMaxClients"); ! 2003: ! 2004: if(Registry->ValueExists("MailMaxInactivity")) ! 2005: mail_startup.max_inactivity=Registry->ReadInteger("MailMaxInactivity"); ! 2006: ! 2007: if(Registry->ValueExists("MailInterface")) ! 2008: mail_startup.interface_addr=Registry->ReadInteger("MailInterface"); ! 2009: ! 2010: if(Registry->ValueExists("MailMaxDeliveryAttempts")) ! 2011: mail_startup.max_delivery_attempts ! 2012: =Registry->ReadInteger("MailMaxDeliveryAttempts"); ! 2013: ! 2014: if(Registry->ValueExists("MailRescanFrequency")) ! 2015: mail_startup.rescan_frequency ! 2016: =Registry->ReadInteger("MailRescanFrequency"); ! 2017: ! 2018: if(Registry->ValueExists("MailLinesPerYield")) ! 2019: mail_startup.lines_per_yield ! 2020: =Registry->ReadInteger("MailLinesPerYield"); ! 2021: ! 2022: if(Registry->ValueExists("MailMaxRecipients")) ! 2023: mail_startup.max_recipients ! 2024: =Registry->ReadInteger("MailMaxRecipients"); ! 2025: ! 2026: if(Registry->ValueExists("MailMaxMsgSize")) ! 2027: mail_startup.max_msg_size ! 2028: =Registry->ReadInteger("MailMaxMsgSize"); ! 2029: ! 2030: if(Registry->ValueExists("MailSMTPPort")) ! 2031: mail_startup.smtp_port=Registry->ReadInteger("MailSMTPPort"); ! 2032: ! 2033: if(Registry->ValueExists("MailPOP3Port")) ! 2034: mail_startup.pop3_port=Registry->ReadInteger("MailPOP3Port"); ! 2035: ! 2036: if(Registry->ValueExists("MailRelayServer")) ! 2037: SAFECOPY(mail_startup.relay_server ! 2038: ,Registry->ReadString("MailRelayServer").c_str()); ! 2039: ! 2040: if(Registry->ValueExists("MailRelayPort")) ! 2041: mail_startup.relay_port=Registry->ReadInteger("MailRelayPort"); ! 2042: ! 2043: if(Registry->ValueExists("MailDefaultUser")) ! 2044: SAFECOPY(mail_startup.default_user ! 2045: ,Registry->ReadString("MailDefaultUser").c_str()); ! 2046: ! 2047: if(Registry->ValueExists("MailDNSBlacklistSubject")) ! 2048: SAFECOPY(mail_startup.dnsbl_tag ! 2049: ,Registry->ReadString("MailDNSBlacklistSubject").c_str()); ! 2050: else ! 2051: SAFECOPY(mail_startup.dnsbl_tag,"SPAM"); ! 2052: ! 2053: if(Registry->ValueExists("MailDNSBlacklistHeader")) ! 2054: SAFECOPY(mail_startup.dnsbl_hdr ! 2055: ,Registry->ReadString("MailDNSBlacklistHeader").c_str()); ! 2056: else ! 2057: SAFECOPY(mail_startup.dnsbl_hdr,"X-DNSBL"); ! 2058: ! 2059: if(Registry->ValueExists("MailDNSServer")) ! 2060: SAFECOPY(mail_startup.dns_server ! 2061: ,Registry->ReadString("MailDNSServer").c_str()); ! 2062: ! 2063: if(Registry->ValueExists("MailInboundSound")) ! 2064: SAFECOPY(mail_startup.inbound_sound ! 2065: ,Registry->ReadString("MailInboundSound").c_str()); ! 2066: ! 2067: if(Registry->ValueExists("MailOutboundSound")) ! 2068: SAFECOPY(mail_startup.outbound_sound ! 2069: ,Registry->ReadString("MailOutboundSound").c_str()); ! 2070: ! 2071: if(Registry->ValueExists("MailPOP3Sound")) ! 2072: SAFECOPY(mail_startup.pop3_sound ! 2073: ,Registry->ReadString("MailPOP3Sound").c_str()); ! 2074: ! 2075: if(Registry->ValueExists("MailOptions")) ! 2076: mail_startup.options=Registry->ReadInteger("MailOptions"); ! 2077: ! 2078: if(Registry->ValueExists("FtpMaxClients")) ! 2079: ftp_startup.max_clients=Registry->ReadInteger("FtpMaxClients"); ! 2080: ! 2081: if(Registry->ValueExists("FtpMaxInactivity")) ! 2082: ftp_startup.max_inactivity=Registry->ReadInteger("FtpMaxInactivity"); ! 2083: ! 2084: if(Registry->ValueExists("FtpQwkTimeout")) ! 2085: ftp_startup.qwk_timeout=Registry->ReadInteger("FtpQwkTimeout"); ! 2086: ! 2087: if(Registry->ValueExists("FtpInterface")) ! 2088: ftp_startup.interface_addr=Registry->ReadInteger("FtpInterface"); ! 2089: ! 2090: if(Registry->ValueExists("FtpPort")) ! 2091: ftp_startup.port=Registry->ReadInteger("FtpPort"); ! 2092: ! 2093: if(Registry->ValueExists("FtpAnswerSound")) ! 2094: SAFECOPY(ftp_startup.answer_sound ! 2095: ,Registry->ReadString("FtpAnswerSound").c_str()); ! 2096: ! 2097: if(Registry->ValueExists("FtpHangupSound")) ! 2098: SAFECOPY(ftp_startup.hangup_sound ! 2099: ,Registry->ReadString("FtpHangupSound").c_str()); ! 2100: ! 2101: if(Registry->ValueExists("FtpHackAttemptSound")) ! 2102: SAFECOPY(ftp_startup.hack_sound ! 2103: ,Registry->ReadString("FtpHackAttemptSound").c_str()); ! 2104: ! 2105: if(Registry->ValueExists("FtpIndexFileName")) ! 2106: SAFECOPY(ftp_startup.index_file_name ! 2107: ,Registry->ReadString("FtpIndexFileName").c_str()); ! 2108: ! 2109: if(Registry->ValueExists("FtpHtmlIndexFile")) ! 2110: SAFECOPY(ftp_startup.html_index_file ! 2111: ,Registry->ReadString("FtpHtmlIndexFile").c_str()); ! 2112: ! 2113: if(Registry->ValueExists("FtpHtmlIndexScript")) ! 2114: SAFECOPY(ftp_startup.html_index_script ! 2115: ,Registry->ReadString("FtpHtmlIndexScript").c_str()); ! 2116: ! 2117: if(Registry->ValueExists("FtpOptions")) ! 2118: ftp_startup.options=Registry->ReadInteger("FtpOptions"); ! 2119: ! 2120: if(Registry->ValueExists("ServicesInterface")) ! 2121: services_startup.interface_addr ! 2122: =Registry->ReadInteger("ServicesInterface"); ! 2123: ! 2124: if(Registry->ValueExists("ServicesAnswerSound")) ! 2125: SAFECOPY(services_startup.answer_sound ! 2126: ,Registry->ReadString("ServicesAnswerSound").c_str()); ! 2127: ! 2128: if(Registry->ValueExists("ServicesHangupSound")) ! 2129: SAFECOPY(services_startup.hangup_sound ! 2130: ,Registry->ReadString("ServicesHangupSound").c_str()); ! 2131: ! 2132: if(Registry->ValueExists("ServicesOptions")) ! 2133: services_startup.options=Registry->ReadInteger("ServicesOptions"); ! 2134: ! 2135: if(SaveIniSettings(Sender)) ! 2136: Registry->WriteBool("Imported",true); /* Use the .ini file for these settings from now on */ ! 2137: ! 2138: #if 0 ! 2139: /******************************************************/ ! 2140: /* Copy global values into each server startup struct */ ! 2141: /******************************************************/ ! 2142: ! 2143: /* used to be handled in bbs_start() */ ! 2144: SAFECOPY(bbs_startup.ctrl_dir,global.ctrl_dir); ! 2145: SAFECOPY(bbs_startup.temp_dir,global.temp_dir); ! 2146: SAFECOPY(bbs_startup.host_name,global.host_name); ! 2147: bbs_startup.sem_chk_freq=global.sem_chk_freq; ! 2148: ! 2149: /* JavaScript operational parameters */ ! 2150: bbs_startup.js_max_bytes=global.js.max_bytes; ! 2151: bbs_startup.js_cx_stack=global.js.cx_stack; ! 2152: bbs_startup.js_branch_limit=global.js.branch_limit; ! 2153: bbs_startup.js_gc_interval=global.js.gc_interval; ! 2154: bbs_startup.js_yield_interval=global.js.yield_interval; ! 2155: ! 2156: /* used to be handled in mail_start() */ ! 2157: SAFECOPY(mail_startup.ctrl_dir ! 2158: ,global.ctrl_dir); ! 2159: SAFECOPY(mail_startup.host_name ! 2160: ,global.host_name); ! 2161: mail_startup.sem_chk_freq=global.sem_chk_freq; ! 2162: ! 2163: /* used to be handled in ftp_start() */ ! 2164: SAFECOPY(ftp_startup.ctrl_dir ! 2165: ,global.ctrl_dir); ! 2166: SAFECOPY(ftp_startup.temp_dir ! 2167: ,global.temp_dir); ! 2168: SAFECOPY(ftp_startup.host_name ! 2169: ,global.host_name); ! 2170: ftp_startup.sem_chk_freq=global.sem_chk_freq; ! 2171: ! 2172: /* JavaScript operational parameters */ ! 2173: ftp_startup.js_max_bytes=global.js.max_bytes; ! 2174: ftp_startup.js_cx_stack=global.js.cx_stack; ! 2175: ! 2176: /* used to be handled in web_start() */ ! 2177: SAFECOPY(web_startup.ctrl_dir,global.ctrl_dir); ! 2178: SAFECOPY(web_startup.host_name,global.host_name); ! 2179: web_startup.sem_chk_freq=global.sem_chk_freq; ! 2180: ! 2181: /* JavaScript operational parameters */ ! 2182: web_startup.js_max_bytes=global.js.max_bytes; ! 2183: web_startup.js_cx_stack=global.js.cx_stack; ! 2184: ! 2185: /* used to be handled in ServicesStartExecute() */ ! 2186: SAFECOPY(services_startup.ctrl_dir,global.ctrl_dir); ! 2187: SAFECOPY(services_startup.host_name,global.host_name); ! 2188: services_startup.sem_chk_freq=global.sem_chk_freq; ! 2189: ! 2190: /* JavaScript operational parameters */ ! 2191: services_startup.js_max_bytes=global.js.max_bytes; ! 2192: services_startup.js_cx_stack=global.js.cx_stack; ! 2193: services_startup.js_branch_limit=global.js.branch_limit; ! 2194: services_startup.js_gc_interval=global.js.gc_interval; ! 2195: services_startup.js_yield_interval=global.js.yield_interval; ! 2196: #endif ! 2197: } ! 2198: ! 2199: Registry->CloseKey(); ! 2200: delete Registry; ! 2201: ! 2202: AnsiString CtrlDirectory = AnsiString(global.ctrl_dir); ! 2203: if(!FileExists(CtrlDirectory+"MAIN.CNF")) { ! 2204: Application->CreateForm(__classid(TCtrlPathDialog), &CtrlPathDialog); ! 2205: if(CtrlPathDialog->ShowModal()!=mrOk) { ! 2206: Application->Terminate(); ! 2207: return; ! 2208: } ! 2209: CtrlDirectory=CtrlPathDialog->Edit->Text; ! 2210: delete CtrlPathDialog; ! 2211: } ! 2212: if(CtrlDirectory.UpperCase().AnsiPos("MAIN.CNF")) ! 2213: CtrlDirectory.SetLength(CtrlDirectory.Length()-8); ! 2214: SAFECOPY(global.ctrl_dir,CtrlDirectory.c_str()); ! 2215: memset(&cfg,0,sizeof(cfg)); ! 2216: SAFECOPY(cfg.ctrl_dir,global.ctrl_dir); ! 2217: cfg.size=sizeof(cfg); ! 2218: cfg.node_num=bbs_startup.first_node; ! 2219: char error[256]; ! 2220: SAFECOPY(error,UNKNOWN_LOAD_ERROR); ! 2221: if(!load_cfg(&cfg, NULL, TRUE, error)) { ! 2222: Application->MessageBox(error,"ERROR Loading Configuration" ! 2223: ,MB_OK|MB_ICONEXCLAMATION); ! 2224: Application->Terminate(); ! 2225: return; ! 2226: } ! 2227: ! 2228: recycle_semfiles=semfile_list_init(cfg.ctrl_dir,"recycle","ctrl"); ! 2229: semfile_list_check(&initialized,recycle_semfiles); ! 2230: ! 2231: shutdown_semfiles=semfile_list_init(cfg.ctrl_dir,"shutdown","ctrl"); ! 2232: semfile_list_check(&initialized,shutdown_semfiles); ! 2233: ! 2234: if(!(cfg.sys_misc&SM_LOCAL_TZ)) { ! 2235: if(putenv("TZ=UTC0")) { ! 2236: Application->MessageBox("Error setting timezone" ! 2237: ,"ERROR",MB_OK|MB_ICONEXCLAMATION); ! 2238: Application->Terminate(); ! 2239: } ! 2240: tzset(); ! 2241: } ! 2242: ! 2243: if(cfg.new_install) { ! 2244: Application->BringToFront(); ! 2245: for(int i=0;i<10;i++) { ! 2246: Application->ProcessMessages(); ! 2247: Sleep(300); // Let 'em see the logo for a bit ! 2248: } ! 2249: BBSConfigWizardMenuItemClick(Sender); ! 2250: } ! 2251: ! 2252: if(bbs_startup.options&BBS_OPT_MUTE) ! 2253: SoundToggle->Checked=false; ! 2254: else ! 2255: SoundToggle->Checked=true; ! 2256: ! 2257: if(bbs_startup.options&BBS_OPT_SYSOP_AVAILABLE) ! 2258: ChatToggle->Checked=true; ! 2259: else ! 2260: ChatToggle->Checked=false; ! 2261: ! 2262: if(!NodeFormFloating) ! 2263: NodeForm->ManualDock(PageControl(NodeFormPage),NULL,alClient); ! 2264: if(!ClientFormFloating) ! 2265: ClientForm->ManualDock(PageControl(ClientFormPage),NULL,alClient); ! 2266: if(!StatsFormFloating) ! 2267: StatsForm->ManualDock(PageControl(StatsFormPage),NULL,alClient); ! 2268: if(!MailFormFloating) ! 2269: MailForm->ManualDock(PageControl(MailFormPage),NULL,alClient); ! 2270: if(!TelnetFormFloating) ! 2271: TelnetForm->ManualDock(PageControl(TelnetFormPage),NULL,alClient); ! 2272: if(!EventsFormFloating) ! 2273: EventsForm->ManualDock(PageControl(EventsFormPage),NULL,alClient); ! 2274: if(!ServicesFormFloating) ! 2275: ServicesForm->ManualDock(PageControl(ServicesFormPage),NULL,alClient); ! 2276: if(!FtpFormFloating) ! 2277: FtpForm->ManualDock(PageControl(FtpFormPage),NULL,alClient); ! 2278: if(!WebFormFloating) ! 2279: WebForm->ManualDock(PageControl(WebFormPage),NULL,alClient); ! 2280: ! 2281: NodeForm->Show(); ! 2282: // ViewNodes->Checked=NodeFormVisible, ViewNodesExecute(Sender); ! 2283: ClientForm->Show(); ! 2284: // ViewClients->Checked=ClientFormVisible, ViewClientsExecute(Sender); ! 2285: StatsForm->Show(); ! 2286: // ViewStats->Checked=StatsFormVisible, ViewStatsExecute(Sender); ! 2287: TelnetForm->Show(); ! 2288: // ViewTelnet->Checked=TelnetFormVisible, ViewTelnetExecute(Sender); ! 2289: EventsForm->Show(); ! 2290: // ViewEvents->Checked=EventsFormVisible, ViewEventsExecute(Sender); ! 2291: FtpForm->Show(); ! 2292: // ViewFtpServer->Checked=FtpFormVisible, ViewFtpServerExecute(Sender); ! 2293: WebForm->Show(); ! 2294: // ViewWebServer->Checked=WebFormVisible; ! 2295: // WebForm->Visible=ViewWebServer->Checked; ! 2296: MailForm->Show(); ! 2297: // ViewMailServer->Checked=MailFormVisible,ViewMailServerExecute(Sender); ! 2298: ServicesForm->Show(); ! 2299: // ViewServices->Checked=ServicesFormVisible,ViewServicesExecute(Sender); ! 2300: ! 2301: UpperLeftPageControl->Visible=true; ! 2302: UpperRightPageControl->Visible=true; ! 2303: LowerLeftPageControl->Visible=true; ! 2304: LowerRightPageControl->Visible=true; ! 2305: HorizontalSplitter->Visible=true; ! 2306: BottomPanel->Visible=true; ! 2307: TopPanel->Visible=true; ! 2308: ! 2309: // Work-around for CB5 PageControl anomaly ! 2310: int i; ! 2311: ! 2312: for(i=1;i<UpperLeftPageControl->PageCount;i++) ! 2313: UpperLeftPageControl->ActivePageIndex=i; ! 2314: UpperLeftPageControl->ActivePageIndex=0; ! 2315: ! 2316: for(i=1;i<UpperRightPageControl->PageCount;i++) ! 2317: UpperRightPageControl->ActivePageIndex=i; ! 2318: UpperRightPageControl->ActivePageIndex=0; ! 2319: ! 2320: for(i=1;i<LowerRightPageControl->PageCount;i++) ! 2321: LowerRightPageControl->ActivePageIndex=i; ! 2322: LowerRightPageControl->ActivePageIndex=0; ! 2323: ! 2324: for(i=1;i<LowerLeftPageControl->PageCount;i++) ! 2325: LowerLeftPageControl->ActivePageIndex=i; ! 2326: LowerLeftPageControl->ActivePageIndex=0; ! 2327: ! 2328: LogTimerTick(Sender); /* Open Log Mailslots */ ! 2329: ServiceStatusTimerTick(Sender); /* Query service config lengths */ ! 2330: ! 2331: if(SysAutoStart) ! 2332: TelnetStartExecute(Sender); ! 2333: if(MailAutoStart) ! 2334: MailStartExecute(Sender); ! 2335: if(FtpAutoStart) ! 2336: FtpStartExecute(Sender); ! 2337: if(WebAutoStart) ! 2338: WebStartExecute(Sender); ! 2339: if(ServicesAutoStart) ! 2340: ServicesStartExecute(Sender); ! 2341: ! 2342: NodeForm->Timer->Enabled=true; ! 2343: ClientForm->Timer->Enabled=true; ! 2344: ! 2345: SemFileTimer->Interval=global.sem_chk_freq; ! 2346: SemFileTimer->Enabled=true; ! 2347: ! 2348: StatsTimer->Interval=cfg.node_stat_check*1000; ! 2349: StatsTimer->Enabled=true; ! 2350: Initialized=true; ! 2351: ! 2352: UpTimer->Enabled=true; /* Start updating the status bar */ ! 2353: LogTimer->Enabled=true; ! 2354: ServiceStatusTimer->Enabled=true; ! 2355: ! 2356: if(!Application->Active) /* Starting up minimized? */ ! 2357: FormMinimize(Sender); /* Put icon in systray */ ! 2358: } ! 2359: //--------------------------------------------------------------------------- ! 2360: void __fastcall TMainForm::SaveRegistrySettings(TObject* Sender) ! 2361: { ! 2362: StatusBar->Panels->Items[4]->Text="Saving Registry Settings..."; ! 2363: ! 2364: // Write Registry keys ! 2365: TRegistry* Registry=new TRegistry; ! 2366: if(!Registry->OpenKey(REG_KEY,true)) { ! 2367: Application->MessageBox("Error creating registry key" ! 2368: ,REG_KEY,MB_OK|MB_ICONEXCLAMATION); ! 2369: Application->Terminate(); ! 2370: return; ! 2371: } ! 2372: Registry->WriteInteger("MainFormTop",Top); ! 2373: Registry->WriteInteger("MainFormLeft",Left); ! 2374: Registry->WriteInteger("MainFormHeight",Height); ! 2375: Registry->WriteInteger("MainFormWidth",Width); ! 2376: ! 2377: Registry->WriteInteger("NodeFormTop",NodeForm->Top); ! 2378: Registry->WriteInteger("NodeFormLeft",NodeForm->Left); ! 2379: Registry->WriteInteger("NodeFormHeight",NodeForm->Height); ! 2380: Registry->WriteInteger("NodeFormWidth",NodeForm->Width); ! 2381: ! 2382: Registry->WriteInteger("StatsFormTop",StatsForm->Top); ! 2383: Registry->WriteInteger("StatsFormLeft",StatsForm->Left); ! 2384: Registry->WriteInteger("StatsFormHeight",StatsForm->Height); ! 2385: Registry->WriteInteger("StatsFormWidth",StatsForm->Width); ! 2386: ! 2387: Registry->WriteInteger("ClientFormTop",ClientForm->Top); ! 2388: Registry->WriteInteger("ClientFormLeft",ClientForm->Left); ! 2389: Registry->WriteInteger("ClientFormHeight",ClientForm->Height); ! 2390: Registry->WriteInteger("ClientFormWidth",ClientForm->Width); ! 2391: ! 2392: for(int i=0;i<ClientForm->ListView->Columns->Count;i++) { ! 2393: char str[128]; ! 2394: sprintf(str,"ClientListColumn%dWidth",i); ! 2395: Registry->WriteInteger(str ! 2396: ,ClientForm->ListView->Columns->Items[i]->Width); ! 2397: } ! 2398: ! 2399: Registry->WriteInteger("TelnetFormTop",TelnetForm->Top); ! 2400: Registry->WriteInteger("TelnetFormLeft",TelnetForm->Left); ! 2401: Registry->WriteInteger("TelnetFormHeight",TelnetForm->Height); ! 2402: Registry->WriteInteger("TelnetFormWidth",TelnetForm->Width); ! 2403: ! 2404: Registry->WriteInteger("EventsFormTop",EventsForm->Top); ! 2405: Registry->WriteInteger("EventsFormLeft",EventsForm->Left); ! 2406: Registry->WriteInteger("EventsFormHeight",EventsForm->Height); ! 2407: Registry->WriteInteger("EventsFormWidth",EventsForm->Width); ! 2408: ! 2409: Registry->WriteInteger("ServicesFormTop",ServicesForm->Top); ! 2410: Registry->WriteInteger("ServicesFormLeft",ServicesForm->Left); ! 2411: Registry->WriteInteger("ServicesFormHeight",ServicesForm->Height); ! 2412: Registry->WriteInteger("ServicesFormWidth",ServicesForm->Width); ! 2413: ! 2414: Registry->WriteInteger("FtpFormTop",FtpForm->Top); ! 2415: Registry->WriteInteger("FtpFormLeft",FtpForm->Left); ! 2416: Registry->WriteInteger("FtpFormHeight",FtpForm->Height); ! 2417: Registry->WriteInteger("FtpFormWidth",FtpForm->Width); ! 2418: ! 2419: Registry->WriteInteger("WebFormTop",WebForm->Top); ! 2420: Registry->WriteInteger("WebFormLeft",WebForm->Left); ! 2421: Registry->WriteInteger("WebFormHeight",WebForm->Height); ! 2422: Registry->WriteInteger("WebFormWidth",WebForm->Width); ! 2423: ! 2424: Registry->WriteInteger("MailFormTop",MailForm->Top); ! 2425: Registry->WriteInteger("MailFormLeft",MailForm->Left); ! 2426: Registry->WriteInteger("MailFormHeight",MailForm->Height); ! 2427: Registry->WriteInteger("MailFormWidth",MailForm->Width); ! 2428: ! 2429: Registry->WriteInteger("TopPanelHeight",TopPanel->Height); ! 2430: Registry->WriteInteger("UpperLeftPageControlWidth" ! 2431: ,UpperLeftPageControl->Width); ! 2432: Registry->WriteInteger("LowerLeftPageControlWidth" ! 2433: ,LowerLeftPageControl->Width); ! 2434: ! 2435: Registry->WriteBool("UndockableForms",UndockableForms); ! 2436: ! 2437: Registry->WriteBool("TelnetFormFloating",TelnetForm->Floating); ! 2438: Registry->WriteBool("EventsFormFloating",EventsForm->Floating); ! 2439: Registry->WriteBool("ServicesFormFloating",ServicesForm->Floating); ! 2440: Registry->WriteBool("NodeFormFloating",NodeForm->Floating); ! 2441: Registry->WriteBool("StatsFormFloating",StatsForm->Floating); ! 2442: Registry->WriteBool("ClientFormFloating",ClientForm->Floating); ! 2443: Registry->WriteBool("FtpFormFloating",FtpForm->Floating); ! 2444: Registry->WriteBool("WebFormFloating",WebForm->Floating); ! 2445: Registry->WriteBool("MailFormFloating",MailForm->Floating); ! 2446: ! 2447: Registry->WriteBool("TelnetFormVisible",TelnetForm->Visible); ! 2448: Registry->WriteBool("EventsFormVisible",EventsForm->Visible); ! 2449: Registry->WriteBool("ServicesFormVisible",ServicesForm->Visible); ! 2450: Registry->WriteBool("NodeFormVisible",NodeForm->Visible); ! 2451: Registry->WriteBool("StatsFormVisible",StatsForm->Visible); ! 2452: Registry->WriteBool("ClientFormVisible",ClientForm->Visible); ! 2453: Registry->WriteBool("FtpFormVisible",FtpForm->Visible); ! 2454: Registry->WriteBool("WebFormVisible",WebForm->Visible); ! 2455: Registry->WriteBool("MailFormVisible",MailForm->Visible); ! 2456: ! 2457: Registry->WriteInteger("TelnetFormPage" ! 2458: ,PageNum((TPageControl*)TelnetForm->HostDockSite)); ! 2459: Registry->WriteInteger("EventsFormPage" ! 2460: ,PageNum((TPageControl*)EventsForm->HostDockSite)); ! 2461: Registry->WriteInteger("ServicesFormPage" ! 2462: ,PageNum((TPageControl*)ServicesForm->HostDockSite)); ! 2463: Registry->WriteInteger("NodeFormPage" ! 2464: ,PageNum((TPageControl*)NodeForm->HostDockSite)); ! 2465: Registry->WriteInteger("MailFormPage" ! 2466: ,PageNum((TPageControl*)MailForm->HostDockSite)); ! 2467: Registry->WriteInteger("FtpFormPage" ! 2468: ,PageNum((TPageControl*)FtpForm->HostDockSite)); ! 2469: Registry->WriteInteger("WebFormPage" ! 2470: ,PageNum((TPageControl*)WebForm->HostDockSite)); ! 2471: Registry->WriteInteger("StatsFormPage" ! 2472: ,PageNum((TPageControl*)StatsForm->HostDockSite)); ! 2473: Registry->WriteInteger("ClientFormPage" ! 2474: ,PageNum((TPageControl*)ClientForm->HostDockSite)); ! 2475: ! 2476: WriteColor(Registry,"TelnetLog",TelnetForm->Log->Color); ! 2477: WriteFont("TelnetLog",TelnetForm->Log->Font); ! 2478: WriteColor(Registry,"EventsLog",EventsForm->Log->Color); ! 2479: WriteFont("EventsLog",EventsForm->Log->Font); ! 2480: WriteColor(Registry,"ServicesLog",ServicesForm->Log->Color); ! 2481: WriteFont("ServicesLog",ServicesForm->Log->Font); ! 2482: WriteColor(Registry,"MailLog",MailForm->Log->Color); ! 2483: WriteFont("MailLog",MailForm->Log->Font); ! 2484: WriteColor(Registry,"FtpLog",FtpForm->Log->Color); ! 2485: WriteFont("FtpLog",FtpForm->Log->Font); ! 2486: WriteColor(Registry,"WebLog",WebForm->Log->Color); ! 2487: WriteFont("WebLog",WebForm->Log->Font); ! 2488: WriteColor(Registry,"NodeList",NodeForm->ListBox->Color); ! 2489: WriteFont("NodeList",NodeForm->ListBox->Font); ! 2490: WriteColor(Registry,"ClientList",ClientForm->ListView->Color); ! 2491: WriteFont("ClientList",ClientForm->ListView->Font); ! 2492: ! 2493: Registry->WriteBool("ToolBarVisible",Toolbar->Visible); ! 2494: Registry->WriteBool("StatusBarVisible",StatusBar->Visible); ! 2495: ! 2496: Registry->WriteInteger("MaxLogLen",MaxLogLen); ! 2497: ! 2498: Registry->WriteString("LoginCommand",LoginCommand); ! 2499: Registry->WriteString("ConfigCommand",ConfigCommand); ! 2500: Registry->WriteString("Password",Password); ! 2501: Registry->WriteBool("MinimizeToSysTray",MinimizeToSysTray); ! 2502: Registry->WriteBool("UseFileAssociations",UseFileAssociations); ! 2503: Registry->WriteInteger("NodeDisplayInterval",NodeForm->Timer->Interval/1000); ! 2504: Registry->WriteInteger("ClientDisplayInterval",ClientForm->Timer->Interval/1000); ! 2505: ! 2506: Registry->WriteInteger( "SpyTerminalWidth" ! 2507: ,SpyTerminalWidth); ! 2508: Registry->WriteInteger( "SpyTerminalHeight" ! 2509: ,SpyTerminalHeight); ! 2510: Registry->WriteString( "SpyTerminalFontName" ! 2511: ,SpyTerminalFont->Name); ! 2512: Registry->WriteInteger( "SpyTerminalFontSize" ! 2513: ,SpyTerminalFont->Size); ! 2514: Registry->WriteBool( "SpyTerminalKeyboardActive" ! 2515: ,SpyTerminalKeyboardActive); ! 2516: ! 2517: Registry->CloseKey(); ! 2518: delete Registry; ! 2519: } ! 2520: //--------------------------------------------------------------------------- ! 2521: void __fastcall TMainForm::SaveSettings(TObject* Sender) ! 2522: { ! 2523: SaveIniSettings(Sender); ! 2524: SaveRegistrySettings(Sender); ! 2525: } ! 2526: //--------------------------------------------------------------------------- ! 2527: bool __fastcall TMainForm::SaveIniSettings(TObject* Sender) ! 2528: { ! 2529: FILE* fp=NULL; ! 2530: if(ini_file[0]==0) ! 2531: return(false); ! 2532: ! 2533: if((fp=fopen(ini_file,"r+"))==NULL) { ! 2534: char err[MAX_PATH*2]; ! 2535: SAFEPRINTF2(err,"Error %d opening initialization file: %s",errno,ini_file); ! 2536: Application->MessageBox(err,"ERROR",MB_OK|MB_ICONEXCLAMATION); ! 2537: return(false); ! 2538: } ! 2539: ! 2540: StatusBar->Panels->Items[4]->Text="Saving Settings to " + AnsiString(ini_file) + " ..."; ! 2541: ! 2542: bool success = sbbs_write_ini(fp ! 2543: ,&cfg ! 2544: ,&global ! 2545: ,SysAutoStart ,&bbs_startup ! 2546: ,FtpAutoStart ,&ftp_startup ! 2547: ,WebAutoStart ,&web_startup ! 2548: ,MailAutoStart ,&mail_startup ! 2549: ,ServicesAutoStart ,&services_startup ! 2550: ); ! 2551: fclose(fp); ! 2552: ! 2553: if(!success) { ! 2554: char err[MAX_PATH*2]; ! 2555: SAFEPRINTF(err,"Failure writing initialization file: %s",ini_file); ! 2556: Application->MessageBox(err,"ERROR",MB_OK|MB_ICONEXCLAMATION); ! 2557: } ! 2558: ! 2559: return(success); ! 2560: } ! 2561: ! 2562: //--------------------------------------------------------------------------- ! 2563: void __fastcall TMainForm::ImportFormSettings(TMemIniFile* IniFile, const char* section, TForm* Form) ! 2564: { ! 2565: Form->Top=IniFile->ReadInteger(section,"Top",Form->Top); ! 2566: Form->Left=IniFile->ReadInteger(section,"Left",Form->Left); ! 2567: Form->Width=IniFile->ReadInteger(section,"Width",Form->Width); ! 2568: Form->Height=IniFile->ReadInteger(section,"Height",Form->Height); ! 2569: } ! 2570: //--------------------------------------------------------------------------- ! 2571: void __fastcall TMainForm::ExportFormSettings(TMemIniFile* IniFile, const char* section, TForm* Form) ! 2572: { ! 2573: IniFile->WriteInteger(section,"Top",Form->Top); ! 2574: IniFile->WriteInteger(section,"Left",Form->Left); ! 2575: IniFile->WriteInteger(section,"Width",Form->Width); ! 2576: IniFile->WriteInteger(section,"Height",Form->Height); ! 2577: IniFile->WriteInteger(section,"Page",PageNum((TPageControl*)Form->HostDockSite)); ! 2578: IniFile->WriteBool(section,"Floating",Form->Floating); ! 2579: } ! 2580: //--------------------------------------------------------------------------- ! 2581: void __fastcall TMainForm::ImportFont(TMemIniFile* IniFile, const char* section, AnsiString prefix, TFont* Font) ! 2582: { ! 2583: Font->Name=IniFile->ReadString(section,prefix + "Name",Font->Name); ! 2584: Font->Color=StringToColor(IniFile->ReadString(section,prefix + "Color",ColorToString(Font->Color))); ! 2585: Font->Height=IniFile->ReadInteger(section,prefix + "Height",Font->Height); ! 2586: Font->Size=IniFile->ReadInteger(section,prefix + "Size", Font->Size); ! 2587: IntToFontStyle(IniFile->ReadInteger(section,prefix + "Style",FontStyleToInt(Font)),Font); ! 2588: } ! 2589: //--------------------------------------------------------------------------- ! 2590: void __fastcall TMainForm::ExportFont(TMemIniFile* IniFile, const char* section, AnsiString prefix, TFont* Font) ! 2591: { ! 2592: IniFile->WriteString(section,prefix+"Name",Font->Name); ! 2593: IniFile->WriteString(section,prefix+"Color",ColorToString(Font->Color)); ! 2594: IniFile->WriteInteger(section,prefix+"Height",Font->Height); ! 2595: IniFile->WriteInteger(section,prefix+"Size",Font->Size); ! 2596: IniFile->WriteInteger(section,prefix+"Style",FontStyleToInt(Font)); ! 2597: } ! 2598: //--------------------------------------------------------------------------- ! 2599: void __fastcall TMainForm::ImportSettings(TObject* Sender) ! 2600: { ! 2601: OpenDialog->Filter="Settings files (*.ini)|*.ini|All files|*.*"; ! 2602: OpenDialog->FileName=AnsiString(global.ctrl_dir)+"sbbsctrl.ini"; ! 2603: if(!OpenDialog->Execute()) ! 2604: return; ! 2605: ! 2606: StatusBar->Panels->Items[4]->Text="Importing Settings..."; ! 2607: ! 2608: TMemIniFile* IniFile=new TMemIniFile(OpenDialog->FileName); ! 2609: ! 2610: const char* section = "Properties"; ! 2611: ! 2612: LoginCommand=IniFile->ReadString(section,"LoginCommand",LoginCommand); ! 2613: ConfigCommand=IniFile->ReadString(section,"ConfigCommand",ConfigCommand); ! 2614: Password=IniFile->ReadString(section,"Password",Password); ! 2615: MinimizeToSysTray=IniFile->ReadBool(section,"MinimizeToSysTray",MinimizeToSysTray); ! 2616: UseFileAssociations=IniFile->ReadBool(section,"UseFileAssociations" ,UseFileAssociations); ! 2617: UndockableForms=IniFile->ReadBool(section,"UndockableForms",UndockableForms); ! 2618: ! 2619: ImportFormSettings(IniFile,section="MainForm",MainForm); ! 2620: TopPanel->Height=IniFile->ReadInteger(section,"TopPanelHeight",TopPanel->Height); ! 2621: UpperLeftPageControl->Width=IniFile->ReadInteger(section,"UpperLeftPageControlWidth",UpperLeftPageControl->Width); ! 2622: LowerLeftPageControl->Width=IniFile->ReadInteger(section,"LowerLeftPageControlWidth",LowerLeftPageControl->Width); ! 2623: Toolbar->Visible=IniFile->ReadBool(section,"ToolBarVisible",Toolbar->Visible); ! 2624: StatusBar->Visible=IniFile->ReadBool(section,"StatusBarVisible",StatusBar->Visible); ! 2625: ! 2626: ImportFormSettings(IniFile,section="TelnetForm",TelnetForm); ! 2627: ImportFont(IniFile,section,"LogFont",TelnetForm->Log->Font); ! 2628: TelnetForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2629: ! 2630: ImportFormSettings(IniFile,section="EventsForm",EventsForm); ! 2631: ImportFont(IniFile,section,"LogFont",EventsForm->Log->Font); ! 2632: EventsForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2633: ! 2634: ImportFormSettings(IniFile,section="ServicesForm",ServicesForm); ! 2635: ImportFont(IniFile,section,"LogFont",ServicesForm->Log->Font); ! 2636: ServicesForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2637: ! 2638: ImportFormSettings(IniFile,section="FtpForm",FtpForm); ! 2639: ImportFont(IniFile,section,"LogFont",FtpForm->Log->Font); ! 2640: FtpLogFile=IniFile->ReadInteger(section,"LogFile",true); ! 2641: FtpForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2642: ! 2643: ImportFormSettings(IniFile,section="WebForm",WebForm); ! 2644: ImportFont(IniFile,section,"LogFont",WebForm->Log->Font); ! 2645: WebForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2646: ! 2647: ImportFormSettings(IniFile,section="MailForm",MailForm); ! 2648: ImportFont(IniFile,section,"LogFont",MailForm->Log->Font); ! 2649: MailLogFile=IniFile->ReadInteger(section,"LogFile",true); ! 2650: MailForm->Log->Color=StringToColor(IniFile->ReadString(section,"LogColor",clWindow)); ! 2651: ! 2652: ImportFormSettings(IniFile,section="NodeForm",NodeForm); ! 2653: ImportFont(IniFile,section,"ListFont",NodeForm->ListBox->Font); ! 2654: NodeForm->Timer->Interval=IniFile->ReadInteger(section,"DisplayInterval" ! 2655: ,NodeForm->Timer->Interval/1000)*1000; ! 2656: NodeForm->ListBox->Color=StringToColor(IniFile->ReadString(section,"ListColor",clWindow)); ! 2657: ! 2658: ImportFormSettings(IniFile,section="StatsForm",StatsForm); ! 2659: ! 2660: ImportFormSettings(IniFile,section="ClientForm",ClientForm); ! 2661: ImportFont(IniFile,section,"ListFont",ClientForm->ListView->Font); ! 2662: ClientForm->ListView->Color=StringToColor(IniFile->ReadString(section,"ListColor",clWindow)); ! 2663: ClientForm->Timer->Interval=IniFile->ReadInteger(section,"DisplayInterval" ! 2664: ,ClientForm->Timer->Interval/1000)*1000; ! 2665: for(int i=0;i<ClientForm->ListView->Columns->Count;i++) { ! 2666: char str[128]; ! 2667: sprintf(str,"Column%dWidth",i); ! 2668: if(IniFile->ValueExists(section,str)) ! 2669: ClientForm->ListView->Columns->Items[i]->Width ! 2670: =IniFile->ReadInteger(section,str,0); ! 2671: } ! 2672: ! 2673: section = "SpyTerminal"; ! 2674: SpyTerminalWidth=IniFile->ReadInteger(section, "Width", SpyTerminalWidth); ! 2675: SpyTerminalHeight=IniFile->ReadInteger(section, "Height", SpyTerminalHeight); ! 2676: SpyTerminalFont->Name=IniFile->ReadString(section, "FontName", SpyTerminalFont->Name); ! 2677: SpyTerminalFont->Size=IniFile->ReadInteger(section, "FontSize", SpyTerminalFont->Size); ! 2678: SpyTerminalKeyboardActive=IniFile->ReadBool(section, "KeyboardActive", SpyTerminalKeyboardActive); ! 2679: ! 2680: delete IniFile; ! 2681: ! 2682: Application->MessageBox(AnsiString("Successfully imported SBBSCTRL settings from " ! 2683: + OpenDialog->FileName).c_str(),"Successful Import",MB_OK); ! 2684: } ! 2685: //--------------------------------------------------------------------------- ! 2686: void __fastcall TMainForm::ExportSettings(TObject* Sender) ! 2687: { ! 2688: char str[128]; ! 2689: ! 2690: SaveDialog->Filter="Settings files (*.ini)|*.ini|All files|*.*"; ! 2691: SaveDialog->FileName=AnsiString(global.ctrl_dir)+"sbbsctrl.ini"; ! 2692: if(!SaveDialog->Execute()) ! 2693: return; ! 2694: ! 2695: TMemIniFile* IniFile=new TMemIniFile(SaveDialog->FileName); ! 2696: ! 2697: StatusBar->Panels->Items[4]->Text="Exporting Settings..."; ! 2698: ! 2699: const char* section = "Properties"; ! 2700: ! 2701: IniFile->WriteString(section,"LoginCommand",LoginCommand); ! 2702: IniFile->WriteString(section,"ConfigCommand",ConfigCommand); ! 2703: IniFile->WriteString(section,"Password",Password); ! 2704: IniFile->WriteBool(section,"MinimizeToSysTray",MinimizeToSysTray); ! 2705: IniFile->WriteBool(section,"UseFileAssociations",UseFileAssociations); ! 2706: IniFile->WriteBool(section,"UndockableForms",UndockableForms); ! 2707: ! 2708: ExportFormSettings(IniFile,section="MainForm",MainForm); ! 2709: IniFile->WriteInteger(section,"TopPanelHeight",TopPanel->Height); ! 2710: IniFile->WriteInteger(section,"UpperLeftPageControlWidth",UpperLeftPageControl->Width); ! 2711: IniFile->WriteInteger(section,"LowerLeftPageControlWidth",LowerLeftPageControl->Width); ! 2712: IniFile->WriteBool(section,"ToolBarVisible",Toolbar->Visible); ! 2713: IniFile->WriteBool(section,"StatusBarVisible",StatusBar->Visible); ! 2714: ! 2715: ExportFormSettings(IniFile,section = "NodeForm",NodeForm); ! 2716: ExportFont(IniFile,section,"ListFont",NodeForm->ListBox->Font); ! 2717: IniFile->WriteString(section,"ListColor",ColorToString(NodeForm->ListBox->Color)); ! 2718: IniFile->WriteInteger(section,"DisplayInterval",NodeForm->Timer->Interval/1000); ! 2719: ! 2720: ExportFormSettings(IniFile,section = "StatsForm",StatsForm); ! 2721: ! 2722: ExportFormSettings(IniFile,section = "ClientForm",ClientForm); ! 2723: ExportFont(IniFile,section,"ListFont",ClientForm->ListView->Font); ! 2724: IniFile->WriteString(section,"ListColor",ColorToString(ClientForm->ListView->Color)); ! 2725: IniFile->WriteInteger(section,"DisplayInterval",ClientForm->Timer->Interval/1000); ! 2726: for(int i=0;i<ClientForm->ListView->Columns->Count;i++) { ! 2727: char str[128]; ! 2728: sprintf(str,"Column%dWidth",i); ! 2729: IniFile->WriteInteger(section,str ! 2730: ,ClientForm->ListView->Columns->Items[i]->Width); ! 2731: } ! 2732: ! 2733: ExportFormSettings(IniFile,section = "TelnetForm",TelnetForm); ! 2734: ExportFont(IniFile,section,"LogFont",TelnetForm->Log->Font); ! 2735: ! 2736: ExportFormSettings(IniFile,section = "EventsForm",EventsForm); ! 2737: ExportFont(IniFile,section,"LogFont",EventsForm->Log->Font); ! 2738: ! 2739: ExportFormSettings(IniFile,section = "ServicesForm",ServicesForm); ! 2740: ExportFont(IniFile,section,"LogFont",ServicesForm->Log->Font); ! 2741: ! 2742: ExportFormSettings(IniFile,section = "FtpForm",FtpForm); ! 2743: ExportFont(IniFile,section,"LogFont",FtpForm->Log->Font); ! 2744: ! 2745: ExportFormSettings(IniFile,section = "MailForm",MailForm); ! 2746: ExportFont(IniFile,section,"LogFont",MailForm->Log->Font); ! 2747: ! 2748: section = "SpyTerminal"; ! 2749: IniFile->WriteInteger(section, "Width" ! 2750: ,SpyTerminalWidth); ! 2751: IniFile->WriteInteger(section, "Height" ! 2752: ,SpyTerminalHeight); ! 2753: IniFile->WriteString(section, "FontName" ! 2754: ,SpyTerminalFont->Name); ! 2755: IniFile->WriteInteger(section, "FontSize" ! 2756: ,SpyTerminalFont->Size); ! 2757: IniFile->WriteBool(section, "KeyboardActive" ! 2758: ,SpyTerminalKeyboardActive); ! 2759: ! 2760: IniFile->UpdateFile(); ! 2761: ! 2762: delete IniFile; ! 2763: ! 2764: Application->MessageBox(AnsiString("Successfully exported SBBSCTRL settings to " ! 2765: + SaveDialog->FileName).c_str(),"Successful Export",MB_OK); ! 2766: } ! 2767: //--------------------------------------------------------------------------- ! 2768: ! 2769: void __fastcall TMainForm::ViewStatusBarMenuItemClick(TObject *Sender) ! 2770: { ! 2771: StatusBar->Visible=!StatusBar->Visible; ! 2772: ViewStatusBarMenuItem->Checked=StatusBar->Visible; ! 2773: } ! 2774: //--------------------------------------------------------------------------- ! 2775: void __fastcall TMainForm::HelpAboutMenuItemClick(TObject *Sender) ! 2776: { ! 2777: Application->CreateForm(__classid(TAboutBoxForm), &AboutBoxForm); ! 2778: AboutBoxForm->ShowModal(); ! 2779: delete AboutBoxForm; ! 2780: } ! 2781: //--------------------------------------------------------------------------- ! 2782: BOOL MuteService(SC_HANDLE svc, SERVICE_STATUS* status, BOOL mute) ! 2783: { ! 2784: if(svc==NULL || controlService==NULL) ! 2785: return(FALSE); ! 2786: ! 2787: return controlService(svc ! 2788: ,mute ? SERVICE_CONTROL_MUTE:SERVICE_CONTROL_UNMUTE, status); ! 2789: } ! 2790: //--------------------------------------------------------------------------- ! 2791: void __fastcall TMainForm::SoundToggleExecute(TObject *Sender) ! 2792: { ! 2793: SoundToggle->Checked=!SoundToggle->Checked; ! 2794: ! 2795: if(!SoundToggle->Checked) { ! 2796: bbs_startup.options|=BBS_OPT_MUTE; ! 2797: ftp_startup.options|=FTP_OPT_MUTE; ! 2798: web_startup.options|=FTP_OPT_MUTE; ! 2799: mail_startup.options|=MAIL_OPT_MUTE; ! 2800: services_startup.options|=MAIL_OPT_MUTE; ! 2801: } else { ! 2802: bbs_startup.options&=~BBS_OPT_MUTE; ! 2803: ftp_startup.options&=~FTP_OPT_MUTE; ! 2804: web_startup.options&=~FTP_OPT_MUTE; ! 2805: mail_startup.options&=~MAIL_OPT_MUTE; ! 2806: services_startup.options&=~MAIL_OPT_MUTE; ! 2807: } ! 2808: MuteService(bbs_svc,&bbs_svc_status,!SoundToggle->Checked); ! 2809: MuteService(ftp_svc,&ftp_svc_status,!SoundToggle->Checked); ! 2810: MuteService(web_svc,&web_svc_status,!SoundToggle->Checked); ! 2811: MuteService(mail_svc,&mail_svc_status,!SoundToggle->Checked); ! 2812: MuteService(services_svc,&services_svc_status,!SoundToggle->Checked); ! 2813: } ! 2814: //--------------------------------------------------------------------------- ! 2815: void __fastcall TMainForm::BBSStatisticsLogMenuItemClick(TObject *Sender) ! 2816: { ! 2817: StatsForm->LogButtonClick(Sender); ! 2818: } ! 2819: //--------------------------------------------------------------------------- ! 2820: ! 2821: void __fastcall TMainForm::ForceTimedEventMenuItemClick(TObject *Sender) ! 2822: { ! 2823: int i,file; ! 2824: char str[MAX_PATH+1]; ! 2825: ! 2826: Application->CreateForm(__classid(TCodeInputForm), &CodeInputForm); ! 2827: CodeInputForm->Label->Caption="Event Internal Code"; ! 2828: CodeInputForm->ComboBox->Items->Clear(); ! 2829: for(i=0;i<cfg.total_events;i++) ! 2830: CodeInputForm->ComboBox->Items->Add( ! 2831: AnsiString(cfg.event[i]->code).UpperCase()); ! 2832: CodeInputForm->ComboBox->ItemIndex=0; ! 2833: if(CodeInputForm->ShowModal()==mrOk ! 2834: && CodeInputForm->ComboBox->Text.Length()) { ! 2835: for(i=0;i<cfg.total_events;i++) { ! 2836: if(!stricmp(CodeInputForm->ComboBox->Text.c_str(),cfg.event[i]->code)) { ! 2837: sprintf(str,"%s%s.now",cfg.data_dir,cfg.event[i]->code); ! 2838: if((file=_sopen(str,O_CREAT|O_TRUNC|O_WRONLY ! 2839: ,SH_DENYRW,S_IREAD|S_IWRITE))!=-1) ! 2840: close(file); ! 2841: break; ! 2842: } ! 2843: } ! 2844: if(i>=cfg.total_events) ! 2845: Application->MessageBox(CodeInputForm->ComboBox->Text.c_str() ! 2846: ,"Event Code Not Found",MB_OK|MB_ICONEXCLAMATION); ! 2847: } ! 2848: delete CodeInputForm; ! 2849: } ! 2850: //--------------------------------------------------------------------------- ! 2851: ! 2852: void __fastcall TMainForm::ForceNetworkCalloutMenuItemClick( ! 2853: TObject *Sender) ! 2854: { ! 2855: int i,file; ! 2856: char str[MAX_PATH+1]; ! 2857: ! 2858: Application->CreateForm(__classid(TCodeInputForm), &CodeInputForm); ! 2859: CodeInputForm->Label->Caption="Hub QWK-ID"; ! 2860: CodeInputForm->ComboBox->Items->Clear(); ! 2861: for(i=0;i<cfg.total_qhubs;i++) ! 2862: CodeInputForm->ComboBox->Items->Add( ! 2863: AnsiString(cfg.qhub[i]->id).UpperCase()); ! 2864: CodeInputForm->ComboBox->ItemIndex=0; ! 2865: if(CodeInputForm->ShowModal()==mrOk ! 2866: && CodeInputForm->ComboBox->Text.Length()) { ! 2867: for(i=0;i<cfg.total_qhubs;i++) { ! 2868: if(!stricmp(CodeInputForm->ComboBox->Text.c_str(),cfg.qhub[i]->id)) { ! 2869: sprintf(str,"%sqnet/%s.now",cfg.data_dir,cfg.qhub[i]->id); ! 2870: if((file=_sopen(str,O_CREAT|O_TRUNC|O_WRONLY ! 2871: ,SH_DENYRW,S_IREAD|S_IWRITE))!=-1) ! 2872: close(file); ! 2873: break; ! 2874: } ! 2875: } ! 2876: if(i>=cfg.total_qhubs) ! 2877: Application->MessageBox(CodeInputForm->ComboBox->Text.c_str() ! 2878: ,"QWKnet Hub ID Not Found",MB_OK|MB_ICONEXCLAMATION); ! 2879: } ! 2880: delete CodeInputForm; ! 2881: } ! 2882: //--------------------------------------------------------------------------- ! 2883: ! 2884: void __fastcall TMainForm::TextMenuItemEditClick(TObject *Sender) ! 2885: { ! 2886: char filename[MAX_PATH+1]; ! 2887: ! 2888: sprintf(filename,"%s%s" ! 2889: ,MainForm->cfg.text_dir ! 2890: ,((TMenuItem*)Sender)->Hint.c_str()); ! 2891: EditFile(filename,((TMenuItem*)Sender)->Caption); ! 2892: } ! 2893: ! 2894: //--------------------------------------------------------------------------- ! 2895: void __fastcall TMainForm::CtrlMenuItemEditClick(TObject *Sender) ! 2896: { ! 2897: char filename[MAX_PATH+1]; ! 2898: ! 2899: iniFileName(filename,sizeof(filename) ! 2900: ,MainForm->cfg.ctrl_dir ! 2901: ,((TMenuItem*)Sender)->Hint.c_str()); ! 2902: EditFile(filename,((TMenuItem*)Sender)->Caption); ! 2903: } ! 2904: void __fastcall TMainForm::DataMenuItemClick(TObject *Sender) ! 2905: { ! 2906: char filename[MAX_PATH+1]; ! 2907: ! 2908: sprintf(filename,"%s%s" ! 2909: ,MainForm->cfg.data_dir ! 2910: ,((TMenuItem*)Sender)->Hint.c_str()); ! 2911: EditFile(filename,((TMenuItem*)Sender)->Caption); ! 2912: } ! 2913: //--------------------------------------------------------------------------- ! 2914: ! 2915: //--------------------------------------------------------------------------- ! 2916: ! 2917: void __fastcall TMainForm::UpTimerTick(TObject *Sender) ! 2918: { ! 2919: char str[128]; ! 2920: char days[64]; ! 2921: static time_t start; ! 2922: ulong up; ! 2923: ! 2924: if(!start) ! 2925: start=time(NULL); ! 2926: up=time(NULL)-start; ! 2927: ! 2928: days[0]=0; ! 2929: if((up/(24*60*60))>=2) { ! 2930: sprintf(days,"%u days ",up/(24*60*60)); ! 2931: up%=(24*60*60); ! 2932: } ! 2933: sprintf(str,"Up: %s%u:%02u" ! 2934: ,days ! 2935: ,up/(60*60) ! 2936: ,(up/60)%60 ! 2937: ); ! 2938: AnsiString Str=AnsiString(str); ! 2939: if(MainForm->StatusBar->Panels->Items[4]->Text!=Str) ! 2940: MainForm->StatusBar->Panels->Items[4]->Text=Str; ! 2941: #if 0 ! 2942: THeapStatus hp=GetHeapStatus(); ! 2943: sprintf(str,"Mem Used: %lu bytes",hp.TotalAllocated); ! 2944: Str=AnsiString(str); ! 2945: if(MainForm->StatusBar->Panels->Items[5]->Text!=Str) ! 2946: MainForm->StatusBar->Panels->Items[5]->Text=Str; ! 2947: #endif ! 2948: if(TrayIcon->Visible) { ! 2949: /* Animate TrayIcon when in use */ ! 2950: AnsiString NumClients; ! 2951: try { ! 2952: if(clients) { ! 2953: TrayIcon->IconIndex=(TrayIcon->IconIndex==4) ? 59 : 4; ! 2954: NumClients=" ("+AnsiString(clients)+" client"; ! 2955: if(clients>1) ! 2956: NumClients+="s"; ! 2957: NumClients+=")"; ! 2958: } else if(TrayIcon->IconIndex!=4) ! 2959: TrayIcon->IconIndex=4; ! 2960: TrayIcon->Hint=AnsiString(APP_TITLE)+NumClients; ! 2961: } catch(...) { /* ignore exceptions here */ }; ! 2962: } ! 2963: } ! 2964: //--------------------------------------------------------------------------- ! 2965: ! 2966: void __fastcall TMainForm::BBSViewErrorLogMenuItemClick(TObject *Sender) ! 2967: { ! 2968: char filename[MAX_PATH+1]; ! 2969: ! 2970: sprintf(filename,"%sERROR.LOG" ! 2971: ,MainForm->cfg.logs_dir); ! 2972: ViewFile(filename,"Error Log"); ! 2973: } ! 2974: //--------------------------------------------------------------------------- ! 2975: ! 2976: void __fastcall TMainForm::ChatToggleExecute(TObject *Sender) ! 2977: { ! 2978: ChatToggle->Checked=!ChatToggle->Checked; ! 2979: if(ChatToggle->Checked) ! 2980: bbs_startup.options|=BBS_OPT_SYSOP_AVAILABLE; ! 2981: else ! 2982: bbs_startup.options&=~BBS_OPT_SYSOP_AVAILABLE; ! 2983: ! 2984: if(bbs_svc!=NULL && controlService!=NULL) ! 2985: controlService(bbs_svc ! 2986: ,ChatToggle->Checked ? SERVICE_CONTROL_SYSOP_AVAILABLE : SERVICE_CONTROL_SYSOP_UNAVAILABLE ! 2987: ,&bbs_svc_status); ! 2988: } ! 2989: //--------------------------------------------------------------------------- ! 2990: void __fastcall TMainForm::UserEditExecute(TObject *Sender) ! 2991: { ! 2992: char str[256]; ! 2993: ! 2994: sprintf(str,"%sUSEREDIT %s",cfg.exec_dir,cfg.data_dir); ! 2995: WinExec(str,SW_SHOWNORMAL); ! 2996: } ! 2997: //--------------------------------------------------------------------------- ! 2998: ! 2999: void __fastcall TMainForm::BBSPreviewMenuItemClick(TObject *Sender) ! 3000: { ! 3001: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3002: ! 3003: dlg->Options << ofNoChangeDir; ! 3004: dlg->Filter = "ANSI/Ctrl-A files (*.asc; *.msg; *.ans)|*.ASC;*.MSG;*.ANS" ! 3005: "|All files|*.*"; ! 3006: dlg->InitialDir=cfg.text_dir; ! 3007: if(dlg->Execute()==true) { ! 3008: Application->CreateForm(__classid(TPreviewForm), &PreviewForm); ! 3009: PreviewForm->Filename=AnsiString(dlg->FileName); ! 3010: PreviewForm->ShowModal(); ! 3011: delete PreviewForm; ! 3012: } ! 3013: delete dlg; ! 3014: } ! 3015: //--------------------------------------------------------------------------- ! 3016: void __fastcall TMainForm::BBSLoginMenuItemClick(TObject *Sender) ! 3017: { ! 3018: if(!strnicmp(LoginCommand.c_str(),"start ",6)) /* Doesn't work on NT */ ! 3019: ShellExecute(Handle, "open", LoginCommand.c_str()+6, ! 3020: NULL,NULL,SW_SHOWDEFAULT); ! 3021: else if(!strnicmp(LoginCommand.c_str(),"telnet:",7)) ! 3022: ShellExecute(Handle, "open", LoginCommand.c_str(), ! 3023: NULL,NULL,SW_SHOWDEFAULT); ! 3024: else ! 3025: WinExec(LoginCommand.c_str(),SW_SHOWNORMAL); ! 3026: } ! 3027: //--------------------------------------------------------------------------- ! 3028: void __fastcall TMainForm::ViewLogClick(TObject *Sender) ! 3029: { ! 3030: char str[128]; ! 3031: char filename[MAX_PATH+1]; ! 3032: struct tm* tm; ! 3033: time_t t; ! 3034: TModalResult mr; ! 3035: ! 3036: if(((TMenuItem*)Sender)->Tag==-1) { ! 3037: Application->CreateForm(__classid(TCodeInputForm), &CodeInputForm); ! 3038: CodeInputForm->Label->Caption="Date"; ! 3039: CodeInputForm->ComboBox->Items->Clear(); ! 3040: CodeInputForm->ComboBox->Text=AnsiString(unixtodstr(&cfg,time(NULL),str)); ! 3041: mr=CodeInputForm->ShowModal(); ! 3042: t=dstrtounix(&cfg,CodeInputForm->ComboBox->Text.c_str()); ! 3043: delete CodeInputForm; ! 3044: if(mr!=mrOk) ! 3045: return; ! 3046: } else { ! 3047: t=time(NULL); ! 3048: t-=((TMenuItem*)Sender)->Tag*24*60*60; ! 3049: } ! 3050: tm=localtime(&t); ! 3051: if(tm==NULL) ! 3052: return; ! 3053: ! 3054: /* Close Mail/FTP logs */ ! 3055: mail_lputs(NULL,0,NULL); ! 3056: ftp_lputs(NULL,0,NULL); ! 3057: ! 3058: sprintf(filename,"%sLOGS\\%s%02d%02d%02d.LOG" ! 3059: ,MainForm->cfg.logs_dir ! 3060: ,((TMenuItem*)Sender)->Hint.c_str() ! 3061: ,tm->tm_mon+1 ! 3062: ,tm->tm_mday ! 3063: ,tm->tm_year%100 ! 3064: ); ! 3065: ViewFile(filename,((TMenuItem*)Sender)->Caption); ! 3066: } ! 3067: //--------------------------------------------------------------------------- ! 3068: void __fastcall TMainForm::UserListExecute(TObject *Sender) ! 3069: { ! 3070: UserListForm->Show(); ! 3071: } ! 3072: //--------------------------------------------------------------------------- ! 3073: ! 3074: void __fastcall TMainForm::WebPageMenuItemClick(TObject *Sender) ! 3075: { ! 3076: ShellExecute(Handle, "open", ((TMenuItem*)Sender)->Hint.c_str(), ! 3077: NULL,NULL,SW_SHOWDEFAULT); ! 3078: } ! 3079: //--------------------------------------------------------------------------- ! 3080: void __fastcall TMainForm::FormMinimize(TObject *Sender) ! 3081: { ! 3082: if(MinimizeToSysTray) { ! 3083: if(Password.Length()) { ! 3084: TrayIcon->RestoreOn=imNone; ! 3085: CloseTrayMenuItem->Enabled=false; ! 3086: ConfigureTrayMenuItem->Enabled=false; ! 3087: UserEditTrayMenuItem->Enabled=false; ! 3088: } else { ! 3089: TrayIcon->RestoreOn=imLeftClickUp; ! 3090: CloseTrayMenuItem->Enabled=true; ! 3091: ConfigureTrayMenuItem->Enabled=true; ! 3092: UserEditTrayMenuItem->Enabled=true; ! 3093: } ! 3094: if(!TrayIcon->Visible) ! 3095: TrayIcon->Visible=true; ! 3096: TrayIcon->Minimize(); ! 3097: } ! 3098: } ! 3099: ! 3100: void __fastcall TMainForm::TrayIconRestore(TObject *Sender) ! 3101: { ! 3102: TrayIcon->Visible=false; ! 3103: } ! 3104: ! 3105: //--------------------------------------------------------------------------- ! 3106: ! 3107: void __fastcall TMainForm::PropertiesExecute(TObject *Sender) ! 3108: { ! 3109: static inside; ! 3110: if(inside) return; ! 3111: inside=true; ! 3112: ! 3113: Application->CreateForm(__classid(TPropertiesDlg), &PropertiesDlg); ! 3114: PropertiesDlg->LoginCmdEdit->Text=LoginCommand; ! 3115: PropertiesDlg->ConfigCmdEdit->Text=ConfigCommand; ! 3116: PropertiesDlg->HostnameEdit->Text=global.host_name; ! 3117: PropertiesDlg->CtrlDirEdit->Text=global.ctrl_dir; ! 3118: PropertiesDlg->TempDirEdit->Text=global.temp_dir; ! 3119: PropertiesDlg->NodeIntUpDown->Position=NodeForm->Timer->Interval/1000; ! 3120: PropertiesDlg->ClientIntUpDown->Position=ClientForm->Timer->Interval/1000; ! 3121: PropertiesDlg->SemFreqUpDown->Position=global.sem_chk_freq; ! 3122: PropertiesDlg->TrayIconCheckBox->Checked=MinimizeToSysTray; ! 3123: PropertiesDlg->UndockableCheckBox->Checked=UndockableForms; ! 3124: PropertiesDlg->FileAssociationsCheckBox->Checked=UseFileAssociations; ! 3125: PropertiesDlg->PasswordEdit->Text=Password; ! 3126: PropertiesDlg->JS_MaxBytesEdit->Text=IntToStr(global.js.max_bytes); ! 3127: PropertiesDlg->JS_ContextStackEdit->Text=IntToStr(global.js.cx_stack); ! 3128: PropertiesDlg->JS_ThreadStackEdit->Text=IntToStr(global.js.thread_stack); ! 3129: PropertiesDlg->JS_BranchLimitEdit->Text=IntToStr(global.js.branch_limit); ! 3130: PropertiesDlg->JS_GcIntervalEdit->Text=IntToStr(global.js.gc_interval); ! 3131: PropertiesDlg->JS_YieldIntervalEdit->Text=IntToStr(global.js.yield_interval); ! 3132: ! 3133: if(MaxLogLen==0) ! 3134: PropertiesDlg->MaxLogLenEdit->Text="<unlimited>"; ! 3135: else ! 3136: PropertiesDlg->MaxLogLenEdit->Text=IntToStr(MaxLogLen); ! 3137: if(PropertiesDlg->ShowModal()==mrOk) { ! 3138: LoginCommand=PropertiesDlg->LoginCmdEdit->Text; ! 3139: ConfigCommand=PropertiesDlg->ConfigCmdEdit->Text; ! 3140: SAFECOPY(global.host_name,PropertiesDlg->HostnameEdit->Text.c_str()); ! 3141: SAFECOPY(global.ctrl_dir,PropertiesDlg->CtrlDirEdit->Text.c_str()); ! 3142: SAFECOPY(global.temp_dir,PropertiesDlg->TempDirEdit->Text.c_str()); ! 3143: global.sem_chk_freq=PropertiesDlg->SemFreqUpDown->Position; ! 3144: SemFileTimer->Interval=global.sem_chk_freq; ! 3145: ! 3146: /* Copy global values to server startup structs */ ! 3147: /* We don't support per-server unique values here (yet) */ ! 3148: SAFECOPY(bbs_startup.host_name,global.host_name); ! 3149: SAFECOPY(bbs_startup.ctrl_dir,global.ctrl_dir); ! 3150: SAFECOPY(bbs_startup.temp_dir,global.temp_dir); ! 3151: bbs_startup.sem_chk_freq=global.sem_chk_freq; ! 3152: ! 3153: SAFECOPY(ftp_startup.host_name,global.host_name); ! 3154: SAFECOPY(ftp_startup.ctrl_dir,global.ctrl_dir); ! 3155: SAFECOPY(ftp_startup.temp_dir,global.temp_dir); ! 3156: ftp_startup.sem_chk_freq=global.sem_chk_freq; ! 3157: ! 3158: SAFECOPY(web_startup.host_name,global.host_name); ! 3159: SAFECOPY(web_startup.ctrl_dir,global.ctrl_dir); ! 3160: SAFECOPY(web_startup.temp_dir,global.temp_dir); ! 3161: web_startup.sem_chk_freq=global.sem_chk_freq; ! 3162: ! 3163: SAFECOPY(mail_startup.host_name,global.host_name); ! 3164: SAFECOPY(mail_startup.ctrl_dir,global.ctrl_dir); ! 3165: SAFECOPY(mail_startup.temp_dir,global.temp_dir); ! 3166: mail_startup.sem_chk_freq=global.sem_chk_freq; ! 3167: ! 3168: SAFECOPY(services_startup.host_name,global.host_name); ! 3169: SAFECOPY(services_startup.ctrl_dir,global.ctrl_dir); ! 3170: SAFECOPY(services_startup.temp_dir,global.temp_dir); ! 3171: services_startup.sem_chk_freq=global.sem_chk_freq; ! 3172: ! 3173: Password=PropertiesDlg->PasswordEdit->Text; ! 3174: NodeForm->Timer->Interval=PropertiesDlg->NodeIntUpDown->Position*1000; ! 3175: ClientForm->Timer->Interval=PropertiesDlg->ClientIntUpDown->Position*1000; ! 3176: MinimizeToSysTray=PropertiesDlg->TrayIconCheckBox->Checked; ! 3177: UndockableForms=PropertiesDlg->UndockableCheckBox->Checked; ! 3178: UseFileAssociations=PropertiesDlg->FileAssociationsCheckBox->Checked; ! 3179: ! 3180: /* JavaScript operating parameters */ ! 3181: js_startup_t js=global.js; // save for later comparison ! 3182: global.js.max_bytes ! 3183: =PropertiesDlg->JS_MaxBytesEdit->Text.ToIntDef(JAVASCRIPT_MAX_BYTES); ! 3184: global.js.cx_stack ! 3185: =PropertiesDlg->JS_ContextStackEdit->Text.ToIntDef(JAVASCRIPT_CONTEXT_STACK); ! 3186: global.js.thread_stack ! 3187: =PropertiesDlg->JS_ThreadStackEdit->Text.ToIntDef(JAVASCRIPT_THREAD_STACK); ! 3188: global.js.branch_limit ! 3189: =PropertiesDlg->JS_BranchLimitEdit->Text.ToIntDef(JAVASCRIPT_BRANCH_LIMIT); ! 3190: global.js.gc_interval ! 3191: =PropertiesDlg->JS_GcIntervalEdit->Text.ToIntDef(JAVASCRIPT_GC_INTERVAL); ! 3192: global.js.yield_interval ! 3193: =PropertiesDlg->JS_YieldIntervalEdit->Text.ToIntDef(JAVASCRIPT_YIELD_INTERVAL); ! 3194: ! 3195: /* Copy global settings, if appropriate (not unique) */ ! 3196: if(memcmp(&bbs_startup.js,&js,sizeof(js))==0) bbs_startup.js=global.js; ! 3197: if(memcmp(&ftp_startup.js,&js,sizeof(js))==0) ftp_startup.js=global.js; ! 3198: if(memcmp(&web_startup.js,&js,sizeof(js))==0) web_startup.js=global.js; ! 3199: if(memcmp(&mail_startup.js,&js,sizeof(js))==0) mail_startup.js=global.js; ! 3200: if(memcmp(&services_startup.js,&js,sizeof(js))==0) services_startup.js=global.js; ! 3201: ! 3202: MaxLogLen ! 3203: =PropertiesDlg->MaxLogLenEdit->Text.ToIntDef(0); ! 3204: SaveSettings(Sender); ! 3205: } ! 3206: delete PropertiesDlg; ! 3207: ! 3208: inside=false; ! 3209: } ! 3210: //--------------------------------------------------------------------------- ! 3211: ! 3212: void __fastcall TMainForm::CloseTrayMenuItemClick(TObject *Sender) ! 3213: { ! 3214: Close(); ! 3215: } ! 3216: //--------------------------------------------------------------------------- ! 3217: ! 3218: void __fastcall TMainForm::RestoreTrayMenuItemClick(TObject *Sender) ! 3219: { ! 3220: #if 0 ! 3221: TrayIcon->Visible=false; ! 3222: Application->Restore(); ! 3223: #else ! 3224: static inside; ! 3225: if(inside) ! 3226: return; ! 3227: inside=true; ! 3228: ! 3229: if(Password.Length()) { ! 3230: Application->CreateForm(__classid(TCodeInputForm), &CodeInputForm); ! 3231: CodeInputForm->Label->Caption="Password"; ! 3232: CodeInputForm->Edit->Visible=true; ! 3233: CodeInputForm->Edit->PasswordChar='*'; ! 3234: if(CodeInputForm->ShowModal()==mrOk ! 3235: && CodeInputForm->Edit->Text.AnsiCompareIC(Password)==0) ! 3236: TrayIcon->Restore(); ! 3237: delete CodeInputForm; ! 3238: } else ! 3239: TrayIcon->Restore(); ! 3240: ! 3241: inside=false; ! 3242: #endif ! 3243: } ! 3244: //--------------------------------------------------------------------------- ! 3245: void __fastcall TMainForm::BBSConfigWizardMenuItemClick(TObject *Sender) ! 3246: { ! 3247: TConfigWizard* ConfigWizard; ! 3248: static inside; ! 3249: if(inside) return; ! 3250: inside=true; ! 3251: ! 3252: Application->CreateForm(__classid(TConfigWizard), &ConfigWizard); ! 3253: if(ConfigWizard->ShowModal()==mrOk) { ! 3254: SaveSettings(Sender); ! 3255: // ReloadConfigExecute(Sender); /* unnecessary since refresh_cfg() is already called */ ! 3256: } ! 3257: delete ConfigWizard; ! 3258: ! 3259: inside=false; ! 3260: } ! 3261: //--------------------------------------------------------------------------- ! 3262: ! 3263: void __fastcall TMainForm::PageControlUnDock(TObject *Sender, ! 3264: TControl *Client, TWinControl *NewTarget, bool &Allow) ! 3265: { ! 3266: if(NewTarget==NULL) /* Desktop */ ! 3267: Allow=UndockableForms; ! 3268: } ! 3269: //--------------------------------------------------------------------------- ! 3270: void __fastcall TMainForm::reload_config(void) ! 3271: { ! 3272: char error[256]; ! 3273: SAFECOPY(error,UNKNOWN_LOAD_ERROR); ! 3274: if(!load_cfg(&cfg, NULL, TRUE, error)) { ! 3275: Application->MessageBox(error,"ERROR Re-loading Configuration" ! 3276: ,MB_OK|MB_ICONEXCLAMATION); ! 3277: Application->Terminate(); ! 3278: } ! 3279: semfile_list_check(&initialized,recycle_semfiles); ! 3280: } ! 3281: //--------------------------------------------------------------------------- ! 3282: ! 3283: void __fastcall TMainForm::ReloadConfigExecute(TObject *Sender) ! 3284: { ! 3285: FtpRecycleExecute(Sender); ! 3286: WebRecycleExecute(Sender); ! 3287: MailRecycleExecute(Sender); ! 3288: TelnetRecycleExecute(Sender); ! 3289: ServicesRecycleExecute(Sender); ! 3290: ! 3291: reload_config(); ! 3292: #if 0 /* This appears to be redundant */ ! 3293: node_t node; ! 3294: for(int i=0;i<cfg.sys_nodes;i++) { ! 3295: int file; ! 3296: if(NodeForm->getnodedat(i+1,&node,&file)) ! 3297: break; ! 3298: node.misc|=NODE_RRUN; ! 3299: if(NodeForm->putnodedat(i+1,&node,file)) ! 3300: break; ! 3301: } ! 3302: #endif ! 3303: } ! 3304: ! 3305: //--------------------------------------------------------------------------- ! 3306: ! 3307: ! 3308: void __fastcall TMainForm::ServicesConfigureExecute(TObject *Sender) ! 3309: { ! 3310: static inside; ! 3311: if(inside) return; ! 3312: inside=true; ! 3313: ! 3314: Application->CreateForm(__classid(TServicesCfgDlg), &ServicesCfgDlg); ! 3315: ServicesCfgDlg->ShowModal(); ! 3316: delete ServicesCfgDlg; ! 3317: ! 3318: inside=false; ! 3319: } ! 3320: //--------------------------------------------------------------------------- ! 3321: ! 3322: void __fastcall TMainForm::UserTruncateMenuItemClick(TObject *Sender) ! 3323: { ! 3324: int usernumber; ! 3325: int deleted=0; ! 3326: user_t user; ! 3327: ! 3328: Screen->Cursor=crHourGlass; ! 3329: while((user.number=lastuser(&cfg))!=0) { ! 3330: if(getuserdat(&cfg,&user)!=0) ! 3331: break; ! 3332: if(!(user.misc&DELETED)) ! 3333: break; ! 3334: if(!del_lastuser(&cfg)) ! 3335: break; ! 3336: deleted++; ! 3337: } ! 3338: Screen->Cursor=crDefault; ! 3339: char str[128]; ! 3340: sprintf(str,"%u Deleted User Records Removed",deleted); ! 3341: Application->MessageBox(str,"Users Truncated",MB_OK); ! 3342: } ! 3343: ! 3344: BOOL RecycleService(SC_HANDLE svc, SERVICE_STATUS* status) ! 3345: { ! 3346: if(svc==NULL || controlService==NULL) ! 3347: return(FALSE); ! 3348: ! 3349: return controlService(svc, SERVICE_CONTROL_RECYCLE, status); ! 3350: } ! 3351: ! 3352: //--------------------------------------------------------------------------- ! 3353: void __fastcall TMainForm::MailRecycleExecute(TObject *Sender) ! 3354: { ! 3355: if(!RecycleService(mail_svc,&mail_svc_status)) { ! 3356: mail_startup.recycle_now=true; ! 3357: MailRecycle->Enabled=false; ! 3358: } ! 3359: } ! 3360: //--------------------------------------------------------------------------- ! 3361: void __fastcall TMainForm::FtpRecycleExecute(TObject *Sender) ! 3362: { ! 3363: if(!RecycleService(ftp_svc,&ftp_svc_status)) { ! 3364: ftp_startup.recycle_now=true; ! 3365: FtpRecycle->Enabled=false; ! 3366: } ! 3367: } ! 3368: //--------------------------------------------------------------------------- ! 3369: void __fastcall TMainForm::WebRecycleExecute(TObject *Sender) ! 3370: { ! 3371: if(!RecycleService(web_svc,&web_svc_status)) { ! 3372: web_startup.recycle_now=true; ! 3373: WebRecycle->Enabled=false; ! 3374: } ! 3375: } ! 3376: //--------------------------------------------------------------------------- ! 3377: void __fastcall TMainForm::ServicesRecycleExecute(TObject *Sender) ! 3378: { ! 3379: if(!RecycleService(services_svc,&services_svc_status)) { ! 3380: services_startup.recycle_now=true; ! 3381: ServicesRecycle->Enabled=false; ! 3382: } ! 3383: } ! 3384: //--------------------------------------------------------------------------- ! 3385: ! 3386: void __fastcall TMainForm::TelnetRecycleExecute(TObject *Sender) ! 3387: { ! 3388: if(!RecycleService(bbs_svc,&bbs_svc_status)) { ! 3389: bbs_startup.recycle_now=true; ! 3390: TelnetRecycle->Enabled=false; ! 3391: } ! 3392: } ! 3393: //--------------------------------------------------------------------------- ! 3394: ! 3395: void __fastcall TMainForm::FileEditTextFilesClick(TObject *Sender) ! 3396: { ! 3397: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3398: ! 3399: dlg->Options << ofNoChangeDir; ! 3400: dlg->Filter = "Text files (*.txt)|*.TXT" ! 3401: "|All files|*.*"; ! 3402: dlg->InitialDir=cfg.text_dir; ! 3403: if(dlg->Execute()==true) ! 3404: EditFile(dlg->FileName.c_str()); ! 3405: delete dlg; ! 3406: } ! 3407: //--------------------------------------------------------------------------- ! 3408: ! 3409: void __fastcall TMainForm::BBSEditBajaMenuItemClick(TObject *Sender) ! 3410: { ! 3411: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3412: ! 3413: dlg->Options << ofNoChangeDir; ! 3414: dlg->Filter = "Baja Source Code (*.src)|*.SRC"; ! 3415: dlg->InitialDir=cfg.exec_dir; ! 3416: if(dlg->Execute()==true) { ! 3417: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 3418: TextFileEditForm->Filename=AnsiString(dlg->FileName); ! 3419: TextFileEditForm->Caption="Edit"; ! 3420: if(TextFileEditForm->ShowModal()==mrOk) { ! 3421: /* Compile Baja Source File (requires Baja v2.33+) */ ! 3422: char cmdline[512]; ! 3423: sprintf(cmdline,"%sbaja -p %s",cfg.exec_dir,dlg->FileName); ! 3424: WinExec(cmdline,SW_SHOW); ! 3425: } ! 3426: delete TextFileEditForm; ! 3427: } ! 3428: delete dlg; ! 3429: } ! 3430: //--------------------------------------------------------------------------- ! 3431: ! 3432: void __fastcall TMainForm::FileEditJavaScriptClick(TObject *Sender) ! 3433: { ! 3434: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3435: ! 3436: dlg->Options << ofNoChangeDir; ! 3437: dlg->Filter = "JavaScript Files (*.js)|*.JS"; ! 3438: dlg->InitialDir=cfg.exec_dir; ! 3439: if(dlg->Execute()==true) ! 3440: EditFile(dlg->FileName.c_str()); ! 3441: delete dlg; ! 3442: } ! 3443: //--------------------------------------------------------------------------- ! 3444: ! 3445: void __fastcall TMainForm::FileEditConfigFilesClick(TObject *Sender) ! 3446: { ! 3447: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3448: ! 3449: dlg->Options << ofNoChangeDir; ! 3450: dlg->Filter = "Configuration Files (*.cfg; *.ini; *.conf)|*.cfg;*.ini;*.conf"; ! 3451: dlg->InitialDir=cfg.ctrl_dir; ! 3452: if(dlg->Execute()==true) ! 3453: EditFile(dlg->FileName.c_str()); ! 3454: delete dlg; ! 3455: } ! 3456: ! 3457: void __fastcall TMainForm::BBSEditFileClick(TObject *Sender) ! 3458: { ! 3459: TOpenDialog* dlg=new TOpenDialog((TComponent*)Sender); ! 3460: ! 3461: dlg->Options << ofNoChangeDir; ! 3462: dlg->Filter = "ANSI/Ctrl-A files (*.asc; *.msg; *.ans)|*.ASC;*.MSG;*.ANS" ! 3463: "|All files|*.*"; ! 3464: dlg->InitialDir=cfg.text_dir; ! 3465: if(dlg->Execute()==true) { ! 3466: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 3467: TextFileEditForm->Filename=AnsiString(dlg->FileName); ! 3468: TextFileEditForm->Caption="Edit"; ! 3469: if(TextFileEditForm->ShowModal()==mrOk) { ! 3470: Application->CreateForm(__classid(TPreviewForm), &PreviewForm); ! 3471: PreviewForm->Filename=AnsiString(dlg->FileName); ! 3472: PreviewForm->ShowModal(); ! 3473: delete PreviewForm; ! 3474: } ! 3475: delete TextFileEditForm; ! 3476: } ! 3477: delete dlg; ! 3478: } ! 3479: //--------------------------------------------------------------------------- ! 3480: bool GetServerLogLine(HANDLE& log, const char* name, char* line, size_t len) ! 3481: { ! 3482: char fname[256]; ! 3483: ! 3484: if(log==INVALID_HANDLE_VALUE) { ! 3485: sprintf(fname,"\\\\.\\mailslot\\%s.log",name); ! 3486: log = CreateMailslot( ! 3487: fname, // pointer to string for mailslot name ! 3488: 0, // maximum message size ! 3489: 0, // milliseconds before read time-out ! 3490: NULL); // pointer to security structure ! 3491: if(log==INVALID_HANDLE_VALUE) ! 3492: return(false); ! 3493: } ! 3494: DWORD msgs=0; ! 3495: if(!GetMailslotInfo( ! 3496: log, // mailslot handle ! 3497: NULL, // address of maximum message size ! 3498: NULL, // address of size of next message ! 3499: &msgs, // address of number of messages ! 3500: NULL // address of read time-out ! 3501: ) || !msgs) ! 3502: return(false); ! 3503: ! 3504: DWORD rd=0; ! 3505: if(!ReadFile( ! 3506: log, // handle of file to read ! 3507: line, // pointer to buffer that receives data ! 3508: len-1, // number of bytes to read ! 3509: &rd, // pointer to number of bytes read ! 3510: NULL // pointer to structure for data ! 3511: ) || !rd) ! 3512: return(false); ! 3513: ! 3514: line[rd]=0; /* 0-terminate */ ! 3515: ! 3516: return(true); ! 3517: } ! 3518: //--------------------------------------------------------------------------- ! 3519: ! 3520: void __fastcall TMainForm::LogTimerTick(TObject *Sender) ! 3521: { ! 3522: char line[1024]; ! 3523: ! 3524: while(GetServerLogLine(bbs_log,NTSVC_NAME_BBS,line,sizeof(line))) ! 3525: bbs_lputs(NULL,LOG_INFO,line); ! 3526: ! 3527: while(GetServerLogLine(event_log,NTSVC_NAME_EVENT,line,sizeof(line))) ! 3528: event_lputs(LOG_INFO,line); ! 3529: ! 3530: while(GetServerLogLine(ftp_log,NTSVC_NAME_FTP,line,sizeof(line))) ! 3531: ftp_lputs(NULL,LOG_INFO,line); ! 3532: ! 3533: while(GetServerLogLine(web_log,NTSVC_NAME_WEB,line,sizeof(line))) ! 3534: web_lputs(NULL,LOG_INFO,line); ! 3535: ! 3536: while(GetServerLogLine(mail_log,NTSVC_NAME_MAIL,line,sizeof(line))) ! 3537: mail_lputs(NULL,LOG_INFO,line); ! 3538: ! 3539: while(GetServerLogLine(services_log,NTSVC_NAME_SERVICES,line,sizeof(line))) ! 3540: service_lputs(NULL,LOG_INFO,line); ! 3541: ! 3542: } ! 3543: ! 3544: //--------------------------------------------------------------------------- ! 3545: void CheckServiceStatus( ! 3546: SC_HANDLE svc ! 3547: ,SERVICE_STATUS* status ! 3548: ,QUERY_SERVICE_CONFIG* &config ! 3549: ,DWORD &config_size ! 3550: ,TStaticText* text ! 3551: ,TAction* start ! 3552: ,TAction* stop ! 3553: ,TAction* recycle ! 3554: ,TProgressBar* bar ! 3555: ) ! 3556: { ! 3557: if(svc==NULL) ! 3558: return; ! 3559: ! 3560: DWORD ret; ! 3561: ! 3562: if(!queryServiceConfig(svc,config,config_size,&ret)) { ! 3563: if(GetLastError()==ERROR_INSUFFICIENT_BUFFER) { ! 3564: config_size=ret; ! 3565: if(config!=NULL) ! 3566: free(config); ! 3567: config = (QUERY_SERVICE_CONFIG*)malloc(config_size); ! 3568: } ! 3569: return; ! 3570: } ! 3571: ! 3572: if(config->dwStartType==SERVICE_DISABLED) ! 3573: return; ! 3574: ! 3575: if(!queryServiceStatus(svc,status)) { ! 3576: text->Caption="QueryServiceStatus Error "; // + GetLastError()); ! 3577: return; ! 3578: } ! 3579: ! 3580: bool running=false; ! 3581: ! 3582: switch(status->dwCurrentState) { ! 3583: case SERVICE_STOPPED: ! 3584: text->Caption="Stopped NT Service"; ! 3585: break; ! 3586: case SERVICE_STOP_PENDING: ! 3587: text->Caption="Stopping NT Service"; ! 3588: break; ! 3589: case SERVICE_RUNNING: ! 3590: text->Caption="Running NT Service"; ! 3591: running=true; ! 3592: break; ! 3593: case SERVICE_START_PENDING: ! 3594: text->Caption="Starting NT Service"; ! 3595: running=true; ! 3596: break; ! 3597: default: ! 3598: text->Caption="!UNKNOWN: " + status->dwCurrentState; ! 3599: break; ! 3600: } ! 3601: ! 3602: start->Enabled=!running; ! 3603: stop->Enabled=running; ! 3604: recycle->Enabled=running; ! 3605: } ! 3606: //--------------------------------------------------------------------------- ! 3607: ! 3608: void __fastcall TMainForm::ServiceStatusTimerTick(TObject *Sender) ! 3609: { ! 3610: if(queryServiceStatus==NULL || queryServiceConfig==NULL ! 3611: || (bbs_svc==NULL ! 3612: && ftp_svc==NULL ! 3613: && web_svc==NULL ! 3614: && mail_svc==NULL ! 3615: && services_svc==NULL)) { ! 3616: ServiceStatusTimer->Enabled=false; ! 3617: return; ! 3618: } ! 3619: ! 3620: CheckServiceStatus( ! 3621: bbs_svc ! 3622: ,&bbs_svc_status ! 3623: ,bbs_svc_config ! 3624: ,bbs_svc_config_size ! 3625: ,TelnetForm->Status ! 3626: ,TelnetStart ! 3627: ,TelnetStop ! 3628: ,TelnetRecycle ! 3629: ,TelnetForm->ProgressBar ! 3630: ); ! 3631: CheckServiceStatus( ! 3632: ftp_svc ! 3633: ,&ftp_svc_status ! 3634: ,ftp_svc_config ! 3635: ,ftp_svc_config_size ! 3636: ,FtpForm->Status ! 3637: ,FtpStart ! 3638: ,FtpStop ! 3639: ,FtpRecycle ! 3640: ,FtpForm->ProgressBar ! 3641: ); ! 3642: CheckServiceStatus( ! 3643: web_svc ! 3644: ,&web_svc_status ! 3645: ,web_svc_config ! 3646: ,web_svc_config_size ! 3647: ,WebForm->Status ! 3648: ,WebStart ! 3649: ,WebStop ! 3650: ,WebRecycle ! 3651: ,WebForm->ProgressBar ! 3652: ); ! 3653: CheckServiceStatus( ! 3654: mail_svc ! 3655: ,&mail_svc_status ! 3656: ,mail_svc_config ! 3657: ,mail_svc_config_size ! 3658: ,MailForm->Status ! 3659: ,MailStart ! 3660: ,MailStop ! 3661: ,MailRecycle ! 3662: ,MailForm->ProgressBar ! 3663: ); ! 3664: CheckServiceStatus( ! 3665: services_svc ! 3666: ,&services_svc_status ! 3667: ,services_svc_config ! 3668: ,services_svc_config_size ! 3669: ,ServicesForm->Status ! 3670: ,ServicesStart ! 3671: ,ServicesStop ! 3672: ,ServicesRecycle ! 3673: ,NULL ! 3674: ); ! 3675: ! 3676: } ! 3677: //--------------------------------------------------------------------------- ! 3678: void __fastcall TMainForm::EditFile(AnsiString filename, AnsiString Caption) ! 3679: { ! 3680: if(!UseFileAssociations ! 3681: || (int)ShellExecute(Handle, "edit", filename.c_str(), NULL,NULL,SW_SHOWDEFAULT)<=32) { ! 3682: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 3683: TextFileEditForm->Filename=filename; ! 3684: TextFileEditForm->Caption=Caption; ! 3685: TextFileEditForm->ShowModal(); ! 3686: delete TextFileEditForm; ! 3687: } ! 3688: } ! 3689: //--------------------------------------------------------------------------- ! 3690: void __fastcall TMainForm::ViewFile(AnsiString filename, AnsiString Caption) ! 3691: { ! 3692: if(!UseFileAssociations ! 3693: || (int)ShellExecute(Handle, "open", filename.c_str(), NULL,NULL,SW_SHOWDEFAULT)<=32) { ! 3694: Application->CreateForm(__classid(TTextFileEditForm), &TextFileEditForm); ! 3695: TextFileEditForm->Filename=filename; ! 3696: TextFileEditForm->Caption=Caption; ! 3697: TextFileEditForm->Memo->ReadOnly=true; ! 3698: TextFileEditForm->ShowModal(); ! 3699: delete TextFileEditForm; ! 3700: } ! 3701: } ! 3702: //--------------------------------------------------------------------------- ! 3703: void __fastcall TMainForm::SemFileTimerTick(TObject *Sender) ! 3704: { ! 3705: char* p; ! 3706: ! 3707: if((p=semfile_list_check(&initialized,shutdown_semfiles))!=NULL) { ! 3708: StatusBar->Panels->Items[4]->Text=AnsiString(p) + " signaled"; ! 3709: terminating=true; ! 3710: Close(); ! 3711: } ! 3712: else if((p=semfile_list_check(&initialized,recycle_semfiles))!=NULL) { ! 3713: StatusBar->Panels->Items[4]->Text=AnsiString(p) + " signaled"; ! 3714: reload_config(); ! 3715: } ! 3716: } ! 3717: //--------------------------------------------------------------------------- ! 3718:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.