/* Modified 1/27/88 to handle more types of digests and

/* Modified 1/27/88 to handle more types of digests and
a compile-time option added (LONGNAME) which will cause
the default output file name to be <digest-name>.VOL.NUM
rather than the VOL.NUM form described below.

This has been tested with the Info-IBM, Info-Kermit, and
Info-CPM Digest formats.

This program should be called 'UNDIGEST' rather than 'DIGEST'
as it is below since there is a companion program in the
Simtel20 PD2:<UNIX.MAIL> directory (digest.c) that
creates a Digest file from individual messages.

The original documentation below has NOT been modified to
reflect these changes.

David Brown
[email protected]
*/
/*
DIGEST: (version 3) November, 1984

NAME:
Digest - reformats the ailist digest for use with "mail -f"

SYNOPSIS:
digest file [file]

DESCRIPTION:

digest takes the file name given in first argument and places the
reformatted file in the second argument, if given. If no output file
(2nd argument) is given, the output will be placed into a default file
whose name is of the form VOL.NUM where VOL and NUM are the volume and
number of the ailist digest fed in (e.g. 2.144,etc.).

A few notes:
(1) if only one argument is given, it is assumed to be the
input file. If no args are given, you get prompted for
for the input file, and the output is sent to the default
file construction.

(2) This has been tested only for use with the specific ailist/human-
nets format now in use. I will soon get around to adding
code to this program to handle other formats. When I do,
I will send it along.

(3) The input to this program must be A SINGLE AILIST
OR HUMAN-NETS DIGEST. If you have been stuffing all
your ailist digests into a single file, running this pgm
on that file will yield incorrect and unpredictable results.
The pgm is best used to manage the incoming stuff.

(4) the input file is left untouched (i.e. is not removed)

(5) digest does not work with piped input (a bug, sorry).
This has meant for me that I stick the day's ailist digest
into a temp file when I receive it over "mail", and then
later "digest" this temp file to get it into a suitable
form for "mail -f".

BUGS:
If there are ailist sub-entries which do not have a DATE:
field in the header, they will be appended to the entry
prior.

Any questions, suggestions or problems, etc. should be sent to

douglas stumberger
department of computer science
111 Cumington Street
boston, ma. 02215

csnet: des@bostonu
bitnet: csc10304@bostonu

*/

#include <stdio.h>

main(argc,argv)
int argc; char *argv[] ;
{
FILE *fpr, *fpw ;
char *lead, *fromline, temp[81], fname[81] ,
digest[81],vol[50],num[5] ;
register int done=0, gl ;

if (argc > 3) {
printf("Usage: %s file [file]\n",argv[0]) ;
exit(0);
}
if (argc == 1) {
printf("What file is the digest in? > ") ;
scanf("%s",fname) ;
}
else
strcpy(fname,argv[1]) ;

if ((fpr = fopen(fname,"r")) == NULL) {
printf("%s: No such file\n",fname) ;
exit(0) ;
}

#ifdef DEBUG
printf(" input file name is <%s>\n",fname) ;
#endif

lead = (char *) calloc(90,sizeof(char)) ;

get_line(fpr,lead) ; /* get the first line of file */

fromline = (char *) malloc(strlen(lead)+1) ;
strcpy(fromline,lead) ;

if (argc != 3) { /* no output file given -
find out vol/num for filename */

while ((lead[0] != '-') && (!done)) {
#ifdef DEBUG
printf("Scanning:%s",lead);
#endif
sscanf(lead,"%s %s",digest,temp) ;
if (!strcmp(temp,"Digest")) {
#ifdef DEBUG
printf("\nFound a match\n");
#endif
sscanf(lead,"%*s %*s %*s %*s %*s %*s %*s %s %*c %*s %s",
vol,num) ;
done++ ;
}
get_line(fpr,lead) ;
}

strcat(digest,".") ;
#ifndef LONGNAME
digest[0]='\0';
#endif
strcat(digest,vol) ;
strcat(digest,".") ;
strcat(digest,num) ;
}
else
strcpy(digest,argv[2]) ; /* output filename is third argument */

#ifdef DEBUG
printf("output file is <%s>",digest) ;
#endif

fclose(fpr) ;

#ifdef DEBUG
printf(" input file is <%s>\n",fname) ;
#endif

if ((fpr = fopen(fname,"r")) == NULL) {
printf("\nERROR: File will not rewind\n") ;
exit(0) ;
}

if ((fpw = fopen(digest,"w")) == NULL) {
printf("\nERROR: Output File will not open\n") ;
exit(0) ;
}

get_line(fpr,lead) ; /* copy the ailist header */

while (lead[0] != '-') { /* i.e. Law's message of the topics */
fprintf(fpw,"%s",lead) ;
get_line(fpr,lead) ;
}

gl = get_line(fpr,lead) ; /* do the body of the digest */
while (gl != EOF) {
sscanf(lead,"%s",temp) ;
if (!strcmp (temp,"Date:"))
fprintf(fpw,"%s",fromline) ;
fprintf(fpw,"%s",lead) ;
gl = get_line(fpr,lead) ;
}

printf("Re-formatted digest now in file <%s>\n",digest) ;
}

get_line (fp,s)
FILE *fp; char *s;
{
register int c,i=0 ;

while ((c != '\n') && (c != EOF)) {
c = getc(fp) ;
*(s+i++) = c ;
}
*(s+i++) = '\0' ;
return(c) ;
}