/*
 *  CATMBOX infile outfile
 */

#include <stdio.h>

char Buf[2048];
char *tailof();

main(ac, av)
char *av[];
{
    short len;
    FILE *fi;
    FILE *fo;
    char *baseFile = av[1];

    if (ac != 3) {
	puts("CATMBOX infile[.Z] outfile");
	exit(1);
    }
    len = strlen(av[1]);
    if (len >= 2 && stricmp(av[1] + len - 2, ".z") == 0) {
	sprintf(Buf, "compress <%s >%s -d", av[1], "ram:xx");
	Execute(Buf, NULL, NULL);
	av[1] = "ram:xx";
    }
    fi = fopen(av[1], "r");
    fo = fopen(av[2], "a");
    if (fi && fo) {
	fprintf(fo, "\nFILE: %s\n", tailof(baseFile));
	while (fgets(Buf, sizeof(Buf), fi)) {
	    if (strncmp(Buf, "From:", 5) == 0)
		fputs(Buf, fo);
	}
    }
    return(0);
}

char *
tailof(file)
char *file;
{
    char *ptr = file + strlen(file);

    while (ptr >= file) {
	if (*ptr == '/' || *ptr == ':')
	    break;
	--ptr;
    }
    return(ptr + 1);
}