Return to sbbsctrl.cpp CVS log

Up to [Synchronet] / sbbs / src / sbbs3 / ctrl

Annotation of sbbs/src/sbbs3/ctrl/sbbsctrl.cpp, revision 1.1

1.1     ! root        1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
        !             2: 
        !             3: /* $Id: sbbsctrl.cpp,v 1.18 2005/01/01 00:41:19 rswindell Exp $ */
        !             4: 
        !             5: /****************************************************************************
        !             6:  * @format.tab-size 4          (Plain Text/Source Code File Header)                    *
        !             7:  * @format.use-tabs true       (see http://www.synchro.net/ptsc_hdr.html)              *
        !             8:  *                                                                                                                                                     *
        !             9:  * Copyright 2004 Rob Swindell - http://www.synchro.net/copyright.html         *
        !            10:  *                                                                                                                                                     *
        !            11:  * This program is free software; you can redistribute it and/or                       *
        !            12:  * modify it under the terms of the GNU General Public License                         *
        !            13:  * as published by the Free Software Foundation; either version 2                      *
        !            14:  * of the License, or (at your option) any later version.                                      *
        !            15:  * See the GNU General Public License for more details: gpl.txt or                     *
        !            16:  * http://www.fsf.org/copyleft/gpl.html                                                                                *
        !            17:  *                                                                                                                                                     *
        !            18:  * Anonymous FTP access to the most recent released source is available at     *
        !            19:  * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net     *
        !            20:  *                                                                                                                                                     *
        !            21:  * Anonymous CVS access to the development source and modification history     *
        !            22:  * is available at cvs.synchro.net:/cvsroot/sbbs, example:                                     *
        !            23:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs login                       *
        !            24:  *     (just hit return, no password is necessary)                                                     *
        !            25:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src                *
        !            26:  *                                                                                                                                                     *
        !            27:  * For Synchronet coding style and modification guidelines, see                                *
        !            28:  * http://www.synchro.net/source.html                                                                          *
        !            29:  *                                                                                                                                                     *
        !            30:  * You are encouraged to submit any modifications (preferably in Unix diff     *
        !            31:  * format) via e-mail to [email protected]                                                                      *
        !            32:  *                                                                                                                                                     *
        !            33:  * Note: If this box doesn't appear square, then you need to fix your tabs.    *
        !            34:  ****************************************************************************/
        !            35: 
        !            36: //---------------------------------------------------------------------------
        !            37: #include <vcl.h>
        !            38: #pragma hdrstop
        !            39: USEFORM("MainFormUnit.cpp", MainForm);
        !            40: USEFORM("CtrlPathDialogUnit.cpp", CtrlPathDialog);
        !            41: USEFORM("TextFileEditUnit.cpp", TextFileEditForm);
        !            42: USEFORM("TelnetFormUnit.cpp", TelnetForm);
        !            43: USEFORM("FtpFormUnit.cpp", FtpForm);
        !            44: USEFORM("MailFormUnit.cpp", MailForm);
        !            45: USEFORM("NodeFormUnit.cpp", NodeForm);
        !            46: USEFORM("StatsFormUnit.cpp", StatsForm);
        !            47: USEFORM("AboutBoxFormUnit.cpp", AboutBoxForm);
        !            48: USEFORM("StatsLogFormUnit.cpp", StatsLogForm);
        !            49: USEFORM("CodeInputFormUnit.cpp", CodeInputForm);
        !            50: USEFORM("ClientFormUnit.cpp", ClientForm);
        !            51: USEFORM("SpyFormUnit.cpp", SpyForm);
        !            52: USEFORM("UserListFormUnit.cpp", UserListForm);
        !            53: USEFORM("UserMsgFormUnit.cpp", UserMsgForm);
        !            54: USEFORM("PropertiesDlgUnit.cpp", PropertiesDlg);
        !            55: USEFORM("EventsFormUnit.cpp", EventsForm);
        !            56: USEFORM("ConfigWizardUnit.cpp", ConfigWizardForm);
        !            57: USEFORM("ServicesFormUnit.cpp", ServicesForm);
        !            58: USEFORM("TelnetCfgDlgUnit.cpp", TelnetCfgDlg);
        !            59: USEFORM("MailCfgDlgUnit.cpp", MailCfgDlg);
        !            60: USEFORM("FtpCfgDlgUnit.cpp", FtpCfgDlg);
        !            61: USEFORM("ServicesCfgDlgUnit.cpp", ServicesCfgDlg);
        !            62: USEFORM("PreviewFormUnit.cpp", PreviewForm);
        !            63: USEFORM("WebFormUnit.cpp", WebForm);
        !            64: USEFORM("WebCfgDlgUnit.cpp", WebCfgDlg);
        !            65: //---------------------------------------------------------------------------
        !            66: #include "MainFormUnit.h"
        !            67: #include "SpyFormUnit.h"
        !            68: #include "CtrlPathDialogUnit.h"
        !            69: #include "sbbs_ini.h"   // sbbs_get_ini_fname
        !            70: TSpyForm *SpyForms[MAX_NODES];
        !            71: //---------------------------------------------------------------------------
        !            72: WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR cmd, int)
        !            73: {
        !            74:     memset(SpyForms,0,sizeof(SpyForms));
        !            75:     try
        !            76:     {
        !            77:         Application->Initialize();
        !            78:         Application->Title = "Synchronet Control Panel";
        !            79:                Application->CreateForm(__classid(TMainForm), &MainForm);
        !            80:          Application->CreateForm(__classid(TTelnetForm), &TelnetForm);
        !            81:          Application->CreateForm(__classid(TFtpForm), &FtpForm);
        !            82:          Application->CreateForm(__classid(TWebForm), &WebForm);
        !            83:          Application->CreateForm(__classid(TMailForm), &MailForm);
        !            84:          Application->CreateForm(__classid(TNodeForm), &NodeForm);
        !            85:          Application->CreateForm(__classid(TStatsForm), &StatsForm);
        !            86:          Application->CreateForm(__classid(TClientForm), &ClientForm);
        !            87:          Application->CreateForm(__classid(TUserListForm), &UserListForm);
        !            88:          Application->CreateForm(__classid(TEventsForm), &EventsForm);
        !            89:          Application->CreateForm(__classid(TServicesForm), &ServicesForm);
        !            90:          if(cmd[0] && isdir(cmd))
        !            91:             SAFECOPY(MainForm->global.ctrl_dir,cmd);
        !            92:          sbbs_get_ini_fname(MainForm->ini_file, MainForm->global.ctrl_dir, NULL /* auto-hostname */);
        !            93:                Application->Run();
        !            94:     }
        !            95:     catch (Exception &exception)
        !            96:     {
        !            97:              Application->ShowException(&exception);
        !            98:     }
        !            99:     return 0;
        !           100: }
        !           101: //---------------------------------------------------------------------------

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.