smbutil.c 40.5 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
/* smbutil.c */

/* Synchronet message base (SMB) utility */

/* $Id$ */

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

38
#define SMBUTIL_VER "2.31"
39
40
char	revision[16];
char	compiler[32];
41
42

#define NOANALYSIS		(1L<<0)
43
#define NOCRC			(1L<<1)
44
45
46
47
48
49
50

#ifdef __WATCOMC__
	#define ffblk find_t
    #define findfirst(x,y,z) _dos_findfirst(x,z,y)
	#define findnext(x) _dos_findnext(x)
#endif

51
52
53
54
55
56
#if defined(_WIN32)
	#include <ctype.h>	/* isdigit() */
	#include <conio.h>	/* getch() */
#endif

/* ANSI */
57
#include <stdio.h>
rswindell's avatar
rswindell committed
58
59
60
61
#include <time.h>		/* time */
#include <errno.h>		/* errno */
#include <string.h>		/* strrchr */
#include <ctype.h>		/* toupper */
62

63
#include "sbbs.h"
64
#include "genwrap.h"	/* stricmp */
rswindell's avatar
rswindell committed
65
#include "dirwrap.h"	/* fexist */
rswindell's avatar
rswindell committed
66
#include "conwrap.h"	/* getch */
67
#include "filewrap.h"
68
#include "smblib.h"
69
#include "crc32.h"
70
#include "gen_defs.h"	/* MAX_PATH */
71
72
73
74
75

#ifdef __WATCOMC__
	#include <dos.h>
#endif

76
/* gets is dangerous */
77
#define gets(str)  fgets((str), sizeof(str), stdin)
78

79
80
81
82
83
84
/********************/
/* Global variables */
/********************/

smb_t smb;
ulong mode=0L;
85
ushort tzone=0;
86
87
88
89
90
91

/************************/
/* Program usage/syntax */
/************************/

char *usage=
92
"usage: smbutil [-opts] cmd <filespec.shd>\n"
93
94
95
96
97
"\n"
"cmd:\n"
"       l[n] = list msgs starting at number n\n"
"       r[n] = read msgs starting at number n\n"
"       v[n] = view msg headers starting at number n\n"
98
99
100
"       i[f] = import msg from text file f (or use stdin)\n"
"       e[f] = import e-mail from text file f (or use stdin)\n"
"       n[f] = import netmail from text file f (or use stdin)\n"
101
102
103
104
105
"       s    = display msg base status\n"
"       c    = change msg base status\n"
"       m    = maintain msg base - delete old msgs and msgs over max\n"
"       p[k] = pack msg base (k specifies minimum packable Kbytes)\n"
"opts:\n"
rswindell's avatar
rswindell committed
106
"       c    = create message base if it doesn't exist\n"
107
"       a    = always pack msg base (disable compression analysis)\n"
108
"       i    = ignore duplicate messages (do not store CRC)\n"
109
"       d    = use default values (no prompt) for to, from, and subject\n"
110
111
112
113
114
115
"       t<s> = set 'to' user name for imported message\n"
"       n<s> = set 'to' netmail address for imported message\n"
"       u<s> = set 'to' user number for imported message\n"
"       f<s> = set 'from' user name for imported message\n"
"       e<s> = set 'from' user number for imported message\n"
"       s<s> = set 'subject' for imported message\n"
116
117
118
"       z[n] = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)\n"
;

119
120
121
122
123
124
/*****************************************************************************/
// Expands Unix LF to CRLF
/*****************************************************************************/
ulong lf_expand(BYTE* inbuf, ulong inlen, BYTE* outbuf)
{
	ulong	i,j;
rswindell's avatar
rswindell committed
125

126
127
128
129
130
131
132
	for(i=j=0;i<inlen;i++) {
		if(inbuf[i]=='\n' && (!i || inbuf[i-1]!='\r'))
			outbuf[j++]='\r';
		outbuf[j++]=inbuf[i];
	}
	return(j);
}
rswindell's avatar
rswindell committed
133

134
135
136
/****************************************************************************/
/* Adds a new message to the message base									*/
/****************************************************************************/
137
138
void postmsg(char type, char* to, char* to_number, char* to_address, 
			 char* from, char* from_number, char* subject, FILE* fp)
139
{
140
141
142
143
	char	str[128];
	char	buf[128];
	char	pad=0;
	char*	msgtxt=NULL;
144
	char*	newtxt;
145
	long	msgtxtlen;
146
	ushort	xlat,net;
147
148
149
	int 	i;
	long	l,length;
	ulong	offset,crc;
150
	ushort		agent=AGENT_SMBUTIL;
151
152
	smbmsg_t	msg;

153
154
155
156
157
158
159
	/* Read message text from stream (file or stdin) */
	msgtxtlen=0;
	while(!feof(fp)) {
		i=fread(buf,1,sizeof(buf),fp);
		if(i<1)
			break;
		if((msgtxt=(char*)realloc(msgtxt,msgtxtlen+i))==NULL) {
160
			fprintf(stderr,"\n\7malloc(%ld) failure\n",msgtxtlen+i);
161
162
163
164
165
166
			exit(1);
		}
		memcpy(msgtxt+msgtxtlen,buf,i);
		msgtxtlen+=i;
	}

167
168
169
170
171
172
173
174
175
176
	if((newtxt=(char*)malloc(msgtxtlen*2))==NULL) {
		fprintf(stderr,"\n\7malloc(%ld) failure\n",msgtxtlen*2);
		exit(1);
	}

	/* Expand LFs to CRLFs */
	msgtxtlen=lf_expand(msgtxt, msgtxtlen, newtxt);
	free(msgtxt);
	msgtxt=newtxt;

177
178
	/* Allocate space in message base */
	length=msgtxtlen+sizeof(xlat);	/* for translation string */
rswindell's avatar
rswindell committed
179
180
181
	if(!(smb.status.attr&SMB_HYPERALLOC)) {
		i=smb_open_da(&smb);
		if(i) {
182
			fprintf(stderr,"\n\7!smb_open_da returned %d: %s\n",i,smb.last_error);
183
184
			exit(1); 
		}
rswindell's avatar
rswindell committed
185
		offset=smb_allocdat(&smb,length,1);
186
187
		smb_close_da(&smb); 
	} else
rswindell's avatar
rswindell committed
188
189
190
191
		offset=smb_hallocdat(&smb);

	fseek(smb.sdt_fp,offset,SEEK_SET);
	xlat=XLAT_NONE;
192
193
194
195
	smb_fwrite(&xlat,sizeof(xlat),smb.sdt_fp);
	smb_fwrite(msgtxt,msgtxtlen,smb.sdt_fp);
	for(l=length;l%SDT_BLOCK_LEN;l++)
		smb_fwrite(&pad,1,smb.sdt_fp);
rswindell's avatar
rswindell committed
196
197
198
199
200
201
202
203
	fflush(smb.sdt_fp);

	memset(&msg,0,sizeof(smbmsg_t));
	msg.hdr.version=smb_ver();
	msg.hdr.when_written.time=time(NULL);
	msg.hdr.when_written.zone=tzone;
	msg.hdr.when_imported=msg.hdr.when_written;

204
	if(smb.status.max_crcs && !(mode&NOCRC)) {
205
206
207
208
		crc=0xffffffffUL;
		for(l=0;l<msgtxtlen;l++) 
			crc=ucrc32(msgtxt[l],crc);
		crc=~crc;
rswindell's avatar
rswindell committed
209
210
		i=smb_addcrc(&smb,crc);
		if(i) {
211
			fprintf(stderr,"\n\7!smb_addcrc returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
212
			smb_freemsgdat(&smb,offset,length,1);
213
214
215
			exit(1); 
		} 
	}
rswindell's avatar
rswindell committed
216
217
218

	msg.hdr.offset=offset;

219
220
	if(to==NULL) {
		printf("To User Name: ");
221
		fgets(str,sizeof(str),stdin); 
222
	} else
223
		SAFECOPY(str,to);
224

rswindell's avatar
rswindell committed
225
226
	truncsp(str);
	i=smb_hfield(&msg,RECIPIENT,(ushort)strlen(str),str);
227
	if(i) {
228
		fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
229
230
		smb_freemsgdat(&smb,offset,length,1);
		exit(1); }
rswindell's avatar
rswindell committed
231
232
233
	if(type=='E' || type=='N')
		smb.status.attr|=SMB_EMAIL;
	if(smb.status.attr&SMB_EMAIL) {
234
235
236
237
		if(to_number==NULL) {
			printf("To User Number (0=QWKnet or Internet): ");
			gets(str);
		} else
238
			SAFECOPY(str,to_number);
rswindell's avatar
rswindell committed
239
240
		truncsp(str);
		i=smb_hfield(&msg,RECIPIENTEXT,(ushort)strlen(str),str);
241
		if(i) {
242
			fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
243
			smb_freemsgdat(&smb,offset,length,1);
244
245
			exit(1); 
		}
rswindell's avatar
rswindell committed
246
247
248
		msg.idx.to=atoi(str); }
	else {
		strlwr(str);
249
		msg.idx.to=crc16(str,0); 
250
	}
rswindell's avatar
rswindell committed
251
252

	if(smb.status.attr&SMB_EMAIL && (type=='N' || !msg.idx.to)) {
253
254
255
256
		if(to_address==NULL) {
			printf("To Address: ");
			gets(str);
		} else
257
			SAFECOPY(str,to_address);
rswindell's avatar
rswindell committed
258
259
260
261
262
263
264
265
		truncsp(str);
		if(*str) {
			if(strchr(str,'.'))
				net=NET_INTERNET;
			else
				net=NET_QWK;
			i=smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
			if(i) {
266
				fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
267
268
269
270
				smb_freemsgdat(&smb,offset,length,1);
				exit(1); }
			i=smb_hfield(&msg,RECIPIENTNETADDR,(ushort)strlen(str),str);
			if(i) {
271
				fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
272
				smb_freemsgdat(&smb,offset,length,1);
273
274
275
276
				exit(1); 
			} 
		} 
	}
rswindell's avatar
rswindell committed
277

278
279
280
281
	if(from==NULL) {
		printf("From User Name: ");
		gets(str);
	} else
282
		SAFECOPY(str,from);
rswindell's avatar
rswindell committed
283
284
285
	truncsp(str);
	i=smb_hfield(&msg,SENDER,(ushort)strlen(str),str);
	if(i) {
286
		fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
287
288
289
		smb_freemsgdat(&smb,offset,length,1);
		exit(1); }
	if(smb.status.attr&SMB_EMAIL) {
290
291
292
293
		if(from_number==NULL) {
			printf("From User Number: ");
			gets(str);
		} else
294
			SAFECOPY(str,from_number);
rswindell's avatar
rswindell committed
295
296
		truncsp(str);
		i=smb_hfield(&msg,SENDEREXT,(ushort)strlen(str),str);
297
		if(i) {
298
			fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
299
			smb_freemsgdat(&smb,offset,length,1);
300
301
302
303
			exit(1); 
		}
		msg.idx.from=atoi(str); 
	} else {
rswindell's avatar
rswindell committed
304
		strlwr(str);
305
		msg.idx.from=crc16(str,0); 
306
	}
307
	smb_hfield(&msg, SENDERAGENT, sizeof(agent), &agent);
rswindell's avatar
rswindell committed
308

309
310
311
312
	if(subject==NULL) {
		printf("Subject: ");
		gets(str);
	} else
313
		SAFECOPY(str,subject);
rswindell's avatar
rswindell committed
314
315
	truncsp(str);
	i=smb_hfield(&msg,SUBJECT,(ushort)strlen(str),str);
316
	if(i) {
317
		fprintf(stderr,"\n\7!smb_hfield returned %d: %s\n",i,smb.last_error);
318
		smb_freemsgdat(&smb,offset,length,1);
319
320
		exit(1); 
	}
321
	msg.idx.subj=subject_crc(str);
rswindell's avatar
rswindell committed
322
323
324

	i=smb_dfield(&msg,TEXT_BODY,length);
	if(i) {
325
		fprintf(stderr,"\n\7!smb_dfield returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
326
327
328
		smb_freemsgdat(&smb,offset,length,1);
		exit(1); }

329
	sprintf(str,"SMBUTIL %s-%s r%s %s %s"
330
331
332
333
334
335
336
337
		,SMBUTIL_VER
		,PLATFORM_DESC
		,revision
		,__DATE__
		,compiler
		);
	smb_hfield(&msg,FIDOPID,(ushort)strlen(str),str);

rswindell's avatar
rswindell committed
338
339
340
	i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);

	if(i) {
341
		fprintf(stderr,"\n\7!smb_addmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
342
343
344
		smb_freemsgdat(&smb,offset,length,1);
		exit(1); }
	smb_freemsgmem(&msg);
345

346
	free(msgtxt);
347
348
349
350
351
}

/****************************************************************************/
/* Shows the message base header											*/
/****************************************************************************/
352
void showstatus(void)
353
354
355
{
	int i;

rswindell's avatar
rswindell committed
356
357
	i=smb_locksmbhdr(&smb);
	if(i) {
358
		fprintf(stderr,"\n\7!smb_locksmbhdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
359
360
361
362
		return; }
	i=smb_getstatus(&smb);
	smb_unlocksmbhdr(&smb);
	if(i) {
363
		fprintf(stderr,"\n\7!smb_getstatus returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
		return; }
	printf("last_msg        =%lu\n"
		   "total_msgs      =%lu\n"
		   "header_offset   =%lu\n"
		   "max_crcs        =%lu\n"
		   "max_msgs        =%lu\n"
		   "max_age         =%u\n"
		   "attr            =%04Xh\n"
		   ,smb.status.last_msg
		   ,smb.status.total_msgs
		   ,smb.status.header_offset
		   ,smb.status.max_crcs
		   ,smb.status.max_msgs
		   ,smb.status.max_age
		   ,smb.status.attr
		   );
380
381
382
383
384
}

/****************************************************************************/
/* Configure message base header											*/
/****************************************************************************/
385
void config(void)
386
387
388
389
{
	char max_msgs[128],max_crcs[128],max_age[128],header_offset[128],attr[128];
	int i;

rswindell's avatar
rswindell committed
390
391
	i=smb_locksmbhdr(&smb);
	if(i) {
392
		fprintf(stderr,"\n\7!smb_locksmbhdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
393
394
395
396
		return; }
	i=smb_getstatus(&smb);
	smb_unlocksmbhdr(&smb);
	if(i) {
397
		fprintf(stderr,"\n\7!smb_getstatus returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
		return; }
	printf("Header offset =%-5lu  New value (CR=No Change): "
		,smb.status.header_offset);
	gets(header_offset);
	printf("Max msgs      =%-5lu  New value (CR=No Change): "
		,smb.status.max_msgs);
	gets(max_msgs);
	printf("Max crcs      =%-5lu  New value (CR=No Change): "
		,smb.status.max_crcs);
	gets(max_crcs);
	printf("Max age       =%-5u  New value (CR=No Change): "
		,smb.status.max_age);
	gets(max_age);
	printf("Attributes    =%-5u  New value (CR=No Change): "
		,smb.status.attr);
	gets(attr);
	i=smb_locksmbhdr(&smb);
	if(i) {
416
		fprintf(stderr,"\n\7!smb_locksmbhdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
417
418
419
		return; }
	i=smb_getstatus(&smb);
	if(i) {
420
		fprintf(stderr,"\n\7!smb_getstatus returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
421
422
423
424
425
426
427
428
429
430
431
432
433
		smb_unlocksmbhdr(&smb);
		return; }
	if(isdigit(max_msgs[0]))
		smb.status.max_msgs=atol(max_msgs);
	if(isdigit(max_crcs[0]))
		smb.status.max_crcs=atol(max_crcs);
	if(isdigit(max_age[0]))
		smb.status.max_age=atoi(max_age);
	if(isdigit(header_offset[0]))
		smb.status.header_offset=atol(header_offset);
	if(isdigit(attr[0]))
		smb.status.attr=atoi(attr);
	i=smb_putstatus(&smb);
434
	smb_unlocksmbhdr(&smb);
rswindell's avatar
rswindell committed
435
	if(i)
436
		fprintf(stderr,"\n\7!smb_putstatus returned %d: %s\n",i,smb.last_error);
437
438
439
440
441
442
443
444
445
446
447
}

/****************************************************************************/
/* Lists messages' to, from, and subject                                    */
/****************************************************************************/
void listmsgs(ulong start, ulong count)
{
	int i;
	ulong l=0;
	smbmsg_t msg;

rswindell's avatar
rswindell committed
448
449
450
451
452
453
454
455
	if(!start)
		start=1;
	fseek(smb.sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
	while(l<count) {
		if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
			break;
		i=smb_lockmsghdr(&smb,&msg);
		if(i) {
456
			fprintf(stderr,"\n\7!smb_lockmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
457
458
459
460
			break; }
		i=smb_getmsghdr(&smb,&msg);
		smb_unlockmsghdr(&smb,&msg);
		if(i) {
461
			fprintf(stderr,"\n\7!smb_getmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
462
463
464
465
466
			break; }
		printf("%4lu %-25.25s %-25.25s %.20s\n"
			,msg.hdr.number,msg.from,msg.to,msg.subj);
		smb_freemsgmem(&msg);
		l++; }
467
468
469
470
471
472
473
474
475
476
}

char *binstr(uchar *buf, ushort length)
{
	static char str[512];
	char tmp[128];
	int i;

	str[0]=0;
	for(i=0;i<length;i++)
477
478
		if(buf[i] && (buf[i]<' ' || buf[i]>=0x7f) 
			&& buf[i]!='\r' && buf[i]!='\n' && buf[i]!='\t')
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
			break;
	if(i==length)		/* not binary */
		return(buf);
	for(i=0;i<length;i++) {
		sprintf(tmp,"%02X ",buf[i]);
		strcat(str,tmp); 
		if(i>=100) {
			strcat(str,"...");
			break;
		}
	}
	return(str);
}

/****************************************************************************/
/* Generates a 24 character ASCII string that represents the time_t pointer */
/* Used as a replacement for ctime()                                        */
/****************************************************************************/
497
char *my_timestr(time_t *intime)
498
499
500
501
502
{
    static char str[256];
    char mer[3],hour;
    struct tm *gm;

rswindell's avatar
rswindell committed
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
	gm=localtime(intime);
	if(gm==NULL) {
		strcpy(str,"Invalid Time");
		return(str); }
	if(gm->tm_hour>=12) {
		if(gm->tm_hour==12)
			hour=12;
		else
			hour=gm->tm_hour-12;
		strcpy(mer,"pm"); }
	else {
		if(gm->tm_hour==0)
			hour=12;
		else
			hour=gm->tm_hour;
		strcpy(mer,"am"); }
	sprintf(str,"%s %s %02d %4d %02d:%02d %s"
		,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
		,hour,gm->tm_min,mer);
	return(str);
523
524
525
526
527
528
529
530
531
532
533
}

/****************************************************************************/
/* Displays message header information										*/
/****************************************************************************/
void viewmsgs(ulong start, ulong count)
{
	int i;
	ulong l=0;
	smbmsg_t msg;

rswindell's avatar
rswindell committed
534
535
536
537
538
539
540
541
	if(!start)
		start=1;
	fseek(smb.sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
	while(l<count) {
		if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
			break;
		i=smb_lockmsghdr(&smb,&msg);
		if(i) {
542
			fprintf(stderr,"\n\7!smb_lockmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
543
544
545
546
			break; }
		i=smb_getmsghdr(&smb,&msg);
		smb_unlockmsghdr(&smb,&msg);
		if(i) {
547
			fprintf(stderr,"\n\7!smb_getmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
548
			break; }
549

550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
		printf("%-16.16s %ld\n"		,"index record",ftell(smb.sid_fp)/sizeof(idxrec_t));
		printf("%-16.16s %ld\n"		,"number"			,msg.hdr.number);

		/* convenience strings */
		if(msg.subj)
			printf("%-16.16s %s\n"	,"subject"			,msg.subj);
		if(msg.to) {
			printf("%-16.16s %s"	,"to"				,msg.to);
			if(msg.to_net.addr && strchr(msg.to,'@')==NULL)
				printf(" (%s)",net_addr(&msg.to_net)); 
			if(msg.to_ext)
				printf(" #%s",msg.to_ext);
			printf("\n");
		}
		if(msg.from) {
			printf("%-16.16s %s"	,"from"				,msg.from);
			if(msg.from_net.addr && strchr(msg.from,'@')==NULL)
				printf(" (%s)",net_addr(&msg.from_net)); 
			if(msg.from_ext)
				printf(" #%s",msg.from_ext);
			printf("\n");
		}
		if(msg.replyto) {
			printf("%-16.16s %s"	,"reply-to"			,msg.replyto);
			if(msg.replyto_net.addr && strchr(msg.replyto,'@')==NULL)
				printf(" (%s)",net_addr(&msg.replyto_net)); 
			if(msg.replyto_ext)
				printf(" #%s",msg.replyto_ext);
			printf("\n");
		}
		if(msg.summary)
			printf("%-16.16s %s\n"	,"summary"			,msg.summary);

		/* optional fixed fields */
		if(msg.hdr.thread_orig)
			printf("%-16.16s %ld\n"	,"thread_orig"		,msg.hdr.thread_orig);
		if(msg.hdr.thread_next)
			printf("%-16.16s %ld\n"	,"thread_next"		,msg.hdr.thread_next);
		if(msg.hdr.thread_first)
			printf("%-16.16s %ld\n"	,"thread_first"		,msg.hdr.thread_first);
		if(msg.hdr.delivery_attempts)
			printf("%-16.16s %hu\n"	,"delivery_attempts",msg.hdr.delivery_attempts);
		if(msg.hdr.times_downloaded)
			printf("%-16.16s %lu\n"	,"times_downloaded"	,msg.hdr.times_downloaded);
		if(msg.hdr.last_downloaded)
			printf("%-16.16s %s\n"	,"last_downloaded"	,my_timestr((time_t*)&msg.hdr.last_downloaded));

		/* convenience integers */
		if(msg.cost)
			printf("%-16.16s %lu\n"	,"cost"				,msg.cost);
		if(msg.priority)
			printf("%-16.16s %lu\n"	,"priority"			,msg.priority);
		if(msg.expiration)
			printf("%-16.16s %s\n"	,"expiration"	
				,my_timestr((time_t *)&msg.expiration));

		printf("%-16.16s %s %s\n"	,"when_written"	
			,my_timestr((time_t *)&msg.hdr.when_written.time), zonestr(msg.hdr.when_written.zone));
		printf("%-16.16s %s %s\n"	,"when_imported"	
			,my_timestr((time_t *)&msg.hdr.when_imported.time), zonestr(msg.hdr.when_imported.zone));
		printf("%-16.16s %04Xh\n"	,"type"				,msg.hdr.type);
		printf("%-16.16s %04Xh\n"	,"version"			,msg.hdr.version);
		printf("%-16.16s %04Xh\n"	,"attr"				,msg.hdr.attr);
		printf("%-16.16s %08lXh\n"	,"auxattr"			,msg.hdr.auxattr);
		printf("%-16.16s %08lXh\n"	,"netattr"			,msg.hdr.netattr);
		printf("%-16.16s %06lXh\n"	,"header offset"	,msg.idx.offset);
		printf("%-16.16s %u\n"		,"header length"	,msg.hdr.length);

		/* variable fields */
		for(i=0;i<msg.total_hfields;i++)
			printf("%-16.16s %s\n"
				,smb_hfieldtype(msg.hfield[i].type)
				,binstr((uchar *)msg.hfield_dat[i],msg.hfield[i].length));
rswindell's avatar
rswindell committed
623

624
		printf("%-16.16s %06lXh\n"	,"data offset"		,msg.hdr.offset);
rswindell's avatar
rswindell committed
625
		for(i=0;i<msg.hdr.total_dfields;i++)
626
627
628
629
630
			printf("data field[%u]    %s, offset %lu, length %lu\n"
				,i
				,smb_dfieldtype(msg.dfield[i].type)
				,msg.dfield[i].offset
				,msg.dfield[i].length);
rswindell's avatar
rswindell committed
631
632
633
634

		printf("\n");
		smb_freemsgmem(&msg);
		l++; }
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
}

/****************************************************************************/
/* Maintain message base - deletes messages older than max age (in days)	*/
/* or messages that exceed maximum											*/
/****************************************************************************/
void maint(void)
{
	int i;
	ulong l,m,n,f,flagged=0;
	time_t now;
	smbmsg_t msg;
	idxrec_t HUGE16 *idx;

	printf("Maintaining %s\r\n",smb.file);
	now=time(NULL);
	i=smb_locksmbhdr(&smb);
	if(i) {
653
		fprintf(stderr,"\n\7!smb_locksmbhdr returned %d: %s\n",i,smb.last_error);
654
655
656
657
		return; }
	i=smb_getstatus(&smb);
	if(i) {
		smb_unlocksmbhdr(&smb);
658
		fprintf(stderr,"\n\7!smb_getstatus returned %d: %s\n",i,smb.last_error);
659
660
661
662
663
664
665
666
667
		return; }
	if(!smb.status.total_msgs) {
		smb_unlocksmbhdr(&smb);
		printf("Empty\n");
		return; }
	printf("Loading index...\n");
	if((idx=(idxrec_t *)LMALLOC(sizeof(idxrec_t)*smb.status.total_msgs))
		==NULL) {
		smb_unlocksmbhdr(&smb);
668
		fprintf(stderr,"\n\7!Error allocating %lu bytes of memory\n"
669
670
671
672
673
674
675
676
677
678
679
680
			,sizeof(idxrec_t)*smb.status.total_msgs);
		return; }
	fseek(smb.sid_fp,0L,SEEK_SET);
	for(l=0;l<smb.status.total_msgs;l++) {
		printf("%lu of %lu\r"
			,l+1,smb.status.total_msgs);
		if(!fread(&idx[l],1,sizeof(idxrec_t),smb.sid_fp))
			break; }
	printf("\nDone.\n\n");

	printf("Scanning for pre-flagged messages...\n");
	for(m=0;m<l;m++) {
rswindell's avatar
rswindell committed
681
		printf("\r%2lu%%",m ? (long)(100.0/((float)l/m)) : 0);
682
683
684
685
686
687
688
689
		if(idx[m].attr&MSG_DELETE)
			flagged++; }
	printf("\r100%% (%lu pre-flagged for deletion)\n",flagged);

	if(smb.status.max_age) {
		printf("Scanning for messages more than %u days old...\n"
			,smb.status.max_age);
		for(m=f=0;m<l;m++) {
rswindell's avatar
rswindell committed
690
			printf("\r%2lu%%",m ? (long)(100.0/((float)l/m)) : 0);
691
692
693
694
695
696
697
698
699
700
701
			if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
				continue;
			if((ulong)now>idx[m].time && (now-idx[m].time)/(24L*60L*60L)
				>smb.status.max_age) {
				f++;
				flagged++;
				idx[m].attr|=MSG_DELETE; } }  /* mark for deletion */
		printf("\r100%% (%lu flagged for deletion)\n",f); }

	printf("Scanning for read messages to be killed...\n");
	for(m=f=0;m<l;m++) {
rswindell's avatar
rswindell committed
702
		printf("\r%2lu%%",m ? (long)(100.0/((float)l/m)) : 0);
703
704
705
706
707
708
709
710
		if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
			continue;
		if((idx[m].attr&(MSG_READ|MSG_KILLREAD))==(MSG_READ|MSG_KILLREAD)) {
			f++;
			flagged++;
			idx[m].attr|=MSG_DELETE; } }
	printf("\r100%% (%lu flagged for deletion)\n",f);

711
	if(smb.status.max_msgs && l-flagged>smb.status.max_msgs) {
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
		printf("Flagging excess messages for deletion...\n");
		for(m=n=0,f=flagged;l-flagged>smb.status.max_msgs && m<l;m++) {
			if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
				continue;
			printf("%lu of %lu\r",++n,(l-f)-smb.status.max_msgs);
			flagged++;
			idx[m].attr|=MSG_DELETE; }			/* mark for deletion */
		printf("\nDone.\n\n"); }

	if(!flagged) {				/* No messages to delete */
		LFREE(idx);
		smb_unlocksmbhdr(&smb);
		return; }

	if(!(mode&NOANALYSIS)) {

		printf("Freeing allocated header and data blocks for deleted messages...\n");
		if(!(smb.status.attr&SMB_HYPERALLOC)) {
			i=smb_open_da(&smb);
			if(i) {
				smb_unlocksmbhdr(&smb);
733
				fprintf(stderr,"\n\7!smb_open_da returned %d: %s\n",i,smb.last_error);
734
735
736
737
				exit(1); }
			i=smb_open_ha(&smb);
			if(i) {
				smb_unlocksmbhdr(&smb);
738
				fprintf(stderr,"\n\7!smb_open_ha returned %d: %s\n",i,smb.last_error);
739
740
741
742
743
744
745
746
				exit(1); } }

		for(m=n=0;m<l;m++) {
			if(idx[m].attr&MSG_DELETE) {
				printf("%lu of %lu\r",++n,flagged);
				msg.idx=idx[m];
				msg.hdr.number=msg.idx.number;
				if((i=smb_getmsgidx(&smb,&msg))!=0) {
747
					fprintf(stderr,"\n\7!smb_getmsgidx returned %d: %s\n",i,smb.last_error);
748
749
750
					continue; }
				i=smb_lockmsghdr(&smb,&msg);
				if(i) {
751
					fprintf(stderr,"\n\7!smb_lockmsghdr returned %d: %s\n",i,smb.last_error);
752
753
754
					break; }
				if((i=smb_getmsghdr(&smb,&msg))!=0) {
					smb_unlockmsghdr(&smb,&msg);
755
					fprintf(stderr,"\n\7!smb_getmsghdr returned %d: %s\n",i,smb.last_error);
756
757
758
759
760
					break; }
				msg.hdr.attr|=MSG_DELETE;			/* mark header as deleted */
				if((i=smb_putmsg(&smb,&msg))!=0) {
					smb_freemsgmem(&msg);
					smb_unlockmsghdr(&smb,&msg);
761
					fprintf(stderr,"\n\7!smb_putmsg returned %d: %s\n",i,smb.last_error);
762
763
764
765
					break; }
				smb_unlockmsghdr(&smb,&msg);
				if((i=smb_freemsg(&smb,&msg))!=0) {
					smb_freemsgmem(&msg);
766
					fprintf(stderr,"\n\7!smb_freemsg returned %d: %s\n",i,smb.last_error);
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
					break; }
				smb_freemsgmem(&msg); } }
		if(!(smb.status.attr&SMB_HYPERALLOC)) {
			smb_close_ha(&smb);
			smb_close_da(&smb); }
		printf("\nDone.\n\n"); }

	printf("Re-writing index...\n");
	rewind(smb.sid_fp);
	if(chsize(fileno(smb.sid_fp),0L))
		printf("chsize failed!\n");
	for(m=n=0;m<l;m++) {
		if(idx[m].attr&MSG_DELETE)
			continue;
		printf("%lu of %lu\r",++n,l-flagged);
		fwrite(&idx[m],sizeof(idxrec_t),1,smb.sid_fp); }
	printf("\nDone.\n\n");
	fflush(smb.sid_fp);

	LFREE(idx);
	smb.status.total_msgs-=flagged;
	smb_putstatus(&smb);
	smb_unlocksmbhdr(&smb);
}


typedef struct {
	ulong old,new;
	} datoffset_t;

/****************************************************************************/
/* Removes all unused blocks from SDT and SHD files 						*/
/****************************************************************************/
void packmsgs(ulong packable)
{
	uchar str[128],buf[SDT_BLOCK_LEN],ch,fname[128],tmpfname[128];
	int i,size;
	ulong l,m,n,datoffsets=0,length,total,now;
	FILE *tmp_sdt,*tmp_shd,*tmp_sid;
806
	BOOL		error=FALSE;
807
808
809
810
	smbhdr_t	hdr;
	smbmsg_t	msg;
	datoffset_t *datoffset=NULL;

rswindell's avatar
rswindell committed
811
812
813
	now=time(NULL);
	printf("Packing %s\n",smb.file);
	i=smb_locksmbhdr(&smb);
814
	if(i) {
815
		fprintf(stderr,"\n\7!smb_locksmbhdr returned %d: %s\n",i,smb.last_error);
816
		return; }
rswindell's avatar
rswindell committed
817
	i=smb_getstatus(&smb);
818
819
	if(i) {
		smb_unlocksmbhdr(&smb);
820
		fprintf(stderr,"\n\7!smb_getstatus returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
821
822
		return; }

823
	if(!(smb.status.attr&SMB_HYPERALLOC)) {
rswindell's avatar
rswindell committed
824
825
826
		i=smb_open_ha(&smb);
		if(i) {
			smb_unlocksmbhdr(&smb);
827
			fprintf(stderr,"\n\7!smb_open_ha returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
828
829
830
831
832
			return; }
		i=smb_open_da(&smb);
		if(i) {
			smb_unlocksmbhdr(&smb);
			smb_close_ha(&smb);
833
			fprintf(stderr,"\n\7!smb_open_da returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
834
			return; } }
835

rswindell's avatar
rswindell committed
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
	if(!smb.status.total_msgs) {
		printf("Empty\n");
		rewind(smb.shd_fp);
		chsize(fileno(smb.shd_fp),smb.status.header_offset);
		rewind(smb.sdt_fp);
		chsize(fileno(smb.sdt_fp),0L);
		rewind(smb.sid_fp);
		chsize(fileno(smb.sid_fp),0L);
		if(!(smb.status.attr&SMB_HYPERALLOC)) {
			rewind(smb.sha_fp);
			chsize(fileno(smb.sha_fp),0L);
			rewind(smb.sda_fp);
			chsize(fileno(smb.sda_fp),0L);
			smb_close_ha(&smb);
			smb_close_da(&smb); }
		smb_unlocksmbhdr(&smb);
		return; }
853
854


rswindell's avatar
rswindell committed
855
856
	if(!(smb.status.attr&SMB_HYPERALLOC) && !(mode&NOANALYSIS)) {
		printf("Analyzing data blocks...\n");
857

rswindell's avatar
rswindell committed
858
		length=filelength(fileno(smb.sda_fp));
859

rswindell's avatar
rswindell committed
860
861
		fseek(smb.sda_fp,0L,SEEK_SET);
		for(l=m=0;l<length;l+=2) {
rswindell's avatar
rswindell committed
862
			printf("\r%2lu%%  ",l ? (long)(100.0/((float)length/l)) : 0);
rswindell's avatar
rswindell committed
863
864
865
866
867
			i=0;
			if(!fread(&i,2,1,smb.sda_fp))
				break;
			if(!i)
				m++; }
868

rswindell's avatar
rswindell committed
869
		printf("\rAnalyzing header blocks...\n");
870

rswindell's avatar
rswindell committed
871
		length=filelength(fileno(smb.sha_fp));
872

rswindell's avatar
rswindell committed
873
874
		fseek(smb.sha_fp,0L,SEEK_SET);
		for(l=n=0;l<length;l++) {
rswindell's avatar
rswindell committed
875
			printf("\r%2lu%%  ",l ? (long)(100.0/((float)length/l)) : 0);
rswindell's avatar
rswindell committed
876
877
878
879
880
881
882
883
884
885
886
887
			ch=0;
			if(!fread(&ch,1,1,smb.sha_fp))
				break;
			if(!ch)
				n++; }

		if(!m && !n) {
			printf("\rAlready compressed.\n\n");
			smb_close_ha(&smb);
			smb_close_da(&smb);
			smb_unlocksmbhdr(&smb);
			return; }
888

rswindell's avatar
rswindell committed
889
		if(packable && (m*SDT_BLOCK_LEN)+(n*SHD_BLOCK_LEN)<packable*1024L) {
890
			printf("\rLess than %luk compressible bytes.\n\n",packable);
rswindell's avatar
rswindell committed
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
			smb_close_ha(&smb);
			smb_close_da(&smb);
			smb_unlocksmbhdr(&smb);
			return; }

		printf("\rCompressing %lu data blocks (%lu bytes)\n"
				 "        and %lu header blocks (%lu bytes)\n"
				  ,m,m*SDT_BLOCK_LEN,n,n*SHD_BLOCK_LEN); }

	if(!(smb.status.attr&SMB_HYPERALLOC)) {
		rewind(smb.sha_fp);
		chsize(fileno(smb.sha_fp),0L);		/* Reset both allocation tables */
		rewind(smb.sda_fp);
		chsize(fileno(smb.sda_fp),0L); }

	if(smb.status.attr&SMB_HYPERALLOC && !(mode&NOANALYSIS)) {
		printf("Analyzing %s\n",smb.file);

		length=filelength(fileno(smb.shd_fp));
		m=n=0;
		for(l=smb.status.header_offset;l<length;l+=size) {
rswindell's avatar
rswindell committed
912
			printf("\r%2lu%%  ",(long)(100.0/((float)length/l)));
rswindell's avatar
rswindell committed
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
			msg.idx.offset=l;
			if((i=smb_lockmsghdr(&smb,&msg))!=0) {
				printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
				size=SHD_BLOCK_LEN;
				continue; }
			if((i=smb_getmsghdr(&smb,&msg))!=0) {
				smb_unlockmsghdr(&smb,&msg);
				m++;
				size=SHD_BLOCK_LEN;
				continue; }
			smb_unlockmsghdr(&smb,&msg);
			if(msg.hdr.attr&MSG_DELETE) {
				m+=smb_hdrblocks(msg.hdr.length);
				total=0;
				for(i=0;i<msg.hdr.total_dfields;i++)
					total+=msg.dfield[i].length;
				n+=smb_datblocks(total); }
			size=smb_getmsghdrlen(&msg);
			if(size<1) size=SHD_BLOCK_LEN;
			while(size%SHD_BLOCK_LEN)
				size++;
			smb_freemsgmem(&msg); }


		if(!m && !n) {
			printf("\rAlready compressed.\n\n");
			smb_unlocksmbhdr(&smb);
			return; }

		if(packable && (n*SDT_BLOCK_LEN)+(m*SHD_BLOCK_LEN)<packable*1024L) {
943
			printf("\rLess than %luk compressible bytes.\n\n",packable);
rswindell's avatar
rswindell committed
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
			smb_unlocksmbhdr(&smb);
			return; }

		printf("\rCompressing %lu data blocks (%lu bytes)\n"
				 "        and %lu header blocks (%lu bytes)\n"
				  ,n,n*SDT_BLOCK_LEN,m,m*SHD_BLOCK_LEN); }

	sprintf(fname,"%s.sd$",smb.file);
	tmp_sdt=fopen(fname,"wb");
	sprintf(fname,"%s.sh$",smb.file);
	tmp_shd=fopen(fname,"wb");
	sprintf(fname,"%s.si$",smb.file);
	tmp_sid=fopen(fname,"wb");
	if(!tmp_sdt || !tmp_shd || !tmp_sid) {
		smb_unlocksmbhdr(&smb);
		if(!(smb.status.attr&SMB_HYPERALLOC)) {
			smb_close_ha(&smb);
			smb_close_da(&smb); }
962
		fprintf(stderr,"\n\7!Error opening temp files\n");
rswindell's avatar
rswindell committed
963
964
965
966
967
968
969
970
		return; }
	setvbuf(tmp_sdt,NULL,_IOFBF,2*1024);
	setvbuf(tmp_shd,NULL,_IOFBF,2*1024);
	setvbuf(tmp_sid,NULL,_IOFBF,2*1024);
	if(!(smb.status.attr&SMB_HYPERALLOC)
		&& (datoffset=(datoffset_t *)LMALLOC(sizeof(datoffset_t)*smb.status.total_msgs))
		==NULL) {
		smb_unlocksmbhdr(&smb);
971
972
		smb_close_ha(&smb);
		smb_close_da(&smb);
rswindell's avatar
rswindell committed
973
974
975
		fclose(tmp_sdt);
		fclose(tmp_shd);
		fclose(tmp_sid);
976
		fprintf(stderr,"\n\7!Error allocating memory\n");
977
		return; }
rswindell's avatar
rswindell committed
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
	fseek(smb.shd_fp,0L,SEEK_SET);
	fread(&hdr,1,sizeof(smbhdr_t),smb.shd_fp);
	fwrite(&hdr,1,sizeof(smbhdr_t),tmp_shd);
	fwrite(&(smb.status),1,sizeof(smbstatus_t),tmp_shd);
	for(l=sizeof(smbhdr_t)+sizeof(smbstatus_t);l<smb.status.header_offset;l++) {
		fread(&ch,1,1,smb.shd_fp);			/* copy additional base header records */
		fwrite(&ch,1,1,tmp_shd); }
	fseek(smb.sid_fp,0L,SEEK_SET);
	total=0;
	for(l=0;l<smb.status.total_msgs;l++) {
		printf("%lu of %lu\r",l+1,smb.status.total_msgs);
		if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
			break;
		if(msg.idx.attr&MSG_DELETE) {
			printf("\nDeleted index.\n");
993
			continue; }
rswindell's avatar
rswindell committed
994
995
		i=smb_lockmsghdr(&smb,&msg);
		if(i) {
996
			fprintf(stderr,"\n\7!smb_lockmsghdr returned %d: %s\n",i,smb.last_error);
997
			continue; }
rswindell's avatar
rswindell committed
998
		i=smb_getmsghdr(&smb,&msg);
999
		smb_unlockmsghdr(&smb,&msg);
rswindell's avatar
rswindell committed
1000
		if(i) {
1001
			fprintf(stderr,"\n\7!smb_getmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
1002
			continue; }
1003
		if(msg.hdr.attr&MSG_DELETE) {
rswindell's avatar
rswindell committed
1004
1005
1006
			printf("\nDeleted header.\n");
			smb_freemsgmem(&msg);
			continue; }
1007
		if(msg.expiration && msg.expiration<=now) {
rswindell's avatar
rswindell committed
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
			printf("\nExpired message.\n");
			smb_freemsgmem(&msg);
			continue; }
		for(m=0;m<datoffsets;m++)
			if(msg.hdr.offset==datoffset[m].old)
				break;
		if(m<datoffsets) {				/* another index pointed to this data */
			printf("duplicate index\n");
			msg.hdr.offset=datoffset[m].new;
			smb_incdat(&smb,datoffset[m].new,smb_getmsgdatlen(&msg),1); }
		else {
1019

rswindell's avatar
rswindell committed
1020
1021
1022
1023
1024
1025
1026
			if(!(smb.status.attr&SMB_HYPERALLOC))
				datoffset[datoffsets].old=msg.hdr.offset;

			fseek(smb.sdt_fp,msg.hdr.offset,SEEK_SET);

			m=smb_getmsgdatlen(&msg);
			if(m>16L*1024L*1024L) {
1027
				fprintf(stderr,"\n\7!Invalid data length (%lu)\n",m);
rswindell's avatar
rswindell committed
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
				continue; }

			if(!(smb.status.attr&SMB_HYPERALLOC)) {
				datoffset[datoffsets].new=msg.hdr.offset
					=smb_fallocdat(&smb,m,1);
				datoffsets++;
				fseek(tmp_sdt,msg.hdr.offset,SEEK_SET); }
			else {
				fseek(tmp_sdt,0L,SEEK_END);
				msg.hdr.offset=ftell(tmp_sdt); }

			/* Actually copy the data */

			n=smb_datblocks(m);
			for(m=0;m<n;m++) {
				fread(buf,1,SDT_BLOCK_LEN,smb.sdt_fp);
				if(!m && *(ushort *)buf!=XLAT_NONE && *(ushort *)buf!=XLAT_LZH) {
					printf("\nUnsupported translation type (%04X)\n"
						,*(ushort *)buf);
					break; }
				fwrite(buf,1,SDT_BLOCK_LEN,tmp_sdt); }
			if(m<n)
				continue; }

		/* Write the new index entry */
		length=smb_getmsghdrlen(&msg);
		if(smb.status.attr&SMB_HYPERALLOC)
			msg.idx.offset=ftell(tmp_shd);
		else
			msg.idx.offset=smb_fallochdr(&smb,length)+smb.status.header_offset;
		msg.idx.number=msg.hdr.number;
		msg.idx.attr=msg.hdr.attr;
		msg.idx.time=msg.hdr.when_imported.time;
1061
		msg.idx.subj=subject_crc(msg.subj);
rswindell's avatar
rswindell committed
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
		if(smb.status.attr&SMB_EMAIL) {
			if(msg.to_ext)
				msg.idx.to=atoi(msg.to_ext);
			else
				msg.idx.to=0;
			if(msg.from_ext)
				msg.idx.from=atoi(msg.from_ext);
			else
				msg.idx.from=0; }
		else {
1072
			SAFECOPY(str,msg.to);
rswindell's avatar
rswindell committed
1073
			strlwr(str);
1074
			msg.idx.to=crc16(str,0);
1075
			SAFECOPY(str,msg.from);
rswindell's avatar
rswindell committed
1076
			strlwr(str);
1077
			msg.idx.from=crc16(str,0); }
rswindell's avatar
rswindell committed
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
		fwrite(&msg.idx,1,sizeof(idxrec_t),tmp_sid);

		/* Write the new header entry */
		fseek(tmp_shd,msg.idx.offset,SEEK_SET);
		fwrite(&msg.hdr,1,sizeof(msghdr_t),tmp_shd);
		for(n=0;n<msg.hdr.total_dfields;n++)
			fwrite(&msg.dfield[n],1,sizeof(dfield_t),tmp_shd);
		for(n=0;n<msg.total_hfields;n++) {
			fwrite(&msg.hfield[n],1,sizeof(hfield_t),tmp_shd);
			fwrite(msg.hfield_dat[n],1,msg.hfield[n].length,tmp_shd); }
		while(length%SHD_BLOCK_LEN) {	/* pad with NULLs */
			fputc(0,tmp_shd);
			length++; }
		total++;
		smb_freemsgmem(&msg); }
1093

rswindell's avatar
rswindell committed
1094
1095
	if(datoffset)
		LFREE(datoffset);
1096
1097
1098
	if(!(smb.status.attr&SMB_HYPERALLOC)) {
		smb_close_ha(&smb);
		smb_close_da(&smb); }
rswindell's avatar
rswindell committed
1099
1100
1101

	/* Change *.sh$ into *.shd */
	fclose(smb.shd_fp);
1102
	fclose(tmp_shd);
rswindell's avatar
rswindell committed
1103
	sprintf(fname,"%s.shd",smb.file);
1104
1105
	if(remove(fname)!=0) {
		error=TRUE;
1106
		fprintf(stderr,"\n\7!Error %d removing %s\n",errno,fname);
1107
	}
rswindell's avatar
rswindell committed
1108
	sprintf(tmpfname,"%s.sh$",smb.file);
1109
1110
	if(!error && rename(tmpfname,fname)!=0) {
		error=TRUE;
1111
		fprintf(stderr,"\n\7!Error %d renaming %s to %s\n",errno,tmpfname,fname);
1112
	}
1113
1114


rswindell's avatar
rswindell committed
1115
1116
1117
1118
	/* Change *.sd$ into *.sdt */
	fclose(smb.sdt_fp);
	fclose(tmp_sdt);
	sprintf(fname,"%s.sdt",smb.file);
1119
1120
	if(!error && remove(fname)!=0) {
		error=TRUE;
1121
		fprintf(stderr,"\n\7!Error %d removing %s\n",errno,fname);
1122
	}
1123

rswindell's avatar
rswindell committed
1124
	sprintf(tmpfname,"%s.sd$",smb.file);
1125
1126
	if(!error && rename(tmpfname,fname)!=0) {
		error=TRUE;
1127
		fprintf(stderr,"\n\7!Error %d renaming %s to %s\n",errno,tmpfname,fname);
1128
	}
1129

rswindell's avatar
rswindell committed
1130
1131
1132
1133
	/* Change *.si$ into *.sid */
	fclose(smb.sid_fp);
	fclose(tmp_sid);
	sprintf(fname,"%s.sid",smb.file);
1134
1135
	if(!error && remove(fname)!=0) {
		error=TRUE;
1136
		fprintf(stderr,"\n\7!Error %d removing %s\n",errno,fname);
1137
	}
1138

rswindell's avatar
rswindell committed
1139
	sprintf(tmpfname,"%s.si$",smb.file);
1140
1141
	if(!error && rename(tmpfname,fname)!=0) {
		error=TRUE;
1142
		fprintf(stderr,"\n\7!Error %d renaming %s to %s\n",errno,tmpfname,fname);
1143
	}
1144

rswindell's avatar
rswindell committed
1145
	if((i=smb_open(&smb))!=0) {
1146
		fprintf(stderr,"\n\7!Error %d reopening %s\n",i,smb.file);
rswindell's avatar
rswindell committed
1147
		return; }
1148

rswindell's avatar
rswindell committed
1149
1150
	smb.status.total_msgs=total;
	if((i=smb_putstatus(&smb))!=0)
1151
		fprintf(stderr,"\n\7!smb_putstatus returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
1152
	printf("\nDone.\n\n");
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
}


/****************************************************************************/
/* Read messages in message base											*/
/****************************************************************************/
void readmsgs(ulong start)
{
	char	HUGE16 *inbuf;
	int 	i,done=0,domsg=1;
	smbmsg_t msg;

rswindell's avatar
rswindell committed
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
	if(start)
		msg.offset=start-1;
	else
		msg.offset=0;
	while(!done) {
		if(domsg) {
			fseek(smb.sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
			if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
				break;
			i=smb_lockmsghdr(&smb,&msg);
			if(i) {
1176
				fprintf(stderr,"\n\7!smb_lockmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
1177
1178
1179
				break; }
			i=smb_getmsghdr(&smb,&msg);
			if(i) {
1180
				fprintf(stderr,"\n\7!smb_getmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
1181
				break; }
1182

rswindell's avatar
rswindell committed
1183
1184
1185
1186
1187
			printf("\n%lu (%lu)\n",msg.hdr.number,msg.offset+1);
			printf("Subj : %s\n",msg.subj);
			printf("To   : %s",msg.to);
			if(msg.to_net.type)
				printf(" (%s)",msg.to_net.type==NET_FIDO
1188
					? faddrtoa((fidoaddr_t *)msg.to_net.addr,NULL) : (char*)msg.to_net.addr);
rswindell's avatar
rswindell committed
1189
1190
1191
			printf("\nFrom : %s",msg.from);
			if(msg.from_net.type)
				printf(" (%s)",msg.from_net.type==NET_FIDO
1192
					? faddrtoa((fidoaddr_t *)msg.from_net.addr,NULL)
rswindell's avatar
rswindell committed
1193
						: (char*)msg.from_net.addr);
rswindell's avatar
rswindell committed
1194
			printf("\nDate : %.24s %s"
1195
				,my_timestr((time_t*)&msg.hdr.when_written.time)
rswindell's avatar
rswindell committed
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
				,zonestr(msg.hdr.when_written.zone));

			printf("\n\n");

			if((inbuf=smb_getmsgtxt(&smb,&msg,GETMSGTXT_TAILS))!=NULL) {
				printf("%s",inbuf);
				FREE(inbuf); }

			i=smb_unlockmsghdr(&smb,&msg);
			if(i) {
1206
				fprintf(stderr,"\n\7!smb_unlockmsghdr returned %d: %s\n",i,smb.last_error);
rswindell's avatar
rswindell committed
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
				break; }
			smb_freemsgmem(&msg); }
		domsg=1;
		printf("\nReading %s (?=Menu): ",smb.file);
		switch(toupper(getch())) {
			case '?':
				printf("\n"
					   "\n"
					   "(R)e-read current message\n"
					   "(L)ist messages\n"
					   "(T)en more titles\n"
					   "(V)iew message headers\n"
					   "(Q)uit\n"
					   "(+/-) Forward/Backward\n"
					   "\n");
				domsg=0;
				break;
			case 'Q':
				printf("Quit\n");
				done=1;
				break;
			case 'R':
				printf("Re-read\n");
				bre