Skip site navigation (1)Skip section navigation (2) 
Date:      Wed, 30 Aug 1995 00:50:43 +0800 (CST)
From:      Chien-Ta Lee <jdli@linux.csie.nctu.edu.tw>
To:        freebsd-hackers@FreeBSD.ORG
Subject:   Solution : How to read mailing-list via newsgroups
Message-ID:  <199508291650.AAA15721@linux.csie.nctu.edu.tw>
next in thread | raw e-mail | index | archive | help 

	Hi :

	I am now reading FreeBSD mailing-list via newsgroups, but this
	is a small local news server setup myself.
	Here is a little perl script to "post" mails onto newsgroups,
	we call it "mail-post.pl".

	How to use this ?
	1. create freebsd mailing-list newsgroups
	2. add new lines into /etc/aliases, like this ..
freebsd-cvs-all: "|/usr/lib/news/bin/mail-post.pl mailing.freebsd.cvs"
freebsd-announce: "|/usr/lib/news/bin/mail-post.pl mailing.freebsd.announce"
	(freebsd-announce is the alias to receive mails, you should
	 registe freebsd-announce@hostname to majordomo server;
	 mailing.freebsd.announce is the newsgroup name)

	Then you will be able to read mailing-list via newsgroups.  :)

	Problem: I use tin to read news, while I press "r" to reply posts,
	     it will NOT forward my reply mails to mailing-list, only
	     the author of that post can receive ur reply.
	     Add CC: by hand seems no use.  :(
	     Maybe tin needs a hack to do the forwarding. (at least when
	     I add CC: by hand)
	     Any idea ?

	Problem: Use tin to post on the mailing-list newsgroup will NOT
	     be sent to mailing-list.  It's ok I think.

-------< mail-post.pl >--------

#!/usr/bin/perl
$ENV{"NNTPSERVER"}="news.csie.nctu.edu.tw";

($program = $0) =~ s%.*/%%;

( $version  ) = $] =~ /(\d+\.\d+).*\nPatch level/;
die "$program: requires at least version 3 of perl\n" 
	if $version < 3;

$inews = "/usr/lib/news/inews";
$inews = "/usr/lib/news/inews" unless -x $inews;
die "$program: can't find inews\n"  unless -x $inews;
$iopts = "-h";


if ($#ARGV < 0) {  
    $newsgroup = "linux.test"; 
    # Default test newsgroup if there's none supplied.
    # we'll expect the newsgroup line in the body
} elsif ($#ARGV == 0) {  
    $newsgroup = $ARGV[0];
} else {
    die "usage: $program [newsgroup]\n";
} 

# in case inews dumps core or something crazy
$SIG{'PIPE'} = "plumber";
sub plumber { die "$program: \"$inews\" died prematurely!\n"; }

open (INEWS, "| $inews $iopts") ||
    die "$program: can't run $inews\n";

# header munging loop
while (<STDIN>) {
   last if /^$/;  

   # transform real from: line back to icky style
   s/^From:\s+(.*) <(.*)>/From: $2 ($1)/;

   # transform from_ line to path header; also works locally
   s/^From\s+(\S+)@(\S+).*/Path: $2!$1/
     || s/^From\s+(\S+)[^@]*$/Path: $1\n/;

   print INEWS 
       if /^(From|Subject):/i;
   $saw_subject |= ( $+ eq 'Subject' );
} 

warn "$program: didn't expect newsgroup in both headers and ARGV\n"
    if $newsgroup && $saw_newsgroup;

die "$program: didn't get newsgroup from either headers or ARGV\n"
    unless $newsgroup || $saw_newsgroup;

printf INEWS "Newsgroups: %s\n", $newsgroup if $newsgroup;
print  INEWS "Subject: Untitled\n" unless $saw_subject;
print  INEWS "\n";

print INEWS while <STDIN>;   # gobble rest of message

close INEWS;
exit $?;

------< CUT CUT CUT >-------

-- 

                                                 李 建 達  (Adonis) 交大資工
                                                 Mail: jdli@csie.nctu.edu.tw

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199508291650.AAA15721>