*** 1.4 1993/02/25 20:05:09 --- README 1993/04/18 00:57:04 *************** *** 16,19 **** the Makefile, "make" to build the script and man page, and "make install" to install. ! $Id: README,v 1.4 1993/02/25 20:05:09 jik Exp $ --- 16,24 ---- the Makefile, "make" to build the script and man page, and "make install" to install. ! The most recent version of this program is available via anonymous ! ftp to rtfm.mit.edu, in /pub/post_faq, or via mail to ! mail-server@rtfm.mit.edu (send a message with "help" in the body for ! more information). ! ! $Id: README,v 1.6 1993/04/18 00:56:59 jik Exp $ *** 1.14 1993/02/25 20:04:58 --- Makefile.base 1993/03/17 17:20:24 *************** *** 5,11 **** # Makefile and changes to allow easy configuration provided by David # Lamb . # ! # $Id: Makefile.base,v 1.14 1993/02/25 20:04:58 jik Exp $ BINDIR=#bindir# MANDIR=#mandir# --- 5,11 ---- # Makefile and changes to allow easy configuration provided by David # Lamb . # ! # $Id: Makefile.base,v 1.15 1993/03/17 17:20:18 jik Exp $ BINDIR=#bindir# MANDIR=#mandir# *************** *** 41,47 **** install -c -m 0644 faqfile.pl ${DESTDIR}${LIBDIR}/faqfile.pl clean: ! rm -f ${GENFILES} post_faq.shar shar: $(SHARS) shar $(SHARS) > post_faq.shar --- 41,47 ---- install -c -m 0644 faqfile.pl ${DESTDIR}${LIBDIR}/faqfile.pl clean: ! rm -f ${GENFILES} *~ post_faq.shar shar: $(SHARS) shar $(SHARS) > post_faq.shar *** 1.9 1993/02/25 20:05:31 --- config.dat.in 1993/03/08 20:16:47 *************** *** 23,29 **** perl /usr/local/bin/perl # The host name to put into Message IDs after the '@' ! idhost Aktis.COM # The defaut NNTP server (if not using NNTP, this setting does not # matter) --- 23,29 ---- perl /usr/local/bin/perl # The host name to put into Message IDs after the '@' ! idhost GZA.COM # The defaut NNTP server (if not using NNTP, this setting does not # matter) *** 1.29 1993/02/24 22:58:53 --- post_faq.pl.base 1993/05/14 19:37:13 *************** *** 3,9 **** # Copy the file post_faq.mit to post_faq.dat, and edit it for local conditions, # especially where to find perl. # ! # $Id: post_faq.pl.base,v 1.29 1993/02/24 22:58:53 jik Exp $ # # Copyright (c) 1991 Jonathan I. Kamens. See the GNU Public License # (any version) for terms of distribution. --- 3,9 ---- # Copy the file post_faq.mit to post_faq.dat, and edit it for local conditions, # especially where to find perl. # ! # $Id: post_faq.pl.base,v 1.30 1993/05/14 19:36:57 jik Exp $ # # Copyright (c) 1991 Jonathan I. Kamens. See the GNU Public License # (any version) for terms of distribution. *************** *** 185,200 **** print "Interval expired; posting $idname.\n" if ($quiet < 1); } ! open(INEWS, "|$inews"); open(FAQ, $file) || ! (warn "Opening $file (for $idname): $!.\n", goto nextone); printf(INEWS "Message-ID: %s\n", &message_id($idname, $newstamp, $idhost)) || ! (warn "Printing to $inews pipe: $!.\n", goto nextone); if ($oldstamp) { printf(INEWS "Supersedes: %s\n", &message_id($idname, $oldstamp, $idhost)) || ! (warn "Printing to $inews pipe: $!.\n", goto nextone); } if ($interval > 0) { ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = --- 185,200 ---- print "Interval expired; posting $idname.\n" if ($quiet < 1); } ! $inews_pid = open(INEWS, "|$inews"); open(FAQ, $file) || ! (warn("Opening $file (for $idname): $!.\n"), goto nextone); printf(INEWS "Message-ID: %s\n", &message_id($idname, $newstamp, $idhost)) || ! (warn("Printing to $inews pipe: $!.\n"), goto nextone); if ($oldstamp) { printf(INEWS "Supersedes: %s\n", &message_id($idname, $oldstamp, $idhost)) || ! (warn("Printing to $inews pipe: $!.\n"), goto nextone); } if ($interval > 0) { ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = *************** *** 203,215 **** $year += 1900; printf(INEWS "Expires: %d %s %d %02d:%02d:%02d GMT\n", $mday, $months[$mon], $year, $hour, $min, $sec) || ! (warn "Printing to $inews pipe: $!.\n", goto nextone); } if ($parent) { printf(INEWS "References: %s\n", &message_id($parent, &faqfile'timestamp($parent), $idhost)) || ! (warn "Printing to $inews pipe: $!.\n", goto nextone); } while () { --- 203,215 ---- $year += 1900; printf(INEWS "Expires: %d %s %d %02d:%02d:%02d GMT\n", $mday, $months[$mon], $year, $hour, $min, $sec) || ! (warn("Printing to $inews pipe: $!.\n"), goto nextone); } if ($parent) { printf(INEWS "References: %s\n", &message_id($parent, &faqfile'timestamp($parent), $idhost)) || ! (warn("Printing to $inews pipe: $!.\n"), goto nextone); } while () { *************** *** 230,249 **** $_ = $` . $newid . $'; #` } print INEWS $_ || ! (warn "Printing to $inews pipe: $!.\n", goto nextone); } if ($sigfile && ($sigfile ne "none")) { ! open(SIGFILE, $sigfile) || warn "Opening \"$sigfile\": $!.\nSignature will not be included on $idname.\n"; - print INEWS "-- \n" || - (warn "Printing to $inews pipe: $!.\n", goto nextone); - while () { - print INEWS $_ || - (warn "Printing to $inews pipe: $!.\n", goto nextone); } } close(INEWS); if ($?) { warn "$inews exited with non-zero status posting $idname.\n"; goto nextone; --- 230,253 ---- $_ = $` . $newid . $'; #` } print INEWS $_ || ! (warn("Printing to $inews pipe: $!.\n"), goto nextone); } if ($sigfile && ($sigfile ne "none")) { ! if (! open(SIGFILE, $sigfile)) { warn "Opening \"$sigfile\": $!.\nSignature will not be included on $idname.\n"; } + else { + print INEWS "-- \n" || + (warn("Printing to $inews pipe: $!.\n"), goto nextone); + while () { + print INEWS $_ || + (warn("Printing to $inews pipe: $!.\n"), goto nextone); + } + } } close(INEWS); + $inews_pid = undef; if ($?) { warn "$inews exited with non-zero status posting $idname.\n"; goto nextone; *************** *** 267,272 **** --- 271,277 ---- if ($quiet < 1); } nextone: + kill('TERM', $inews_pid) if ($inews_pid); print CONFIGOUT &faqfile'configline($idname), "\n" || die "Writing to $configout: $!.\n"; } *** 1.5 1993/02/25 20:07:07 --- PATCHLEVEL 1993/05/14 19:37:26 *************** *** 1 **** ! 5 --- 1 ---- ! 6