![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sbbsctrl.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs3 / ctrl|
Return to sbbsctrl.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 / ctrl |
1.1 root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
2:
1.1.1.2 ! root 3: /* $Id: sbbsctrl.cpp,v 1.18 2005/01/01 00:41:19 rswindell Exp $ */
1.1 root 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: * *
1.1.1.2 ! root 9: * Copyright 2004 Rob Swindell - http://www.synchro.net/copyright.html *
1.1 root 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);
1.1.1.2 ! root 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);
1.1 root 65: //---------------------------------------------------------------------------
66: #include "MainFormUnit.h"
67: #include "SpyFormUnit.h"
68: #include "CtrlPathDialogUnit.h"
1.1.1.2 ! root 69: #include "sbbs_ini.h" // sbbs_get_ini_fname
1.1 root 70: TSpyForm *SpyForms[MAX_NODES];
71: //---------------------------------------------------------------------------
1.1.1.2 ! root 72: WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR cmd, int)
1.1 root 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);
1.1.1.2 ! root 82: Application->CreateForm(__classid(TWebForm), &WebForm);
1.1 root 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);
1.1.1.2 ! root 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();
1.1 root 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.