main.cpp 172 KB
Newer Older
1
/* Synchronet terminal server thread and related functions */
2
3

/* $Id$ */
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)		*
 *																			*
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
37
38
39
 *																			*
 * 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.	*
 ****************************************************************************/

#include "sbbs.h"
#include "ident.h"
#include "telnet.h" 
40
#include "netwrap.h"
41
#include "js_rtpool.h"
42
#include "js_request.h"
43
#include "ssl.h"
deuce's avatar
deuce committed
44
45
#include <multisock.h>
#include <limits.h>		// HOST_NAME_MAX
46
47
48
49
50

#ifdef __unix__
	#include <sys/un.h>
#endif

51
//#define SBBS_TELNET_ENVIRON_SUPPORT 1
52
53
//---------------------------------------------------------------------------

54
#define TELNET_SERVER "Synchronet Terminal Server"
55
56
57
58
#define STATUS_WFC	"Listening"

#define TIMEOUT_THREAD_WAIT		60			// Seconds (was 15)
#define IO_THREAD_BUF_SIZE	   	20000		// Bytes
59
#define TIMEOUT_MUTEX_FILE		12*60*60
60
61
62
63
64
65
66
67
68
69
70
71
72

// Globals
#ifdef _WIN32
	HANDLE		exec_mutex=NULL;
	HINSTANCE	hK32=NULL;

	#if defined(_DEBUG) && defined(_MSC_VER)
			HANDLE	debug_log=INVALID_HANDLE_VALUE;
		   _CrtMemState mem_chkpoint;
	#endif // _DEBUG && _MSC_VER

#endif // _WIN32

73
#ifdef USE_CRYPTLIB
rswindell's avatar
rswindell committed
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

	static	protected_uint32_t	ssh_sessions;

	void ssh_session_destroy(SOCKET sock, CRYPT_SESSION session, int line)
	{
		int result = cryptDestroySession(session);

		if(result != 0)
			lprintf(LOG_ERR, "%04d SSH Error %d destroying Cryptlib Session %d from line %d"
				, sock, result, session, line);
		else {
			int32_t remain = protected_uint32_adjust(&ssh_sessions, -1);
			lprintf(LOG_DEBUG, "%04d SSH Cryptlib Session %d destroyed from line %d (%d remain)"
				, sock, session, line, remain);
		}
	}

	#define SSH_END(sock) do {										\
		if(ssh) {													\
			pthread_mutex_lock(&sbbs->ssh_mutex);					\
			ssh_session_destroy(sock, sbbs->ssh_session, __LINE__);	\
			pthread_mutex_unlock(&sbbs->ssh_mutex);					\
		}															\
deuce's avatar
deuce committed
97
	} while(0)
98
#else
rswindell's avatar
rswindell committed
99
	#define	SSH_END(x)
100
101
#endif

102
103
volatile time_t	uptime=0;
volatile ulong	served=0;
104

105
static	protected_uint32_t node_threads_running;
106
107
108
109
110
111
112
113
		
char 	lastuseron[LEN_ALIAS+1];  /* Name of user last online */
RingBuf* node_inbuf[MAX_NODES];
SOCKET	spy_socket[MAX_NODES];
#ifdef __unix__
SOCKET	uspy_socket[MAX_NODES];	  /* UNIX domain spy sockets */
#endif
SOCKET	node_socket[MAX_NODES];
deuce's avatar
deuce committed
114
struct xpms_set				*ts_set;
115
116
117
118
119
static	sbbs_t*	sbbs=NULL;
static	scfg_t	scfg;
static	char *	text[TOTAL_TEXT];
static	WORD	first_node;
static	WORD	last_node;
120
static	bool	terminate_server=false;
121
122
static	str_list_t recycle_semfiles;
static	str_list_t shutdown_semfiles;
123
124
static	link_list_t current_logins;
static	link_list_t current_connections;
125
126
127
#ifdef _THREAD_SUID_BROKEN
int	thread_suid_broken=TRUE;			/* NPTL is no longer broken */
#endif
128

deuce's avatar
deuce committed
129
#define GCES(status, node, sess, action) do {                          \
130
131
132
	char *GCES_estr;                                                    \
	int GCES_level;                                                      \
	get_crypt_error_string(status, sess, &GCES_estr, action, &GCES_level);\
deuce's avatar
deuce committed
133
	if (GCES_estr) {                                                       \
134
		lprintf(GCES_level, "Node %d SSH %s from %s", node, GCES_estr, __FUNCTION__);             \
deuce's avatar
deuce committed
135
		free_crypt_attrstr(GCES_estr);                                       \
136
	}                                                                         \
deuce's avatar
deuce committed
137
138
} while (0)

deuce's avatar
deuce committed
139
#define GCESNN(status, sess, action) do {                              \
140
141
142
	char *GCES_estr;                                                    \
	int GCES_level;                                                      \
	get_crypt_error_string(status, sess, &GCES_estr, action, &GCES_level);\
deuce's avatar
deuce committed
143
	if (GCES_estr) {                                                       \
144
		lprintf(GCES_level, "SSH %s from %s", GCES_estr, __FUNCTION__);     \
deuce's avatar
deuce committed
145
		free_crypt_attrstr(GCES_estr);                                       \
146
	}                                                                         \
deuce's avatar
deuce committed
147
148
} while (0)

deuce's avatar
deuce committed
149
#define GCESS(status, sock, sess, action) do {                         \
150
151
152
	char *GCES_estr;                                                    \
	int GCES_level;                                                      \
	get_crypt_error_string(status, sess, &GCES_estr, action, &GCES_level);\
deuce's avatar
deuce committed
153
	if (GCES_estr) {                                                       \
154
		lprintf(GCES_level, "%04d SSH %s from %s", sock, GCES_estr, __FUNCTION__);                \
deuce's avatar
deuce committed
155
		free_crypt_attrstr(GCES_estr);                                       \
156
	}                                                                         \
deuce's avatar
deuce committed
157
158
} while (0)

159
160
161
162
163
164
165
166
167
168
169
#define GCESSTR(status, str, sess, action) do {                         \
	char *GCES_estr;                                                    \
	int GCES_level;                                                      \
	get_crypt_error_string(status, sess, &GCES_estr, action, &GCES_level);\
	if (GCES_estr) {                                                       \
		lprintf(GCES_level, "%s SSH %s from %s", str, GCES_estr, __FUNCTION__);                \
		free_crypt_attrstr(GCES_estr);                                       \
	}                                                                         \
} while (0)


170
171
172
173
extern "C" {

static bbs_startup_t* startup=NULL;

rswindell's avatar
rswindell committed
174
static const char* status(const char* str)
175
176
{
	if(startup!=NULL && startup->status!=NULL)
177
	    startup->status(startup->cbdata,str);
rswindell's avatar
rswindell committed
178
	return str;
179
180
181
182
183
}

static void update_clients()
{
	if(startup!=NULL && startup->clients!=NULL)
184
		startup->clients(startup->cbdata,protected_uint32_value(node_threads_running));
185
186
187
188
}

void client_on(SOCKET sock, client_t* client, BOOL update)
{
189
190
	if(!update)
		listAddNodeData(&current_connections, client->addr, strlen(client->addr)+1, sock, LAST_NODE);
191
	if(startup!=NULL && startup->client_on!=NULL)
192
		startup->client_on(startup->cbdata,TRUE,sock,client,update);
193
194
195
196
}

static void client_off(SOCKET sock)
{
197
	listRemoveTaggedNode(&current_connections, sock, /* free_data */TRUE);
198
	if(startup!=NULL && startup->client_on!=NULL)
199
		startup->client_on(startup->cbdata,FALSE,sock,NULL,FALSE);
200
201
202
203
204
}

static void thread_up(BOOL setuid)
{
	if(startup!=NULL && startup->thread_up!=NULL)
205
		startup->thread_up(startup->cbdata,TRUE,setuid);
206
207
208
209
210
}

static void thread_down()
{
	if(startup!=NULL && startup->thread_up!=NULL)
211
		startup->thread_up(startup->cbdata,FALSE,FALSE);
212
213
}

214
int lputs(int level, const char* str)
215
{
216
	if(level <= LOG_ERR) {
217
		errorlog(&scfg,startup==NULL ? NULL:startup->host_name, str);
218
219
220
		if(startup!=NULL && startup->errormsg!=NULL)
			startup->errormsg(startup->cbdata,level,str);
	}
221

222
	if(startup==NULL || startup->lputs==NULL || str==NULL || level > startup->log_level)
223
224
    	return(0);

225
226
227
228
229
#if defined(_WIN32)
	if(IsBadCodePtr((FARPROC)startup->lputs))
		return(0);
#endif

230
    return(startup->lputs(startup->cbdata,level,str));
231
232
}

233
234
int eputs(int level, const char *str)
{
235
236
237
	if(*str == 0)
		return 0;

238
239
240
241
242
243
244
245
246
247
248
249
	if(level <= LOG_ERR) {
		errorlog(&scfg,startup==NULL ? NULL:startup->host_name, str);
		if(startup!=NULL && startup->errormsg!=NULL)
			startup->errormsg(startup->cbdata,level,str);
	}

    if(startup==NULL || startup->event_lputs==NULL || level > startup->log_level)
        return(0);

    return(startup->event_lputs(startup->event_cbdata,level,str));
}

250
int lprintf(int level, const char *fmt, ...)
251
252
253
254
255
256
257
258
{
	va_list argptr;
	char sbuf[1024];

    va_start(argptr,fmt);
    vsnprintf(sbuf,sizeof(sbuf),fmt,argptr);
	sbuf[sizeof(sbuf)-1]=0;
    va_end(argptr);
259
    return(lputs(level,sbuf));
260
261
}

262
int eprintf(int level, const char *fmt, ...)
263
264
265
266
267
268
269
270
{
	va_list argptr;
	char sbuf[1024];

    va_start(argptr,fmt);
    vsnprintf(sbuf,sizeof(sbuf),fmt,argptr);
	sbuf[sizeof(sbuf)-1]=0;
    va_end(argptr);
271

272
	strip_ctrl(sbuf, sbuf);
273

274
    return(eputs(level,truncsp(sbuf)));
275
}
276

277
278
279
280
281
282
/* Picks the right log callback function (event or term) based on the sbbs->cfg.node_num value */
int sbbs_t::lputs(int level, const char* str)
{
	if(cfg.node_num == 0)
		return ::eputs(level, str);
	return ::lputs(level, str);
283
284
}

285
286
287
288
289
290
291
292
293
294
295
296
int sbbs_t::lprintf(int level, const char *fmt, ...)
{
	va_list argptr;
	char sbuf[1024];

    va_start(argptr,fmt);
    vsnprintf(sbuf,sizeof(sbuf),fmt,argptr);
	sbuf[sizeof(sbuf)-1]=0;
    va_end(argptr);
    return(lputs(level,sbuf));
}

deuce's avatar
deuce committed
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
struct main_sock_cb_data {
	bbs_startup_t	*startup;
	const char		*protocol;
};

void sock_cb(SOCKET sock, void *cb_data)
{
	char	error_str[256];
	struct main_sock_cb_data *cb=(struct main_sock_cb_data *)cb_data;

	if(cb->startup && cb->startup->socket_open)
		cb->startup->socket_open(cb->startup->cbdata, TRUE);
	if(set_socket_options(&scfg, sock, cb->protocol, error_str, sizeof(error_str)))
		lprintf(LOG_ERR,"%04d !ERROR %s",sock,error_str);
}

void sock_close_cb(SOCKET sock, void *cb_data)
{
	bbs_startup_t	*su=(bbs_startup_t *)cb_data;

	if(su && su->socket_open)
		su->socket_open(su->cbdata, FALSE);
}

321
322
323
324
325
326
void call_socket_open_callback(BOOL open)
{
	if(startup!=NULL && startup->socket_open!=NULL) 
		startup->socket_open(startup->cbdata, open);
}

327
SOCKET open_socket(int type, const char* protocol)
328
329
330
331
332
{
	SOCKET	sock;
	char	error[256];

	sock=socket(AF_INET, type, IPPROTO_IP);
333
334
	if(sock!=INVALID_SOCKET)
		call_socket_open_callback(TRUE);
335
	if(sock!=INVALID_SOCKET && set_socket_options(&scfg, sock, protocol, error, sizeof(error)))
336
		lprintf(LOG_ERR,"%04d !ERROR %s",sock,error);
337
338
339
340

	return(sock);
}

341
// Used by sbbs_t::ftp_put() and js_accept()
deuce's avatar
deuce committed
342
SOCKET accept_socket(SOCKET s, union xp_sockaddr* addr, socklen_t* addrlen)
343
344
345
{
	SOCKET	sock;

deuce's avatar
deuce committed
346
	sock=accept(s,&addr->addr,addrlen);
347
348
	if(sock!=INVALID_SOCKET)
		call_socket_open_callback(TRUE);
349
350
351
352
353
354
355
356
357
358
359
360
361

	return(sock);
}

int close_socket(SOCKET sock)
{
	int		result;

	if(sock==INVALID_SOCKET || sock==0)
		return(0);

	shutdown(sock,SHUT_RDWR);	/* required on Unix */
	result=closesocket(sock);
362
	call_socket_open_callback(FALSE);
363
	if(result!=0 && ERROR_VALUE!=ENOTSOCK)
364
		lprintf(LOG_WARNING,"!ERROR %d closing socket %d",ERROR_VALUE,sock);
365
366
367
	return(result);
}

deuce's avatar
deuce committed
368
/* TODO: IPv6 */
369
370
371
372
373
374
u_long resolve_ip(char *addr)
{
	HOSTENT*	host;
	char*		p;

	if(*addr==0)
375
		return((u_long)INADDR_NONE);
376
377

	for(p=addr;*p;p++)
378
		if(*p!='.' && !isdigit((uchar)*p))
379
380
381
382
			break;
	if(!(*p))
		return(inet_addr(addr));
	if((host=gethostbyname(addr))==NULL) 
383
		return((u_long)INADDR_NONE);
384
385
386
387
388
	return(*((ulong*)host->h_addr_list[0]));
}

} /* extern "C" */

389
390
391
392
393
394
395
396
397
398
399
#ifdef _WINSOCKAPI_

WSADATA WSAData;
#define SOCKLIB_DESC WSAData.szDescription
static BOOL WSAInitialized=FALSE;

static BOOL winsock_startup(void)
{
	int		status;             /* Status Code */

    if((status = WSAStartup(MAKEWORD(1,1), &WSAData))==0) {
400
		lprintf(LOG_DEBUG,"%s %s",WSAData.szDescription, WSAData.szSystemStatus);
401
402
403
404
		WSAInitialized=TRUE;
		return(TRUE);
	}

405
    lprintf(LOG_CRIT,"!WinSock startup ERROR %d", status);
406
407
408
409
410
411
412
413
414
415
	return(FALSE);
}

#else /* No WINSOCK */

#define winsock_startup()	(TRUE)
#define SOCKLIB_DESC NULL

#endif

416
417
DLLEXPORT void DLLCALL sbbs_srand()
{
418
	DWORD seed;
419

420
	xp_randomize();
421
#if defined(HAS_DEV_RANDOM) && defined(RANDOM_DEV)
422
	int     rf,rd=0;
423

424
425
	if((rf=open(RANDOM_DEV, O_RDONLY|O_NONBLOCK))!=-1) {
		rd=read(rf, &seed, sizeof(seed));
426
427
		close(rf);
	}
deuce's avatar
deuce committed
428
	if (rd != sizeof(seed))
429
#endif
430
		seed = time32(NULL) ^ (uintmax_t)GetCurrentThreadId();
431
432

 	srand(seed);
433
434
435
	sbbs_random(10);	/* Throw away first number */
}

436
int DLLCALL sbbs_random(int n)
437
438
439
440
{
	return(xp_random(n));
}

441
442
#ifdef JAVASCRIPT

443
444
static js_server_props_t js_server_props;

445
446
447
448
449
450
451
452
453
454
455
456
JSBool	
DLLCALL js_CreateArrayOfStrings(JSContext* cx, JSObject* parent, const char* name, char* str[],uintN flags)
{
	JSObject*	array;
	JSString*	js_str;
	jsval		val;
	size_t		i;
	jsuint		len=0;
		
	if(JS_GetProperty(cx,parent,name,&val) && val!=JSVAL_VOID)
		array=JSVAL_TO_OBJECT(val);
	else
457
458
		if((array=JS_NewArrayObject(cx, 0, NULL))==NULL)	/* Assertion here, in _heap_alloc_dbg, June-21-2004 */
			return(JS_FALSE);								/* Caused by nntpservice.js? */
459

460
461
462
463
	if(!JS_DefineProperty(cx, parent, name, OBJECT_TO_JSVAL(array)
		,NULL,NULL,flags))
		return(JS_FALSE);

464
465
466
467
468
469
470
471
472
473
474
	if(!JS_GetArrayLength(cx, array, &len))
		return(JS_FALSE);

	for(i=0;str[i]!=NULL;i++) {
		if((js_str = JS_NewStringCopyZ(cx, str[i]))==NULL)
			break;
		val = STRING_TO_JSVAL(js_str);
		if(!JS_SetElement(cx, array, len+i, &val))
			break;
	}

475
	return(JS_TRUE);
476
477
}

478
/* Convert from Synchronet-specific jsSyncMethodSpec to JSAPI's JSFunctionSpec */
479
480

JSBool
481
DLLCALL js_DescribeSyncObject(JSContext* cx, JSObject* obj, const char* str, int ver)
482
483
484
485
486
487
{
	JSString* js_str = JS_NewStringCopyZ(cx, str);

	if(js_str==NULL)
		return(JS_FALSE);

rswindell's avatar
rswindell committed
488
489
490
	if(ver < 10000)		/* auto convert 313 to 31300 */
		ver*=100;

491
	return(JS_DefineProperty(cx,obj,"_description"
492
493
494
			,STRING_TO_JSVAL(js_str),NULL,NULL,JSPROP_READONLY)
		&& JS_DefineProperty(cx,obj,"_ver"
			,INT_TO_JSVAL(ver),NULL,NULL,JSPROP_READONLY));
495
496
497
}

JSBool
498
DLLCALL js_DescribeSyncConstructor(JSContext* cx, JSObject* obj, const char* str)
499
500
501
502
503
504
505
506
507
508
{
	JSString* js_str = JS_NewStringCopyZ(cx, str);

	if(js_str==NULL)
		return(JS_FALSE);

	return(JS_DefineProperty(cx,obj,"_constructor"
		,STRING_TO_JSVAL(js_str),NULL,NULL,JSPROP_READONLY));
}

509
#ifdef BUILD_JSDOCS
510
511

static const char* method_array_name = "_method_list";
512
static const char* propver_array_name = "_property_ver_list";
513
514
515
516
517
518
519
520
521
522
523
524
525

/*
 * from jsatom.c:
 * Keep this in sync with jspubtd.h -- an assertion below will insist that
 * its length match the JSType enum's JSTYPE_LIMIT limit value.
 */
static const char *js_type_str[] = {
    "void",			// changed from "undefined"
    "object",
    "function",
    "string",
    "number",
    "boolean",
deuce's avatar
deuce committed
526
527
	"null",
	"xml",
528
529
	"array",
	"alias",
deuce's avatar
deuce committed
530
	"undefined"
531
532
};

533
534
535
536
JSBool
DLLCALL js_DefineSyncProperties(JSContext *cx, JSObject *obj, jsSyncPropertySpec* props)
{
	uint		i;
537
	long		ver;
538
539
540
541
542
543
544
545
546
547
548
549
	jsval		val;
	jsuint		len=0;
	JSObject*	array;

	if((array=JS_NewArrayObject(cx, 0, NULL))==NULL)
		return(JS_FALSE);

	if(!JS_DefineProperty(cx, obj, propver_array_name, OBJECT_TO_JSVAL(array)
		,NULL,NULL,JSPROP_READONLY))
		return(JS_FALSE);

	for(i=0;props[i].name;i++) {
550
551
		if(!JS_DefinePropertyWithTinyId(cx, obj, /* Never reserve any "slots" for properties */
			props[i].name,props[i].tinyid, JSVAL_VOID, NULL, NULL, props[i].flags|JSPROP_SHARED))
552
553
			return(JS_FALSE);
		if(props[i].flags&JSPROP_ENUMERATE) {	/* No need to version invisible props */
554
555
556
			if((ver=props[i].ver) < 10000)		/* auto convert 313 to 31300 */
				ver*=100;
			val = INT_TO_JSVAL(ver);
557
558
559
560
561
562
563
564
			if(!JS_SetElement(cx, array, len++, &val))
				return(JS_FALSE);
		}
	}

	return(JS_TRUE);
}

565
JSBool 
deuce's avatar
deuce committed
566
DLLCALL js_DefineSyncMethods(JSContext* cx, JSObject* obj, jsSyncMethodSpec *funcs)
567
568
569
{
	int			i;
	jsuint		len=0;
570
	long		ver;
571
572
573
574
	jsval		val;
	JSObject*	method;
	JSObject*	method_array;
	JSString*	js_str;
deuce's avatar
deuce committed
575
576
	size_t		str_len=0;
	char		*str=NULL;
577
578

	/* Return existing method_list array if it's already been created */
deuce's avatar
deuce committed
579
	if(JS_GetProperty(cx,obj,method_array_name,&val) && val!=JSVAL_VOID) {
580
		method_array=JSVAL_TO_OBJECT(val);
deuce's avatar
deuce committed
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
		// If the first item is already in the list, don't do anything.
		if(!JS_GetArrayLength(cx, method_array, &len))
			return(JS_FALSE);
		for(i=0; i<len; i++) {
			if(JS_GetElement(cx, method_array, i, &val)!=JS_TRUE || val == JSVAL_VOID)
				continue;
			JS_GetProperty(cx, JSVAL_TO_OBJECT(val), "name", &val);
			JSVALUE_TO_RASTRING(cx, val, str, &str_len, NULL);
			if(str==NULL)
				continue;
			if(strcmp(str, funcs[0].name)==0)
				return(JS_TRUE);
		}
	}
	else {
596
597
		if((method_array=JS_NewArrayObject(cx, 0, NULL))==NULL) 
			return(JS_FALSE);
deuce's avatar
deuce committed
598
599
		if(!JS_DefineProperty(cx, obj, method_array_name, OBJECT_TO_JSVAL(method_array)
				, NULL, NULL, 0))
600
			return(JS_FALSE);
deuce's avatar
deuce committed
601
	}
602
603
604

	for(i=0;funcs[i].name;i++) {

605
606
		if(!JS_DefineFunction(cx, obj, funcs[i].name, funcs[i].call, funcs[i].nargs, 0))
			return(JS_FALSE);
607
608
609
610

		if(funcs[i].type==JSTYPE_ALIAS)
			continue;

611
		method = JS_NewObject(cx, NULL, NULL, method_array);	/* exception here June-7-2003 */
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645

		if(method==NULL)
			return(JS_FALSE);

		if(funcs[i].name!=NULL) {
			if((js_str=JS_NewStringCopyZ(cx,funcs[i].name))==NULL)
				return(JS_FALSE);
			val = STRING_TO_JSVAL(js_str);
			JS_SetProperty(cx, method, "name", &val);
		}

		val = INT_TO_JSVAL(funcs[i].nargs);
		if(!JS_SetProperty(cx, method, "nargs", &val))
			return(JS_FALSE);

		if((js_str=JS_NewStringCopyZ(cx,js_type_str[funcs[i].type]))==NULL)
			return(JS_FALSE);
		val = STRING_TO_JSVAL(js_str);
		JS_SetProperty(cx, method, "type", &val);

		if(funcs[i].args!=NULL) {
			if((js_str=JS_NewStringCopyZ(cx,funcs[i].args))==NULL)
				return(JS_FALSE);
			val = STRING_TO_JSVAL(js_str);
			JS_SetProperty(cx, method, "args", &val);
		}

		if(funcs[i].desc!=NULL) { 
			if((js_str=JS_NewStringCopyZ(cx,funcs[i].desc))==NULL)
				return(JS_FALSE);
			val = STRING_TO_JSVAL(js_str);
			JS_SetProperty(cx, method, "desc", &val);
		}

646
		if(funcs[i].ver) {
647
			if((ver=funcs[i].ver) < 10000)		/* auto convert 313 to 31300 */
648
649
				ver*=100;
			val = INT_TO_JSVAL(ver);
650
651
652
			JS_SetProperty(cx,method, "ver", &val);
		}

653
654
655
656
657
658
659
660
		val=OBJECT_TO_JSVAL(method);
		if(!JS_SetElement(cx, method_array, len+i, &val))
			return(JS_FALSE);
	}

	return(JS_TRUE);
}

661
662
663
664
665
/*
 * Always resolve all here since
 * 1) We'll always be enumerating anyways
 * 2) The speed penalty won't be seen in production code anyways
 */
666
667
JSBool
DLLCALL js_SyncResolve(JSContext* cx, JSObject* obj, char *name, jsSyncPropertySpec* props, jsSyncMethodSpec* funcs, jsConstIntSpec* consts, int flags)
668
669
670
{
	JSBool	ret=JS_TRUE;

deuce's avatar
deuce committed
671
	if(props) {
672
673
		if(!js_DefineSyncProperties(cx, obj, props))
			ret=JS_FALSE;
deuce's avatar
deuce committed
674
	}
675
		
deuce's avatar
deuce committed
676
	if(funcs) {
deuce's avatar
deuce committed
677
		if(!js_DefineSyncMethods(cx, obj, funcs))
678
			ret=JS_FALSE;
deuce's avatar
deuce committed
679
	}
680

deuce's avatar
deuce committed
681
682
683
684
	if(consts) {
		if(!js_DefineConstIntegers(cx, obj, consts, flags))
			ret=JS_FALSE;
	}
685

686
687
688
	return(ret);
}

689
#else // NON-JSDOCS
690

691
692
693
694
695
696
697
JSBool
DLLCALL js_DefineSyncProperties(JSContext *cx, JSObject *obj, jsSyncPropertySpec* props)
{
	uint i;

	for(i=0;props[i].name;i++) 
		if(!JS_DefinePropertyWithTinyId(cx, obj, 
698
			props[i].name,props[i].tinyid, JSVAL_VOID, NULL, NULL, props[i].flags|JSPROP_SHARED))
699
700
701
702
703
704
			return(JS_FALSE);

	return(JS_TRUE);
}


705
JSBool 
deuce's avatar
deuce committed
706
DLLCALL js_DefineSyncMethods(JSContext* cx, JSObject* obj, jsSyncMethodSpec *funcs)
707
{
708
	uint i;
709
710

	for(i=0;funcs[i].name;i++)
711
712
		if(!JS_DefineFunction(cx, obj, funcs[i].name, funcs[i].call, funcs[i].nargs, 0))
			return(JS_FALSE);
713
714
715
	return(JS_TRUE);
}

716
717
JSBool
DLLCALL js_SyncResolve(JSContext* cx, JSObject* obj, char *name, jsSyncPropertySpec* props, jsSyncMethodSpec* funcs, jsConstIntSpec* consts, int flags)
718
719
{
	uint i;
720
	jsval	val;
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742

	if(props) {
		for(i=0;props[i].name;i++) {
			if(name==NULL || strcmp(name, props[i].name)==0) {
				if(!JS_DefinePropertyWithTinyId(cx, obj, 
						props[i].name,props[i].tinyid, JSVAL_VOID, NULL, NULL, props[i].flags|JSPROP_SHARED))
					return(JS_FALSE);
				if(name)
					return(JS_TRUE);
			}
		}
	}
	if(funcs) {
		for(i=0;funcs[i].name;i++) {
			if(name==NULL || strcmp(name, funcs[i].name)==0) {
				if(!JS_DefineFunction(cx, obj, funcs[i].name, funcs[i].call, funcs[i].nargs, 0))
					return(JS_FALSE);
				if(name)
					return(JS_TRUE);
			}
		}
	}
743
	if(consts) {
deuce's avatar
deuce committed
744
		for(i=0;consts[i].name;i++) {
745
			if(name==NULL || strcmp(name, consts[i].name)==0) {
746
				val=INT_TO_JSVAL(consts[i].val);
747

deuce's avatar
deuce committed
748
				if(!JS_DefineProperty(cx, obj, consts[i].name, val ,NULL, NULL, flags))
749
750
751
752
753
754
755
					return(JS_FALSE);

				if(name)
					return(JS_TRUE);
			}
		}
	}
756
757
758
759

	return(JS_TRUE);
}

760
761
#endif

762
763
764
765
766
767
768
769
/* This is a stream-lined version of JS_DefineConstDoubles */
JSBool
DLLCALL js_DefineConstIntegers(JSContext* cx, JSObject* obj, jsConstIntSpec* ints, int flags)
{
	uint	i;
	jsval	val;

	for(i=0;ints[i].name;i++) {
770
		val=INT_TO_JSVAL(ints[i].val);
771
772
773
774

		if(!JS_DefineProperty(cx, obj, ints[i].name, val ,NULL, NULL, flags))
			return(JS_FALSE);
	}
775

776
777
778
	return(JS_TRUE);
}

779
static JSBool
780
js_log(JSContext *cx, uintN argc, jsval *arglist)
781
{
782
	jsval *argv=JS_ARGV(cx, arglist);
783
784
    uintN		i=0;
	int32		level=LOG_INFO;
785
    JSString*	str=NULL;
786
	sbbs_t*		sbbs;
787
	jsrefcount	rc;
deuce's avatar
deuce committed
788
789
	char		*line=NULL;
	size_t		line_sz=0;
790

791
792
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

793
794
795
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

796
797
798
799
	if(argc > 1 && JSVAL_IS_NUMBER(argv[i])) {
		if(!JS_ValueToInt32(cx,argv[i++],&level))
			return JS_FALSE;
	}
800
801

    for(; i<argc; i++) {
rswindell's avatar
rswindell committed
802
803
		if((str=JS_ValueToString(cx, argv[i]))==NULL) {
			FREE_AND_NULL(line);
deuce's avatar
deuce committed
804
			return(JS_FALSE);
rswindell's avatar
rswindell committed
805
		}
deuce's avatar
deuce committed
806
		JSSTRING_TO_RASTRING(cx, str, line, &line_sz, NULL);
deuce's avatar
deuce committed
807
		if(line==NULL)
808
		    return(JS_FALSE);
809
		rc=JS_SUSPENDREQUEST(cx);
810
		if(sbbs->online==ON_LOCAL) {
deuce's avatar
deuce committed
811
812
813
			if(startup!=NULL && startup->event_lputs!=NULL && level <= startup->log_level) {
				startup->event_lputs(startup->event_cbdata,level,line);
			}
814
		} else
deuce's avatar
deuce committed
815
			lprintf(level,"Node %d %s", sbbs->cfg.node_num, line);
816
		JS_RESUMEREQUEST(cx, rc);
817
	}
rswindell's avatar
rswindell committed
818
819
	if(line != NULL)
		free(line);
820

821
	if(str==NULL)
822
		JS_SET_RVAL(cx, arglist, JSVAL_VOID);
823
	else
824
		JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(str));
825
826
827
    return(JS_TRUE);
}

828
static JSBool
829
js_read(JSContext *cx, uintN argc, jsval *arglist)
830
{
831
	jsval *argv=JS_ARGV(cx, arglist);
832
833
834
	uchar*		buf;
	int32		len=128;
	sbbs_t*		sbbs;
835
	jsrefcount	rc;
836

837
838
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

839
840
841
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

842
843
844
845
	if(argc) {
		if(!JS_ValueToInt32(cx,argv[0],&len))
			return JS_FALSE;
	}
846
847
848
849

	if((buf=(uchar*)malloc(len))==NULL)
		return(JS_TRUE);

850
	rc=JS_SUSPENDREQUEST(cx);
851
	len=RingBufRead(&sbbs->inbuf,buf,len);
852
	JS_RESUMEREQUEST(cx, rc);
853
854

	if(len>0)
855
		JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(JS_NewStringCopyN(cx,(char*)buf,len)));
856
857
858
859
860
861

	free(buf);
	return(JS_TRUE);
}

static JSBool
862
js_readln(JSContext *cx, uintN argc, jsval *arglist)
863
{
864
	jsval *argv=JS_ARGV(cx, arglist);
865
866
867
	char*		buf;
	int32		len=128;
	sbbs_t*		sbbs;
868
	jsrefcount	rc;
869

870
871
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

872
873
874
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

875
876
877
878
	if(argc) {
		if(!JS_ValueToInt32(cx,argv[0],&len))
			return JS_FALSE;
	}
879
880
881
882

	if((buf=(char*)malloc(len))==NULL)
		return(JS_TRUE);

883
	rc=JS_SUSPENDREQUEST(cx);
884
	len=sbbs->getstr(buf,len,K_NONE);
885
	JS_RESUMEREQUEST(cx, rc);
886
887

	if(len>0)
888
		JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(JS_NewStringCopyZ(cx,buf)));
889
890
891
892
893

	free(buf);
	return(JS_TRUE);
}

894
static JSBool
895
js_write(JSContext *cx, uintN argc, jsval *arglist)
896
{
897
	jsval *argv=JS_ARGV(cx, arglist);
898
    uintN		i;
899
    JSString*	str=NULL;
900
	sbbs_t*		sbbs;
901
	jsrefcount	rc;
902
903
	char		*cstr=NULL;
	size_t		cstr_sz=0;
904

905
906
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

907
908
909
910
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

    for (i = 0; i < argc; i++) {
911
912
		if((str=JS_ValueToString(cx, argv[i]))==NULL) {
			FREE_AND_NULL(cstr);
deuce's avatar
deuce committed
913
			return(JS_FALSE);
914
		}
deuce's avatar
deuce committed
915
		JSSTRING_TO_RASTRING(cx, str, cstr, &cstr_sz, NULL);
deuce's avatar
deuce committed
916
		if(cstr==NULL)
917
		    return(JS_FALSE);
918
		rc=JS_SUSPENDREQUEST(cx);
919
		if(sbbs->online==ON_LOCAL)
deuce's avatar
deuce committed
920
			eprintf(LOG_INFO,"%s",cstr);
921
		else
deuce's avatar
deuce committed
922
			sbbs->bputs(cstr);
923
		JS_RESUMEREQUEST(cx, rc);
924
	}
rswindell's avatar
rswindell committed
925
	FREE_AND_NULL(cstr);
926
927

	if(str==NULL)
928
		JS_SET_RVAL(cx, arglist, JSVAL_VOID);
929
	else
930
		JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(str));
931
932
933
    return(JS_TRUE);
}

934
static JSBool
935
js_write_raw(JSContext *cx, uintN argc, jsval *arglist)
936
{
937
	jsval *argv=JS_ARGV(cx, arglist);
938
    uintN		i;
deuce's avatar
deuce committed
939
940
    char*		str=NULL;
    size_t		str_sz=0;
941
942
	size_t		len;
	sbbs_t*		sbbs;
943
	jsrefcount	rc;
944

945
946
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

947
948
949
950
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

    for (i = 0; i < argc; i++) {
deuce's avatar
deuce committed
951
		JSVALUE_TO_RASTRING(cx, argv[i], str, &str_sz, &len);
952
		if(str==NULL)
953
		    return(JS_FALSE);
954
955
		if(len < 1)
			continue;
956
		rc=JS_SUSPENDREQUEST(cx);
957
		sbbs->putcom(str, len);
958
		JS_RESUMEREQUEST(cx, rc);
959
	}
rswindell's avatar
rswindell committed
960
961
	if (str != NULL)
		free(str);
962
963
964
965

    return(JS_TRUE);
}

966
static JSBool
967
js_writeln(JSContext *cx, uintN argc, jsval *arglist)
968
969
{
	sbbs_t*		sbbs;
970
	jsrefcount	rc;
971

972
973
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

974
975
976
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

977
	js_write(cx,argc,arglist);
978
	rc=JS_SUSPENDREQUEST(cx);
979
980
	if(sbbs->online==ON_REMOTE)
		sbbs->bputs(crlf);
981
	JS_RESUMEREQUEST(cx, rc);
982
983
984
985
986

    return(JS_TRUE);
}

static JSBool
987
js_printf(JSContext *cx, uintN argc, jsval *arglist)
988
{
989
	jsval *argv=JS_ARGV(cx, arglist);
990
991
	char*		p;
	sbbs_t*		sbbs;
992
	jsrefcount	rc;
993

994
995
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

996
997
998
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

999
1000
	if((p = js_sprintf(cx, 0, argc, argv))==NULL) {
		JS_ReportError(cx,"js_sprintf failed");
1001
1002
1003
		return(JS_FALSE);
	}

1004
	rc=JS_SUSPENDREQUEST(cx);
1005
	if(sbbs->online==ON_LOCAL)
1006
		eprintf(LOG_INFO,"%s",p);
1007
1008
	else
		sbbs->bputs(p);
1009
	JS_RESUMEREQUEST(cx, rc);
1010

1011
	JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(JS_NewStringCopyZ(cx, p)));
1012

1013
	js_sprintf_free(p);
1014
1015
1016
1017
1018

    return(JS_TRUE);
}

static JSBool
1019
js_alert(JSContext *cx, uintN argc, jsval *arglist)
1020
{
1021
	jsval *argv=JS_ARGV(cx, arglist);
1022
	sbbs_t*		sbbs;
1023
	jsrefcount	rc;
deuce's avatar
deuce committed
1024
	char		*cstr;
1025

1026
1027
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);

1028
1029
1030
	if((sbbs=(sbbs_t*)JS_GetContextPrivate(cx))==NULL)
		return(JS_FALSE);

deuce's avatar
deuce committed
1031
	JSVALUE_TO_MSTRING(cx, argv[0], cstr, NULL);
deuce's avatar
deuce committed
1032
	if(cstr==NULL)
1033
1034
	    return(JS_FALSE);

1035
	rc=JS_SUSPENDREQUEST(cx);
1036
1037
1038
1039
1040
1041
1042
1043
	if(sbbs->online==ON_LOCAL)
		eprintf(LOG_WARNING, "%s", cstr);
	else {
		sbbs->attr(sbbs->cfg.color[clr_err]);
		sbbs->bputs(cstr);
		sbbs->attr(LIGHTGRAY);
		sbbs->bputs(crlf);
	}
deuce's avatar
deuce committed
1044
	free(cstr);
1045
	JS_RESUMEREQUEST(cx, rc);
1046

deuce's avatar
deuce committed
1047
1048
	JS_SET_RVAL(cx, arglist, argv[0]);