v01i054: Newstool - use tooltool to read news using rn
Charles Mcgrew
mcgrew at dartagnan.rutgers.edu
Fri Jul 21 07:50:19 AEST 1989
Submitted-by: bowen%prg.oxford.ac.uk at nfsnet-relay.ac.uk
Posting-number: Volume 1, Issue 54
Archive-name: newstool
[ My newsposter refused to take this file as-was: the <esc> character
and ^G character was included, and it doesn't like it. I've
replaced the <esc> with "&" and the ^G with "~" - there are no other
&'s or ~'s in the file, so replace all "&" characters with escape
character and all "~" with control-g using your favorite editor
before unsharing. If anyone wants the original file mailed to them,
send me mail. - CWM]
Copyright (C) 1989 University of Oxford
Permission to copy without fee all or part of this material is granted
provided that the copies are not made or distributed for direct
commercial advantage, the University of Oxford copyright notice and the
title and its date appear, and notice is given that copying is by
permission of the University of Oxford or the original contributor.
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# README
# Makefile
# newstool
# newstool.1
# newsreader
# news.icon
# nonews.icon
# This archive created: Mon Apr 17 16:20:58 1989
# By: Jonathan "news" Bowen (Programming Research Group, Oxford University, UK)
export PATH; PATH=/bin:$PATH
echo shar: extracting "'README'" '(1403 characters)'
if test -f 'README'
then
echo shar: will not over-write existing file "'README'"
else
sed 's/^ X//' << \SHAR_EOF > 'README'
XThese files relate to the ``newstool'' command which
Xallows news to be read within a SunView window.
XThe software has only been tested on a Sun 3/50
Xusing the news reading program "rn". The files include:
X
X Makefile - makefile to install files *
X README - this file *
X news.icon - icon displayed when new news is present
X nonews.icon - icon display when there is no new news
X newsreader - main news reading csh script *
X newstool - start-up shell script *
X newstool.1 - manual page for tool *
X
X"newstool" is normally invoked by a user (e.g. in $HOME/.suntools
Xor $HOME/.rootmenu) and this in turn invokes "newsreader".
X
X* Note that some files are currently put under "/usr/news".
XThis may well need to be changed depending on the
Xlocal configuration. All the files except the icon files
Xshould be scanned for this string and edited appropriately
Xbefore the files are installed (by running "make").
X
X
XWritten by
X Jonathan Bowen
X Oxford University Computing Laboratory,
X Programming Research Group,
X 8-11 Keble Road,
X Oxford OX1 3QD,
X England.
X Tel: +44-865-272574 (Sec: +44-865-273840)
X
XCopyright (C) 1987,1988 by J.P.Bowen
X
XPermission is granted to copy these files for
Xnon-profit purposes, provided this notice is left intact.
X
XPlease send corrections, improvements, etc. to:
X JANET: bowen at uk.ac.oxford.prg
X ARPA: bowen%prg.oxford.ac.uk at nsfnet-relay.ac.uk
X UUCP: ...!uunet!mcvax!ukc!ox-prg!bowen
X
SHAR_EOF
if test 1403 -ne "`wc -c < 'README'`"
then
echo shar: error transmitting "'README'" '(should have been 1403 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Makefile'" '(360 characters)'
if test -f 'Makefile'
then
echo shar: will not over-write existing file "'Makefile'"
else
sed 's/^ X//' << \SHAR_EOF > 'Makefile'
XROOT=/usr/news
XBIN=/usr/local/bin
XLIB=$(ROOT)/bin
XMAN=/usr/man/man1
XIMAGES=$(ROOT)/images
X
Xinstall:
X chmod +x newstool newsreader
X cp newstool $(BIN)
X cp newsreader $(LIB)
X cp newstool.1 $(MAN)
X cp news.icon nonews.icon $(IMAGES)
X
Xshar:
X shar -a README Makefile newstool newstool.1 \
X newsreader news.icon nonews.icon > newstool.shar
X compress newstool.shar
X
SHAR_EOF
if test 360 -ne "`wc -c < 'Makefile'`"
then
echo shar: error transmitting "'Makefile'" '(should have been 360 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'newstool'" '(699 characters)'
if test -f 'newstool'
then
echo shar: will not over-write existing file "'newstool'"
else
sed 's/^ X//' << \SHAR_EOF > 'newstool'
X#!/bin/sh
X#
X# newstool - window-based news reader
X#
X# Written by Jonathan Bowen, October 1987
X#
X
XPATH=/bin:/usr/ucb:/usr/bin:/usr/local/bin
XWHO=news
XROOT=/usr/$WHO
XICONDIR=$ROOT/images
XPROGNAME=`basename $0`
XINTERVAL=300
X
Xcase "$1" in
X-i)
X shift
X case "$1" in
X "")
X echo "$PROGNAME: expected interval after -i"
X exit 1
X ;;
X *)
X INTERVAL=`expr X"$1" : X'\([0-9]*\)'`
X if [ "$INTERVAL" = "" ]
X then
X echo "$PROGNAME: expected digits after -i"
X exit 1
X fi
X shift
X ;;
X esac
X ;;
X
X-u|-U)
X echo "Usage: $PROGNAME [-i interval] [tool args]"
X exit 0
X ;;
X
Xesac
X
Xexport ROOT ICONDIR PROGNAME INTERVAL
X
Xexec shelltool -Wi -WI $ICONDIR/nonews.icon -Wl "$PROGNAME" -WL "" $* \
X $ROOT/bin/newsreader
SHAR_EOF
if test 699 -ne "`wc -c < 'newstool'`"
then
echo shar: error transmitting "'newstool'" '(should have been 699 characters)'
fi
chmod +x 'newstool'
fi # end of overwriting check
echo shar: extracting "'newstool.1'" '(1676 characters)'
if test -f 'newstool.1'
then
echo shar: will not over-write existing file "'newstool.1'"
else
sed 's/^ X//' << \SHAR_EOF > 'newstool.1'
X.TH NEWSTOOL 1L "9 October 1987" "" "LOCAL"
X.UC
X.SH NAME
Xnewstool \- window-based interface for news
X.SH SYNOPSIS
X.B newstool
X[
X.B \-i
X.I seconds
X]
X.SH DESCRIPTION
X.I Newstool
Xis a window-based interface to the \fIrn\fP(1) program for reading news
Xin the \fISunView\fP environment on a Sun workstation. The icon
Xindicates whether there is any news to be read. Additionally, the bell
Xis sounded when new news arrives, and \fIrn\fP is automatically
Xinvoked. If there is no new news available, \fIrn\fP may still be
Xinvoked by opening the window and typing ^C to wake up the news
Xprogram. The window is automatically closed on exit from \fIrn\fP.
X.SH OPTIONS
XThe following options are available:
X.TP 10
X.BI \-i " seconds"
XCheck for new news every \fIseconds\fP seconds.
XThe default is 300.
X.TP 10
X.B \-u
XDisplay the usage of the command.
X.PP
XSubsequently, standard \fIsuntools\fP(1) generic tool arguments may be
Xsupplied if desired.
X.PP
XThe default program used to read news is \fIrn\fP; however, this may be
Xchanged by setting the \fBNEWSPROG\fP environment variable to the
Xcommand to be executed when reading news. For example, the line:
X.IP
Xsetenv NEWSPROG "vn \-%"
X.LP
Xwould cause \fIvn\fP to be used with the \fI\-%\fP flag to read news.
X.SH FILES
X.PD 0
X.TP 40
X/usr/news/bin/newsreader
Xmain \fIcsh\fP script
X.TP 40
X/usr/news/images/news.icon
Xnews available icon
X.TP 40
X/usr/news/images/nonews.icon
Xno news available icon
X.PD
X.SH "SEE ALSO"
Xnews(5),
Xsuntools(1),
Xrn(1),
Xrntool(1L),
Xvn(1)
X.SH AUTHOR
XJonathan Bowen, Oxford University.
X.SH BUGS
XThis shell script and manual page may change without notice.
X.PP
XPlease report problems to \fI<news at uk.ac.oxford.prg>\fP.
SHAR_EOF
if test 1676 -ne "`wc -c < 'newstool.1'`"
then
echo shar: error transmitting "'newstool.1'" '(should have been 1676 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'newsreader'" '(1316 characters)'
if test -f 'newsreader'
then
echo shar: will not over-write existing file "'newsreader'"
else
sed 's/^ X//' << \SHAR_EOF > 'newsreader'
X#!/bin/csh -f
X#
X# News reading program - check for news every 360 seconds,
X# change icon etc when news is present/absent.
X#
X# Normally invoked by "newstool".
X#
X# Written by Jonathan Bowen, October 1987
X# Based on a "newsread" shell script by Jeremy Jacob, 9 Oct 87
X#
X
X# set ROOT=/usr/news
X# set ICONDIR=$ROOT/images
X# set PROGNAME=newstool
X# set INTERVAL=360
Xif (${?NEWSPROG}) then
X set NONEWS="No news (^C to read news)"
Xelse
X set NONEWS="No news (^C to read old news)"
Xendif
X
Xonintr -
Xecho -n "&]L&\"
X
Xwhile (1)
X
X echo -n "&[2t"
X set NEWNEWS=`rn -c`
X
X if (! $#NEWNEWS) then
X echo -n "&]I$ICONDIR/nonews.icon&\"
X echo -n "&]l$PROGNAME - $NONEWS&\"
X
X# Check for new news
X while (! $#NEWNEWS)
X onintr read
X sleep $INTERVAL
X set NEWNEWS=`rn -c`
X goto cont
X# Read news anyway
Xread:
X onintr -
X echo -n "&]l$PROGNAME - Reading news&\&[1t"
X clear
X if (${?NEWSPROG}) then
X $NEWSPROG
X else
X rn
X endif
X clear
X echo -n "&[2t&]l$PROGNAME - $NONEWS&\"
Xcont:
X onintr -
X end
X
X# Sound bell twice
X echo -n "~" ; sleep 1; echo -n "~"
X# Sound bell and make icon visible
X# (Not safe if screen is locked)
X# echo -n "~&[5t" ; echo -n "~"
X endif
X
X# Read new news
X echo -n "&]I$ICONDIR/news.icon&\"
X echo -n "&]l$PROGNAME - News&\"
X clear
X if (${?NEWSPROG}) then
X $NEWSPROG
X else
X rn
X endif
X clear
X
Xend
SHAR_EOF
echo shar: 22 control characters may be missing from "'newsreader'"
if test 1316 -ne "`wc -c < 'newsreader'`"
then
echo shar: error transmitting "'newsreader'" '(should have been 1316 characters)'
fi
chmod +x 'newsreader'
fi # end of overwriting check
echo shar: extracting "'news.icon'" '(1933 characters)'
if test -f 'news.icon'
then
echo shar: will not over-write existing file "'news.icon'"
else
sed 's/^ X//' << \SHAR_EOF > 'news.icon'
X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
X */
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x0000,0x0000,0x0001,
X 0x8000,0x0000,0x0000,0x0001,0x8003,0x9C00,0x0000,0x0001,
X 0x8001,0xC800,0x0000,0x0001,0x8001,0xC800,0x0000,0x0001,
X 0x8001,0x6870,0xC63E,0x0001,0x8001,0x68C8,0xC642,0x0001,
X 0x8001,0x398C,0xC660,0x0001,0x8001,0x39FC,0xD63C,0x0001,
X 0x8001,0x1980,0xD61E,0x0001,0x8001,0x1980,0xFE43,0x0001,
X 0x8001,0x08C4,0xEE61,0x0001,0x8003,0x8878,0xC65E,0x0001,
X 0x8000,0x0000,0x0000,0x0001,0x8000,0x0000,0x0000,0x0001,
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x0000,0x0000,0x0001,
X 0x8000,0x0000,0x0000,0x0001,0x8000,0x0000,0x0000,0x0001,
X 0xBFFF,0xFD75,0xD346,0x0001,0xA000,0x0524,0x9B49,0x24A1,
X 0xA010,0x0500,0x0045,0x24D1,0xA040,0x057E,0xAD42,0x2491,
X 0xA48F,0x7D00,0x0049,0x2C91,0xA8EC,0xE55B,0xEB46,0x1491,
X 0xAAEA,0xE500,0x0040,0x0001,0xA0AA,0xCD75,0xDF5B,0xE7FD,
X 0xA8A8,0x8500,0x0040,0x0001,0xAFFF,0xF55F,0xFB57,0x7F7D,
X 0xA935,0x0500,0x0040,0x0001,0xBFFF,0xFD7E,0x775D,0xFBFD,
X 0x8000,0x0100,0x0040,0x0001,0xA828,0x0175,0xBD5E,0xFEED,
X 0xBB3B,0x5500,0x0040,0x0001,0xAB2B,0x756F,0xFF5F,0xBFDD,
X 0x8000,0x0100,0x0040,0x0001,0xBEFD,0xFD7F,0xCF5D,0xFB7D,
X 0x8000,0x0100,0x0040,0x0001,0xB7F7,0xFD7B,0xBF57,0xDDDD,
X 0x8000,0x0100,0x0040,0x0001,0xBBDF,0xDD3E,0xFB5F,0xBDED,
X 0x8000,0x0100,0x0040,0x0001,0xBF7F,0x7D7F,0x675F,0xFFFD,
X 0x8000,0x0100,0x0050,0x0005,0xBEE9,0xFD7B,0x9F50,0x3E05,
X 0x8000,0x0100,0x0050,0x7F05,0xBBDF,0xBD6F,0xEF50,0xFF85,
X 0x8000,0x0100,0x0051,0xC1C5,0xBFEF,0xFD7E,0xFF51,0x8045,
X 0x800C,0x4D00,0x0053,0x2165,0xB6ED,0x057B,0xF352,0x52A5,
X 0x8009,0x6500,0x0052,0x2125,0xBFEA,0x657C,0xFF52,0x0C25,
X 0x8008,0x8500,0x0052,0x0025,0xBDCF,0x257B,0xBF51,0x3E45,
X 0x8008,0x0500,0x0050,0x9C85,0xB7EB,0xF57F,0xCF50,0x4105,
X 0x800A,0x7500,0x0050,0xBE85,0xA7AB,0xB57E,0xEF51,0x0045,
X 0x800A,0xDD00,0x0052,0x0025,0xBCEF,0xFD6F,0xDF5F,0xFFFD,
X 0x8000,0x0000,0x0000,0x0001,0xFFFF,0xFFFF,0xFFFF,0xFFFF
SHAR_EOF
if test 1933 -ne "`wc -c < 'news.icon'`"
then
echo shar: error transmitting "'news.icon'" '(should have been 1933 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'nonews.icon'" '(1933 characters)'
if test -f 'nonews.icon'
then
echo shar: will not over-write existing file "'nonews.icon'"
else
sed 's/^ X//' << \SHAR_EOF > 'nonews.icon'
X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
X */
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x0000,0x0000,0x0001,
X 0x8000,0x0000,0x0000,0x0001,0x8E70,0x0079,0xC000,0x0001,
X 0x8720,0x001C,0x8000,0x0001,0x8720,0x001C,0x8000,0x0001,
X 0x85A0,0xC016,0x870C,0x63E1,0x85A1,0x2016,0x8C8C,0x6421,
X 0x84E3,0x3013,0x98CC,0x6601,0x84E3,0x3013,0x9FCD,0x63C1,
X 0x8463,0x3011,0x980D,0x61E1,0x8463,0x3011,0x980F,0xE431,
X 0x8421,0x2010,0x8C4E,0xE611,0x8E20,0xC078,0x878C,0x65E1,
X 0x8000,0x0000,0x0000,0x0001,0x8000,0x0000,0x0000,0x0001,
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x0000,0x0000,0x0001,
X 0x8000,0x0000,0x0000,0x0001,0x8000,0x0000,0x0000,0x0001,
X 0xBFFF,0xFD75,0xD346,0x0001,0xA000,0x0524,0x9B49,0x24A1,
X 0xA000,0x0500,0x0045,0x24D1,0xA000,0x0500,0x0042,0x2491,
X 0xA000,0x0500,0x0049,0x2C91,0xA000,0x0500,0x0046,0x1491,
X 0xA000,0x0500,0x0040,0x0001,0xA000,0x0500,0x0040,0x0001,
X 0xA000,0x0500,0x0040,0x0001,0xA000,0x0500,0x0040,0x0001,
X 0xA000,0x0500,0x0040,0x0001,0xBFFF,0xFD00,0x0040,0x0001,
X 0x8000,0x0100,0x0040,0x0001,0xA828,0x0100,0x0040,0x0001,
X 0xBB3B,0x5500,0x0040,0x0001,0xAB2B,0x7500,0x0040,0x0001,
X 0x8000,0x0100,0x0040,0x0001,0x8000,0x0100,0x0040,0x0001,
X 0x8000,0x0100,0x0040,0x0001,0x8000,0x0100,0x0040,0x0001,
X 0x8000,0x0100,0x0040,0x0001,0x8000,0x0100,0x0040,0x0001,
X 0x8000,0x0100,0x0040,0x0001,0x8000,0x0100,0x005F,0xFFFD,
X 0x8000,0x0100,0x0050,0x0005,0x8000,0x0100,0x0050,0x0005,
X 0x8000,0x0100,0x0050,0x0005,0x8000,0x0100,0x0050,0x0005,
X 0x8000,0x0100,0x0050,0x0005,0x800F,0xFD00,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x8008,0x0500,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x8008,0x0500,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x8008,0x0500,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x8008,0x0500,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x8008,0x0500,0x0050,0x0005,
X 0x8008,0x0500,0x0050,0x0005,0x800F,0xFD00,0x005F,0xFFFD,
X 0x8000,0x0000,0x0000,0x0001,0xFFFF,0xFFFF,0xFFFF,0xFFFF
SHAR_EOF
if test 1933 -ne "`wc -c < 'nonews.icon'`"
then
echo shar: error transmitting "'nonews.icon'" '(should have been 1933 characters)'
fi
fi # end of overwriting check
# End of shell archive
exit 0
More information about the Comp.sources.sun
mailing list