![[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 / sbbs3 / chat|
Return to mainformunit.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 / chat |
1.1 root 1: /* MainFormUnit.cpp */
2:
3: /* Local sysop chat module (GUI Borland C++ Builder Project for Win32) */
4:
5: /* $Id: MainFormUnit.cpp,v 1.3 2000/11/03 01:03:51 rswindell Exp $ */
6:
7: /****************************************************************************
8: * @format.tab-size 4 (Plain Text/Source Code File Header) *
9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
10: * *
11: * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
12: * *
13: * This program is free software; you can redistribute it and/or *
14: * modify it under the terms of the GNU General Public License *
15: * as published by the Free Software Foundation; either version 2 *
16: * of the License, or (at your option) any later version. *
17: * See the GNU General Public License for more details: gpl.txt or *
18: * http://www.fsf.org/copyleft/gpl.html *
19: * *
20: * Anonymous FTP access to the most recent released source is available at *
21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
22: * *
23: * Anonymous CVS access to the development source and modification history *
24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login *
26: * (just hit return, no password is necessary) *
27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src *
28: * *
29: * For Synchronet coding style and modification guidelines, see *
30: * http://www.synchro.net/source.html *
31: * *
32: * You are encouraged to submit any modifications (preferably in Unix diff *
33: * format) via e-mail to [email protected] *
34: * *
35: * Note: If this box doesn't appear square, then you need to fix your tabs. *
36: ****************************************************************************/
37:
38: //---------------------------------------------------------------------------
39:
40: #include <vcl.h>
41: #include <io.h>
42: #include <sys\stat.h>
43: #include <fcntl.h>
44: #include <share.h>
45: #include <sys/locking.h>
46: #include <vcl\Registry.hpp> /* TRegistry */
47: #pragma hdrstop
48:
49: #include "gen_defs.h" /* BS and DEL */
50:
51: #define PCHAT_LEN 1000 /* Size of Private chat file */
52: #define REG_KEY "\\Software\\Swindell\\Synchronet Chat\\"
53:
54: #include "MainFormUnit.h"
55: //---------------------------------------------------------------------------
56: #pragma package(smart_init)
57: #pragma resource "*.dfm"
58: TMainForm *MainForm;
59: extern int node_num;
60: extern char ctrl_dir[];
61: extern char node_dir[];
62: extern char user_name[];
63: //---------------------------------------------------------------------------
64: __fastcall TMainForm::TMainForm(TComponent* Owner)
65: : TForm(Owner)
66: {
67: in=-1;
68: out=-1;
69: nodedab=-1;
70: }
71: bool __fastcall TMainForm::ToggleChat(bool on)
72: {
73: int n=node_num-1;
74: static int org_act;
75:
76: if(nodedab==-1)
77: return(false);
78:
79: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
80: int i=locking(nodedab, LK_LOCK, sizeof(node_t));
81: if(i) {
82: Remote->Lines->Add("!Error "+AnsiString(i)+" reading record for"
83: "node "+AnsiString(node_num));
84: return(false);
85: }
86: read(nodedab, &node, sizeof(node_t));
87: if(on) {
88: org_act=node.action;
89: if(org_act==NODE_PCHT)
90: org_act=NODE_MAIN;
91: node.misc|=NODE_LCHAT;
92: } else {
93: node.action=org_act;
94: node.misc&=~NODE_LCHAT;
95: }
96:
97: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
98: write(nodedab, &node, sizeof(node_t));
99: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
100: locking(nodedab, LK_UNLCK, sizeof(node_t));
101:
102: return(true);
103: }
104: //---------------------------------------------------------------------------
105: void __fastcall TMainForm::FormShow(TObject *Sender)
106: {
107: char path[MAX_PATH+1];
108: char* p;
109:
110: Caption="Waiting for "
111: +AnsiString(user_name)+" on Node "+AnsiString(node_num);
112:
113: wsprintf(path,"%sNODE.DAB",ctrl_dir);
114: nodedab=_sopen(path,O_RDWR|O_BINARY|O_CREAT, SH_DENYNONE,S_IREAD|S_IWRITE);
115:
116: if(nodedab==-1) {
117: Remote->Lines->Add("!Error opening NODE.DAB");
118: return;
119: }
120:
121: ToggleChat(true);
122:
123: wsprintf(path,"%sLCHAT.DAB",node_dir);
124: if((out=_sopen(path,O_RDWR|O_CREAT|O_BINARY,O_DENYNONE
125: ,S_IREAD|S_IWRITE))==-1) {
126: Remote->Lines->Add("!Error opening LCHAT.DAB");
127: return; }
128:
129: wsprintf(path,"%sCHAT.DAB",node_dir);
130: #if 0
131: if(!fexist(path)) /* Wait while it's created for the first time */
132: mswait(2000);
133: #endif
134:
135: if((in=_sopen(path,O_RDWR|O_CREAT|O_BINARY,O_DENYNONE
136: ,S_IREAD|S_IWRITE))==-1) {
137: close(out);
138: Remote->Lines->Add("!Error opening CHAT.DAB");
139: return;
140: }
141:
142: if((p=(char *)MALLOC(PCHAT_LEN))==NULL) {
143: close(in);
144: close(out);
145: Remote->Lines->Add("!Error allocating memory");
146: return;
147: }
148: memset(p,0,PCHAT_LEN);
149: write(in,p,PCHAT_LEN);
150: write(out,p,PCHAT_LEN);
151: FREE(p);
152: lseek(in,0L,SEEK_SET);
153: lseek(out,0L,SEEK_SET);
154:
155: Timer->Enabled=true;
156: }
157: //---------------------------------------------------------------------------
158: void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
159: {
160: ToggleChat(false);
161:
162: if(in!=-1)
163: close(in);
164: if(out!=-1)
165: close(out);
166: if(nodedab!=-1)
167: close(nodedab);
168:
169: // Write Registry keys
170: TRegistry* Registry=new TRegistry;
171: if(!Registry->OpenKey(REG_KEY,true)) {
172: Application->MessageBox("Error opening registry key"
173: ,REG_KEY,MB_OK|MB_ICONEXCLAMATION);
174: Application->Terminate();
175: }
176: Registry->WriteInteger("FormHeight",Height);
177: Registry->WriteInteger("FormWidth",Width);
178: Registry->WriteInteger("RemoteHeight",Remote->Height);
179:
180: Registry->CloseKey();
181: delete Registry;
182:
183: }
184: //---------------------------------------------------------------------------
185: void __fastcall TMainForm::LocalKeyPress(TObject *Sender, char &Key)
186: {
187: char c;
188:
189: if(out==-1 || Local->ReadOnly==true) {
190: Beep();
191: return;
192: }
193: read(out,&c,1);
194: lseek(out,-1L,SEEK_CUR);
195: if(!c) /* hasn't wrapped */
196: write(out,&Key,1);
197: else {
198: if(!tell(out))
199: lseek(out,0L,SEEK_END);
200: lseek(out,-1L,SEEK_CUR);
201: c=0;
202: write(out,&c,1);
203: lseek(out,-1L,SEEK_CUR);
204: }
205: if(tell(out)>=PCHAT_LEN)
206: lseek(out,0L,SEEK_SET);
207: }
208: //---------------------------------------------------------------------------
209: void __fastcall TMainForm::InputTimerTick(TObject *Sender)
210: {
211: char ch=0;
212:
213: Timer->Interval=100;
214:
215: while(in!=-1) {
216: if(tell(in)>=PCHAT_LEN)
217: lseek(in,0L,SEEK_SET);
218: read(in,&ch,1);
219: lseek(in,-1L,SEEK_CUR);
220: if(!ch)
221: break; /* char from other node */
222:
223: Timer->Interval=1;
224:
225: /* Got char, display it */
226: if(ch=='\r')
227: Remote->Lines->Add("");
228: else if(ch==BS || ch==DEL) { // backspace
229: Remote->Text
230: =Remote->Text.SetLength(Remote->Text.Length()-1);
231: /* Need to scroll window down here */
232: } else {
233: Remote->SelLength=0;
234: Remote->SelStart=Remote->Text.Length();
235: Remote->SelText=AnsiString(ch);
236: }
237:
238: /* mark char as rx'd */
239: ch=0;
240: write(in,&ch,1);
241: }
242: }
243: //---------------------------------------------------------------------------
244: void __fastcall TMainForm::TimerTick(TObject *Sender)
245: {
246: if(nodedab==-1)
247: return;
248:
249: int n=node_num-1;
250: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
251: read(nodedab, &node, sizeof(node_t));
252: if(node.misc&NODE_LCHAT)
253: ;
254: else if(Local->ReadOnly==true) {
255: MainForm->Caption=AnsiString(user_name)+" on Node "
256: +AnsiString(node_num);
257: Local->ReadOnly=false;
258: }
259: else if(!node.status || node.status>NODE_QUIET || node.action!=NODE_PCHT) {
260: OutputDebugString("CHAT: User Disconnected\r\n");
261: MainForm->Caption=MainForm->Caption+" - Disconnected!";
262: Timer->Enabled=false;
263: Local->ReadOnly=true;
264: }
265: }
266: //---------------------------------------------------------------------------
267:
268: void __fastcall TMainForm::FormCreate(TObject *Sender)
269: {
270: // Read Registry keys
271: TRegistry* Registry=new TRegistry;
272: if(!Registry->OpenKey(REG_KEY,true)) {
273: Application->MessageBox("Error opening registry key"
274: ,REG_KEY,MB_OK|MB_ICONEXCLAMATION);
275: Application->Terminate();
276: }
277: if(Registry->ValueExists("FormHeight"))
278: Height=Registry->ReadInteger("FormHeight");
279: if(Registry->ValueExists("FormWidth"))
280: Width=Registry->ReadInteger("FormWidth");
281: if(Registry->ValueExists("RemoteHeight"))
282: Remote->Height=Registry->ReadInteger("RemoteHeight");
283:
284: Registry->CloseKey();
285: delete Registry;
286:
287: }
288: //---------------------------------------------------------------------------
289:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.