xtrn_sec.cpp 52.5 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
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
40
41
42
43
44
45
/* xtrn_sec.cpp */

/* Synchronet external program/door section and drop file routines */

/* $Id$ */

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html		*
 *																			*
 * 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"

/****************************************************************************/
/* This is the external programs (doors) section of the bbs                 */
/* Return 1 if no externals available, 0 otherwise. 						*/
/****************************************************************************/
int sbbs_t::xtrn_sec()
{
46
	char	str[MAX_PATH+1];
47
48
49
50
	int		xsec;
	uint	i,j,k,*usrxtrn,usrxtrns,*usrxsec,usrxsecs;
	long	l;

51
52
53
54
55
	if(useron.rest&FLAG('X')) {
		bputs(text[R_ExternalPrograms]);
		return(1);
	}

56
57
	if(!cfg.total_xtrns || !cfg.total_xtrnsecs) {
		bputs(text[NoXtrnPrograms]);
58
59
		return(1); 
	}
60
61
62

	if((usrxtrn=(uint *)MALLOC(cfg.total_xtrns*sizeof(int)))==NULL) {
		errormsg(WHERE,ERR_ALLOC,nulstr,cfg.total_xtrns);
63
64
		return(1); 
	}
65
66
67
	if((usrxsec=(uint *)MALLOC(cfg.total_xtrnsecs*sizeof(int)))==NULL) {
		errormsg(WHERE,ERR_ALLOC,nulstr,cfg.total_xtrnsecs);
		FREE(usrxtrn);
68
69
		return(1); 
	}
70
71
72
73
74
75
76
77
78

	while(online) {
		for(i=0,usrxsecs=0;i<cfg.total_xtrnsecs;i++)
			if(chk_ar(cfg.xtrnsec[i]->ar,&useron))
				usrxsec[usrxsecs++]=i;
		if(!usrxsecs) {
			bputs(text[NoXtrnPrograms]);
			FREE(usrxtrn);
			FREE(usrxsec);
79
80
			return(1); 
		}
81
		if(usrxsecs>1) {
82
			sprintf(str,"%smenu/xtrn_sec.*",cfg.text_dir);
83
			if(fexist(str)) {
84
				menu("xtrn_sec");
85
86
87
88
				xsec=getnum(usrxsecs);
				if(xsec<=0)
					break;
				xsec--;
89
90
				xsec=usrxsec[xsec]; 
			}
91
92
93
94
			else {
				for(i=0;i<cfg.total_xtrnsecs;i++)
					uselect(1,i,"External Program Section"
						,cfg.xtrnsec[i]->name,cfg.xtrnsec[i]->ar);
95
96
				xsec=uselect(0,0,0,0,0); 
			}
97
			if(xsec==-1)
98
99
				break; 
		}
100
101
102
103
104
105
106
107
108
109
		else
			xsec=0;

		while(!chk_ar(cfg.xtrnsec[xsec]->ar,&useron))
			xsec++;

		if(xsec>=cfg.total_xtrnsecs) {
			bputs(text[NoXtrnPrograms]);
			FREE(usrxtrn);
			FREE(usrxsec);
110
111
			return(1); 
		}
112
113
114
115
116
117
118
119
120

		while(online) {
			for(i=0,usrxtrns=0;i<cfg.total_xtrns; i++) {
				if(cfg.xtrn[i]->sec!=xsec)
					continue;
				if(cfg.xtrn[i]->misc&EVENTONLY)
					continue;
				if(!chk_ar(cfg.xtrn[i]->ar,&useron))
					continue;
121
122
				usrxtrn[usrxtrns++]=i; 
			}
123
124
125
			if(!usrxtrns) {
				bputs(text[NoXtrnPrograms]);
				pause();
126
127
				break; 
			}
128
			sprintf(str,"%smenu/xtrn%u.*",cfg.text_dir,xsec+1);
129
			if(fexist(str)) {
130
				sprintf(str,"xtrn%u",xsec+1);
131
132
				menu(str); 
			}
133
134
135
136
137
			else {
				bprintf(text[XtrnProgLstHdr],cfg.xtrnsec[xsec]->name);
				bputs(text[XtrnProgLstTitles]);
				if(usrxtrns>=10) {
					bputs("     ");
138
139
					bputs(text[XtrnProgLstTitles]); 
				}
140
141
142
143
				CRLF;
				bputs(text[XtrnProgLstUnderline]);
				if(usrxtrns>=10) {
					bputs("     ");
144
145
					bputs(text[XtrnProgLstUnderline]); 
				}
146
147
148
149
150
151
152
153
154
155
156
157
158
159
				CRLF;
				if(usrxtrns>=10)
					j=(usrxtrns/2)+(usrxtrns&1);
				else
					j=usrxtrns;
				for(i=0;i<j && !msgabort();i++) {
					bprintf(text[XtrnProgLstFmt],i+1
						,cfg.xtrn[usrxtrn[i]]->name,cfg.xtrn[usrxtrn[i]]->cost);
					if(usrxtrns>=10) {
						k=(usrxtrns/2)+i+(usrxtrns&1);
						if(k<usrxtrns) {
							bputs("     ");
							bprintf(text[XtrnProgLstFmt],k+1
								,cfg.xtrn[usrxtrn[k]]->name
160
161
162
163
164
								,cfg.xtrn[usrxtrn[k]]->cost); 
						}
					}
					CRLF; 
				}
165
				ASYNC;
166
167
				mnemonics(text[WhichXtrnProg]); 
			}
168
169
170
171
172
173
174
			getnodedat(cfg.node_num,&thisnode,1);
			thisnode.aux=0; /* aux is 0, only if at menu */
			putnodedat(cfg.node_num,&thisnode);
			action=NODE_XTRN;
			SYNC;
			if((l=getnum(usrxtrns))<1)
				break;
175
176
177
178
179
180
181
182
			l--;
			sprintf(str,"%smenu/xtrn/%s.*",cfg.text_dir,cfg.xtrn[usrxtrn[l]]->code);
			if(fexist(str)) {
				sprintf(str,"xtrn/%s",cfg.xtrn[usrxtrn[l]]->code);
				menu(str);
				lncntr=0;
			}
			exec_xtrn(usrxtrn[l]); 
183
		}
184
		if(usrxsecs<2)
185
186
			break; 
	}
187
188
189
190
191
192
193
194
195
196
197
198
	FREE(usrxtrn);
	FREE(usrxsec);
	return(0);
}


char *hungupstr="\1n\1h%s\1n hung up on \1h%s\1n %s\r\n";

#ifndef __FLAT__
extern uint riobp;
#endif

199
extern int mswtyp;
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
extern uint fakeriobp;

/****************************************************************************/
/* Convert C string to pascal string										*/
/****************************************************************************/
void str2pas(char *instr, char *outstr)
{
	int i;

	outstr[0]=(char)strlen(instr);
	for(i=0;i<outstr[0];i++)
		outstr[i+1]=instr[i];
}

/****************************************************************************/
/* Convert from unix time (seconds since 1/70) to julian (days since 1900)	*/
/****************************************************************************/
217
int unixtojulian(time_t unix_time)
218
219
220
{
	int days[12]={0,31,59,90,120,151,181,212,243,273,304,334};
	long j;
221
	struct tm tm;
222

223
	if(localtime_r(&unix_time,&tm)==NULL)
224
		return(0);
225
226
	j=36525L*(1900+tm.tm_year);
	if(!(j%100) && (tm.tm_mon+1)<3)
227
228
		j--;
	j=(j-(1900*36525))/100;
229
	j+=tm.tm_mday+days[tm.tm_mon];
230
231
232
233
234
235
	return(j);
}

/****************************************************************************/
/* Convert julian date into unix format 									*/
/****************************************************************************/
236
237
238
#ifdef __BORLANDC__
#pragma argsused
#endif
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
time_t juliantounix(ulong j)
{
#if 0 /* julian time */
    int days[2][12] = {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334,
                       0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335};
    long temp;
	int leap,counter;
	struct tm tm;

	if(!j) return(0L);

	tm.tm_year=((100L*j)/36525L)-1900;
	temp=(long)date.da_year*36525L;
	date.da_year+=1900;
	j-=temp/100L;

	if (!(temp%100)) {
		j++;
257
258
		leap=1; 
	}
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
	else leap=0;

	for(date.da_mon=counter=0;counter<12;counter++)
		if(days[leap][counter]<j)
			date.da_mon=counter;

	date.da_day=j-days[leap][date.da_mon];
	date.da_mon++;	/* go from 0 to 1 based */

	curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
	return(dostounix(&date,&curtime));
#else
	return((time_t)-1);
#endif
}

275
276
277
278
279
#ifdef __unix__
static void lfexpand(char *str, ulong misc)
{
	char *p;
	char newstr[1024];
rswindell's avatar
rswindell committed
280
	size_t len=0;
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297

	if(misc&XTRN_NATIVE)
		return;

	for(p=str;*p && len < sizeof(newstr)-1;p++) {
		if(*p=='\n')
			newstr[len++]='\r';
		newstr[len++]=*p;
	}

	newstr[len]=0;
	strcpy(str,newstr);
}
#else
	#define lfexpand(str, misc)
#endif

298
299
300
301
302
303
/****************************************************************************/
/* Creates various types of xtrn (Doors, Chains, etc.) data (drop) files.	*/
/****************************************************************************/
void sbbs_t::xtrndat(char *name, char *dropdir, uchar type, ulong tleft
					,ulong misc)
{
304
305
	char	str[1024],tmp2[128],c,*p;
	char 	tmp[512];
306
307
308
	int		i,file;
	ushort	w;
	long	l;
309
310
	struct tm tm;
	struct tm tl;
311
312
313
	stats_t stats;

	if(type==XTRN_SBBS) {	/* SBBS XTRN.DAT file */
314
315
316
317
		strcpy(tmp,"XTRN.DAT");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
318
319
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
320
321
			return; 
		}
322

323
		sprintf(str,"%s\n%s\n%s\n%s\n"
324
325
326
327
			,name								/* User name */
			,cfg.sys_name						/* System name */
			,cfg.sys_op 						/* Sysop name */
			,cfg.sys_guru); 					/* Guru name */
328
		lfexpand(str,misc);
329
330
		write(file,str,strlen(str));

331
		sprintf(str,"%s\n%s\n%u\n%u\n%lu\n%s\n%lu\n%lu\n"
332
333
334
335
336
337
338
339
340
341
			,cfg.ctrl_dir						/* Ctrl dir */
			,cfg.data_dir						/* Data dir */
			,cfg.sys_nodes						/* Total system nodes */
			,cfg.node_num						/* Current node */
			,tleft								/* User Timeleft in seconds */
			,useron.misc&ANSI					/* User ANSI ? (Yes/Mono/No) */
				? useron.misc&COLOR
				? "Yes":"Mono":"No"
			,rows								/* User Screen lines */
			,useron.cdt+useron.freecdt);		/* User Credits */
342
		lfexpand(str,misc);
343
344
		write(file,str,strlen(str));

345
		sprintf(str,"%u\n%u\n%s\n%c\n%u\n%s\n"
346
347
348
349
350
351
			,useron.level						/* User main level */
			,useron.level						/* User transfer level */
			,useron.birth						/* User birthday */
			,useron.sex 						/* User sex (M/F) */
			,useron.number						/* User number */
			,useron.phone); 					/* User phone number */
352
		lfexpand(str,misc);
353
354
		write(file,str,strlen(str));

355
356
		sprintf(str,"%u\n%u\n%x\n%lu\n%s\n%s\n"
			"%s\n%s\n%s\n%s\n%s\n%s\n%lu\n"
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
			,misc&IO_INTS ? 0:cfg.com_port		/* Com port or 0 if !FOSSIL */
			,cfg.com_irq						/* Com IRQ */
			,cfg.com_base						/* Com base in hex */
			,dte_rate							/* Com rate */
			,"Yes"								/* Hardware flow ctrl Y/N */
			,"Yes"								/* Locked DTE rate Y/N */
			,cfg.mdm_init						/* Modem initialization string */
			,cfg.mdm_spec						/* Modem special init string */
			,cfg.mdm_term						/* Modem terminal mode init str */
			,cfg.mdm_dial						/* Modem dial string */
			,cfg.mdm_offh						/* Modem off-hook string */
			,cfg.mdm_answ						/* Modem answer string */
	#ifndef __FLAT__
			,sys_status&SS_DCDHIGH ? &fakeriobp : &riobp-1	/* Modem status register */
	#else
372
			,0L
373
374
	#endif
			);
375
		lfexpand(str,misc);
376
377
		write(file,str,strlen(str));

378
		sprintf(str,"%u\n",cfg.total_xtrns);
379
		lfexpand(str,misc);
380
381
382
383
384
385
386
		write(file,str,strlen(str));			/* Total external programs */

		for(i=0;i<cfg.total_xtrns;i++) {		/* Each program's name */
			if(SYSOP || chk_ar(cfg.xtrn[i]->ar,&useron))
				strcpy(str,cfg.xtrn[i]->name);
			else
				str[0]=0;						/* Blank if no access */
387
388
			strcat(str,"\n");
			lfexpand(str,misc);
389
390
			write(file,str,strlen(str)); 
		}
391

392
		sprintf(str,"%s\n%s\n"
393
394
395
			,ltoaf(useron.flags1,tmp)			/* Main flags */
			,ltoaf(useron.flags2,tmp2)			/* Transfer flags */
			);
396
		lfexpand(str,misc);
397
398
		write(file,str,strlen(str));

399
		sprintf(str,"%s\n%s\n%x\n%s\n%s\n%s\n"
400
401
402
403
404
405
406
			,ltoaf(useron.exempt,tmp)			/* Exemptions */
			,ltoaf(useron.rest,tmp2)			/* Restrictions */
			,useron.expire						/* Expiration date in unix form */
			,useron.address 					/* Address */
			,useron.location					/* City/State */
			,useron.zipcode 					/* Zip/Postal code */
			);
407
		lfexpand(str,misc);
408
409
		write(file,str,strlen(str));

410
411
		sprintf(str,"%s\n%s\n%d\n%s\n%lu\n%s\n%s\n%s\n%s\n"
			"%lx\n%d\n"
412
413
414
415
416
417
418
419
420
421
			,ltoaf(useron.flags3,tmp)			/* Flag set #3 */
			,ltoaf(useron.flags4,tmp2)			/* Flag set #4 */
			,mswtyp 							/* Time-slice type */
			,useron.name						/* Real name/company */
			,cur_rate							/* DCE rate */
			,cfg.exec_dir
			,cfg.text_dir
			,cfg.temp_dir
			,cfg.sys_id
			,cfg.node_misc
422
	#if defined(__OS2__)
423
424
			,rio_handle
	#elif defined(_WIN32)
425
			,misc&IO_INTS ? INVALID_SOCKET : client_socket_dup
426
	#elif defined(__unix__)
427
			,misc&IO_INTS ? INVALID_SOCKET : client_socket
428
429
430
431
	#else
			,-1
	#endif
			);
432
		lfexpand(str,misc);
433
434
		write(file,str,strlen(str));

435
436
		close(file); 
	}
437
438

	else if(type==XTRN_WWIV) {	/*	WWIV CHAIN.TXT File */
439
440
441
442
		strcpy(tmp,"CHAIN.TXT");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
443
444
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
445
446
			return; 
		}
447

448
		sprintf(str,"%u\n%s\n%s\n%s\n%u\n%c\n"
449
450
451
452
453
454
455
			,useron.number						/* User number */
			,name								/* User name */
			,useron.name						/* User real name */
			,nulstr 							/* User call sign */
			,getage(&cfg,useron.birth)			/* User age */
			,useron.sex);						/* User sex (M/F) */
		strupr(str);
456
		lfexpand(str,misc);
457
458
		write(file,str,strlen(str));

459
		sprintf(str,"%lu\n%s\n%u\n%lu\n%u\n%u\n%u\n%u\n%u\n"
460
461
462
463
464
465
466
467
468
			,useron.cdt+useron.freecdt			/* Gold */
			,unixtodstr(&cfg,useron.laston,tmp)	/* User last on date */
			,80 								/* User screen width */
			,rows								/* User screen length */
			,useron.level						/* User SL */
			,0									/* Cosysop? */
			,SYSOP								/* Sysop? (1/0) */
			,(useron.misc&ANSI) ? 1:0			/* ANSI ? (1/0) */
			,online==ON_REMOTE);				/* Remote (1/0) */
469
		lfexpand(str,misc);
470
471
		write(file,str,strlen(str));

472
473
		sprintf(str,"%lu\n%s\n%s\n%s\n%lu\n%d\n%s\n%s\n"
			"%u\n%u\n%lu\n%u\n%lu\n%u\n%s\n"
474
475
476
			,tleft								/* Time left in seconds */
			,cfg.node_dir						/* Gfiles dir (log dir) */
			,cfg.data_dir						/* Data dir */
477
			,"node.log"                         /* Name of log file */
478
479
480
481
482
483
484
485
486
487
488
			,dte_rate							/* DTE rate */
			,cfg.com_port						/* COM port number */
			,cfg.sys_name						/* System name */
			,cfg.sys_op 						/* Sysop name */
			,0									/* Logon time (sec past 12am) */
			,0									/* Current time (sec past 12am) */
			,useron.ulb/1024UL					/* User uploaded kbytes */
			,useron.uls 						/* User uploaded files */
			,useron.dlb/1024UL					/* User downloaded kbytes */
			,useron.dls 						/* User downloaded files */
			,"8N1");                            /* Data, parity, stop bits */
489
		lfexpand(str,misc);
490
491
		write(file,str,strlen(str));

492
493
		close(file); 
	}
494
495

	else if(type==XTRN_GAP) {	/* Gap DOOR.SYS File */
496
497
498
499
		strcpy(tmp,"DOOR.SYS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
500
501
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
502
503
			return; 
		}
504

505
		sprintf(str,"COM%d:\n%lu\n%u\n%u\n%lu\n%c\n%c\n%c\n%c\n"
506
507
508
509
510
511
512
513
514
			,online==ON_REMOTE ? cfg.com_port:0	/* 01: COM port - 0 if Local */
			,cur_rate							/* 02: DCE rate */
			,8									/* 03: Data bits */
			,cfg.node_num						/* 04: Node number */
			,dte_rate							/* 05: DTE rate */
			,console&CON_L_ECHO ? 'Y':'N'       /* 06: Screen display */
			,'Y'                                /* 07: Printer toggle */
			,'Y'                                /* 08: Page bell */
			,'Y');                              /* 09: Caller alarm */
515
		lfexpand(str,misc);
516
517
		write(file,str,strlen(str));

518
		sprintf(str,"%s\n%s\n%s\n%s\n%s\n"
519
520
521
522
523
			,name								/* 10: User name */
			,useron.location					/* 11: User location */
			,useron.phone						/* 12: User home phone */
			,useron.phone						/* 13: User work/data phone */
			,useron.pass);						/* 14: User password */
524
		lfexpand(str,misc);
525
526
		write(file,str,strlen(str));

527
		sprintf(str,"%u\n%u\n%s\n%lu\n%lu\n%s\n"
528
529
530
531
532
533
534
			,useron.level						/* 15: User security level */
			,useron.logons						/* 16: User total logons */
			,unixtodstr(&cfg,useron.laston,tmp)	/* 17: User last on date */
			,tleft								/* 18: User time left in sec */
			,tleft/60							/* 19: User time left in min */
			,useron.misc&NO_EXASCII 			/* 20: GR if COLOR ANSI */
				? "7E" : (useron.misc&(ANSI|COLOR))==(ANSI|COLOR) ? "GR" : "NG");
535
		lfexpand(str,misc);
536
537
		write(file,str,strlen(str));

538
		sprintf(str,"%lu\n%c\n%s\n%u\n%s\n%u\n%c\n%u\n%u\n"
539
540
541
542
543
544
545
546
547
			,rows								/* 21: User screen length */
			,useron.misc&EXPERT ? 'Y':'N'       /* 22: Expert? (Y/N) */
			,ltoaf(useron.flags1,tmp2)			/* 23: Registered conferences */
			,0									/* 24: Conference came from */
			,unixtodstr(&cfg,useron.expire,tmp)	/* 25: User expiration date */
			,useron.number						/* 26: User number */
			,'Y'                                /* 27: Default protocol */
			,useron.uls 						/* 28: User total uploads */
			,useron.dls);						/* 29: User total downloads */
548
		lfexpand(str,misc);
549
550
		write(file,str,strlen(str));

551
552
		sprintf(str,"%u\n%lu\n%s\n%s\n%s\n%s"
			"\n%s\n%02d:%02d\n%c\n"
553
554
555
556
557
558
559
560
561
562
			,0									/* 30: Kbytes downloaded today */
			,(useron.cdt+useron.freecdt)/1024UL /* 31: Max Kbytes to download today */
			,useron.birth						/* 32: User birthday */
			,cfg.node_dir						/* 33: Path to MAIN directory */
			,cfg.data_dir						/* 34: Path to GEN directory */
			,cfg.sys_op 						/* 35: Sysop name */
			,nulstr 							/* 36: Alias name */
			,0 // sys_eventtime/60				/* 37: Event time HH:MM */
			,0 // sys_eventtime%60
			,'Y');                              /* 38: Error correcting connection */
563
		lfexpand(str,misc);
564
565
		write(file,str,strlen(str));

566
		localtime_r(&ns_time,&tm);
567
		sprintf(str,"%c\n%c\n%u\n%lu\n%02d/%02d/%02d\n"
568
569
570
571
572
			,(useron.misc&(NO_EXASCII|ANSI|COLOR))==ANSI
				? 'Y':'N'                       /* 39: ANSI supported but NG mode */
			,'Y'                                /* 40: Use record locking */
			,14 								/* 41: BBS default color */
			,useron.min 						/* 42: Time credits in minutes */
573
574
575
			,tm.tm_mon+1						/* 43: File new-scan date */
			,tm.tm_mday
			,TM_YEAR(tm.tm_year));
576
		lfexpand(str,misc);
577
578
		write(file,str,strlen(str));

579
580
		localtime_r(&logontime,&tm);
		localtime_r(&useron.laston,&tl);
581
582
		sprintf(str,"%02d:%02d\n%02d:%02d\n%u\n%u\n%lu\n"
			"%lu\n%s\n%u\n%u\n"
583
584
585
586
			,tm.tm_hour						/* 44: Time of this call */
			,tm.tm_min
			,tl.tm_hour						/* 45: Time of last call */
			,tl.tm_min
587
588
589
590
591
592
593
			,999								/* 46: Max daily files available */
			,0									/* 47: Files downloaded so far today */
			,useron.ulb/1024UL					/* 48: Total Kbytes uploaded */
			,useron.dlb/1024UL					/* 49: Total Kbytes downloaded */
			,useron.comment 					/* 50: User comment */
			,0									/* 51: Total doors opened */
			,useron.posts); 					/* 52: User message left */
594
		lfexpand(str,misc);
595
596
		write(file,str,strlen(str));

597
598
		close(file); 
	}
599
600
601

	else if(type==XTRN_RBBS || type==XTRN_RBBS1) {
		if(type==XTRN_RBBS)
602
			sprintf(tmp,"DORINFO%X.DEF",cfg.node_num);   /* support 1-F */
603
		else
604
605
606
607
			sprintf(tmp,"DORINFO1.DEF");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
608
609
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
610
611
			return; 
		}
612
613
614
615
616
617
618
619

		strcpy(tmp,cfg.sys_op);
		p=strchr(tmp,SP);
		if(p)
			*(p++)=0;
		else
			p=nulstr;

620
		sprintf(str,"%s\n%s\n%s\nCOM%d\n%lu BAUD,N,8,1\n%u\n"
621
622
623
624
625
626
627
			,cfg.sys_name						/* Name of BBS */
			,tmp								/* Sysop's firstname */
			,p									/* Sysop's lastname */
			,online==ON_REMOTE ? cfg.com_port:0 /* COM port number, 0 if local */
			,dte_rate							/* DTE rate */
			,0);								/* Network type */
		strupr(str);
628
		lfexpand(str,misc);
629
630
631
632
633
634
635
636
		write(file,str,strlen(str));

		strcpy(tmp,name);
		p=strchr(tmp,SP);
		if(p)
			*(p++)=0;
		else
			p=nulstr;
637
		sprintf(str,"%s\n%s\n%s\n%u\n%u\n%lu\n"
638
639
640
641
642
643
644
			,tmp								/* User's firstname */
			,p									/* User's lastname */
			,useron.location					/* User's city */
			,(useron.misc&ANSI)==ANSI			/* 1=ANSI 0=ASCII */
			,useron.level						/* Security level */
			,tleft/60); 						/* Time left in minutes */
		strupr(str);
645
		lfexpand(str,misc);
646
647
648
649
		write(file,str,strlen(str));

		close(file);

650
651
652
653
		strcpy(tmp,"EXITINFO.BBS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
654
655
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
656
657
			return; 
		}
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
		w=(WORD)dte_rate;
		write(file,&w,sizeof(short));			/* BaudRate */
		/* SysInfo */
		getstats(&cfg,0,&stats);
		write(file,&stats.logons,sizeof(long)); /* CallCount */
		write(file,nulstr,36);					/* LastCallerName */
		write(file,nulstr,36);					/* LastCallerAlias */
		write(file,nulstr,92);					/* ExtraSpace */
		/* TimeLogInfo */
		write(file,nulstr,9);					/* StartDate */
		write(file,nulstr,24*sizeof(short));	/* BusyPerHour */
		write(file,nulstr,7*sizeof(short));		/* BusyPerDay */
		/* UserInfo */
		str2pas(name,str);				/* Name */
		write(file,str,36);
		str2pas(useron.location,str);
		write(file,str,26); 					/* City */
		str2pas(useron.pass,str);
		write(file,str,16); 					/* Pwd */
		str2pas(useron.phone,str);
		write(file,str,13); 					/* DataPhone */
		write(file,str,13); 					/* HomePhone */
680
681
		localtime_r(&useron.laston,&tm);
		sprintf(tmp,"%02d:%02d",tm.tm_hour,tm.tm_min);
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
		str2pas(tmp,str);
		write(file,str,6);						/* LastTime */
		unixtodstr(&cfg,useron.laston,tmp);
		str2pas(tmp,str);
		write(file,str,9);						/* LastDate */
		c=0;
		if(useron.misc&DELETED) c|=(1<<0);
		if(useron.misc&CLRSCRN) c|=(1<<1);
		if(useron.misc&UPAUSE)	 c|=(1<<2);
		if(useron.misc&ANSI)	c|=(1<<3);
		if(useron.sex=='F')     c|=(1<<7);
		write(file,&c,1);						/* Attrib */
		write(file,&useron.flags1,4);			/* Flags */
		w=0;
		write(file,&w,sizeof(short)); 			/* Credit */
		write(file,&w,sizeof(short)); 			/* Pending */
		write(file,&useron.posts,sizeof(short));/* TimesPosted */
		write(file,&w,sizeof(short)); 			/* HighMsgRead */
		w=useron.level;
		write(file,&w,sizeof(short)); 			/* SecLvl */
		w=0;
		write(file,&w,sizeof(short)); 			/* Times */
		write(file,&useron.uls,sizeof(short));	/* Ups */
		write(file,&useron.dls,sizeof(short));	/* Downs */
		w=(ushort)(useron.ulb/1024UL);
		write(file,&w,sizeof(short)); 			/* UpK */
		w=(ushort)(useron.dlb/1024UL);
		write(file,&w,sizeof(short)); 			/* DownK */
		w=(ushort)(logon_dlb/1024UL);
		write(file,&w,sizeof(short)); 			/* TodayK */
		w=0;
		write(file,&w,sizeof(short)); 			/* Elapsed */
		write(file,&w,sizeof(short)); 			/* Len */
		write(file,&w,sizeof(short)); 			/* CombinedPtr */
		write(file,&w,sizeof(short)); 			/* AliasPtr */
		l=0;
		write(file,&l,sizeof(long));			/* Birthday (as a long?) */
		/* EventInfo */
		c=0;
		write(file,&c,sizeof(char));			/* Status */
		write(file,&l /* sys_eventtime */,sizeof(long));	/* RunTime */
		write(file,&c,sizeof(char));			/* ErrorLevel */
		c='\xff';
		write(file,&c,sizeof(char));			/* Days */
		// c=sys_eventnode==node_num || sys_misc&SM_TIMED_EX ? 1 : 0;
		c=0;
		write(file,&c,sizeof(char));			/* Forced */
		if(!cfg.total_events)
			l=0;
		else
			l=cfg.event[0]->last;
		write(file,&l,sizeof(long));			/* LastTimeRun */
		memset(str,0,40);
		write(file,str,7);						/* Spare */

		c=0;
		write(file,&c,1);						/* NetMailEntered */
		write(file,&c,1);						/* EchoMailEntered */

741
742
		localtime_r(&logontime,&tm);
		sprintf(tmp,"%02d:%02d",tm.tm_hour,tm.tm_min);
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
		str2pas(tmp,str);
		write(file,str,6);						/* LoginTime */
		unixtodstr(&cfg,logontime,tmp);
		str2pas(tmp,str);
		write(file,str,9);						/* LoginDate */
		write(file,&cfg.level_timepercall[useron.level],sizeof(short));  /* TmLimit */
		write(file,&logontime,sizeof(long));	/* LoginSec */
		write(file,&useron.cdt,sizeof(long));	/* Credit */
		write(file,&useron.number,sizeof(short)); /* UserRecNum */
		write(file,&i,2);						/* ReadThru */
		write(file,&i,2);						/* PageTimes */
		write(file,&i,2);						/* DownLimit */
		c=sys_status&SS_SYSPAGE ? 1:0;
		write(file,&c,1);						/* WantChat */
		c=0;
		write(file,&c,1);						/* GosubLevel */

		memset(str,0,255);
		for(i=1;i<20;i++)
			write(file,str,9);					/* GosubData */
		write(file,str,9);						/* Menu */
		c=useron.misc&CLRSCRN ? 1:0;
		write(file,&c,1);						/* ScreenClear */
		c=useron.misc&UPAUSE ? 1:0;
		write(file,&c,1);						/* MorePrompts */
		c=useron.misc&NO_EXASCII ? 0:1;
		write(file,&c,1);						/* GraphicsMode */
		c=useron.xedit ? 1:0;
		write(file,&c,1);						/* ExternEdit */
		i=rows;
		write(file,&i,2);						/* ScreenLength */
		c=1;
		write(file,&c,1);						/* MNP_Connect */
		write(file,str,49); 					/* ChatReason */
		c=0;
		write(file,&c,1);						/* ExternLogoff */
		c=useron.misc&ANSI ? 1:0;
		write(file,&c,1);						/* ANSI_Capable */
		close(file);
782
	}
783
784

	else if(type==XTRN_WILDCAT) { /* WildCat CALLINFO.BBS File */
785
786
787
788
		strcpy(tmp,"CALLINFO.BBS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
789
790
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
791
792
			return; 
		}
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816

		if(online==ON_LOCAL) i=5;
		else
			switch(dte_rate) {
				case 300:
					i=1;
					break;
				case 1200:
					i=2;
					break;
				case 2400:
					i=0;
					break;
				case 9600:
					i=3;
					break;
				case 19200:
					i=4;
					break;
				case 38400:
					i=6;
					break;
				default:
					i=7;
817
818
					break; 
		}
819
		sprintf(str,"%s\n%u\n%s\n%u\n%lu\n%s\n%s\n%u\n"
820
821
822
823
824
825
826
827
			,name								/* User name */
			,i									/* DTE rate */
			,useron.location					/* User location */
			,useron.level						/* Security level */
			,tleft/60							/* Time left in min */
			,useron.misc&ANSI ? "COLOR":"MONO"  /* ANSI ??? */
			,useron.pass						/* Password */
			,useron.number);					/* User number */
828
		lfexpand(str,misc);
829
830
		write(file,str,strlen(str));

831
		localtime_r(&now,&tm);
832
		sprintf(str,"%lu\n%02d:%02d\n%02d:%02d %02d/%02d/%02d\n%s\n"
833
			,tleft								/* Time left in seconds */
834
835
836
837
			,tm.tm_hour,tm.tm_min 			/* Current time HH:MM */
			,tm.tm_hour,tm.tm_min 			/* Current time and date HH:MM */
			,tm.tm_mon+1,tm.tm_mday			/* MM/DD/YY */
			,TM_YEAR(tm.tm_year)
838
			,nulstr);							/* Conferences with access */
839
		lfexpand(str,misc);
840
841
		write(file,str,strlen(str));

842
		localtime_r(&useron.laston,&tm);
843
		sprintf(str,"%u\n%u\n%u\n%u\n%s\n%s %02u:%02u\n"
844
845
846
847
848
849
			,0									/* Daily download total */
			,0									/* Max download files */
			,0									/* Daily download k total */
			,0									/* Max download k total */
			,useron.phone						/* User phone number */
			,unixtodstr(&cfg,useron.laston,tmp)	/* Last on date and time */
850
851
			,tm.tm_hour						/* MM/DD/YY  HH:MM */
			,tm.tm_min);
852
		lfexpand(str,misc);
853
854
		write(file,str,strlen(str));

855
		localtime_r(&ns_time,&tm);
856
857
		sprintf(str,"%s\n%s\n%02d/%02d/%02d\n%u\n%lu\n%u"
			"\n%u\n%u\n"
858
859
860
			,useron.misc&EXPERT 				/* Expert or Novice mode */
				? "EXPERT":"NOVICE"
			,"All"                              /* Transfer Protocol */
861
862
			,tm.tm_mon+1,tm.tm_mday			/* File new-scan date */
			,TM_YEAR(tm.tm_year)				/* in MM/DD/YY */
863
864
865
866
867
			,useron.logons						/* Total logons */
			,rows								/* Screen length */
			,0									/* Highest message read */
			,useron.uls 						/* Total files uploaded */
			,useron.dls);						/* Total files downloaded */
868
		lfexpand(str,misc);
869
870
		write(file,str,strlen(str));

871
		sprintf(str,"%u\n%s\nCOM%u\n%s\n%lu\n%s\n%s\n"
872
873
874
875
876
877
878
			,8									/* Data bits */
			,online==ON_LOCAL?"LOCAL":"REMOTE"  /* Online local or remote */
			,cfg.com_port						/* COMx port */
			,useron.birth						/* User birthday */
			,dte_rate							/* DTE rate */
			,"FALSE"                            /* Already connected? */
			,"Normal Connection");              /* Normal or ARQ connect */
879
		lfexpand(str,misc);
880
881
		write(file,str,strlen(str));

882
		localtime_r(&now,&tm);
883
		sprintf(str,"%02d/%02d/%02d %02d:%02d\n%u\n%u\n"
884
885
886
			,tm.tm_mon+1,tm.tm_mday			/* Current date MM/DD/YY */
			,TM_YEAR(tm.tm_year)
			,tm.tm_hour,tm.tm_min 			/* Current time HH:MM */
887
888
			,cfg.node_num						/* Node number */
			,0);								/* Door number */
889
		lfexpand(str,misc);
890
891
		write(file,str,strlen(str));

892
893
		close(file); 
	}
894
895

	else if(type==XTRN_PCBOARD) { /* PCBoard Files */
896
897
898
899
		strcpy(tmp,"PCBOARD.SYS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
900
901
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
902
903
			return; 
		}
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929

		sprintf(str,"%2d%2d%2d%2d%c%2d%c%c%5u%-5.5s"
			,-1 								/* Display on/off */
			,0									/* Printer on/off */
			,sys_status&SS_SYSPAGE ? -1:0		/* Page Bell on/off */
			,cfg.node_misc&NM_ANSALARM ? -1:0	/* Caller Alarm on/off */
			,SP 								/* Sysop next flag */
			,0									/* Error corrected */
			,useron.misc&NO_EXASCII ? '7'       /* Graphics mode */
				: (useron.misc&(COLOR|ANSI))==(COLOR|ANSI) ? 'Y':'N'
			,'A'                                /* Node chat status */
			,(uint)dte_rate 					/* DTE Port Speed */
			,connection 						/* Connection description */
			);
		write(file,str,23);

		write(file,&useron.number,2);			/* User record number */

		strcpy(tmp,name);
		p=strchr(tmp,SP);
		if(p) *p=0;
		sprintf(str,"%-15.15s%-12s"
			,tmp								/* User's first name */
			,useron.pass);						/* User's password */
		write(file,str,27);

930
		if(localtime_r(&logontime,&tm)==NULL)
931
932
			i=0;
		else
933
			i=(tm.tm_hour*60)+tm.tm_min;
934
935
936
937
938
939
		write(file,&i,2);						/* Logon time in min since mid */

		now=time(NULL);
		i=-(((now-starttime)/60)+useron.ttoday);/* Negative minutes used */
		write(file,&i,2);

940
		sprintf(str,"%02d:%02d",tm.tm_hour,tm.tm_min);
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
		write(file,str,5);

		i=cfg.level_timepercall[useron.level];	/* Time allowed on */
		write(file,&i,2);

		i=0;									/* Allowed K-bytes for D/L */
		write(file,&i,2);
		write(file,&i,1);						/* Conference user was in */
		write(file,&i,2);						/* Conferences joined */
		write(file,&i,2);						/* "" */
		write(file,&i,2);						/* "" */
		write(file,&i,2);						/* Conferences scanned */
		write(file,&i,2);						/* "" */
		write(file,&i,2);						/* Conference add time */
		write(file,&i,2);						/* Upload/Sysop Chat time min */

		strcpy(str,"    ");
		write(file,str,4);						/* Language extension */

		sprintf(str,"%-25.25s",name);           /* User's full name */
		write(file,str,25);

		i=(tleft/60);
		write(file,&i,2);						/* Minutes remaining */

		write(file,&cfg.node_num,1);			/* Node number */

		sprintf(str,"%02d:%02d%2d%2d"           /* Scheduled Event time */
			,0 // sys_eventtime/60
			,0 // sys_eventtime%60
			,0 // sys_timed[0] ? -1:0				 /* Event active ? */
			,0									/* Slide event ? */
			);
		write(file,str,9);

		l=0L;
		write(file,&l,4);						/* Memorized message number */

		sprintf(str,"%d%c%c%d%s%c%c%d%d%d%c%c"
			,cfg.com_port						/* COM Port number */
			,SP 								/* Reserved */
			,SP 								/* "" */
			,(useron.misc&ANSI)==ANSI			/* 1=ANSI 0=NO ANSI */
			,"01-01-80"                         /* last event date */
			,0,0								/* last event minute */
			,0									/* caller exited to dos */
			,sys_status&SS_EVENT ? 1:0			/* event up coming */
			,0									/* stop uploads */
			,0,0								/* conference user was in */
			);
		write(file,str,19);

		close(file);			/* End of PCBOARD.SYS creation */

995
996
997
998
		strcpy(tmp,"USERS.SYS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
999
1000
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
1001
1002
			return; 
		}
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038

		/* Write goof-ball header */

		i=145;
		write(file,&i,2);		/* PCBoard version number (i.e. 145) */
		l=useron.number;
		write(file,&l,4);		/* Record number for USER's file */
		i=218;
		write(file,&i,2);		/* Size of "fixed" user record */
		i=1;
		write(file,&i,2);		/* Number of conference areas */
		i=7;
		write(file,&i,2);		/* Number of bit map fields for conferences */
		i=5;
		write(file,&i,2);		/* Size of each bit map field */
		memset(str,0,15);
		write(file,str,15); 	/* Name of Third Party Application (if any) */
		i=0;
		write(file,&i,2);		/* Version number for application (if any) */
		write(file,&i,2);		/* Size of a "fixed length" record (if any) */
		write(file,&i,2);		/* Size of conference record (if any) */
		l=0;
		write(file,&l,4);		/* Offset of AppRec into USERS.INF (if any) */
		i=0;
		write(file,&i,1);		/* 1, if USERS.SYS file has been updated */

		/* Write fixed record portion */

		write(file,name,26);			/* Name */
		sprintf(str,"%.24s",useron.location);
		write(file,str,25); 			/* Location */
		write(file,useron.pass,13); 	/* Password */
		write(file,useron.phone,14);	/* Business or Data Phone */
		write(file,useron.phone,14);	/* Home or Voice Phone */
		i=unixtojulian(useron.laston);
		write(file,&i,2);				/* Date last on */
1039
1040
		localtime_r(&useron.laston,&tm);
		sprintf(str,"%02d:%02d",tm.tm_hour,tm.tm_min);
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
		write(file,str,6);				/* Last time on */
		if(useron.misc&EXPERT)
			i=1;
		else
			i=0;
		write(file,&i,1);				/* Expert mode */
		i='Z';
		write(file,&i,1);				/* Protocol (A-Z) */
		if(useron.misc&CLRSCRN)
			i=2;
		else
			i=0;
		write(file,&i,1);				/* bit packed flags */
		i=0;
		write(file,&i,2);				/* DOS date for last DIR Scan */
		i=useron.level;
		write(file,&i,2);				/* Security level */
		write(file,&useron.logons,2);	/* Number of times caller has connected */
		c=(char)rows;
		write(file,&c,1);				/* Page length */
		write(file,&useron.uls,2);		/* Number of uploads */
		write(file,&useron.dls,2);		/* Number of downloads */
		l=0;
		write(file,&l,4);				/* Number of download bytes today */
		write(file,&useron.note,31);	/* Comment #1 */
		write(file,&useron.comp,31);	/* Comment #2 */
		i=(now-starttime)/60;
		write(file,&i,2);				/* Minutes online (this logon?) */
		i=unixtojulian(useron.expire);
		write(file,&i,2);				/* Expiration date */
		i=cfg.expired_level;
		write(file,&i,2);				/* Expired security level */
		i=1;
		write(file,&i,2);				/* Current conference */
		write(file,&useron.dlb,4);		/* Bytes downloaded */
		write(file,&useron.ulb,4);		/* Bytes uploaded */
		if(useron.misc&DELETED)
			i=1;
		else
			i=0;
		write(file,&i,1);				/* Deleted? */
		l=useron.number;
		write(file,&l,4);				/* Record number in USERS.INF file */
		l=0;
		memset(str,0,9);
		write(file,str,9);				/* Reserved */
		write(file,&l,4);				/* Number of messages read */
		l=useron.posts+useron.emails+useron.fbacks;
		write(file,&l,4);				/* Number of messages left */
		close(file);

		/* End of USERS.SYS creation */
1093
	}
1094
1095

	else if(type==XTRN_SPITFIRE) {	 /* SpitFire SFDOORS.DAT File */
1096
1097
1098
1099
		strcpy(tmp,"SFDOORS.DAT");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
1100
1101
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
1102
1103
			return; 
		}
1104
1105

		now=time(NULL);
1106
		if(localtime_r(&now,&tm)==NULL)
1107
1108
			l=0;
		else
1109
1110
			l=((((long)tm.tm_hour*60L)+(long)tm.tm_min)*60L)
				+(long)tm.tm_sec;
1111
1112
1113
1114
1115

		strcpy(tmp,name);
		if((p=strchr(tmp,SP))!=NULL)
			*p=0;

1116
		sprintf(str,"%u\n%s\n%s\n%s\n%lu\n%u\n%lu\n%lu\n"
1117
1118
1119
1120
1121
1122
1123
1124
1125
			,useron.number						/* User number */
			,name								/* User name */
			,useron.pass						/* Password */
			,tmp								/* User's first name */
			,dte_rate							/* DTE Rate */
			,cfg.com_port						/* COM Port */
			,tleft/60							/* Time left in minutes */
			,l									/* Seconds since midnight (now) */
			);
1126
		lfexpand(str,misc);
1127
1128
		write(file,str,strlen(str));

1129
		if(localtime_r(&logontime,&tm)==NULL)
1130
1131
			l=0;
		else
1132
1133
			l=((((long)tm.tm_hour*60L)+(long)tm.tm_min)*60L)
				+(long)tm.tm_sec;
1134

1135
		sprintf(str,"%s\n%s\n%u\n%u\n%u\n%u\n%lu\n%u\n%s\n"
1136
1137
			"%s\n%s\n%lu\n%s\n%u\n%u\n%u\n%u\n%u\n%lu\n%u\n"
			"%lu\n%lu\n%s\n%s\n"
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
			,dropdir
			,useron.misc&ANSI ? "TRUE":"FALSE"  /* ANSI ? True or False */
			,useron.level						/* Security level */
			,useron.uls 						/* Total uploads */
			,useron.dls 						/* Total downloads */
			,cfg.level_timepercall[useron.level]/* Minutes allowed this call */
			,l									/* Secs since midnight (logon) */
			,starttime-logontime				/* Extra time in seconds */
			,"FALSE"                            /* Sysop next? */
			,"FALSE"                            /* From Front-end? */
			,"FALSE"                            /* Software Flow Control? */
			,dte_rate							/* DTE Rate */
			,"FALSE"                            /* Error correcting connection? */
			,0									/* Current conference */
			,0									/* Current file dir */
			,cfg.node_num						/* Node number */
			,15 								/* Downloads allowed per day */
			,0									/* Downloads already this day */
1156
			,100000L 							/* Download bytes allowed/day */
1157
1158
1159
1160
1161
1162
			,0									/* Downloaded bytes already today */
			,useron.ulb/1024L					/* Kbytes uploaded */
			,useron.dlb/1024L					/* Kbytes downloaded */
			,useron.phone						/* Phone Number */
			,useron.location					/* City, State */
			);
1163
		lfexpand(str,misc);
1164
1165
		write(file,str,strlen(str));

1166
1167
		close(file); 
	}
1168
1169

	else if(type==XTRN_UTI) { /* UTI v2.1 - UTIDOOR.TXT */
1170
1171
1172
1173
		strcpy(tmp,"UTIDOOR.TXT");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
1174
1175
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
1176
1177
			return; 
		}
1178
1179
1180

		strcpy(tmp,name);
		strupr(tmp);
1181
		sprintf(str,"%s\n%lu\n%u\n%lu\n%lu\n"
1182
1183
1184
1185
1186
			,tmp								/* User name */
			,cur_rate							/* Actual BPS rate */
			,online==ON_LOCAL ? 0: cfg.com_port /* COM Port */
			,dte_rate							/* DTE rate */
			,tleft);							/* Time left in sec */
1187
		lfexpand(str,misc);
1188
1189
		write(file,str,strlen(str));

1190
1191
		close(file); 
	}
1192
1193

	else if(type==XTRN_SR) { /* Solar Realms DOORFILE.SR */
1194
1195
1196
1197
		strcpy(tmp,"DOORFILE.SR");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
1198
1199
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
1200
1201
			return; 
		}
1202

1203
		sprintf(str,"%s\n%d\n%d\n%lu\n%lu\n%u\n%lu\n"
1204
1205
1206
1207
1208
1209
1210
1211
			,name								/* Complete name of user */
			,useron.misc&ANSI ? 1:0 			/* ANSI ? */
			,useron.misc&NO_EXASCII ? 0:1		/* IBM characters ? */
			,rows								/* Page length */
			,dte_rate							/* Baud rate */
			,online==ON_LOCAL ? 0:cfg.com_port	/* COM port */
			,tleft/60							/* Time left (in minutes) */
			);
1212
		lfexpand(str,misc);
1213
		write(file,str,strlen(str));
1214
1215
		close(file); 
	}
1216
1217

	else if(type==XTRN_TRIBBS) { /* TRIBBS.SYS */
1218
1219
1220
1221
		strcpy(tmp,"TRIBBS.SYS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
1222
1223
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
1224
1225
			return; 
		}
1226

1227
		sprintf(str,"%u\n%s\n%s\n%u\n%c\n%c\n%lu\n%s\n%s\n%s\n"
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
			,useron.number						/* User's record number */
			,name								/* User's name */
			,useron.pass						/* User's password */
			,useron.level						/* User's level */
			,useron.misc&EXPERT ? 'Y':'N'       /* Expert? */
			,useron.misc&ANSI ? 'Y':'N'         /* ANSI? */
			,tleft/60							/* Minutes left */
			,useron.phone						/* User's phone number */
			,useron.location					/* User's city and state */
			,useron.birth						/* User's birth date */
			);
1239
		lfexpand(str,misc);
1240
1241
		write(file,str,strlen(str));

1242
		sprintf(str,"%u\n%u\n%lu\n%lu\n%c\n%c\n%s\n%s\n%s\n"
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
			,cfg.node_num						/* Node number */
			,cfg.com_port						/* Serial port */
			,online==ON_LOCAL ? 0L:cur_rate 	/* Baud rate */
			,dte_rate							/* Locked rate */
			,'Y'
			,'Y'                                /* Error correcting connection */
			,cfg.sys_name						/* Board's name */
			,cfg.sys_op 						/* Sysop's name */
			,useron.handle						/* User's alias */
			);
1253
		lfexpand(str,misc);
1254
		write(file,str,strlen(str));
1255
1256
1257
1258
		close(file); 
	}

	else if(type==XTRN_DOOR32) { /* DOOR32.SYS */
1259
1260
1261
1262
		strcpy(tmp,"DOOR32.SYS");
		if(misc&XTRN_LWRCASE)
			strlwr(tmp);
		sprintf(str,"%s%s",dropdir,tmp);
1263
1264
		if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT))==-1) {
			errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC|O_TEXT);
1265
1266
1267
			return; 
		}

1268
		sprintf(str,"%d\n%d\n38400\n%s%c\n%d\n%s\n%s\n%d\n%ld\n"
1269
			"%d\n%d\n"
1270
1271
1272
1273
1274
1275
			,misc&IO_INTS ? 0 /* Local */ : 2 /* Telnet */
#if defined(__unix__)
			,misc&IO_INTS ? INVALID_SOCKET : client_socket
#else
			,misc&IO_INTS ? INVALID_SOCKET : client_socket_dup
#endif
1276
1277
1278
			,VERSION_NOTICE,REVISION
			,useron.number
			,useron.name
1279
			,name
1280
1281
1282
1283
			,useron.level
			,timeleft/60
			,useron.misc&ANSI ? 1 : 0
			,cfg.node_num);
1284
		lfexpand(str,misc);
1285
1286
1287
		write(file,str,strlen(str));
		close(file);
	}
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299

	else if(type)
		errormsg(WHERE,ERR_CHK,"Drop file type",type);

}

/****************************************************************************/
/* Reads in MODUSER.DAT, EXITINFO.BBS, or DOOR.SYS and modify the current	*/
/* user's values.                                                           */
/****************************************************************************/
void sbbs_t::moduserdat(uint xtrnnum)
{
1300
1301
1302
1303
1304
1305
	char	str[256],path[256