Acornell.2537
net.news
utzoo!decvax!ucbvax!ihnss!mhtsa!rabbit!npois!harpo!vax135!cornell!pavel
Sat Feb 27 15:17:01 1982
A better interface for netnews A
I submit for the USENET's perusal a copy of a C-shell script I use for
sending netnews.  It allows me to use the Berkeley Mailer with the
amenities that it affords, e.g. access to an editor, mail recording, etc.

I'd appreciate any comments folks might have (send them to me, however,
and not to the net), especially as to whether it will be obsoleted by
Version B of netnews.  I haven't had an opportunity to see Bnews so I don't
know how it differs.
	       \        /
		\/\  /\/
		/\ \/ /\
	       /  \  /  \
	       \   \/   /
		\  /\  /
		 \/  \/
		 /\  /\
		/  \/  \
	       /        \

	      Pavel Curtis
	 (decvax!cornell!pavel)
	  (Pavel.Cornell@Udel)
----------------------------------------------
File mknews:
----------------------------------------------
#
#	mknews - Submit an article to Version A netnews by way of Mail
#
#	Usage:
#		mknews newsgroup ...
#
#	NOTE:   Define an alias in your .mailrc file for "mknews"
#		as follows:
#			alias mknews /tmp/news.<yourname>
#		filling in your login name for <yourname>.
#
#	Author: Pavel Curtis, decvax!cornell!pavel or Pavel.Cornell@Udel
#

if ($#argv == 0) then
    echo "You must specify a news group (or list of news groups) to"
    echo "submit the article to."
    exit
endif

#	convert newsgroup list to a comma-separated list

set groups=$1
shift
while ($#argv > 0)
    set groups=${groups},$1
    shift
end

#	This assumes that your whoami works like Cornell's:
#		pavel (Cornell CS General VAX)

set name=`/usr/ucb/whoami`
set name=$name[1];
rm -f /tmp/news.$name

mail mknews

set subject=`grep "^Subject:" /tmp/news.$name`
shift subject

#	Strip off From, To, and Subject lines

ed - /tmp/news.$name << EnDoFiNpUt
1,3d
w
q
EnDoFiNpUt

(netnews -i $subject -n $groups < /tmp/news.$name;rm /tmp/news.$name) &