add Berkeley specific header

[unix-history] / usr / src / libexec / bugfiler / redist.c

/*
* Copyright (c) 1986, 1987 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
*/

#ifndef lint
static char sccsid[] = "@(#)redist.c    5.6 (Berkeley) %G%";
#endif /* not lint */

#include <sys/file.h>
#include <stdio.h>
#include <ctype.h>
#include <bug.h>

/*
* redist --
*      Redistribute a bug report to those people indicated in the
*      redistribution list file.
*/
redist()
{
       extern FILE     *dfp;           /* dist file fp */
       extern char     pfile[];        /* permanent bug file */
       register char   *C1, *C2;
       FILE    *pf, *popen();
       int     group;
       char    *index();

       (void)sprintf(bfr, "%s/%s", dir, DIST_FILE);
       if (!freopen(bfr, "r", stdin))
               return;
       for (pf = NULL, group = 0; gets(bfr);) {
               if (*bfr == COMMENT || isspace(*bfr) || !(C1 = index(bfr, ':')))
                       continue;
               *C1 = EOS;
               if (!strcmp(bfr, folder) || !strcmp(bfr, "all")) {
                       for (++C1; *C1 && (*C1 == ' ' || *C1 == '\t'); ++C1);
                       if (!*C1)                       /* if empty list */
                               continue;
                       if (!pf) {
                               if (!(pf = popen(MAIL_CMD, "w")))
                                       error("sendmail pipe failed.", CHN);
                               if (mailhead[SUBJ_TAG].found)
                                       fprintf(pf, "%s", mailhead[SUBJ_TAG].line);
                               else
                                       fputs("Subject: Untitled Bug Report\n", pf);
                               if (!mailhead[TO_TAG].line && mailhead[APPAR_TO_TAG].line)
                                       fprintf(pf, "To%s", index(mailhead[APPAR_TO_TAG].line, ':'));
                               fputs("Resent-To: ", pf);
                       }
                       /*
                        * write out first entry, then succeeding entries
                        * backward compatible, handles back slashes at end
                        * of line
                        */
                       if (group++)
                               fputs(", ", pf);
                       for (;;) {
                               if (C2 = index(C1, '\\'))
                                       *C2 = EOS;
                               fputs(C1, pf);
                               if (!gets(bfr) || *bfr != ' ' && *bfr != '\t')
                                       break;
                               for (C1 = bfr; *C1 && (*C1 == ' ' || *C1 == '\t'); ++C1);
                       }
               }
       }
       if (!pf)
               return;

       putc('\n', pf);

       rewind(dfp);
       /* add Reference header and copy bug report out */
       while (fgets(bfr, sizeof(bfr), dfp) && *bfr != '\n')
               fputs(bfr, pf);
       fprintf(pf, "\n%sReference: %s\n\n", mailhead[INDX_TAG].line, pfile);
       while (fgets(bfr, sizeof(bfr), dfp))
               fputs(bfr, pf);
       (void)pclose(pf);
}