* Copyright (c) 1986 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)redist.c 5.4 (Berkeley) 87/09/01";
* Redistribute a bug report to those people indicated in the
* redistribution list file.
extern FILE *dfp
; /* dist file fp */
extern char pfile
[]; /* permanent bug file */
register int first
; /* if first blank line */
sprintf(bfr
, "%s/%s", dir
, DIST_FILE
);
if (!freopen(bfr
, "r", stdin
))
for (;;) { /* get first part of entry */
if (*bfr
== COMMENT
|| *bfr
== ' ' || *bfr
== '\t' || !(C1
= index(bfr
, ':')))
if (!strcmp(bfr
, folder
))
for (++C1
;*C1
&& (*C1
== ' ' || *C1
== '\t');++C1
);
if (!(pf
= popen(MAIL_CMD
, "w")))
error("sendmail pipe failed.", CHN
);
if (mailhead
[SUBJ_TAG
].found
)
fprintf(pf
, "%s", mailhead
[SUBJ_TAG
].line
);
fputs("Subject: Untitled Bug Report\n", pf
);
if (mailhead
[TO_TAG
].line
== 0 && mailhead
[APPAR_TO_TAG
].line
!= 0)
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 (C2
= index(C1
, '\\'))
if (!gets(bfr
) || (*bfr
!= ' ' && *bfr
!= '\t'))
for (C1
= bfr
;*C1
&& (*C1
== ' ' || *C1
== '\t');++C1
);
for (first
= YES
;fgets(bfr
, sizeof(bfr
), dfp
);)
if (*bfr
== '\n' && first
) {
fprintf(pf
, "\n%sReference: %s\n", mailhead
[INDX_TAG
].line
, pfile
);