umonitor.c 38.2 KB
Newer Older
1
2
/* Synchronet for *nix node activity monitor */

Rob Swindell's avatar
Rob Swindell committed
3
/* $Id: umonitor.c,v 1.99 2020/08/17 00:48:52 rswindell Exp $ */
rswindell's avatar
rswindell committed
4
// vi: tabstop=4
5
6
7
8
9

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
rswindell's avatar
rswindell committed
10
 * Copyright Rob Swindell - http://www.synchro.net/copyright.html			*
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 *																			*
 * This program is free software; you can redistribute it and/or			*
 * modify it under the terms of the GNU General Public License				*
 * as published by the Free Software Foundation; either version 2			*
 * of the License, or (at your option) any later version.					*
 * See the GNU General Public License for more details: gpl.txt or			*
 * http://www.fsf.org/copyleft/gpl.html										*
 *																			*
 * Anonymous FTP access to the most recent released source is available at	*
 * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net	*
 *																			*
 * Anonymous CVS access to the development source and modification history	*
 * is available at cvs.synchro.net:/cvsroot/sbbs, example:					*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login			*
 *     (just hit return, no password is necessary)							*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src		*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * You are encouraged to submit any modifications (preferably in Unix diff	*
 * format) via e-mail to mods@synchro.net									*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

37
#include <signal.h>
deuce's avatar
deuce committed
38
#include <sys/types.h>
39
#include <time.h>
deuce's avatar
deuce committed
40
41
42
#ifdef __QNX__
#include <string.h>
#endif
43
#include <stdio.h>
44
45
46
47

#include "ciolib.h"
#define __COLORS		/* Disable the colour macros in sbbsdefs.h ToDo */
#include "sbbs.h"
48
#include "genwrap.h"
49
50
51
#include "uifc.h"
#include "sbbsdefs.h"
#include "genwrap.h"	/* stricmp */
52
#include "dirwrap.h"	/* lock/unlock/sopen */
53
#include "filewrap.h"	/* lock/unlock/sopen */
54
55
56
#include "sbbs_ini.h"	/* INI parsing */
#include "scfglib.h"	/* SCFG files */
#include "ars_defs.h"	/* needed for SCFG files */
57
#include "userdat.h"	/* getnodedat() */
58
#include "spyon.h"
59
#include "chat.h"
60

61
#define CTRL(x) (x&037)
62
63
64
65
66

/********************/
/* Global Variables */
/********************/
uifcapi_t uifc; /* User Interface (UIFC) Library API */
67
68
const char *YesStr="Yes";
const char *NoStr="No";
69
70
char* app_title = "Synchronet UNIX Monitor v" VERSION " " PLATFORM_DESC;
int	ciolib_mode=CIOLIB_MODE_AUTO;
71
72
73
74
75
76
77
78
79
80
81
82
83
84

int lprintf(char *fmt, ...)
{
	va_list argptr;
	char sbuf[1024];
	int	len;

	va_start(argptr,fmt);
	len=vsnprintf(sbuf,sizeof(sbuf),fmt,argptr);
	sbuf[sizeof(sbuf)-1]=0;
	va_end(argptr);
	uifc.msg(sbuf);
	return(len);
}
85

86
87
void bail(int code)
{
deuce's avatar
deuce committed
88
89
90
	if(code) {
		puts("\nHit a key...");
		getch();
91
	}
deuce's avatar
deuce committed
92
	uifc.bail();
93

deuce's avatar
deuce committed
94
	exit(code);
95
96
97
98
}

void allocfail(uint size)
{
deuce's avatar
deuce committed
99
100
	printf("\7Error allocating %u bytes of memory.\n",size);
	bail(1);
101
102
}

103
void node_toggles(scfg_t *cfg,int nodenum)  {
104
	int nodefile = -1;
105
106
107
108
109
	char**	opt;
	int		i,j;
	node_t	node;
	int		save=0;

deuce's avatar
deuce committed
110
111
112
	if((opt=(char **)alloca(sizeof(char *)*(4+1)))==NULL)
		allocfail(sizeof(char *)*(4+1));
	for(i=0;i<(4+1);i++)
113
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
114
115
116
			allocfail(MAX_OPLN);

	i=0;
117
118
	uifc.helpbuf=	"`Node Toggles\n"
	                "`------------`\n\n"
deuce's avatar
deuce committed
119
120
121
122
123
124
125
126
127
128
129
	                "`The following are `Yes/No `options.  Hitting Enter toggles between.\n\n"
	                "`Locked for SysOps only : `Locks the node so that only SysOps may \n"
	                "                         logon to them.\n"
	                "`Interrupt (Hangup)     : `The current user will be kicked as soon as it \n"
	                "                         is safe to do so.  A brief message is given\n"
	                "                         to user.\n"
	                "`Re-run on logoff       : `Toggles the system to reload the configuration\n"
	                "                         files when the current user logs off.\n"
	                "`Down node after logoff : `Takes the node offline after current user logs\n"
	                "                         off.\n\n"
	                "`[Note] `These toggles take effect immediately.";
130
	while(save==0) {
131
		if(getnodedat(cfg,nodenum,&node,FALSE,&nodefile)) {
132
133
134
			uifc.msg("Error reading node data!");
			break;
		}
135
136
137
		j=0;
		sprintf(opt[j++],"%-30s%3s","Locked for SysOps only",node.misc&NODE_LOCK ? YesStr : NoStr);
		sprintf(opt[j++],"%-30s%3s","Interrupt (Hangup)",node.misc&NODE_INTR ? YesStr : NoStr);
rswindell's avatar
rswindell committed
138
139
140
		sprintf(opt[j++],"%-30s%3s","Re-run on logoff",node.misc&NODE_RRUN ? YesStr : NoStr);
		sprintf(opt[j++],"%-30s%3s","Down node after logoff"
			,(node.misc&NODE_DOWN || (node.status==NODE_OFFLINE)) ? YesStr : NoStr);
141
142
		opt[j][0]=0;

143
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&i,0,"Node Toggles",opt)) {
144
145
146
147
148
149
150
151
			case 0:	/* Locked */
				node.misc ^= NODE_LOCK;
				break;

			case 1:	/* Interrupt */
				node.misc ^= NODE_INTR;
				break;

rswindell's avatar
rswindell committed
152
			case 2:	/* Re-run */
153
154
155
				node.misc ^= NODE_RRUN;
				break;

rswindell's avatar
rswindell committed
156
			case 3:	/* Down */
157
				if(node.status != NODE_WFC && node.status != NODE_OFFLINE)
158
					node.misc ^= NODE_DOWN;
159
				else {
160
161
162
163
164
					if(node.status!=NODE_OFFLINE)
						node.status=NODE_OFFLINE;
					else
						node.status=NODE_WFC;
				}
165
166
167
168
169
				break;

			case -1:
				save=1;
				break;
170

171
172
173
174
			default:
				uifc.msg("Option not implemented");
				continue;
		}
175
		putnodedat(cfg,nodenum,&node,FALSE,nodefile);
deuce's avatar
deuce committed
176
	}
deuce's avatar
deuce committed
177
178
179
180
181
182
183
}

int dospy(int nodenum, bbs_startup_t *bbs_startup)  {
	char str[80],str2[80];
	int i;

	if(bbs_startup->temp_dir[0])
deuce's avatar
deuce committed
184
		snprintf(str,sizeof(str),"%slocalspy%d.sock", bbs_startup->temp_dir, nodenum);
deuce's avatar
deuce committed
185
186
187
188
189
190
191
	else
		snprintf(str,sizeof(str),"%slocalspy%d.sock", bbs_startup->ctrl_dir, nodenum);
	i=spyon(str);
	switch(i) {
		case SPY_NOSOCKET:
			uifc.msg("Could not create socket");
			return(-1);
192

deuce's avatar
deuce committed
193
		case SPY_NOCONNECT:
194
			SAFEPRINTF(str2,"Failed to connect to %s",str);
deuce's avatar
deuce committed
195
196
197
198
199
200
201
202
203
204
			uifc.msg(str2);
			return(-1);

		case SPY_SELECTFAILED:
			uifc.msg("select() failed, connection terminated.");
			return(-1);

		case SPY_SOCKETLOST:
			uifc.msg("Spy socket lost");
			return(-1);
205

deuce's avatar
deuce committed
206
207
208
		case SPY_STDINLOST:
			uifc.msg("STDIN has gone away... you probably can't close this window.  :-)");
			return(-1);
209

deuce's avatar
deuce committed
210
211
		case SPY_CLOSED:
			break;
212

deuce's avatar
deuce committed
213
214
215
216
217
218
219
220
		default:
			sprintf(str,"Unknown return code %d",i);
			uifc.msg(str);
			return(-1);
	}
	return(0);
}

221
int sendmessage(scfg_t *cfg, int nodenum,node_t *node)  {
222
223
	char str[80],str2[80];

224
	uifc.input(WIN_MID|WIN_SAV,0,0,"Telegram",str2,58,K_WRAP|K_MSG);
225
	SAFEPRINTF(str,"\1n\1y\1hMessage From Sysop:\1w %s\r\n",str2);
226
	if(getnodedat(cfg,nodenum,node,FALSE,NULL))
227
228
229
		return(-1);
	if(node->useron==0)
		return(-1);
230
	putsmsg(cfg, node->useron, str);
231
232
233
	return(0);
}

234
int clearerrors(scfg_t *cfg, int nodenum, node_t *node) {
235
236
	int nodefile = -1;
	if(getnodedat(cfg,nodenum,node,TRUE,&nodefile)) {
237
238
239
240
		uifc.msg("getnodedat() failed! (Nothing done)");
		return(-1);
	}
	node->errors=0;
241
	putnodedat(cfg,nodenum,node,TRUE,nodefile);
242
	uifc.msg("Error count cleared for this node.");
243
244
245
	return(0);
}

246
247
248
249
250
/* Assumes a 12 char outstr */
char *getsizestr(char *outstr, long size, BOOL bytes) {
	if(bytes) {
		if(size < 1000) {	/* Bytes */
			snprintf(outstr,12,"%ld bytes",size);
251
			return(outstr);
252
253
254
		}
		if(size<10000) {	/* Bytes with comma */
			snprintf(outstr,12,"%ld,%03ld bytes",(size/1000),(size%1000));
255
			return(outstr);
256
257
258
259
260
		}
		size = size/1024;
	}
	if(size<1000) {	/* KB */
		snprintf(outstr,12,"%ld KB",size);
261
		return(outstr);
262
263
264
	}
	if(size<999999) { /* KB With comma */
		snprintf(outstr,12,"%ld,%03ld KB",(size/1000),(size%1000));
265
		return(outstr);
266
267
268
269
	}
	size = size/1024;
	if(size<1000) {	/* MB */
		snprintf(outstr,12,"%ld MB",size);
270
		return(outstr);
271
272
273
	}
	if(size<999999) { /* MB With comma */
		snprintf(outstr,12,"%ld,%03ld MB",(size/1000),(size%1000));
274
		return(outstr);
275
276
277
278
	}
	size = size/1024;
	if(size<1000) {	/* GB */
		snprintf(outstr,12,"%ld GB",size);
279
		return(outstr);
280
281
282
	}
	if(size<999999) { /* GB With comma */
		snprintf(outstr,12,"%ld,%03ld GB",(size/1000),(size%1000));
283
		return(outstr);
284
285
286
287
	}
	size = size/1024;
	if(size<1000) {	/* TB (Yeah, right) */
		snprintf(outstr,12,"%ld TB",size);
288
		return(outstr);
289
290
	}
	sprintf(outstr,"Plenty");
291
	return(outstr);
292
293
294
295
296
297
}

/* Assumes a 12 char outstr */
char *getnumstr(char *outstr, ulong size) {
	if(size < 1000) {
		snprintf(outstr,12,"%ld",size);
298
		return(outstr);
299
300
301
	}
	if(size<1000000) {
		snprintf(outstr,12,"%ld,%03ld",(size/1000),(size%1000));
302
		return(outstr);
303
304
305
	}
	if(size<1000000000) {
		snprintf(outstr,12,"%ld,%03ld,%03ld",(size/1000000),((size/1000)%1000),(size%1000));
306
		return(outstr);
307
308
309
310
	}
	size=size/1000000;
	if(size<1000000) {
		snprintf(outstr,12,"%ld,%03ld M",(size/1000),(size%1000));
311
		return(outstr);
312
313
314
	}
	if(size<10000000) {
		snprintf(outstr,12,"%ld,%03ld,%03ld M",(size/1000000),((size/1000)%1000),(size%1000));
315
		return(outstr);
316
317
	}
	sprintf(outstr,"Plenty");
318
	return(outstr);
319
320
}

321
int drawstats(scfg_t *cfg, int nodenum, node_t *node, int *curp, int *barp) {
322
323
324
325
326
327
328
329
	stats_t	sstats;
	stats_t	nstats;
	char	statbuf[6*78];		/* Buffer to hold the stats for passing to uifc.showbuf() */
	char	str[4][4][12];
	char	usrname[128];
	ulong	free;
	uint	i,l,m;
	time_t	t;
330
	int		shownode=1;
331

332
	if(getnodedat(cfg,nodenum,node,FALSE,NULL)) {
333
334
335
336
		shownode=0;
	}
	else {
		getstats(cfg, nodenum, &nstats);
337
338
339
340
341
342
	}
	username(cfg,node->useron,usrname);

	getstats(cfg, 0, &sstats);
	t=time(NULL);
	strftime(str[0][0],12,"%b %e",localtime(&t));
343
	free=getfreediskspace(cfg->data_dir,1024);
344
	if(free<1000) {
345
		free=getfreediskspace(cfg->data_dir,0);
346
		getsizestr(str[0][1],free,TRUE);
347
	}
348
349
	else
		getsizestr(str[0][1],free,FALSE);
350
351
352
353
354
	if(shownode) {
		snprintf(str[1][0],12,"%s/%s",getnumstr(str[3][2],nstats.ltoday),getnumstr(str[3][3],sstats.ltoday));
		getnumstr(str[1][1],sstats.logons);
		snprintf(str[1][2],12,"%s/%s",getnumstr(str[3][2],nstats.ttoday),getnumstr(str[3][3],sstats.ttoday));
		getnumstr(str[1][3],sstats.timeon);
rswindell's avatar
rswindell committed
355
		snprintf(str[2][0],12,"%s/%s",getnumstr(str[3][2],sstats.etoday),getnumstr(str[3][3],getmail(cfg,0,0,0)));
356
357
358
359
360
361
		l=m=0;
		for(i=0;i<cfg->total_subs;i++)
			l+=getposts(cfg,i); 			/* l=total posts */
		for(i=0;i<cfg->total_dirs;i++)
			m+=getfiles(cfg,i); 			/* m=total files */
		snprintf(str[2][1],12,"%s/%s",getnumstr(str[3][2],sstats.ptoday),getnumstr(str[3][3],l));
rswindell's avatar
rswindell committed
362
		snprintf(str[2][2],12,"%s/%s",getnumstr(str[3][2],sstats.ftoday),getnumstr(str[3][3],getmail(cfg,1,0,0)));
363
364
365
366
367
368
369
370
371
372
373
		snprintf(str[2][3],12,"%s/%s",getnumstr(str[3][2],sstats.nusers),getnumstr(str[3][3],total_users(cfg)));
		getsizestr(str[3][0],sstats.ulb,TRUE);
		snprintf(str[3][1],12,"%s/%s",getnumstr(str[3][2],sstats.uls),getnumstr(str[3][3],m));
		getsizestr(str[3][2],sstats.dlb,TRUE);
		getnumstr(str[3][3],sstats.dls);
	}
	else {
		snprintf(str[1][0],12,"%s",getnumstr(str[3][3],sstats.ltoday));
		getnumstr(str[1][1],sstats.logons);
		snprintf(str[1][2],12,"%s",getnumstr(str[3][3],sstats.ttoday));
		getnumstr(str[1][3],sstats.timeon);
rswindell's avatar
rswindell committed
374
		snprintf(str[2][0],12,"%s/%s",getnumstr(str[3][2],sstats.etoday),getnumstr(str[3][3],getmail(cfg,0,0,0)));
375
376
377
378
379
380
		l=m=0;
		for(i=0;i<cfg->total_subs;i++)
			l+=getposts(cfg,i); 			/* l=total posts */
		for(i=0;i<cfg->total_dirs;i++)
			m+=getfiles(cfg,i); 			/* m=total files */
		snprintf(str[2][1],12,"%s/%s",getnumstr(str[3][2],sstats.ptoday),getnumstr(str[3][3],l));
rswindell's avatar
rswindell committed
381
		snprintf(str[2][2],12,"%s/%s",getnumstr(str[3][2],sstats.ftoday),getnumstr(str[3][3],getmail(cfg,1,0,0)));
382
383
384
385
386
387
		snprintf(str[2][3],12,"%s/%s",getnumstr(str[3][2],sstats.nusers),getnumstr(str[3][3],total_users(cfg)));
		getsizestr(str[3][0],sstats.ulb,TRUE);
		snprintf(str[3][1],12,"%s/%s",getnumstr(str[3][2],sstats.uls),getnumstr(str[3][3],m));
		getsizestr(str[3][2],sstats.dlb,TRUE);
		getnumstr(str[3][3],sstats.dls);
	}
deuce's avatar
deuce committed
388
389
390
391
	snprintf(statbuf,sizeof(statbuf),"`Node #`: %-3d %6s  `Space`: %s"
			"\n`Logons`: %-11s `Total`: %-11s `Timeon`: %-11s `Total`: %-11s"
			"\n`Emails`: %-11s `Posts`: %-11s `Fbacks`: %-11s `Users`: %-11s"
			"\n`Uloads`: %-11s `Files`: %-11s `Dloads`: %-11s `Files`: %-11s",
392
393
394
395
396
			nodenum,str[0][0],str[0][1],
			str[1][0],str[1][1],str[1][2],str[1][3],
			str[2][0],str[2][1],str[2][2],str[2][3],
			str[3][0],str[3][1],str[3][2],str[3][3]);

deuce's avatar
deuce committed
397
	uifc.showbuf(WIN_HLP|WIN_L2R|WIN_DYN|WIN_PACK,1,1,80,6,"Statistics",statbuf,curp,barp);
398
/* Node 5 :	Mar 11  Space: 162,024k
399
   Logons: 23/103      Total: 62,610      Timeon: 322/2430    Total: 5,321,900
400
401
402
403
404
   Emails: 4/265       Posts: 4/12811     Fbacks: 2/17	       Users: 1/592
   Uloads: 324k        Files: 1/2195      Dloads: 9,308k      Files: 52 */
	return(0);
}

405
406
407
408
409
410
411
412
413
414
int view_log(char *filename, char *title)
{
	char str[1024];
	int buffile;
	int j;
	char *buf;

	if(fexist(filename)) {
		if((buffile=sopen(filename,O_RDONLY,SH_DENYWR))>=0) {
			j=filelength(buffile);
415
			if(j >= 0 && (buf=(char *)malloc(j+1))!=NULL) {
416
417
418
419
				read(buffile,buf,j);
				close(buffile);
				*(buf+j)=0;
				uifc.showbuf(WIN_MID,0,0,76,uifc.scrn_len-2,title,buf,NULL,NULL);
420
				free(buf);
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
				return(0);
			}
			close(buffile);
			uifc.msg("Error allocating memory for the error log");
			return(3);
		}
		sprintf(str,"Error opening %s",title);
		uifc.msg(str);
		return(1);
	}
	sprintf(str,"%s does not exists",title);
	uifc.msg(str);
	return(2);
}

int view_logs(scfg_t *cfg)
{
	char**	opt;
	int		i;
	char	str[1024];
	struct tm tm;
	struct tm tm_yest;
	time_t	now;

	now=time(NULL);
	localtime_r(&now,&tm);
	now -= 60*60*24;
	localtime_r(&now,&tm_yest);
449
	const int num_opts = 12;
450
451
452
	if((opt=(char **)alloca(sizeof(char *)*(num_opts+1)))==NULL)
		allocfail(sizeof(char *)*(num_opts+1));
	for(i=0;i<(num_opts+1);i++)
453
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
454
455
456
			allocfail(MAX_OPLN);

	i=0;
457
458
	strcpy(opt[i++],"Today's callers");
	strcpy(opt[i++],"Yesterday's callers");
459
	strcpy(opt[i++],"Error log");
460
461
	strcpy(opt[i++],"Today's log");
	strcpy(opt[i++],"Yesterday's log");
462
	strcpy(opt[i++],"Spam log");
463
	strcpy(opt[i++],"SBBSecho log");
464
	strcpy(opt[i++],"EchoMail stats");
465
	strcpy(opt[i++],"BinkP stats");
466
	strcpy(opt[i++],"Bad Areas list");
467
468
469
470
	strcpy(opt[i++],"Guru log");
	strcpy(opt[i++],"Hack log");
	opt[i][0]=0;
	i=0;
471
	uifc.helpbuf=	"`View Logs\n"
deuce's avatar
deuce committed
472
473
474
475
476
477
478
	                "`---------\n\n"
	                "`Today's callers     : `View a list of Today's callers.\n"
	                "`Yesterday's callers : `View a list of Yesterday's callers.\n"
	                "`Error log           : `View the Error log.\n"
	                "`Today's log         : `View Today's system activity.\n"
	                "`Yesterday's log     : `View Yesterday's system activity.\n"
	                "`Spam log            : `View the log of Spam E-Mail sent to the system.\n"
479
	                "`SBBSecho log        : `View the FidoNet EchoMail program log.\n"
480
481
	                "`EchoMail stats      : `view the FidoNet EchoMail statistics.\n"
					"`Binkp stats         : `view the BinkP FidoNet mailer statistics.\n"
482
	                "`Bad Areas list      : `view the list of unknown EchoMail areas.\n"
deuce's avatar
deuce committed
483
484
	                "`Guru log            : `View the transcriptions of chats with the Guru.\n"
	                "`Hack log            : `View the Hack attempt log.";
485

486
	while(1) {
487
		switch(uifc.list(WIN_MID,0,0,0,&i,0,"View Logs",opt))  {
488
489
490
			case -1:
				return(0);
			case 0:
deuce's avatar
deuce committed
491
				sprintf(str,"%slogs/%2.2d%2.2d%2.2d.lol",cfg->logs_dir,tm.tm_mon+1,tm.tm_mday
492
493
494
495
					,TM_YEAR(tm.tm_year));
				view_log(str,"Todays Callers");
				break;
			case 1:
deuce's avatar
deuce committed
496
				sprintf(str,"%slogs/%2.2d%2.2d%2.2d.lol",cfg->logs_dir,tm_yest.tm_mon+1
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
					,tm_yest.tm_mday,TM_YEAR(tm_yest.tm_year));
				view_log(str,"Yesterdays Callers");
				break;
			case 2:
				sprintf(str,"%s/error.log",cfg->logs_dir);
				view_log(str,"Error Log");
				break;
			case 3:
				sprintf(str,"%slogs/%2.2d%2.2d%2.2d.log",cfg->logs_dir,tm.tm_mon+1,tm.tm_mday
					,TM_YEAR(tm.tm_year));
				view_log(str,"Todays Log");
				break;
			case 4:
				sprintf(str,"%slogs/%2.2d%2.2d%2.2d.log",cfg->logs_dir,tm_yest.tm_mon+1
					,tm_yest.tm_mday,TM_YEAR(tm_yest.tm_year));
				view_log(str,"Yesterdays Log");
				break;
			case 5:
				sprintf(str,"%sspam.log",cfg->logs_dir);
				view_log(str,"SPAM Log");
				break;
			case 6:
				sprintf(str,"%ssbbsecho.log",cfg->logs_dir);
520
				view_log(str,"SBBSecho Log");
521
522
				break;
			case 7:
523
524
525
526
				sprintf(str,"%sechostats.ini",cfg->data_dir);
				view_log(str,"EchoMail Stats");
				break;
			case 8:
527
528
529
530
				sprintf(str,"%sbinkstats.ini",cfg->data_dir);
				view_log(str,"BinkP Stats");
				break;
			case 9:
531
532
533
				sprintf(str,"%sbadareas.lst",cfg->data_dir);
				view_log(str,"Bad Area List");
				break;
534
			case 10:
535
536
537
				sprintf(str,"%sguru.log",cfg->logs_dir);
				view_log(str,"Guru Log");
				break;
538
			case 11:
539
540
541
542
543
544
545
546
547
548
				sprintf(str,"%shack.log",cfg->logs_dir);
				view_log(str,"Hack Log");
				break;
		}
	}
}

int do_cmd(char *cmd)
{
	int i;
549
550
551
552
	struct text_info ti;
	char *p;

	gettextinfo(&ti);
553
	p=alloca(ti.screenheight*ti.screenwidth*2);
554
	gettext(1,1,ti.screenwidth,ti.screenheight,p);
555
	suspendciolib();
556
	i=system(cmd);
557
558
	initciolib(ciolib_mode);
	clrscr();
559
	puttext(1,1,ti.screenwidth,ti.screenheight,p);
560
	uifc.scrn(app_title);
561
562
563
	return(i);
}

564
int qwk_callouts(scfg_t *cfg)
565
{
566
567
568
569
570
571
572
573
574
	char**	opt;
	int		i,j;
	char	str[1024];

	if(cfg->total_qhubs<1) {
		uifc.msg("No QWK hubs configured!");
		return(1);
	}

deuce's avatar
deuce committed
575
576
577
	if((opt=(char **)alloca(sizeof(char *)*(cfg->total_qhubs+1)))==NULL)
		allocfail(sizeof(char *)*(cfg->total_qhubs+1));
	for(i=0;i<(cfg->total_qhubs+1);i++)
578
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
579
580
581
			allocfail(MAX_OPLN);


582
583
584
585
	uifc.helpbuf=	"`QWK Callouts\n"
					"`------------\n\n"
					"Select the Hub and press enter to initiate a call out to\n"
					"the highlighted system.";
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604

	j=0;
	while(1) {
		for(i=0;i<cfg->total_qhubs;i++) {
			strcpy(opt[i],cfg->qhub[i]->id);
			sprintf(str,"%sqnet/%s.now",cfg->data_dir,cfg->qhub[i]->id);
			if(fexist(str))
				strcat(opt[i]," (pending)");
		}
		opt[i][0]=0;
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&j,0,"QWK Callouts",opt))  {
			case -1:
				return(0);
				break;
			default:
				sprintf(str,"%sqnet/%s.now",cfg->data_dir,cfg->qhub[j]->id);
				ftouch(str);
		}
	}
605
606
607
	return(0);
}

608
int run_events(scfg_t *cfg)
609
{
610
611
612
613
	char**	opt;
	int		i,j;
	char	str[1024];

deuce's avatar
deuce committed
614
615
616
	if((opt=(char **)alloca(sizeof(char *)*(cfg->total_events+1)))==NULL)
		allocfail(sizeof(char *)*(cfg->total_events+1));
	for(i=0;i<(cfg->total_events+1);i++)
617
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
618
619
620
621
622
623
624
625
			allocfail(MAX_OPLN);

	if(cfg->total_events<1) {
		uifc.msg("No events configured!");
		return(1);
	}
	j=0;

626
627
628
	uifc.helpbuf=	"`Run Events\n"
					"`----------\n\n"
					"To run and event, highlight it and press Enter";
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646

	while(1) {
		for(i=0;i<cfg->total_events;i++) {
			strcpy(opt[i],cfg->event[i]->code);
			sprintf(str,"%s%s.now",cfg->data_dir,cfg->event[i]->code);
			if(fexist(str))
				strcat(opt[i]," (pending)");
		}
		opt[i][0]=0;
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&j,0,"Run Events",opt))  {
			case -1:
				return(0);
				break;
			default:
				sprintf(str,"%s%s.now",cfg->data_dir,cfg->event[j]->code);
				ftouch(str);
		}
	}
647
648
649
	return(0);
}

650
int recycle_servers(scfg_t *cfg)
651
{
Rob Swindell's avatar
Rob Swindell committed
652
	char str[MAX_PATH + 1];
653
654
	char **opt;
	int i=0;
Rob Swindell's avatar
Rob Swindell committed
655
	const int opt_count = 6;
656

Rob Swindell's avatar
Rob Swindell committed
657
658
	if((opt=(char **)alloca(sizeof(char *)*(opt_count+1)))==NULL)
		allocfail(sizeof(char *)*(opt_count+1));
659

Rob Swindell's avatar
Rob Swindell committed
660
661
662
663
664
665
666
	opt[i++] = "All Servers";
	opt[i++] = "Terminal Server";
	opt[i++] = "Mail Server";
	opt[i++] = "FTP Server";
	opt[i++] = "Web Server";
	opt[i++] = "Services";
	opt[i] = NULL;
667

668
669
	uifc.helpbuf=	"`Recycle Servers\n"
					"`---------------\n\n"
Rob Swindell's avatar
Rob Swindell committed
670
					"To recycle a server, highlight it and press Enter.\n"
671
672
					"This will reload the configuration files for selected\n"
					"server.";
673
674
675

	i=0;
	while(1) {
Rob Swindell's avatar
Rob Swindell committed
676
		const char* ext = "";
677
678
679
680
681
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&i,0,"Recycle Servers",opt))  {
			case -1:
				return(0);
				break;
			case 1:
Rob Swindell's avatar
Rob Swindell committed
682
				ext = ".term";
683
684
				break;
			case 2:
Rob Swindell's avatar
Rob Swindell committed
685
				ext = ".mail";
686
687
				break;
			case 3:
Rob Swindell's avatar
Rob Swindell committed
688
				ext = ".ftp";
689
690
				break;
			case 4:
Rob Swindell's avatar
Rob Swindell committed
691
692
693
694
				ext = ".web";
				break;
			case 5:
				ext = ".services";
695
696
				break;
		}
Rob Swindell's avatar
Rob Swindell committed
697
698
		SAFEPRINTF2(str, "%srecycle%s", cfg->ctrl_dir, ext);
		ftouch(str);
699
	}
700
701
702
	return(0);
}

703
704
705
706
707
708
709
710
711
712
713
714
715
716
char *geteditor(char *edit)
{
	if(getenv("EDITOR")==NULL && (getenv("VISUAL")==NULL || getenv("DISPLAY")==NULL))
		strcpy(edit,"vi");
	else {
		if(getenv("DISPLAY")!=NULL && getenv("VISUAL")!=NULL)
			strcpy(edit,getenv("VISUAL"));
		else
			strcpy(edit,getenv("EDITOR"));
	}
	return(edit);
}


717
718
719
720
721
int edit_cfg(scfg_t *cfg)
{
	char**	opt;
	int		i;
	char	cmd[1024];
722
	char	editcmd[1024];
723

724
725
726
727
	const int num_opts = 16;
	if((opt=(char **)alloca(sizeof(char *)*(num_opts+1)))==NULL)
		allocfail(sizeof(char *)*(num_opts+1));
	for(i=0;i<(num_opts+1);i++)
728
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
729
730
731
			allocfail(MAX_OPLN);

	i=0;
732
	strcpy(opt[i++],"sbbs.ini");
733
	strcpy(opt[i++],"modopts.ini");
734
735
736
737
738
	strcpy(opt[i++],"alias.cfg");
	strcpy(opt[i++],"attr.cfg");
	strcpy(opt[i++],"dns_blacklist.cfg");
	strcpy(opt[i++],"dnsbl_exempt.cfg");
	strcpy(opt[i++],"domains.cfg");
739
740
	strcpy(opt[i++],"mailproc.ini");
	strcpy(opt[i++],"mime_types.ini");
741
	strcpy(opt[i++],"relay.cfg");
742
	strcpy(opt[i++],"sbbsecho.ini");
743
	strcpy(opt[i++],"../data/areas.bbs");
744
	strcpy(opt[i++],"services.ini");
745
	strcpy(opt[i++],"ftpalias.cfg");
746
	strcpy(opt[i++],"sockopts.ini");
747
748
	strcpy(opt[i++],"spambait.cfg");
	opt[i][0]=0;
749
	uifc.helpbuf= "Highlight desired file and hit Enter to edit it.";
750
751
	i=0;
	while(1) {
752
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&i,0,"Edit Config File",opt))  {
753
754
			case -1:
				return(0);
755
				break;
756
			default:
757
				sprintf(cmd,"%s %s%s",geteditor(editcmd),cfg->ctrl_dir,opt[i]);
758
759
760
761
762
763
				do_cmd(cmd);
				break;
		}
	}
	return(0);
}
764

765
766
767
768
769
int edit_can(scfg_t *cfg)
{
	char**	opt;
	int		i;
	char	cmd[1024];
770
	char	editcmd[1024];
771

772
773
774
775
	const int num_opts = 11;
	if((opt=(char **)alloca(sizeof(char *)*(num_opts+1)))==NULL)
		allocfail(sizeof(char *)*(num_opts+1));
	for(i=0;i<(num_opts+1);i++)
776
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
777
778
779
780
781
782
783
784
785
786
787
788
			allocfail(MAX_OPLN);

	i=0;
	strcpy(opt[i++],"email.can");
	strcpy(opt[i++],"file.can");
	strcpy(opt[i++],"host.can");
	strcpy(opt[i++],"ip.can");
	strcpy(opt[i++],"ip-silent.can");
	strcpy(opt[i++],"name.can");
	strcpy(opt[i++],"phone.can");
	strcpy(opt[i++],"rlogin.can");
	strcpy(opt[i++],"subject.can");
789
790
	strcpy(opt[i++],"../ctrl/twitlist.cfg");
	strcpy(opt[i++],"../ctrl/spamblock.cfg");
791
	opt[i][0]=0;
792
	uifc.helpbuf="Highlight desired file and hit Enter to edit it.";
793
794
	i=0;
	while(1) {
795
		switch(uifc.list(WIN_MID|WIN_SAV,0,0,0,&i,0,"Edit Filter File",opt))  {
796
797
			case -1:
				return(0);
798
				break;
799
			default:
800
				sprintf(cmd,"%s %s%s",geteditor(editcmd),cfg->text_dir,opt[i]);
801
802
803
804
805
806
				do_cmd(cmd);
				break;
		}
	}
	return(0);
}
807

808
int main(int argc, char** argv)  {
809

810
811
812
813
	char**	opt;
	char**	mopt;
	int		main_dflt=0;
	int		main_bar=0;
814
	int		sys_cur=0;
deuce's avatar
deuce committed
815
	char	revision[16];
816
	char	str[256],ctrl_dir[MAX_PATH + 1];
deuce's avatar
deuce committed
817
818
	int		i,j;
	node_t	node;
819
	int		nodefile = -1;
820
821
	box_t	boxch;
	scfg_t	cfg;
822
	int		done;
823
	time_t	last_semfile_check = time(NULL);
824
	int		idle_sleep=100;
825

deuce's avatar
deuce committed
826
827
828
	/******************/
	/* Ini file stuff */
	/******************/
829
	char	ini_file[MAX_PATH+1];
830
	FILE*				fp=NULL;
831
	bbs_startup_t		bbs_startup;
832

Rob Swindell's avatar
Rob Swindell committed
833
	sscanf("$Revision: 1.99 $", "%*s %s", revision);
834

deuce's avatar
deuce committed
835
	printf("\nSynchronet UNIX Monitor %s-%s  Copyright %s "
deuce's avatar
deuce committed
836
		"Rob Swindell\n",revision,PLATFORM_DESC,&__DATE__[7]);
837

838
	SAFECOPY(ctrl_dir, get_ctrl_dir(/* warn: */TRUE));
839
	backslash(ctrl_dir);
840

deuce's avatar
deuce committed
841
	gethostname(str,sizeof(str)-1);
842
843

	sbbs_get_ini_fname(ini_file, ctrl_dir, str);
844
845

	/* Initialize BBS startup structure */
deuce's avatar
deuce committed
846
847
	memset(&bbs_startup,0,sizeof(bbs_startup));
	bbs_startup.size=sizeof(bbs_startup);
848
	SAFECOPY(bbs_startup.ctrl_dir,ctrl_dir);
849
850
851
852
853
854

	/* Read .ini file here */
	if(ini_file[0]!=0 && (fp=fopen(ini_file,"r"))!=NULL) {
		printf("Reading %s\n",ini_file);
	}
	/* We call this function to set defaults, even if there's no .ini file */
rswindell's avatar
rswindell committed
855
	sbbs_read_ini(fp, ini_file,
856
		NULL,		/* global_startup */
857
		NULL, &bbs_startup,
858
		NULL, NULL, /* ftp_startup */
859
		NULL, NULL, /* web_startup */
860
861
862
		NULL, NULL, /* mail_startup */
		NULL, NULL  /* services_startup */
		);
863
864
865
866
867
868

	/* close .ini file here */
	if(fp!=NULL)
		fclose(fp);

	chdir(bbs_startup.ctrl_dir);
869

870
	/* Read .cfg files here */
deuce's avatar
deuce committed
871
	memset(&cfg,0,sizeof(cfg));
872
	cfg.size=sizeof(cfg);
873
874
	SAFECOPY(cfg.ctrl_dir,bbs_startup.ctrl_dir);
	if(!load_cfg(&cfg, NULL, TRUE, str)) {
875
876
877
		printf("ERROR! %s\n",str);
		exit(1);
	}
878
	prep_dir(cfg.ctrl_dir, cfg.temp_dir, sizeof(cfg.temp_dir));
879

deuce's avatar
deuce committed
880
	memset(&uifc,0,sizeof(uifc));
881
	uifc.mode|=UIFC_NOCTRL;
882
883
884

	uifc.esc_delay=500;

deuce's avatar
deuce committed
885
886
887
888
889
890
891
892
	boxch.ls=(char)186;
	boxch.rs=(char)186;
	boxch.ts=(char)205;
	boxch.bs=(char)205;
	boxch.tl=(char)201;
	boxch.tr=(char)187;
	boxch.bl=(char)200;
	boxch.br=(char)188;
893
	for(i=1;i<argc;i++) {
deuce's avatar
deuce committed
894
895
896
897
898
899
900
901
902
903
904
		if(argv[i][0]=='-')
			switch(toupper(argv[i][1])) {
				case 'C':
					uifc.mode|=UIFC_COLOR;
					break;
					case 'L':
					uifc.scrn_len=atoi(argv[i]+2);
					break;
				case 'E':
					uifc.esc_delay=atoi(argv[i]+2);
					break;
905
906
907
				case 'S':
					idle_sleep=atoi(argv[i]+2);
					break;
908
				case 'I':
deuce's avatar
deuce committed
909
910
911
912
913
914
915
916
					switch(toupper(argv[i][2])) {
						case 'A':
							ciolib_mode=CIOLIB_MODE_ANSI;
							break;
						case 'C':
							ciolib_mode=CIOLIB_MODE_CURSES;
							break;
						case 0:
917
							printf("NOTICE: The -i option is deprecated, use -if instead\n");
deuce's avatar
deuce committed
918
919
920
921
							SLEEP(2000);
						case 'F':
							ciolib_mode=CIOLIB_MODE_CURSES_IBM;
							break;
922
923
924
						case 'I':
							ciolib_mode=CIOLIB_MODE_CURSES_ASCII;
							break;
deuce's avatar
deuce committed
925
926
927
928
929
930
931
932
933
						case 'X':
							ciolib_mode=CIOLIB_MODE_X;
							break;
						case 'W':
							ciolib_mode=CIOLIB_MODE_CONIO;
							break;
						default:
							goto USAGE;
					}
934
					break;
deuce's avatar
deuce committed
935
936
				default:
USAGE:
937
					printf("\nusage: %s [ctrl_dir] [options]\n"
deuce's avatar
deuce committed
938
939
940
					         "options:\n\n"
					         "-c  =  force color mode\n"
					         "-e# =  set escape delay to #msec\n"
941
					         "-iX =  set interface mode to X (default=auto) where X is one of:\n"
deuce's avatar
deuce committed
942
#ifdef __unix__
943
944
945
946
					         "       X = X11 mode\n"
					         "       C = Curses mode\n"
					         "       F = Curses mode with forced IBM charset\n"
							 "       I = Curses mode with forced ASCII charset\n"
deuce's avatar
deuce committed
947
#else
948
					         "       W = Win32 native mode\n"
deuce's avatar
deuce committed
949
#endif
950
					         "       A = ANSI mode\n"
deuce's avatar
deuce committed
951
					         "-l# =  set screen lines to #\n"
Rob Swindell's avatar
Rob Swindell committed
952
					         "-s# =  set idle slsep to # milliseconds (default: %d)\n"
deuce's avatar
deuce committed
953
954
955
956
957
958
					    ,argv[0]
					    ,idle_sleep
					);
					exit(0);
			}
	}
959

deuce's avatar
deuce committed
960
#ifdef SIGPIPE
961
	signal(SIGPIPE, SIG_IGN);
deuce's avatar
deuce committed
962
#endif
963

964
	uifc.size=sizeof(uifc);
deuce's avatar
deuce committed
965
966
	i=initciolib(ciolib_mode);
	if(i!=0) {
deuce's avatar
deuce committed
967
968
		printf("ciolib library init returned error %d\n",i);
		exit(1);
deuce's avatar
deuce committed
969
	}
deuce's avatar
deuce committed
970
	i=uifcini32(&uifc);  /* curses */
971
972
973
974
975
	if(i!=0) {
		printf("uifc library init returned error %d\n",i);
		exit(1);
	}

976
977
978
979
	const int main_menu_opts = 11;
	if((opt=(char **)alloca(sizeof(char *)*(main_menu_opts+1)))==NULL)
		allocfail(sizeof(char *)*(main_menu_opts+1));
	for(i=0;i<(main_menu_opts+1);i++)
980
		if((opt[i]=(char *)alloca(MAX_OPLN))==NULL)
981
982
			allocfail(MAX_OPLN);

deuce's avatar
deuce committed
983
984
985
	if((mopt=(char **)alloca(sizeof(char *)*cfg.sys_nodes+2))==NULL)
		allocfail(sizeof(char *)*cfg.sys_nodes+2);
	for(i=0;i<cfg.sys_nodes+2;i++)
986
		if((mopt[i]=(char *)alloca(MAX_OPLN))==NULL)
987
988
			allocfail(MAX_OPLN);

989
	if(uifc.scrn(app_title)) {
990
991
992
993
		printf(" USCRN (len=%d) failed!\n",uifc.scrn_len+1);
		bail(1);
	}

994
	int paging_node = 0;
995
	while(1) {
996
		strcpy(mopt[0],"System Options");
997
		for(i=1;i<=cfg.sys_nodes;i++) {
998
			if((j=getnodedat(&cfg,i,&node,FALSE,NULL)))
999
				sprintf(mopt[i],"Error reading node data (%d)!",j);
1000
			else {
1001
				nodestatus(&cfg, &node, str, 71, i);
1002
1003
1004
1005
1006
1007
				if(i == paging_node) {
					strupr(str);
					strcat(str,  " <PAGING>");
				}
				sprintf(mopt[i],"%3d: %s", i, str);
			}
1008
		}
1009
		mopt[i][0]=0;
1010

deuce's avatar
deuce committed
1011
1012
		uifc.helpbuf=  "`Synchronet UNIX Monitor\n"
		               "`------------------\n"
1013
		                "Welcome to the Synchronet UNIX Monitor.\n"
1014
1015
1016
1017
		                "Displayed on this screen are the statitics for the BBS\n"
		                "You can scroll through the list starting at \"System Options\" \n"
		                "Pressing Enter on each will give a menu of option to perform.\n"
		                "Additionally these keys are available from this screen:\n\n"
deuce's avatar
deuce committed
1018
1019
1020
1021
1022
1023
1024
1025
1026
		               "`CTRL-E : `Displays the error log\n"
		               "`F12    : `Spys on the currently selected node\n"
		               "`F11    : `Send message to the currently selected node\n"
		               "`F10    : `Chats with the user on the currently selected node\n"
		               "`DEL    : `Clear errors on currently selected node\n"
		               "`CTRL-L : `Lock node toggle\n"
		               "`CTRL-R : `Rerun node\n"
		               "`CTRL-D : `Down node toggle\n"
		               "`CTRL-I : `Interrupt node\n";
deuce's avatar
deuce committed
1027

1028
		drawstats(&cfg, main_dflt, &node, &main_dflt, &main_bar);
deuce's avatar
deuce committed
1029

1030
		if(time(NULL) - last_semfile_check > bbs_startup.sem_chk_freq * 2) {
1031
			paging_node = 0;
1032
			SAFEPRINTF(str, "%ssyspage.*", cfg.ctrl_dir);
1033
			if(fexistcase(str) && (paging_node = atoi(getfext(str) + 1)) > 0) {