![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nodeformunit.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 nodeformunit.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 / ctrl |
1.1 root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
2:
3: /* $Id: NodeFormUnit.cpp,v 1.9 2000/12/01 18:46:06 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 2000 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: #include <io.h>
40: #include <stdio.h>
41: #include <sys\stat.h>
42: #include <sys\locking.h>
43: #include <fcntl.h>
44: #include <share.h>
45: #include "NodeFormUnit.h"
46: #include "UserMsgFormUnit.h"
47: #include "SpyFormUnit.h"
48: #include "sbbs.h"
49: #include "nodedefs.h"
50: #include "userdat.h"
51: #include "ringbuf.h"
52: //---------------------------------------------------------------------------
53: #pragma package(smart_init)
54: #pragma resource "*.dfm"
55: TNodeForm *NodeForm;
56: //---------------------------------------------------------------------------
57: __fastcall TNodeForm::TNodeForm(TComponent* Owner)
58: : TForm(Owner)
59: {
60: // OutputDebugString("NodeForm constructor\n");
61: MainForm=(TMainForm*)Application->MainForm;
62: MainForm->bbs_startup.node_spybuf
63: =(RingBuf**)calloc(1,sizeof(RingBuf*)*MAX_NODES);
64: }
65: //---------------------------------------------------------------------------
66:
67:
68: void __fastcall TNodeForm::FormHide(TObject *Sender)
69: {
70: MainForm->ViewNodesMenuItem->Checked=false;
71: MainForm->ViewNodesButton->Down=false;
72: }
73: //---------------------------------------------------------------------------
74:
75:
76:
77:
78: void __fastcall TNodeForm::FormShow(TObject *Sender)
79: {
80: // OutputDebugString("NodeForm::FormShow\n");
81:
82: MainForm->ViewNodesMenuItem->Checked=true;
83: MainForm->ViewNodesButton->Down=true;
84: }
85: //---------------------------------------------------------------------------
86:
87: char* username(int usernumber,char *strin)
88: {
89: char str[256];
90: char c;
91: int file;
92:
93: if(usernumber<1) {
94: strcpy(strin,"UNKNOWN USER");
95: return(strin);
96: }
97: sprintf(str,"%suser/name.dat",MainForm->cfg.data_dir);
98: if((file=_sopen(str,O_RDONLY,SH_DENYWR,S_IWRITE))==-1) {
99: return("<!ERROR opening name.dat>");
100: }
101: if(filelength(file)<(long)((long)usernumber*(LEN_ALIAS+2))) {
102: close(file);
103: strcpy(strin,"UNKNOWN USER");
104: return(strin);
105: }
106: lseek(file,(long)((long)(usernumber-1)*(LEN_ALIAS+2)),SEEK_SET);
107: read(file,strin,LEN_ALIAS);
108: close(file);
109: for(c=0;c<LEN_ALIAS;c++)
110: if(strin[c]==ETX) break;
111: strin[c]=0;
112: if(!c)
113: strcpy(strin,"DELETED USER");
114: return(strin);
115: }
116:
117: void __fastcall TNodeForm::TimerTick(TObject *Sender)
118: {
119: static int nodedab;
120: char str[128],tmp[128],mer[10];
121: int i,n,hour;
122: node_t node;
123:
124: if(nodedab<1) {
125: nodedab=_sopen(AnsiString(MainForm->CtrlDirectory+"NODE.DAB").c_str()
126: ,O_RDWR|O_BINARY|O_CREAT, SH_DENYNONE, S_IREAD|S_IWRITE);
127: if(nodedab==-1) {
128: ListBox->Items->Clear();
129: ListBox->Items->Add("Error opening NODE.DAB");
130: return;
131: }
132: }
133: for(n=0;n<MainForm->cfg.sys_nodes;n++) {
134: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
135: if(eof(nodedab))
136: break;
137: i=locking(nodedab, LK_LOCK, sizeof(node_t));
138: if(i) {
139: ListBox->Items->Add("Error "+AnsiString(i)+" reading record for"
140: " node "+AnsiString(n+1));
141: continue;
142: }
143: read(nodedab,&node, sizeof(node_t));
144: lseek(nodedab, n*sizeof(node_t), SEEK_SET);
145: locking(nodedab, LK_UNLCK, sizeof(node_t));
146: sprintf(str,"%3d ",n+1);
147: switch(node.status) {
148: case NODE_WFC:
149: strcat(str,"Waiting for call");
150: break;
151: case NODE_OFFLINE:
152: strcat(str,"Offline");
153: break;
154: case NODE_NETTING:
155: strcat(str,"Networking");
156: break;
157: case NODE_LOGON:
158: strcat(str,"At logon prompt");
159: break;
160: case NODE_EVENT_WAITING:
161: strcat(str,"Waiting for all nodes to become inactive");
162: break;
163: case NODE_EVENT_LIMBO:
164: sprintf(str,"Waiting for node %d to finish external event"
165: ,node.aux);
166: break;
167: case NODE_EVENT_RUNNING:
168: strcat(str,"Running external event");
169: break;
170: case NODE_NEWUSER:
171: strcat(str,"New user");
172: strcat(str," applying for access ");
173: if(!node.connection)
174: strcat(str,"Locally");
175: else if(node.connection==0xffff) {
176: strcat(str,"via telnet");
177: } else {
178: sprintf(tmp,"at %ubps",node.connection);
179: strcat(str,tmp);
180: }
181: break;
182: case NODE_QUIET:
183: case NODE_INUSE:
184: // sprintf(tmp, "User #%d ",node.useron);
185: username(node.useron,tmp);
186: strcat(str,tmp);
187: strcat(str," ");
188: switch(node.action) {
189: case NODE_MAIN:
190: strcat(str,"at main menu");
191: break;
192: case NODE_RMSG:
193: strcat(str,"reading messages");
194: break;
195: case NODE_RMAL:
196: strcat(str,"reading mail");
197: break;
198: case NODE_RSML:
199: strcat(str,"reading sent mail");
200: break;
201: case NODE_RTXT:
202: strcat(str,"reading text files");
203: break;
204: case NODE_PMSG:
205: strcat(str,"posting message");
206: break;
207: case NODE_SMAL:
208: strcat(str,"sending mail");
209: break;
210: case NODE_AMSG:
211: strcat(str,"posting auto-message");
212: break;
213: case NODE_XTRN:
214: if(!node.aux)
215: strcat(str,"at external program menu");
216: else if(node.aux<=MainForm->cfg.total_xtrns) {
217: sprintf(tmp,"running %s"
218: ,MainForm->cfg.xtrn[node.aux-1]->name);
219: strcat(str,tmp);
220: } else {
221: sprintf(tmp,"running external program #%d"
222: ,node.aux);
223: strcat(str,tmp);
224: }
225: break;
226: case NODE_DFLT:
227: strcat(str,"changing defaults");
228: break;
229: case NODE_XFER:
230: strcat(str,"at transfer menu");
231: break;
232: case NODE_RFSD:
233: sprintf(tmp,"retrieving from device #%d",node.aux);
234: strcat(str,tmp);
235: break;
236: case NODE_DLNG:
237: strcat(str,"downloading");
238: break;
239: case NODE_ULNG:
240: strcat(str,"uploading");
241: break;
242: case NODE_BXFR:
243: strcat(str,"transferring bidirectional");
244: break;
245: case NODE_LFIL:
246: strcat(str,"listing files");
247: break;
248: case NODE_LOGN:
249: strcat(str,"logging on");
250: break;
251: case NODE_LCHT:
252: strcat(str,"in local chat with sysop");
253: break;
254: case NODE_MCHT:
255: if(node.aux) {
256: sprintf(tmp,"in multinode chat channel %d"
257: ,node.aux&0xff);
258: if(node.aux&0x1f00) { /* password */
259: strcat(tmp,"* ");
260: // strcat(tmp, unpackchatpass(tmp,node));
261: }
262: strcat(str,tmp);
263: }
264: else
265: strcat(str,"in multinode global chat channel");
266: break;
267: case NODE_PAGE:
268: sprintf(tmp,"paging node %u for private chat",node.aux);
269: strcat(str,tmp);
270: break;
271: case NODE_PCHT:
272: if(!node.aux)
273: strcat(str,"in local chat with sysop");
274: else {
275: sprintf(tmp,"in private chat with node %u"
276: ,node.aux);
277: strcat(str,tmp);
278: }
279: break;
280: case NODE_GCHT:
281: strcat(str,"chatting with The Guru");
282: break;
283: case NODE_CHAT:
284: strcat(str,"in chat section");
285: break;
286: case NODE_TQWK:
287: strcat(str,"transferring QWK packet");
288: break;
289: case NODE_SYSP:
290: strcat(str,"performing sysop activities");
291: break;
292: default:
293: strcat(str,itoa(node.action,tmp,10));
294: break; }
295: if(!node.connection)
296: strcat(str," locally");
297: if(node.connection==0xffff) {
298: strcat(str," via telnet");
299: } else {
300: sprintf(tmp," at %ubps",node.connection);
301: strcat(str,tmp);
302: }
303: if(node.action==NODE_DLNG) {
304: if((node.aux/60)>=12) {
305: if(node.aux/60==12)
306: hour=12;
307: else
308: hour=(node.aux/60)-12;
309: strcpy(mer,"pm"); }
310: else {
311: if((node.aux/60)==0) /* 12 midnite */
312: hour=12;
313: else hour=node.aux/60;
314: strcpy(mer,"am"); }
315: sprintf(tmp, " ETA %02d:%02d %s"
316: ,hour,node.aux-((node.aux/60)*60),mer);
317: strcat(str, tmp); }
318: break; }
319: if(node.misc&(NODE_LOCK|NODE_POFF|NODE_AOFF|NODE_MSGW|NODE_NMSG)) {
320: strcat(str," (");
321: if(node.misc&NODE_AOFF)
322: strcat(str,"A");
323: if(node.misc&NODE_LOCK)
324: strcat(str,"L");
325: if(node.misc&(NODE_MSGW|NODE_NMSG))
326: strcat(str,"M");
327: if(node.misc&NODE_POFF)
328: strcat(str,"P");
329: strcat(str,")"); }
330: if(((node.misc
331: &(NODE_ANON|NODE_UDAT|NODE_INTR|NODE_RRUN|NODE_EVENT|NODE_DOWN))
332: || node.status==NODE_QUIET)) {
333: strcat(str," [");
334: if(node.misc&NODE_ANON)
335: strcat(str,"A");
336: if(node.misc&NODE_INTR)
337: strcat(str,"I");
338: if(node.misc&NODE_RRUN)
339: strcat(str,"R");
340: if(node.misc&NODE_UDAT)
341: strcat(str,"U");
342: if(node.status==NODE_QUIET)
343: strcat(str,"Q");
344: if(node.misc&NODE_EVENT)
345: strcat(str,"E");
346: if(node.misc&NODE_DOWN)
347: strcat(str,"D");
348: if(node.misc&NODE_LCHAT)
349: strcat(str,"C");
350: strcat(str,"]"); }
351: if(node.errors) {
352: sprintf(tmp, " %d error%c",node.errors, node.errors>1 ? 's' : '\0' );
353: strcat(str,tmp);
354: }
355: AnsiString Str=AnsiString(str);
356: if(ListBox->Items->Count<n+1)
357: ListBox->Items->Add(Str);
358: else if(ListBox->Items->Strings[n]!=Str)
359: ListBox->Items->Strings[n]=str;
360: }
361: Timer->Enabled=true;
362: }
363: //---------------------------------------------------------------------------
364:
365:
366:
367: void __fastcall TNodeForm::InterruptNodeButtonClick(TObject *Sender)
368: {
369: int i;
370: node_t node;
371:
372: for(i=0;i<ListBox->Items->Count;i++)
373: if(ListBox->Selected[i]==true) {
374: getnodedat(&MainForm->cfg,i+1,&node,1);
375: node.misc^=NODE_INTR;
376: putnodedat(&MainForm->cfg,i+1,&node);
377: }
378: }
379: //---------------------------------------------------------------------------
380:
381: void __fastcall TNodeForm::LockNodeButtonClick(TObject *Sender)
382: {
383: int i;
384: node_t node;
385:
386: for(i=0;i<ListBox->Items->Count;i++)
387: if(ListBox->Selected[i]==true) {
388: getnodedat(&MainForm->cfg,i+1,&node,1);
389: node.misc^=NODE_LOCK;
390: putnodedat(&MainForm->cfg,i+1,&node);
391: }
392: }
393: //---------------------------------------------------------------------------
394:
395: void __fastcall TNodeForm::RerunNodeButtonClick(TObject *Sender)
396: {
397: int i;
398: node_t node;
399:
400: for(i=0;i<ListBox->Items->Count;i++)
401: if(ListBox->Selected[i]==true) {
402: getnodedat(&MainForm->cfg,i+1,&node,1);
403: node.misc^=NODE_RRUN;
404: putnodedat(&MainForm->cfg,i+1,&node);
405: }
406: }
407:
408: //---------------------------------------------------------------------------
409:
410: void __fastcall TNodeForm::ListBoxKeyPress(TObject *Sender, char &Key)
411: {
412: if(Key==1) // ctrl-a
413: SelectAllMenuItemClick(Sender);
414: }
415: //---------------------------------------------------------------------------
416:
417: void __fastcall TNodeForm::SelectAllMenuItemClick(TObject *Sender)
418: {
419: int i;
420:
421: for(i=0;i<ListBox->Items->Count;i++)
422: ListBox->Selected[i]=true;
423:
424: }
425: //---------------------------------------------------------------------------
426:
427: void __fastcall TNodeForm::DownButtonClick(TObject *Sender)
428: {
429: int i;
430: node_t node;
431:
432: for(i=0;i<ListBox->Items->Count;i++)
433: if(ListBox->Selected[i]==true) {
434: getnodedat(&MainForm->cfg,i+1,&node,1);
435: if(node.status==NODE_WFC)
436: node.status=NODE_OFFLINE;
437: else if(node.status==NODE_OFFLINE)
438: node.status=NODE_WFC;
439: else
440: node.misc^=NODE_DOWN;
441: putnodedat(&MainForm->cfg,i+1,&node);
442: }
443: }
444: //---------------------------------------------------------------------------
445:
446: void __fastcall TNodeForm::ClearErrorButtonClick(TObject *Sender)
447: {
448: int i;
449: node_t node;
450:
451: for(i=0;i<ListBox->Items->Count;i++)
452: if(ListBox->Selected[i]==true) {
453: getnodedat(&MainForm->cfg,i+1,&node,1);
454: node.errors=0;
455: putnodedat(&MainForm->cfg,i+1,&node);
456: }
457: }
458: //---------------------------------------------------------------------------
459:
460: void __fastcall TNodeForm::ChatButtonClick(TObject *Sender)
461: {
462: char str[512];
463: char name[128];
464: int i;
465: node_t node;
466:
467: for(i=0;i<ListBox->Items->Count;i++)
468: if(ListBox->Selected[i]==true) {
469: getnodedat(&MainForm->cfg,i+1,&node,0);
470: if(node.status==NODE_WFC || node.status>NODE_QUIET)
471: continue;
472: sprintf(str,"%sCHAT %s %s %d %s"
473: ,MainForm->cfg.exec_dir
474: ,MainForm->cfg.ctrl_dir
475: ,MainForm->cfg.node_path[i]
476: ,i+1
477: ,username(node.useron,name)
478: );
479: WinExec(str,SW_SHOWNORMAL);
480: }
481: }
482: //---------------------------------------------------------------------------
483:
484: void __fastcall TNodeForm::SpyButtonClick(TObject *Sender)
485: {
486: int i;
487:
488: for(i=0;i<ListBox->Items->Count;i++)
489: if(ListBox->Selected[i]==true) {
490: if(SpyForms[i]==NULL) {
491: Application->CreateForm(__classid(TSpyForm), &SpyForms[i]);
492: SpyForms[i]->inbuf=&MainForm->bbs_startup.node_inbuf[i];
493: SpyForms[i]->outbuf=&MainForm->bbs_startup.node_spybuf[i];
494: SpyForms[i]->Caption="Node "+AnsiString(i+1);
495: }
496: SpyForms[i]->Show();
497: }
498: }
499: //---------------------------------------------------------------------------
500:
501: void __fastcall TNodeForm::UserEditButtonClick(TObject *Sender)
502: {
503: int i;
504: char str[128];
505: node_t node;
506:
507: for(i=0;i<ListBox->Items->Count;i++)
508: if(ListBox->Selected[i]==true) {
509: getnodedat(&MainForm->cfg,i+1,&node,0);
510: if(node.useron==0)
511: continue;
512: sprintf(str,"%sUSEREDIT %s %d"
513: ,MainForm->cfg.exec_dir
514: ,MainForm->cfg.data_dir
515: ,node.useron);
516: WinExec(str,SW_SHOWNORMAL);
517: }
518: }
519: //---------------------------------------------------------------------------
520:
521: void __fastcall TNodeForm::UserMsgButtonClick(TObject *Sender)
522: {
523: int i;
524: node_t node;
525:
526: Application->CreateForm(__classid(TUserMsgForm), &UserMsgForm);
527: UserMsgForm->Memo->Text="\1n\1y\1hMessage From Sysop:\1w ";
528: UserMsgForm->Memo->SelStart=UserMsgForm->Memo->Text.Length();
529: if(UserMsgForm->ShowModal()==mrOk) {
530: UserMsgForm->Memo->Lines->Add("");
531: for(i=0;i<ListBox->Items->Count;i++)
532: if(ListBox->Selected[i]==true) {
533: getnodedat(&MainForm->cfg,i+1,&node,0);
534: if(node.useron==0)
535: continue;
536: putsmsg(&MainForm->cfg,node.useron
537: ,UserMsgForm->Memo->Text.c_str());
538: }
539: }
540: delete UserMsgForm;
541: }
542: //---------------------------------------------------------------------------
543:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.