Phase I of UUCP migration to ports. This leaves behind a minimal build

environment for cu, which is still useful.

31 files changed, 0 insertions, 10000 deletions

diff --git a/gnu/libexec/uucp/contrib/Dial.Hayes b/gnu/libexec/uucp/contrib/Dial.Hayes
deleted file mode 100644
index 32eef82..0000000
--- a/gnu/libexec/uucp/contrib/Dial.Hayes
+++ /dev/null
@@ -1,108 +0,0 @@
-#!xchat
-# @(#) dial.hayes V1.1 Tue Sep  1 13:59:58 1992 (Bob Denny)
-#
-# xchat script for dialing a vanilla Hayes modem
-#
-# Usage:
-#	xchat dial.hayes telno
-#
-# where telno is the telephone number, subject to pause and wait
-# character modification. 
-#
-# Uncomment the first two lines after "start:" to get debugging
-# in file "Dial.Log"
-#
-# Flush input, zero counter, set telephone number if supplied,
-# else fail if no telephone number given.
-#
-start:
-###	dbgfile 		Dial.Log
-###	dbgset  		15 
-	zero
-	flush
-	ifnstr	notelno		0
-	telno			0
-	goto	initmodem
-#
-# Missing telephone number.
-#
-notelno:
-	logerr	No telephone number given
-	failed
-#
-# Reset the modem to nonvolatile profile. 
-# Allow 3 sec. for response, as some modems are slow to reset.
-#
-initmodem:
-	count
-	ifgtr	cantinit	4
-	send	ATZ\r
-	timeout	initmodem	3000
-	expect	setupmodem	OK
-#
-# No response from modem
-#
-cantinit:
-	logerr	Can't wake modem
-	failed
-#
-# Send the stuff needed to initialize the modem to the modes
-# needed for the particular modem flavor. The string below
-# is provided as a vanilla example. Allow 2 sec. for the
-# modem to respond to this command.
-#
-setupmodem:
-	sleep	1000
-	send	ATM0S7=90S11=120\r
-	timeout	setupfail	2000
-	expect	setupfail	ERROR
-	expect	dialnumber	OK
-#
-# Modem barfed or died on setup command.
-#
-setupfail:
-	logerr	Error in modem setup string
-	failed
-#
-# Dial the supplied number. Handle the various errors that
-# can come back from the modem by logging the error.
-#
-dialnumber:
-	sleep	1000
-	send	ATDT
-	dial
-	send	\r
-	flush
-	timeout	timeout		90000
-	expect	connected	CONNECT
-	expect	busy		BUSY
-	expect	nocarrier	NO CARRIER
-	expect	noanswer	NO ANSWER
-	expect	nodialtone	NO DIALTONE
-#
-# Success!
-#
-connected:
-	success
-#
-# Handle modem dial failures
-#
-timeout:
-	logerr	Modem or carrier timeout.
-	failed
-busy:
-	logerr	BUSY
-	failed
-nocarrier:
-	logerr	NO CARRIER
-	failed
-noanswer:
-	logerr	NO ANSWER
-	failed
-nodialtone:
-	logerr	NO DIALTONE
-	failed
-#
-# end
-#
-
diff --git a/gnu/libexec/uucp/contrib/Hangup.Hayes b/gnu/libexec/uucp/contrib/Hangup.Hayes
deleted file mode 100644
index c111c00..0000000
--- a/gnu/libexec/uucp/contrib/Hangup.Hayes
+++ /dev/null
@@ -1,57 +0,0 @@
-#!xchat
-# @(#) Hangup.Hayes V1.1 Tue Sep  1 14:04:25 1992 (Bob Denny)
-#
-# xchat script for hanging up a Hayes-type modem. When used with Taylor
-# UUCP, this script should be run as the dialer-complete and dialer-abort
-# script with xchat.
-#
-# Usage:
-#	xchat Hangup.Hayes [ x ]
-#
-# where 'x' is any string. If it is present, this script will log the
-# modem reset as an ABORT reset, otherwise it will not log anything.
-#
-# Uncomment the lines starting with '###' to get debugging log.
-#
-start:
-###	dbgfile			Hangup.Log
-###	dbgset			15
-	zero
-	sleep	2000			# Wait for trailing garbage
-	flush				# Toss it out
-	ifnstr	wakemodem	0	# No abort indicator
-	log	Hangup on abort
-#
-# Get modem's attention via Hayes 'escape' protocol.
-#
-wakemodem:
-	sleep	4000
-	send	+++
-	sleep	4000
-	send	\r
-	timeout	reset		2000
-	expect	reset		OK
-#
-# We're (probably) in command mode. Use ATZ (reset) to hang up
-# as some modems don't behave well with ATH0 command.
-#
-reset:
-	send	ATZ\r
-	timeout	silent		5000
-	expect	done		OK
-#
-# Finished, modem is back in initial state.
-#
-done:
-	success
-#
-# No response to escape protocol. Log the error and force DTR low
-# in an attempt to get control of the modem. Then send ATZ just to
-# make sure.
-#
-silent:
-	logerr	Hangup: no response from modem
-	hangup				# Force DTR low as last gasp
-	send	ATZ\r
-	sleep	5000
-	failed
diff --git a/gnu/libexec/uucp/contrib/Login.LAT b/gnu/libexec/uucp/contrib/Login.LAT
deleted file mode 100644
index d557f97..0000000
--- a/gnu/libexec/uucp/contrib/Login.LAT
+++ /dev/null
@@ -1,137 +0,0 @@
-#!xchat
-# @(#) login.LAT V1.2 Tue Sep  1 13:25:28 1992
-#
-# xchat script for logging into a VMS system through a LAT
-# terminal server port. If no VMS password parameter supplied,
-# skips password phase of VMS login. If LAT-password supplied,
-# will log into LAT server using that password. NOTE: does not
-# handle the situation where a LAT password is needed but no
-# VMS password is needed.
-#
-# Usage:
-#	xchat login.LAT sysname username [ password [ LAT-password ] ]
-#
-# History:
-#  rbd Fri Aug 14 13:37:06 1992	
-#    Changes for Lantronix ETS-16. It says "type help at the Local> 
-#    prompt..." then it gives the prompt for real! Prompt may need
-#    to be something other than "Local>". We match the real Local> 
-#    prompt by matching	the leading newline!
-#
-#  rbd Tue Sep  1 13:04:32 1992 
-#    Remove absolute path name from log file. Now defaults per config.
-#
-start:
-	dbgfile	Login.Log
-	dbgset	15
-	sleep	2000			# Wait 2 seconds
-	flush				# Flush typeahead
-	ifnstr	svrstart	3	# Skip server password if not given
-#
-# Starting point if server password supplied. Handle situation
-# where the server line may have been left waiting for username
-# or at local> prompt.
-#
-getsvrpwp:
-	zero
-l0:
-	count				# Get server's password prompt
-	ifgtr	deadmux		5	# die if 5 cr's don't do it
-	send	\r
-	timeout	l0		1000	# Wait and try again
-	expect	dosvrpw		ssword>
-	expect	svrlogin	ername>
-	expect	connect		\nLocal>
-#
-# Send server's password. Fail if don't get Username
-# or Local> prompt.
-#
-dosvrpw:
-	zero
-l2:
-	sendstr	3
-	send \r
-	timeout	badsvrpw	5000	# Die if invalid
-	expect	svrlogin	ername>
-	expect	connect		\nLocal>
-#
-# Starting point if NO server password supplied. Handle situation
-# where the server line may have been left at local> prompt.
-#
-svrstart:
-	zero
-l1:
-	count				# Get username> or local> prompt
-	ifgtr	deadmux		5	# Die if 5 cr's don't do it
-	send	\r
-	timeout	l1		1000	# Wait and try again
-	expect	svrlogin	ername>
-	expect	connect		\nLocal>
-#
-# Server asked for a username. Just give 'uucp'.
-#
-svrlogin:
-	send	uucp\r
-	timeout deadmux		2000
-	expect	connect		\nLocal>
-#
-# At this point, we have the Local> prompt. Send the connect
-# command for the specified LAT host service name, and wait for
-# VMS "Username:" prompt. Die after 10 seconds.
-#
-connect:
-	send	c\s
-	sendstr	0
-	send	\r
-	timeout	nologin		10000
-	expect	gotlogin	ername:
-#
-# Got VMS "Username:" prompt. Send the username. If a password
-# was given, wait for the "Password:" prompt. Die after 10 seconds.
-# if no password was given, we're done!
-#
-gotlogin:
-	sendstr	1
-	send	\r
-	ifnstr	done		2
-	timeout	nopasswd	10000
-	expect	gotpasswd	ssword:
-#
-# Got VMS "Password:" prompt. Send the password and we're done!
-#
-gotpasswd:
-	sendstr	2
-	send	\r
-#
-# Success!
-#
-done:
-	success
-#
-# ERROR HANDLERS
-#
-#
-# LAT server appears dead. Fail.
-#
-deadmux:
-	logerr	No response from LAT server
-	failed
-#
-# The server password was bad. Fail.
-#
-badsvrpw:
-	logerr	Invalid LAT server password
-	failed
-#
-# VMS system appears to be dead. Fail.
-#
-nologin:
-	logerr	No VMS Username: prompt
-	failed
-#
-# Failed to get "Password:" prompt. Fail.
-#
-nopasswd:
-	logerr	No VMS Password: prompt. Invalid password?
-	failed
-
diff --git a/gnu/libexec/uucp/contrib/Login.PortSel b/gnu/libexec/uucp/contrib/Login.PortSel
deleted file mode 100644
index d8c3a66..0000000
--- a/gnu/libexec/uucp/contrib/Login.PortSel
+++ /dev/null
@@ -1,133 +0,0 @@
-#!xchat
-# @(#) Login.PortSelUnix V1.0 Tue Sep  1 14:57:05 1992 (Bob Denny)
-#
-# NOTE: Untested with xchat V1.1. Taken from DECUS UUCP.
-#
-# From: "Kent C. Brodie" <moocow!brodie@CSD4.MILW.WISC.EDU>
-#	uucp:	{uunet!marque,csd4.milw.wisc.edu}!moocow!brodie  
-# special script for "uwmcsd4", have to go through a port selector (and then
-# log in via standard Unix procedures).  
-#
-# Also included is the ability to wait in the port selector queue.
-# Be forwarned that the debug log can get pretty big depending on 
-# how many times you "wait" in the queue.
-# (C) 1989 Kent C. Brodie - Medical College of Wisconsin
-
-# P0 is systemname , P1 is username, P2 is password. 
-
-	zero
-
-# send a CR to get the selector's attention.  Sleep a little bit
-# due to large login text of selector.   It sends "Which System?"
-# when it's ready. 
-
-getprtslct:
-	count
-	ifgtr	noprtslct	6
-	break
-	send	\r
-	sleep	2000
-	flush
-	expect	prtslctok	ystem?
-	timeout	getprtslct	15000
-
-noprtslct:
-	logerr	Sent cr, no "Which System?" from port selector
-	failed
-
-# Send the system name.  We either get "OK" (connected), or we
-# get "No ports available, would you like to wait?" (wait in queue)
-
-prtslctok:
-	zero
-	sendstr	0
-	send	\r
-	expect	connected	OK
-	expect	prtslctwait	wait?
-	timeout	noconnect	10000
-
-# Usually we get "nn Your place in queue" messages.  JUST in case we
-# get a free port right away, check for 'Are you ready?' as well.
-
-prtslctwait:
-	zero
-	send	Y\r
-	expect	prtslctque	queue
-	expect	prtslctrdy	ready?
-	timeout	prtwaitbad	70000
-
-prtwaitbad:
-	logerr	Sent "Y" to wait in queue, did not get valid response.
-	failed
-
-# Here's where we wait in the queue.  The port selector sends us a status
-# message about once a minute.  We either get "nn Your place in queue"
-# or we get "System Available.  Are you Ready?". 
-# If something goes wrong, we time out waiting for either response.
-# The reason we don't sleep for 40-50 seconds is because as SOON as the
-# port is ready, it informs us.  If we wait too long, it drops us.
-# This setup is laid out for a maximum of 20 "tries" which is ABOUT
-# 20 minutes.   Note:  This constant retrying can make log files
-# kind of big....
-
-prtslctque:
-	count
-	ifgtr	prtslcttry	20
-	expect	prtslctque	queue
-	expect	prtslctrdy	ready?
-	timeout	noportwait	70000
-
-prtslcttry:
-	logerr	Too many (20) wait/retries -- queue too busy.
-	failed
-
-prtslctrdy:
-	send	Y\r
-	expect	connected	OK
-	timeout	noconnect	20000
-
-
-noportwait:
-	logerr  Timed out awaiting place in port queue
-	failed
-
-noconnect:
-	logerr	Sent system name, no "OK" from selector
-	failed
-
-# standard Unix login stuff.  Send cr, expect "ogin:", if no, send a break 
-# (which tells Unix to try the next bit rate) and try again.  
-
-connected:
-	send	\r
-	zero
-	goto	waitlogin
-
-sendbreak:
-	count
-	ifgtr	nolgi		6
-	flush
-	break
-
-waitlogin:
-	expect	gotlogin	ogin:
-	timeout	sendbreak	5000
-
-nolgi:
-	logerr	No login: prompt
-	failed
-
-gotlogin:
-	sendstr	1
-	send	\r
-	expect	gotword		word:
-	timeout	nopwd		10000
-
-nopwd:
-	logerr	No password: prompt
-	failed
-
-gotword:
-	sendstr	2
-	send	\r
-	success
diff --git a/gnu/libexec/uucp/contrib/Login.VMS b/gnu/libexec/uucp/contrib/Login.VMS
deleted file mode 100644
index d6196cb..0000000
--- a/gnu/libexec/uucp/contrib/Login.VMS
+++ /dev/null
@@ -1,96 +0,0 @@
-#!xchat
-# @(#) Login.VMS V1.1 Tue Sep  1 13:24:54 1992 (Bob Denny)
-#
-#
-# xchat script for logging into a VMS system.  If no VMS password
-# parameter supplied, skips password phase of VMS login. If syspass
-# parameter given, will go through steps needed to log into a VMS
-# system where a "system password" was set on the port.
-#
-# Cannot handle situation where system password is required but
-# no password needed.
-#
-#
-# Usage:
-#	xchat Login.VMS username [ password [ syspass ] ]
-#
-# Uncomment the lines starting with "###" to get debug logging.
-#
-start:
-###	dbgfile	Login.Log
-###	dbgset	15
-	sleep	2000			# Wait 2 seconds
-	zero
-	flush				# Flush typeahead
-	ifnstr	login		2	# Skip sys passwd if not given
-#
-# Need system password. Send <CR> to get bell.
-# Try 5 times at 2 sec. intervals. Skip to do
-# username if we see "Username:".
-#
-syspass:
-	count
-	ifgtr	nobell		5	# Fail after 5 tries
-	send	\r
-	timeout	syspass		2000	# Wait 2 sec. and try again
-	expect gotbell		\007
-	expect gotlogin		Username:
-#
-# Got the bell. Send the system password. Repeat 5 times
-# at 2 sec. intervals. Fail if we don't get Username:
-#
-gotbell:
-	zero
-	sleep 2000
-l1:
-	count
-	ifgtr	nologin		5	# Fail after 5 tries
-	sendstr	2
-	send	\r
-	timeout	l1		2000	# Wait 2 sec. and try again
-	expect	gotlogin		Username:
-#
-# Start here if no system password supplied. 
-# Send <CR> until we get Username: Try 5 times at 2 sec. intervals.
-#
-login:
-	count
-	ifgtr	nologin		5	# Fail after 5 tries
-	send	\r
-	timeout	login		2000	# Wait 2 sec. and try again
-	expect	gotlogin	Username:
-#
-# Got VMS "Username:" prompt. Send the username. If a password
-# was given, wait for the "Password:" prompt. Die after 10 seconds.
-# if no password was given, we're done!
-#
-gotlogin:
-	sendstr	0
-	send	\r
-	ifnstr	done		1
-	timeout	nopasswd	10000
-	expect	gotpasswd	Password:
-#
-# Got VMS "Password:" prompt. Send the password and we're done!
-#
-gotpasswd:
-	sendstr	1
-	send	\r
-#
-# Success!
-#
-done:
-	success
-#
-# ERROR HANDLERS
-#
-nobell:
-	logerr	No VMS system password prompt (bell)
-	failed
-nologin:
-	logerr	No VMS Username: prompt
-	failed
-nopasswd:
-	logerr	No VMS Password: prompt.
-	failed
-
diff --git a/gnu/libexec/uucp/contrib/Makefile.uurt b/gnu/libexec/uucp/contrib/Makefile.uurt
deleted file mode 100644
index 8558977..0000000
--- a/gnu/libexec/uucp/contrib/Makefile.uurt
+++ /dev/null
@@ -1,40 +0,0 @@
-# $FreeBSD$
-# Makefile for uurate 1.10
-#
-
-# Prefix directory for installation directories.
-prefix = /usr/local
-
-# Directory where the needed .h files are installed (uucp.h ...).
-uucpsrcs = ../
-
-# Where uurate is installed
-BIN=$(prefix)/bin
-# Where uurate's man is installed
-MAN=$(prefix)/man/man1
-
-# The directory to look in for Taylor style configuration files
-newconfigdir = $(prefix)/conf/uucp
-
-# Flags to use when compiling uurate
-CC=gcc -O2
-CFLAGS=-I.. -Wall
-LDFLAGS=-s
-
-SHELL=/bin/sh
-PROGS=uurate
-
-#-----------
-MORECFLAGS= -I. -I$(uucpsrcs) -DNEWCONFIGLIB=\"$(newconfigdir)\"
-
-all: $(PROGS)
-
-uurate: uurate.c
-	$(CC) $(CFLAGS) $(MORECFLAGS) $@.c -o $@ $(LDFLAGS)
-
-install: $(PROGS)
-	cp $(PROGS) $(BIN)
-	cp uurate.man $(MAN)/uurate.1
-
-clean:
-	rm -f $(PROGS) core
diff --git a/gnu/libexec/uucp/contrib/Makefile.xchat b/gnu/libexec/uucp/contrib/Makefile.xchat
deleted file mode 100644
index 5e9aaa8..0000000
--- a/gnu/libexec/uucp/contrib/Makefile.xchat
+++ /dev/null
@@ -1,31 +0,0 @@
-#
-# Makefile for xchat 1.1
-#
-# Bob Denny - Tue Sep  1 15:58:22 1992
-#
-CC=cc
-SHELL=/bin/sh
-BIN=/usr/local/lib/uucp
-PROGS=xchat
-
-#-----------
-
-all: $(PROGS)
-
-install: $(PROGS)
-	@for i in $(PROGS) ; do \
-		echo "Install $$i into $(BIN)..." ; \
-		cp $$i $(BIN) ; \
-		echo "Set ownership and protection..." ; \
-		/bin/chmod 0555 $(BIN)/$$i ; \
-		/bin/chown bin $(BIN)/$$i ; \
-		/bin/chgrp bin $(BIN)/$$i ; \
-	done
-
-clean:
-	rm -f $(PROGS) core
-
-
-
-
-
diff --git a/gnu/libexec/uucp/contrib/README b/gnu/libexec/uucp/contrib/README
deleted file mode 100644
index 8e4651a9..0000000
--- a/gnu/libexec/uucp/contrib/README
+++ /dev/null
@@ -1,82 +0,0 @@
-This is the README file for the Taylor UUCP contrib directory.
-
-This directory contains contributed shell scripts and programs that
-you may find useful.
-
-Not actually included here, but nonetheless useful, is the TUA program
-distributed by Lele Gaifax <lele@nautilus.sublink.org>.  It can do
-various sorts of analysis of any type of UUCP log file.  It should be
-available from most FTP sites.
-
-xchat.c, xchat.man, README-XCHAT, xc-conf.h-dist, Makefile.xchat:
-    A program by Bob Denny that may be invoked by the ``chat-program''
-    command for any of the various types of chat scripts.  It is
-    driven by scripts which are written in its own little language.
-    It is a powerful program that can add a lot of flexibility to your
-    chat scripts.
-
-Dial.Hayes, Hangup.Hayes, Login.LAT, Login.PortSel, Login.VMS:
-    Sample scripts for xchat.
-
-uucomp.shar
-    A set of programs which automatically compresses outgoing data in
-    the spool directory.  The remote system must cooperate when using
-    this.  It can cut down on phone usage when applicable.
-    Contributed by Ed Carp.
-
-uurate.c, uurate.man, README-UURATE, Makefile.uurt:
-    A nifty little program by Bob Denny which analyzes the Log and
-    Stats file and prints various sorts of reports.  This version was
-    tweaked by Stephan Niemz and Klaus Dahlenburg.
-
-uutraf:
-    Another program to produce neat reports from your log files, this
-    one a perl script by Johan Vromans.
-
-savelog.sh, savelog.man:
-    A handy shell script to rename a log file and cycle old versions
-    through a set of names, throwing away the oldest one.  It will
-    also optionally compress the old log files.  I believe that this
-    is originally from smail.  It was written by Ronald S. Karr and
-    Landon Curt Noll, and was given to me by Bob Denny.
-
-uureroute.perl:
-    A perl script to reroute all mail queued up for one host to
-    another.  Written by Bill Campbell and contributed by Francois
-    Pinard.
-
-stats.sh:
-    A gawk script by Zacharias Beckman which reads the Stats file and
-    prints the last 80 lines as a nicely formatted table.
-
-uuq.sh:
-    A uuq workalike shell script by Zacharias Beckman.
-
-uupoll.shar:
-    uupoll and autopoll programs contributed by Klaus Dahlenburg.
-    uupoll can be used to automatically poll all systems, or a list of
-    systems; autopoll will poll and then retry failed calls.
-
-uudemon.shar:
-    An implementation of the HDB uudemon.poll script by Donald Burr.
-
-uuxconv:
-    A program by Richard E. Nickle to help convert SPOOLDIR_HDB spool
-    directories to SPOOLDIR_TAYLOR spool directories (note that it is
-    not necessary to convert your spool directories at all; the
-    SPOOLDIR_TAYLOR approach may be slightly more efficient).
-
-dialHDB.c:
-    A program by Daniel Hagerty which permits using HDB dialer
-    programs as chat programs.
-
-amiga.c:
-    A wrapper program to run uucico from a cron table under Amiga
-    SVR4 (apparently a wrapper is required).  This was contributed by
-    Lawrence E. Rosenman.
-
-tstout.c:
-    A program to remove a user from utmp and wtmp, essentially logging
-    them out.  I put this together from BSD code.  I need it to use
-    tstuu with the system UUCP on Ultrix 4.0, for reasons that escape
-    me.  Most people will have little use for this.
diff --git a/gnu/libexec/uucp/contrib/README-UURATE b/gnu/libexec/uucp/contrib/README-UURATE
deleted file mode 100644
index 0ef6375..0000000
--- a/gnu/libexec/uucp/contrib/README-UURATE
+++ /dev/null
@@ -1,21 +0,0 @@
-uurate V1.10 - Gather and display Taylor UUCP traffic statistics
-
-Bob Denny (denny@alisa.com) - Thu Sep  3 19:47:41 1992 (V1.2.1)
-Klaus Dahlenburg (kdburg@incoahe.hanse.de) - Tue Sep 28 18:11:34 CET 1993
-
-See the man page for documentation.
-
-Installation:
-------------
-
-(1) Copy or sym-link Makefile.uurt to Makefile.
-
-(2) Edit Makefile: set BIN where you want uurate to be installed,
-    MAN where the man page should go to, and set CFLAGS to point
-    to the directory containing the UUCP sources (this is .. by
-    default). Don't forget to set newconfigdir= to point to the
-    directory where the (Taylor-uucp)config is stored.
-
-(3) Type ``make'' to compile the program.
-
-(4) Type ``make install'' to install the program.
diff --git a/gnu/libexec/uucp/contrib/README-XCHAT b/gnu/libexec/uucp/contrib/README-XCHAT
deleted file mode 100644
index 5f93a28..0000000
--- a/gnu/libexec/uucp/contrib/README-XCHAT
+++ /dev/null
@@ -1,42 +0,0 @@
-This is xchat V1.1 (Tue Sep  1 15:50:56 1992)
-
-Introduction:
-------------
-
-Xchat is a general-purpose dialing and login program designed for use
-with Taylor UUCP as a "chat-program", taking the place (or augmenting)
-the built-in chat scripting facility. It provides the ability to
-closely control timeouts, multiple simultaneous expect strings with
-separate actions, extended terminal control, modem command character
-pacing, and more.
-
-When used in conjunction with Taylor UUCP's configuration features,
-xchat can provide you the ability to manage the most intricate login,
-dial and hangup needs. The scripts are written in a shell-like (well,
-sort-of) style with labels, commands, and parameters, easing the task
-of writing procedures for complex terminal communications situations.
-
-Installation:
-------------
-
-(1) Copy xc-conf.h-dist to xc-conf.h, then edit xc-conf.h to reflect
-    your condifuration. A description of the settings is in that file.
-
-(2) Copy Makefile.xchat to Makefile and edit it to set BIN to where
-    you want xchat installed.
-
-(2) Do a 'make' to build xchat.
-
-(3) Do a 'make install' to install it.
-
-(4) Format and print xchat.8, and install it if you want.
-
-(5) Print out copies of the scripts in the ./scripts subdirectory.
-
-(6) Read xchat.8 and the scripts together.
-
-
-Author:
-------
-
-Robert B. Denny  (denny@alisa.com)
diff --git a/gnu/libexec/uucp/contrib/amiga.c b/gnu/libexec/uucp/contrib/amiga.c
deleted file mode 100644
index d982364..0000000
--- a/gnu/libexec/uucp/contrib/amiga.c
+++ /dev/null
@@ -1,43 +0,0 @@
-/* Wrapper code for Taylor UUCP on Amiga Unix (SVR4) for cron invoked UUCP */
-/* processes.                                                              */
-
-/* The problem:  Cron is not a "licensed" process. any process that grabs a 
-   controlling terminal needs to be licensed.  Taylor UUCP needs controlling
-   terminals.  Taylor UUCP does relinquish the controlling terminal before 
-   fork(), so the "UUCP" license is appropriate. 
-   This simple program does the "right" thing, but *MUST* be SETUID ROOT */
-
-/* Written by: Lawrence E. Rosenman <ler@lerami.lerctr.org> */
-
-#include <sys/sysm68k.h>
-#include <sys/types.h>
-#include <stdio.h>
-#include <errno.h>
-#include <unistd.h>
-#include <pwd.h>
-
-int main(int argc,char *argv[],char *envp)
-{
-  struct passwd *pw;
-  char   name[256];
-
-  strcpy(name,"/usr/local/lib/uucp/uucico");
-  if (sysm68k(_m68k_LIMUSER,EUA_GET_LIC) == 0 ) { /* are we unlicensed? */
-	  if (sysm68k(_m68k_LIMUSER,EUA_UUCP) == -1) { /* yes, get a "uucp" license */
-		 fprintf(stderr,"sysm68k failed, errno=%d\n",errno); /* we didn't? crab it */
-		 exit(errno);
-      }
-  }
-
-  pw = getpwnam("uucp"); /* get the Password Entry for uucp */
-  if (pw == NULL)
-  {
-	 fprintf(stderr,"User ID \"uucp\" doesn't exist.\n");
-	 exit(1);
-  }
-  setgid(pw->pw_gid); /* set gid to uucp */
-  setuid(pw->pw_uid); /* set uid to uucp */ 
-  argv[0]=name; /* have PS not lie... */
-  execv("/usr/local/lib/uucp/uucico",argv); /* go to the real program */
-  exit(errno);
-}
diff --git a/gnu/libexec/uucp/contrib/dialHDB.c b/gnu/libexec/uucp/contrib/dialHDB.c
deleted file mode 100644
index cb26621..0000000
--- a/gnu/libexec/uucp/contrib/dialHDB.c
+++ /dev/null
@@ -1,187 +0,0 @@
-/*
-# File:		dialHDB.c
-# Author:	Daniel Hagerty , hag@eddie.mit.edu
-#		Copyright (C) 1993
-# Date:		Fri Nov 26 19:22:31 1993
-# Description:	Program for using HDB dialers for dialing modems, exiting
-		with 0 on success, else failure.
-# Version:	1.0
-# Revision History:
-######
-### 11/26/93 Hag - File creation
-######
-### 1/5/94 Hag - Finally got around to finishing this damn thing.
-######
-*/
-/* Basic theory behind this program-
-   dialHDB forks into two processes, a monitor parent, and a child
-   that does the exec of the dialer. Child pretty much just execs the
-   dialer program, unless there's an exec problem, in which case the
-   child sends the parent a SIGUSR1 to indicate failed execution.
-*/
-
-#include <stdio.h>
-#include <string.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <signal.h>
-
-#define kUsage	"Usage:\n\t%s dialerPath device number speed\n\
-%s dialer -h device speed\n"
-
-#define kExitErrFlag	0x80	/* & in with exit code to determine error */
-#define kErrorMask	0x0f	/* Mask to determine error code */
-
-/* Error code defines as lifted from an HDB dialer */
-#define	RCE_NULL	0	/* general purpose or unknown error code */
-#define	RCE_INUSE	1	/* line in use */
-#define	RCE_SIG		2	/* signal aborted dialer */
-#define	RCE_ARGS	3	/* invalid arguments */
-#define	RCE_PHNO	4	/* invalid phone number */
-#define	RCE_SPEED	5	/* invalid baud rate -or- bad connect baud */
-#define	RCE_OPEN	6	/* can't open line */
-#define	RCE_IOCTL	7	/* ioctl error */
-#define	RCE_TIMOUT	8	/* timeout */
-#define	RCE_NOTONE	9	/* no dial tone */
-#define	RCE_BUSY	13	/* phone is busy */
-#define	RCE_NOCARR	14	/* no carrier */
-#define	RCE_ANSWER	15	/* no answer */
-
-/* Structure definition to map error codes to strings */
-typedef struct
-{
-  int errNum;
-  char *errString;
-} errTable;
-
-const errTable errors[]=
-{
-  { RCE_NULL,	"Unknown Error" },
-  { RCE_INUSE,	"Line is being used" },
-  { RCE_SIG,	"Recieved fatal signal" },
-  { RCE_ARGS,	"Bad arguments" },
-  { RCE_PHNO,	"Invalid phone number" },
-  { RCE_SPEED,	"Invalid baud rate or bad connection" },
-  { RCE_OPEN,	"Unable to open line" },
-  { RCE_IOCTL,	"ioctl error" },
-  { RCE_TIMOUT,	"Timed out" },
-  { RCE_NOTONE,	"No dialtone" },
-  { RCE_BUSY,	"Phone number is busy" },
-  { RCE_NOCARR,	"No carrier" },
-  { RCE_ANSWER,	"No answer" },
-  { 0,NULL}
-};
-
-/* Function Prototypes */
-int figureStat(int stat);
-char *findInTable(int error);
-void badExec(void);
-
-char *dialerName;		/* basename of our dialer program */
-char *dialerPath;		/* full path of dialer program */
-
-main(int argc,char *argv[])
-{
-  int parent;			/* pid of parent process */
-  int child;			/* pid of child process */
-  int stat;			/* exit status of child process */
-  char *temp;			/* used to get basename of dialer */
-  
-  if(argc!=5)
-  {
-    fprintf(stderr,kUsage,argv[0],argv[0]);
-    exit(1);
-  }
-
-  dialerPath=argv[1];
-  dialerName= (temp=strrchr(argv[1],'/'))!=NULL ? temp+1 : argv[1];
-  
-  parent=getpid();
-  
-  signal(SIGUSR1,badExec);	/* set up for possible failed exec */
-
-  if((child=fork())<0)
-  {
-    perror("fork");
-    exit(2);
-  }
-  if(child>0)			/* We're parent, wait for child to exit */
-  {
-    /* Set up to ignore signals so we can report them on stderror */
-    signal(SIGHUP,SIG_IGN);
-    signal(SIGINT,SIG_IGN);
-    signal(SIGTERM,SIG_IGN);
-    
-    wait(&stat);		/* wait for child to exit */
-    exit(figureStat(stat));	/* figure out our exit code and die */
-  }
-  else				/* child process */
-  {
-    close(0);			/* close of modem file desc, since HDB */
-    close(1);			/* doesn't use them */
-    dup2(2,1);			/* and remap stdout to stderr, just in case */
-    if(execvp(argv[1],argv+1)<0) /* exec program with argv shifted by 1 */
-    {				/* if exec fails, send SIGUSR1 to parent */
-      kill(parent,SIGUSR1);
-      exit(0);
-    }
-  }  
-  exit(0);
-}
-
-/* Figure out whether or not dialer ran succesfully, and return
-with 0 if it worked, otherwise error */
-int figureStat(int stat)
-{
-  int exit;
-  int errFlag;
-  int error;
-  
-  if(WIFSIGNALED(stat))		/* determine if exit was from signal or what */
-  {
-    fprintf(stderr,"Error: Dialer %s recieved signal %d.\n",dialerName,
-	    WTERMSIG(stat));
-    return(1);
-  }
-  if(WIFSTOPPED(stat))
-  {
-    fprintf(stderr,"Error: Dialer %s recieved signal %d.\n",dialerName,
-	    WSTOPSIG(stat));
-    return(1);
-  }
-  exit=WEXITSTATUS(stat);
-
-  errFlag=exit&kExitErrFlag;	/* Is the error flag set? */
-  if(errFlag)
-  {
-    char *errString;
-
-    error=exit&kErrorMask;
-    errString=findInTable(error); /* find it's string, print it on stderr */
-    fprintf(stderr,"Error: %s - %s.\n",dialerName,errString); /* and return */
-    return(1);
-  }
-  return(0);
-}
-
-/* Support routine, look up exit code in error table, and return pointer
-to proper string */
-char *findInTable(int error)
-{
-  int i=0;
-
-  for(i=0;errors[i].errString!=NULL;i++)
-  {
-    if(errors[i].errNum==error)
-      return(errors[i].errString);
-  }
-  /* Still here, return the top entry, for unknown error */
-  return(errors[0].errString);
-}
-
-/* Called by signal if we recieve SIGUSR 1 */
-void badExec(void)
-{
-  fprintf(stderr,"Error: %s - Execution problem.\n",dialerPath);
-  exit(1);
-}
diff --git a/gnu/libexec/uucp/contrib/savelog.man b/gnu/libexec/uucp/contrib/savelog.man
deleted file mode 100644
index 919b94f..0000000
--- a/gnu/libexec/uucp/contrib/savelog.man
+++ /dev/null
@@ -1,130 +0,0 @@
-.\" @(#)man/man8/savelog.an	1.2 24 Oct 1990 05:18:46
-.de pP
-.if n .sp 1
-.if t .sp .4
-..
-.de tP
-.pP
-.ta \\n(pDu
-.ti -\\n(pDu
-..
-.TH SAVELOG X_MAN8_EXT_X "31 January 1988" "Local"
-.SH NAME
-savelog \- cycle and truncate log files
-.SH SYNOPSIS
-.na
-.B X_UTIL_BIN_DIR_X/savelog
-[
-.B \-m
-.I mode
-] [
-.B \-u
-.I user
-] [
-.B \-g
-.I group
-] [
-.B \-c
-.I cycle
-] [
-.B \-t
-] [
-.B \-l
-]
-.I logfile
-.br
-.ad
-.SH DESCRIPTION
-The
-.I savelog
-command renames and optionally compresses a log file and cycles it
-through a set of names based on the original log file, removing the
-last name in the cycle.
-.SH OPTIONS
-The
-.I savelog
-command accepts the following options:
-.TP
-\fB\-m\fP \fImode\fP
-Change the permissions mode for renamed log files to
-.IR mode .
-By default the mode is unchanged.
-.TP
-\fB\-u\fP \fIuser\fP
-Change the owner for renamed log files to
-.IR user .
-By default the owner is unchanged.
-.TP
-\fB\-g\fP \fIgroup\fP
-Change the group for renamed log files to
-.IR group .
-By default the group is unchanged.
-.TP
-\fB\-c\fP \fIcycle\fP
-Save
-.I cycle
-versions of the logfile, where
-.I cycle
-is a decimal number.  The default value is 7.
-.TP
-.B \-l
-Do not compress log files.  By default, a compression program is used,
-if one is available.
-.TP
-.B \-t
-Ensure that a new logfile exists when the savelog operation is
-complete.  Use of
-.BR \-m ,
-.BR \-u
-or
-.BR \-g
-imply this, ensuring that the logfile will have the designated mode.
-.SH "OPERATION"
-The given logfile is cycled through files named:
-.RS
-
-OLD/\fIfile\fP.\fInumber\fP
-
-.RE
-where
-.I file
-is the basename for the logfile and where
-.I number
-ranges from 0 to one less then the
-.I cycle
-count specified for the command.
-The
-.I OLD
-dirctory is created, as necessary, and is under the same directory as
-the logfile itself.
-.PP
-This cycle operation is accomplished by renaming the file numbered
-.IR cycle -2
-to a file numbered
-.IR cycle -1
-and so on until the file numbered 0 is renamed to the file numbered 1.
-If compression is being used, the first cycle file is compressed after
-being renamed to cycle 1.  After the cycle files are moved through the
-various names, the filefile itself is moved to the cycle 0 file.
-This cycle normally occurs once every time
-.I savelog
-is executed.
-If the log file does not exist, savelog ignores it and does
-not cycle the OLD files.
-.PP
-If compression is being used, then compressed log files will have an
-additional suffix appropriate for the compression program that is
-used.
-.SH "SEE ALSO"
-.IR smail (X_MAN5_EXT_X)
-and
-.IR smail (X_MAN8_EXT_X).
-.SH COPYRIGHT
-Copyright(C)1987, 1988 Ronald S. Karr and Landon Curt Noll
-.br
-See a file COPYING,
-distributed with the source code,
-or type
-.I "smail \-bc"
-for distribution rights and restrictions
-associated with this software.
diff --git a/gnu/libexec/uucp/contrib/savelog.sh b/gnu/libexec/uucp/contrib/savelog.sh
deleted file mode 100755
index 64c989f..0000000
--- a/gnu/libexec/uucp/contrib/savelog.sh
+++ /dev/null
@@ -1,247 +0,0 @@
-#! /bin/sh
-# @(#)util/savelog.sh	1.4 26 Oct 1991 22:49:39
-#
-# savelog - save a log file
-#
-#    Copyright (C) 1987, 1988 Ronald S. Karr and Landon Curt Noll
-# 
-# See the file COPYING, distributed with smail, for restriction
-# and warranty information.
-#
-# usage: savelog [-m mode] [-u user] [-g group] [-t] [-c cycle] [-l] file...
-#
-#	-m mode	  - chmod log files to mode
-#	-u user	  - chown log files to user
-#	-g group  - chgrp log files to group
-#	-c cycle  - save cycle versions of the logfile	(default: 7)
-#	-t	  - touch file
-#	-l	  - don't compress any log files	(default: compress)
-#	file 	  - log file names
-#
-# The savelog command saves and optionally compresses old copies of files
-# into an 'dir'/OLD sub-directory.  The 'dir' directory is determined from
-# the directory of each 'file'.  
-#
-# Older version of 'file' are named:
-#
-#		OLD/'file'.<number><compress_suffix>
-#
-# where <number> is the version number, 0 being the newest.  By default,
-# version numbers > 0 are compressed (unless -l prevents it). The
-# version number 0 is never compressed on the off chance that a process
-# still has 'file' opened for I/O.
-#
-# If the 'file' does not exist or if it is zero length, no further processing
-# is performed.  However if -t was also given, it will be created.
-#
-# For files that do exist and have lengths greater than zero, the following 
-# actions are performed.
-#
-#	1) Version numered files are cycled.  That is version 6 is moved to
-#	   version 7, version is moved to becomes version 6, ... and finally
-#	   version 0 is moved to version 1.  Both compressed names and
-#	   uncompressed names are cycled, regardless of -t.  Missing version 
-#	   files are ignored.
-#
-#	2) The new OLD/file.1 is compressed and is changed subject to 
-#	   the -m, -u and -g flags.  This step is skipped if the -t flag 
-#	   was given.
-#
-#	3) The main file is moved to OLD/file.0.
-#
-#	4) If the -m, -u, -g or -t flags are given, then file is created 
-#	   (as an empty file) subject to the given flags.
-#
-#	5) The new OLD/file.0 is chanegd subject to the -m, -u and -g flags.
-#
-# Note: If the OLD sub-directory does not exist, it will be created 
-#       with mode 0755.
-#
-# Note: If no -m, -u or -g flag is given, then the primary log file is 
-#	not created.
-#
-# Note: Since the version numbers start with 0, version number <cycle>
-#       is never formed.  The <cycle> count must be at least 2.
-#
-# Bugs: If a process is still writing to the file.0 and savelog
-#	moved it to file.1 and compresses it, data could be lost.
-#	Smail does not have this problem in general because it
-#	restats files often.
-
-# common location
-PATH="X_UTIL_PATH_X:X_SECURE_PATH_X"; export PATH
-COMPRESS="X_COMPRESS_X"
-COMP_FLAG="X_COMP_FLAG_X"
-DOT_Z="X_DOT_Z_X"
-CHOWN="X_CHOWN_X"
-GETOPT="X_UTIL_BIN_DIR_X/getopt"
-
-# parse args
-exitcode=0	# no problems to far
-prog=$0
-mode=
-user=
-group=
-touch=
-count=7
-set -- `$GETOPT m:u:g:c:lt $*`
-if [ $# -eq 0 -o  $? -ne 0 ]; then
-	echo "usage: $prog [-m mode][-u user][-g group][-t][-c cycle][-l] file ..." 1>&2
-	exit 1
-fi
-for i in $*; do
-	case $i in
-	-m) mode=$2; shift 2;;
-	-u) user=$2; shift 2;;
-	-g) group=$2; shift 2;;
-	-c) count=$2; shift 2;;
-	-t) touch=1; shift;;
-	-l) COMPRESS=""; shift;;
-	--) shift; break;;
-	esac
-done
-if [ "$count" -lt 2 ]; then
-	echo "$prog: count must be at least 2" 1>&2
-	exit 2
-fi
-
-# cycle thru filenames
-while [ $# -gt 0 ]; do
-
-	# get the filename
-	filename=$1
-	shift
-
-	# catch bogus files
-	if [ -b "$filename" -o -c "$filename" -o -d "$filename" ]; then
-		echo "$prog: $filename is not a regular file" 1>&2
-		exitcode=3
-		continue
-	fi
-
-	# if not a file or empty, do nothing major
-	if [ ! -s $filename ]; then
-		# if -t was given and it does not exist, create it
-		if [ ! -z "$touch" -a ! -f $filename ]; then 
-			touch $filename
-			if [ "$?" -ne 0 ]; then
-				echo "$prog: could not touch $filename" 1>&2
-				exitcode=4
-				continue
-			fi
-			if [ ! -z "$user" ]; then 
-				$CHOWN $user $filename
-			fi
-			if [ ! -z "$group" ]; then 
-				chgrp $group $filename
-			fi
-			if [ ! -z "$mode" ]; then 
-				chmod $mode $filename
-			fi
-		fi
-		continue
-	fi
-
-	# be sure that the savedir exists and is writable
-	savedir=`expr "$filename" : '\(.*\)/'`
-	if [ -z "$savedir" ]; then
-		savedir=./OLD
-	else
-		savedir=$savedir/OLD
-	fi
-	if [ ! -s $savedir ]; then
-		mkdir $savedir
-		if [ "$?" -ne 0 ]; then
-			echo "$prog: could not mkdir $savedir" 1>&2
-			exitcode=5
-			continue
-		fi
-		chmod 0755 $savedir
-	fi
-	if [ ! -d $savedir ]; then
-		echo "$prog: $savedir is not a directory" 1>&2
-		exitcode=6
-		continue
-	fi
-	if [ ! -w $savedir ]; then
-		echo "$prog: directory $savedir is not writable" 1>&2
-		exitcode=7
-		continue
-	fi
-
-	# deterine our uncompressed file names
-	newname=`expr "$filename" : '.*/\(.*\)'`
-	if [ -z "$newname" ]; then
-		newname=$savedir/$filename
-	else
-		newname=$savedir/$newname
-	fi
-
-	# cycle the old compressed log files
-	cycle=`expr $count - 1`
-	rm -f $newname.$cycle $newname.$cycle$DOT_Z
-	while [ "$cycle" -gt 1 ]; do
-		# --cycle
-		oldcycle=$cycle
-		cycle=`expr $cycle - 1`
-		# cycle log
-		if [ -f $newname.$cycle$DOT_Z ]; then
-			mv -f $newname.$cycle$DOT_Z $newname.$oldcycle$DOT_Z
-		fi
-		if [ -f $newname.$cycle ]; then
-			# file was not compressed for some reason move it anyway
-			mv -f $newname.$cycle $newname.$oldcycle
-		fi
-	done
-
-	# compress the old uncompressed log if needed
-	if [ -f $newname.0 ]; then
-		if [ -z "$COMPRESS" ]; then
-			newfile=$newname.1
-			mv $newname.0 $newfile
-		else
-			newfile=$newname.1$DOT_Z
-			$COMPRESS $COMP_FLAG < $newname.0 > $newfile
-			rm -f $newname.0
-		fi
-		if [ ! -z "$user" ]; then 
-			$CHOWN $user $newfile
-		fi
-		if [ ! -z "$group" ]; then 
-			chgrp $group $newfile
-		fi
-		if [ ! -z "$mode" ]; then 
-			chmod $mode $newfile
-		fi
-	fi
-
-	# move the file into the file.0 holding place
-	mv -f $filename $newname.0
-
-	# replace file if needed
-	if [ ! -z "$touch" -o ! -z "$user" -o \
-	     ! -z "$group" -o ! -z "$mode" ]; then 
-		touch $filename
-	fi
-	if [ ! -z "$user" ]; then 
-		$CHOWN $user $filename
-	fi
-	if [ ! -z "$group" ]; then 
-		chgrp $group $filename
-	fi
-	if [ ! -z "$mode" ]; then 
-		chmod $mode $filename
-	fi
-
-	# fix the permissions on the holding place file.0 file
-	if [ ! -z "$user" ]; then 
-		$CHOWN $user $newname.0
-	fi
-	if [ ! -z "$group" ]; then 
-		chgrp $group $newname.0
-	fi
-	if [ ! -z "$mode" ]; then 
-		chmod $mode $newname.0
-	fi
-done
-exit $exitcode
diff --git a/gnu/libexec/uucp/contrib/stats.sh b/gnu/libexec/uucp/contrib/stats.sh
deleted file mode 100755
index ac1d0f5..0000000
--- a/gnu/libexec/uucp/contrib/stats.sh
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/sh
-#
-# uuspeed - a script to parse a Taylor UUCP Stats file into pretty results.
-# Zacharias J. Beckman.
-
-grep bytes /usr/spool/uucp/Stats | grep -v 'bytes 0.00 secs' | grep -v 'failed after' | tail -80 | \
-gawk '
-  BEGIN {
-    printf("          UUCP transmission history:\n");
-    format=" %8d bytes %8s(%8s) in %7.2f sec = %5.0f baud, %4.1fK / min\n";
-    average=0.01;
-    samples=0;
-  }
-
-  {
-  if ($6 > 100) {
-      printf (format, $6, $5, $2, $9, $6/$9*10, ($6/$9*60)/1000);
-
-      average += ($6/$9*10);
-      samples += 1;
-    }
-  }
-
-  END {
-    printf ("          average speed %d baud\n", average/samples);
-  }
-'
diff --git a/gnu/libexec/uucp/contrib/tstout.c b/gnu/libexec/uucp/contrib/tstout.c
deleted file mode 100644
index 92eca75..0000000
--- a/gnu/libexec/uucp/contrib/tstout.c
+++ /dev/null
@@ -1,160 +0,0 @@
-/* tstout.c
-   Put together by Ian Lance Taylor <ian@airs.com>
-
-   This program is used to logout a program run by the tstuu program.
-   I needed this because on Ultrix 4.0 I can't get the uucp program
-   to run without invoking it via /bin/login and having it start up
-   as a shell.  If I don't do it this way, it gets a SIGSEGV trap
-   for some reason.  Most systems probably don't need to do things
-   this way.  It will only work on BSD systems anyhow, I suspect.
-
-   The code for this comes from "UNIX Network Programming" by W.
-   Richard Stevens, Prentice-Hall 1990.  Most of it is from 4.3BSD, as
-   noted in the comments.
-
-   This program must run suid to root.
-   */
-
-/* $FreeBSD$ */
-
-#include <stdio.h>
-#include <string.h>
-
-#include <sys/types.h>
-#include <sys/file.h>
-#include <sys/time.h>
-#include <sys/stat.h>
-#include <utmp.h>
-
-static int logout P((const char *zdev));
-static void logwtmp P((const char *zdev, const char *zname,
-		      const char *zhost));
-
-int
-main (argc, argv)
-     int argc;
-     char **argv;
-{
-  char *z;
-
-  if (argc != 2
-      || strncmp (argv[1], _PATH_DEV, sizeof _PATH_DEV - 1) != 0)
-    {
-      fprintf (stderr, "Usage: tstout device\n");
-      exit (EXIT_FAILURE);
-    }
-
-  z = argv[1] + 5;
-
-  if (logout (z))
-    logwtmp (z, "", "");
-
-  chmod (argv[1], 0666);
-  chown (argv[1], 0, 0);
-
-  *z = 'p';
-  chmod (argv[1], 0666);
-  chown (argv[1], 0, 0);
-
-  exit (EXIT_SUCCESS);
-}
-
-/*
- * Copyright (c) 1988 The Regents of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms are permitted
- * provided that the above copyright notice and this paragraph are
- * duplicated in all such forms and that any documentation,
- * advertising materials, and other materials related to such
- * distribution and use acknowledge that the software was developed
- * by the University of California, Berkeley.  The name of the
- * University may not be used to endorse or promote products derived
- * from this software without specific prior written permission.
- * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
- * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-#if defined(LIBC_SCCS) && !defined(lint)
-static char sccsid[] = "@(#)logout.c	5.2 (Berkeley) 2/17/89";
-#endif /* LIBC_SCCS and not lint */
-
-#define	UTMPFILE	"/etc/utmp"
-
-/* 0 on failure, 1 on success */
-
-static int
-logout(line)
-	register const char *line;
-{
-	register FILE *fp;
-	struct utmp ut;
-	int rval;
-	time_t time();
-
-	if (!(fp = fopen(UTMPFILE, "r+")))
-		return(0);
-	rval = 0;
-	while (fread((char *)&ut, sizeof(struct utmp), 1, fp) == 1) {
-		if (!ut.ut_name[0] ||
-		    strncmp(ut.ut_line, line, sizeof(ut.ut_line)))
-			continue;
-		bzero(ut.ut_name, sizeof(ut.ut_name));
-		bzero(ut.ut_host, sizeof(ut.ut_host));
-		(void)time((time_t *)&ut.ut_time);
-		(void)fseek(fp, (long)-sizeof(struct utmp), L_INCR);
-		(void)fwrite((char *)&ut, sizeof(struct utmp), 1, fp);
-		(void)fseek(fp, (long)0, L_INCR);
-		rval = 1;
-	}
-	(void)fclose(fp);
-	return(rval);
-}
-
-/*
- * Copyright (c) 1988 The Regents of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms are permitted
- * provided that the above copyright notice and this paragraph are
- * duplicated in all such forms and that any documentation,
- * advertising materials, and other materials related to such
- * distribution and use acknowledge that the software was developed
- * by the University of California, Berkeley.  The name of the
- * University may not be used to endorse or promote products derived
- * from this software without specific prior written permission.
- * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
- * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-#if defined(LIBC_SCCS) && !defined(lint)
-static char sccsid[] = "@(#)logwtmp.c	5.2 (Berkeley) 9/20/88";
-#endif /* LIBC_SCCS and not lint */
-
-#define	WTMPFILE	"/usr/adm/wtmp"
-
-static void
-logwtmp(line, name, host)
-     const char *line, *name, *host;
-{
-	struct utmp ut;
-	struct stat buf;
-	int fd;
-	time_t time();
-	char *strncpy();
-
-	if ((fd = open(WTMPFILE, O_WRONLY|O_APPEND, 0)) < 0)
-		return;
-	if (!fstat(fd, &buf)) {
-		(void)strncpy(ut.ut_line, line, sizeof(ut.ut_line));
-		(void)strncpy(ut.ut_name, name, sizeof(ut.ut_name));
-		(void)strncpy(ut.ut_host, host, sizeof(ut.ut_host));
-		(void)time((time_t *)&ut.ut_time);
-		if (write(fd, (char *)&ut, sizeof(struct utmp)) !=
-		    sizeof(struct utmp))
-			(void)ftruncate(fd, buf.st_size);
-	}
-	(void)close(fd);
-}
diff --git a/gnu/libexec/uucp/contrib/uuclean b/gnu/libexec/uucp/contrib/uuclean
deleted file mode 100644
index 1cfb633..0000000
--- a/gnu/libexec/uucp/contrib/uuclean
+++ /dev/null
@@ -1,25 +0,0 @@
-# This is a sample uuclean shell script
-# Copyright (C) 1992 Ian Lance Taylor
-# Do whatever you like with this script.
-#
-# Set some variables
-bindir=/usr/local/bin
-spooldir=/usr/spool/uucp
-#
-# Warn about all mail over two days old
-$(bindir)/uustat -c rmail -o 48 -N -Q -W"Unable to deliver; will try up to one week"
-# Return all mail over a week old
-$(bindir)/uustat -c rmail -o 168 -K -M -N -Q -W"Could not be delivered for over one week"
-# Throw away other requests over a week old
-$(bindir)/uustat -o 168 -K -M -N -Q -W"Over one week old"
-# Throw away any executions over three days old
-$(bindir)/uustat -o 72 -M -N -Q -W"Unable to execute for three days"
-#
-# Now delete any old spool files
-find $(spooldir) -ctime +8 -name '[CDX].*' -print -exec rm -f \{\} \;
-# Delete any old temporary files
-find $(spooldir) -atime +1 -ctime +1 -name 'TM.*' -print -exec rm -f \{\} \;
-# Delete any old preserved files
-find $(spooldir)/.Preserve -atime +14 -ctime +14 -print -exec rm -f \{\} \;
-# Delete any old failed execution files
-find $(spooldir)/.Failed -atime +14 -ctime +14 -print -exec rm -f \{\} \;
diff --git a/gnu/libexec/uucp/contrib/uucomp.shar b/gnu/libexec/uucp/contrib/uucomp.shar
deleted file mode 100644
index da131d0..0000000
--- a/gnu/libexec/uucp/contrib/uucomp.shar
+++ /dev/null
@@ -1,552 +0,0 @@
-#! /bin/sh
-#
-# Created by shar, version 0.5 - 04/10/91
-#
-# This is a shell archive, meaning:
-# 1. Remove everything about the #! /bin/sh line.
-# 2. Save the resulting text in a file.
-# 3. Execute the file with /bin/sh to create:
-#
-#        length  name
-#        ------  -------------------------------------
-#           128  uucomp-1.1/Compress
-#           264  uucomp-1.1/Copyright
-#           410  uucomp-1.1/INTERNALS
-#          1069  uucomp-1.1/Makefile
-#          3528  uucomp-1.1/README
-#           632  uucomp-1.1/crmail.c
-#           632  uucomp-1.1/crnews.c
-#           108  uucomp-1.1/tags
-#          3506  uucomp-1.1/uucomp.c
-#           383  uucomp-1.1/uucomp.h
-#
-
-if test ! -d uucomp-1.1 ; then
-   mkdir uucomp-1.1
-fi
-#
-# Archive number 1
-# This archive created Tue Sep 28 20:21:14 1993
-#
-
-echo "shar: extracting uucomp-1.1/Compress - (128 characters)"
-if test -f 'uucomp-1.1/Compress' ; then
-   echo shar: will not over-write existing file uucomp-1.1/Compress
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/Compress'
-Xfor i in $*
-Xdo
-X	if [ -d /usr/spool/uucp/$i ]
-X	then
-X#		echo Looking at $i
-X		cd /usr/spool/uucp/$i
-X		/usr/bin/uucomp C.*
-X	fi
-Xdone
-SHAR_EOF
-if test 128 -ne "`wc -c < 'uucomp-1.1/Compress'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/Compress (should have been 128 characters, but was "`wc -c < 'uucomp-1.1/Compress'`" characters) *****"
-fi
-fi
-
-touch 0715110393 uucomp-1.1/Compress
-chmod 0700 uucomp-1.1/Compress
-
-echo "shar: extracting uucomp-1.1/Copyright - (264 characters)"
-if test -f 'uucomp-1.1/Copyright' ; then
-   echo shar: will not over-write existing file uucomp-1.1/Copyright
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/Copyright'
-X
-X/*
-X * 
-X * Copyright 1993 by Ed Carp (erc@apple.com)  All rights reserved.
-X * 
-X * Permission is hereby granted for any non-commercial use of this
-X * program, as long as this copyright notice remains intact.  Commercial
-X * users may contact me - I'm easy.
-X * 
-X */
-X
-SHAR_EOF
-if test 264 -ne "`wc -c < 'uucomp-1.1/Copyright'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/Copyright (should have been 264 characters, but was "`wc -c < 'uucomp-1.1/Copyright'`" characters) *****"
-fi
-fi
-
-touch 0715174993 uucomp-1.1/Copyright
-chmod 0600 uucomp-1.1/Copyright
-
-echo "shar: extracting uucomp-1.1/INTERNALS - (410 characters)"
-if test -f 'uucomp-1.1/INTERNALS' ; then
-   echo shar: will not over-write existing file uucomp-1.1/INTERNALS
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/INTERNALS'
-XThis is the basic workflow for uucomp:
-X
-Xfor (every argv)
-Xdo
-X	if not "C." file skip
-X	if open fail, skip
-X	read 1 line from C. file
-X	grab second and 10th field (second is data file name,
-X		10th is command name)
-X	if open fail on second field, skip
-X	if 10th field isn't "rmail" or "rnews", skip
-X	execute "gzip -9" on second field
-X	change "rmail" and "rnews" to "crmail" and "crnews", respectively
-X		in C. file
-Xdone
-SHAR_EOF
-if test 410 -ne "`wc -c < 'uucomp-1.1/INTERNALS'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/INTERNALS (should have been 410 characters, but was "`wc -c < 'uucomp-1.1/INTERNALS'`" characters) *****"
-fi
-fi
-
-touch 0715174693 uucomp-1.1/INTERNALS
-chmod 0600 uucomp-1.1/INTERNALS
-
-echo "shar: extracting uucomp-1.1/Makefile - (1069 characters)"
-if test -f 'uucomp-1.1/Makefile' ; then
-   echo shar: will not over-write existing file uucomp-1.1/Makefile
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/Makefile'
-X#
-X# Makefile generated with genmake - version 1.1  08/22/92
-X#
-X# genmake is Copyright 1991 by Edwin R. Carp
-X#
-X# GENMAKE -B/usr/bin -tsp [files]
-X#
-X
-XCC = gcc -O6
-XCFLAGS =  $(INCLUDE)
-XSOURCES = crmail.c crnews.c uucomp.c 
-XOBJECTS = crmail.o crnews.o uucomp.o 
-XPROGRAMS = /usr/bin/crmail /usr/bin/crnews /usr/bin/uucomp 
-X
-Xall: $(PROGRAMS) tags
-X
-X/usr/bin/crmail: crmail.o 
-X	$(CC) $(CFLAGS) -o crmail crmail.o $(LDFLAGS)  -O
-X	strip crmail
-X	chmod 755 crmail
-X	mv crmail /usr/bin
-X
-X/usr/bin/crnews: crnews.o 
-X	$(CC) $(CFLAGS) -o crnews crnews.o $(LDFLAGS)  -O
-X	strip crnews
-X	chmod 755 crnews
-X	mv crnews /usr/bin
-X
-X/usr/bin/uucomp: uucomp.o 
-X	$(CC) $(CFLAGS) -o uucomp uucomp.o $(LDFLAGS)  -O
-X	strip uucomp
-X	chmod 755 uucomp
-X	mv uucomp /usr/bin
-X
-Xclean:
-X	/bin/rm -f $(OBJECTS) MAKELOG eddep makedep
-X
-Xclobber:
-X	/bin/rm -f $(OBJECTS) $(PROGRAMS) MAKELOG eddep makedep *~ *.bak *.BAK
-X	/bin/rm -f tags
-X
-Xhidden:
-X	echo "make all > MAKELOG 2>&1 &"|/bin/sh
-X
-Xmakefile:
-X	genmake -B/usr/bin -tsp $(SOURCES) &
-X
-Xmakeall:
-X	genmake -B/usr/bin -tsp *.c &
-X
-Xtags:	$(SOURCES)
-X	ctags $(SOURCES) > tags
-X
-SHAR_EOF
-if test 1069 -ne "`wc -c < 'uucomp-1.1/Makefile'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/Makefile (should have been 1069 characters, but was "`wc -c < 'uucomp-1.1/Makefile'`" characters) *****"
-fi
-fi
-
-touch 0714235093 uucomp-1.1/Makefile
-chmod 0600 uucomp-1.1/Makefile
-
-echo "shar: extracting uucomp-1.1/README - (3528 characters)"
-if test -f 'uucomp-1.1/README' ; then
-   echo shar: will not over-write existing file uucomp-1.1/README
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/README'
-XLike most people these days, I'm looking for ways to make my computing
-Xenvironment more efficient.  This environment consists of a 486, a 386,
-Xand a 386SL laptop, all of which run Taylor uucp under Linux.  The 386
-Xlaptop gets used a lot, since it goes wherever I go and I answer a lot
-Xof news and email every day.  Often, I must use other people's facilities
-X(phone lines and such) to send out replies and post news if I'm not at home.
-XSince it's not fair to the client for them to pay for my zone calls back
-Xto my home in Fremont, I place the calls on my phone card.  Unfortunately,
-XPacBell is very proud of the services they offer, especially in regards
-Xto this convenience of automatically charging calls to my house wherever I
-Xmay be.  Considering that this can be very expensive to do, I searched for
-Xa way to cut my phone bill down to something I could afford to pay each
-Xmonth without fainting every time I saw the bill.
-X
-XThe first thing I did was to go out and plunk $195 for a 14.4KB modem.
-XThat helped, but C-News is very slow on my laptop, and batching articles
-Xis even slower, and email (of course) isn't batched at all.  Even with
-XMNP5 compression turned on, this doesn't make for a very efficient setup,
-Xeven at high speeds.
-X
-XPlaying around with uucp told me that the line turnaround wasn't that much
-Xoverhead, nor was sending the C./X. files (the execute files) - the real
-Xoverhead was sending out uncompressed news and especially email, since
-XI subscribe to several mailing lists and digests can run quite large.
-X
-XI looked at uubatch, but the most current version I could find (1.05) was
-Xnot compatible with Taylor uucp (and I had no other alternative), so I
-Xdecided to write my own.  Experiments with "gzip -9" convinced me that
-Xthat was the way to go, since gzip gives email and news 60 to 75 percent
-Xcompression, which would tend to cut one's phone bill significantly.
-X
-XYou hold in your mailbox (or news reader) the end result of that effort.
-XBear in mind that (1) this is a "first cut" and while it is unlikely that
-Xthere are very many bugs, there are certainly places where the programs could
-Xbe improved and tuned.  Suggestions and comments are welcome!
-X
-XTo install:
-X
-X	1.	Feed this to shar.
-X	2.	Look at the Makefile.  Make sure that the paths for
-X		things are set up correctly.
-X	3.	Look at uucomp.h and make sure that the path and
-X		options for COMPRESS/UNCOMPRESS are set up properly.
-X	3.	Type "make".  This will make uucomp, crmail, and crnews
-X		and will place them in /usr/bin.  Move Compress into
-X		/usr/lib/uucp.
-X	4.	Make an entry in crontab to do
-X			/usr/lib/uucp/Compress site1 site2 site3...
-X		occasionally.  It is suggested that this be done fairly
-X		frequently.  Alternately, you could set up a login shell
-X		for selected sites to run uucomp every time that site
-X		logged in.
-X	5.	Don't forget to add /usr/bin/crmail and /usr/bin/crnews
-X		to the list of programs allowed to be executed in your
-X		Permissions file (if running HDB UUCP), or whatever is
-X		appropriate for your version of uucp.
-X
-XEnjoy!  Any questions or comments can be sent to erc@apple.com.
-X
-XNote:  This is tuned for Taylor uucp, but would not be particularly
-Xdifficult to adapt to other version of uucp.  See the file INTERNALS for
-Xdetails of how this works.
-X
-XJuly 15, 1993
-XEd Carp
-Xerc@apple.com
-X------------------------------------------------------------------------------
-XChanges since 1.0:
-X
-X      Version	Date		Description
-X
-X	1.1	08/04/93	Added sanity check in C. file (check that
-X				'E' is first char in file, otherwise skip)
-SHAR_EOF
-if test 3528 -ne "`wc -c < 'uucomp-1.1/README'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/README (should have been 3528 characters, but was "`wc -c < 'uucomp-1.1/README'`" characters) *****"
-fi
-fi
-
-touch 0804224993 uucomp-1.1/README
-chmod 0600 uucomp-1.1/README
-
-echo "shar: extracting uucomp-1.1/crmail.c - (632 characters)"
-if test -f 'uucomp-1.1/crmail.c' ; then
-   echo shar: will not over-write existing file uucomp-1.1/crmail.c
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/crmail.c'
-X/*
-X * crmail - get compressed mail from host, uncompress
-X * WARNING: This may be insecure!
-X */
-X
-X/*
-X * 
-X * Copyright 1993 by Ed Carp (erc@apple.com)  All rights reserved.
-X * 
-X * Permission is hereby granted for any non-commercial use of this
-X * program, as long as this copyright notice remains intact.  Commercial
-X * users may contact me - I'm easy.
-X * 
-X */
-X
-X#include <stdio.h>
-X#include "uucomp.h"
-Xmain (argc, argv)
-Xint argc;
-Xchar **argv;
-X{
-X  char cmd[1024];
-X  int i;
-X
-X  sprintf (cmd, "%s|%s ", UNCOMPRESS, RMAIL);
-X  for (i = 1; i < argc; i++)
-X  {
-X    strcat (cmd, argv[i]);
-X    strcat (cmd, " ");
-X  }
-X  system (cmd);
-X  exit (0);
-X}
-SHAR_EOF
-if test 632 -ne "`wc -c < 'uucomp-1.1/crmail.c'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/crmail.c (should have been 632 characters, but was "`wc -c < 'uucomp-1.1/crmail.c'`" characters) *****"
-fi
-fi
-
-touch 0715195493 uucomp-1.1/crmail.c
-chmod 0600 uucomp-1.1/crmail.c
-
-echo "shar: extracting uucomp-1.1/crnews.c - (632 characters)"
-if test -f 'uucomp-1.1/crnews.c' ; then
-   echo shar: will not over-write existing file uucomp-1.1/crnews.c
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/crnews.c'
-X/*
-X * crnews - get compressed news from host, uncompress
-X * WARNING: This may be insecure!
-X */
-X
-X/*
-X * 
-X * Copyright 1993 by Ed Carp (erc@apple.com)  All rights reserved.
-X * 
-X * Permission is hereby granted for any non-commercial use of this
-X * program, as long as this copyright notice remains intact.  Commercial
-X * users may contact me - I'm easy.
-X * 
-X */
-X
-X#include <stdio.h>
-X#include "uucomp.h"
-Xmain (argc, argv)
-Xint argc;
-Xchar **argv;
-X{
-X  char cmd[1024];
-X  int i;
-X
-X  sprintf (cmd, "%s|%s ", UNCOMPRESS, RNEWS);
-X  for (i = 1; i < argc; i++)
-X  {
-X    strcat (cmd, argv[i]);
-X    strcat (cmd, " ");
-X  }
-X  system (cmd);
-X  exit (0);
-X}
-SHAR_EOF
-if test 632 -ne "`wc -c < 'uucomp-1.1/crnews.c'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/crnews.c (should have been 632 characters, but was "`wc -c < 'uucomp-1.1/crnews.c'`" characters) *****"
-fi
-fi
-
-touch 0715195593 uucomp-1.1/crnews.c
-chmod 0600 uucomp-1.1/crnews.c
-
-echo "shar: extracting uucomp-1.1/tags - (108 characters)"
-if test -f 'uucomp-1.1/tags' ; then
-   echo shar: will not over-write existing file uucomp-1.1/tags
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/tags'
-Xmain	crmail.c	/^main (argc, argv)$/
-Xmain	crnews.c	/^main (argc, argv)$/
-Xmain	uucomp.c	/^main (argc, argv)$/
-SHAR_EOF
-if test 108 -ne "`wc -c < 'uucomp-1.1/tags'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/tags (should have been 108 characters, but was "`wc -c < 'uucomp-1.1/tags'`" characters) *****"
-fi
-fi
-
-touch 0804224993 uucomp-1.1/tags
-chmod 0600 uucomp-1.1/tags
-
-echo "shar: extracting uucomp-1.1/uucomp.c - (3506 characters)"
-if test -f 'uucomp-1.1/uucomp.c' ; then
-   echo shar: will not over-write existing file uucomp-1.1/uucomp.c
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/uucomp.c'
-X/*
-X * uucomp - compress outgoing news/mail
-X * 
-X * usage: uucomp C.*
-X * 
-X * This works for Taylor uucp (available from prep.ai.mit.edu:/pub/gnu/uucp*),
-X * but I don't promise it works for anyone else's uucp package.  Basically, this
-X * is a quick-n-dirty hack to get compressed mail and news to a uucp site.  This
-X * becomes important when you're on the other end of a 1200 baud packet radio
-X * link, where the throughput can be 60 CPS (or lower).  It also tends to hide
-X * any nasties that people might want to say to you, since the packets *are*
-X * public readable.  Yes, I looked at uubatch, but it was too complicated for
-X * me to figure out <grin>, and it didn't work with Taylor-uucp.  This is almost
-X * too simple to work...
-X * 
-X * To use this little guy, do something like this in the .bashrc or .profile
-X * or .cshrc of the uucp's login shell:
-X * 
-X * cd /usr/spool/uucp/<wherever the C. and D. files are kept>
-X * /usr/bin/uucomp C.*
-X * exec /usr/lib/uucp/uucico
-X * 
-X * This program was written by Ed Carp (erc@apple.com).  It can be used for any
-X * non-commercial purpose.  This software is freely redistributable.
-X */
-X
-X/*
-X * 
-X * Copyright 1993 by Ed Carp (erc@apple.com)  All rights reserved.
-X * 
-X * Permission is hereby granted for any non-commercial use of this
-X * program, as long as this copyright notice remains intact.  Commercial
-X * users may contact me - I'm easy.
-X * 
-X */
-X
-X#include <stdio.h>
-X#include "uucomp.h"
-X#undef NULL
-X#define NULL (0)
-Xmain (argc, argv)
-Xint argc;
-Xchar **argv;
-X{
-X  int i, j, sw, ctr = 0, errflag = 0, mctr = 0, nctr = 0, skipctr = 0;
-X  char scr[64], rcmd[10], line[1024], lineout[1024];
-X  char *strtok (), *ptr, *lineptr, compfile[32];
-X  FILE *in;
-X
-X  printf ("uucomp 1.1 08/04/93 ... by erc@apple.com\nscanning %d files.", argc - 1);
-X  for (i = 1; i < argc; i++)
-X  {
-X    if (strncmp (argv[i], "C.", 2) != 0)
-X    {
-X      skipctr++;
-X      continue;
-X    }
-X    if ((in = fopen (argv[i], "r+")) == (FILE *) NULL)
-X    {
-X      skipctr++;
-X      continue;
-X    }
-X    fgets (line, 1022, in);
-X    if(*line != 'E')
-X    {
-X      skipctr++;
-X      continue;
-X    }
-X    line[strlen (line) - 1] = NULL;
-X    rewind (in);
-X    *lineout = NULL;
-X    lineptr = line;
-X    sw = errflag = 0;
-X    printf (".");
-X    fflush (stdout);
-X    for (j = 0;; j++)
-X    {
-X      ptr = strtok (lineptr, " ");
-X      if (ptr == NULL)
-X	break;
-X      lineptr = NULL;
-X      if (j == 1)
-X      {
-X	if (access (ptr, 4) == EOF)
-X	{
-X#ifdef DEBUG
-X	  printf ("skip: file '%s' doesn't exist\n", ptr);
-X#endif
-X	  errflag = 1;
-X	  break;		       /*
-X				        * skip it if the data file isn't
-X				        * there yet 
-X				        */
-X	}
-X	strcpy (compfile, ptr);
-X      }
-X      if (j == 9)
-X      {
-X	if (strcmp (ptr, "rmail") != 0 && strcmp (ptr, "rnews") != 0)
-X	{
-X#ifdef DEBUG
-X	  printf ("skip: '%s' wrong command\n", ptr);
-X#endif
-X	  errflag = 1;
-X	  break;
-X	}
-X	if (strcmp (ptr, "rmail") == 0)
-X	  mctr++;
-X	if (strcmp (ptr, "rnews") == 0)
-X	  nctr++;
-X	sw = 1;
-X	strcat (lineout, "c");
-X      }
-X      strcat (lineout, ptr);
-X      strcat (lineout, " ");
-X    }
-X    if (errflag == 1)
-X    {
-X      skipctr++;
-X      fclose (in);
-X      continue;
-X    }
-X    fprintf (in, "%s\n", lineout);
-X    fclose (in);
-X    sprintf (line,
-X	     "%s -fc > /tmp/uucomp.%d < %s;cp /tmp/uucomp.%d %s",
-X	     COMPRESS, getpid (), compfile, getpid (), compfile);
-X    system (line);
-X    ctr++;
-X  }
-X  sprintf (line, "/tmp/uucomp.%d", getpid ());
-X  unlink (line);
-X  printf ("\n%d skipped, %d compressed (%d mail, %d news).\n",
-X	  skipctr, ctr, mctr, nctr);
-X  exit (0);
-X}
-SHAR_EOF
-if test 3506 -ne "`wc -c < 'uucomp-1.1/uucomp.c'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/uucomp.c (should have been 3506 characters, but was "`wc -c < 'uucomp-1.1/uucomp.c'`" characters) *****"
-fi
-fi
-
-touch 0804224693 uucomp-1.1/uucomp.c
-chmod 0600 uucomp-1.1/uucomp.c
-
-echo "shar: extracting uucomp-1.1/uucomp.h - (383 characters)"
-if test -f 'uucomp-1.1/uucomp.h' ; then
-   echo shar: will not over-write existing file uucomp-1.1/uucomp.h
-else
-sed 's/^X//' << \SHAR_EOF > 'uucomp-1.1/uucomp.h'
-X/*
-X * 
-X * Copyright 1993 by Ed Carp (erc@apple.com)  All rights reserved.
-X * 
-X * Permission is hereby granted for any non-commercial use of this
-X * program, as long as this copyright notice remains intact.  Commercial
-X * users may contact me - I'm easy.
-X * 
-X */
-X
-X#define COMPRESS "/usr/bin/gzip -9c"
-X#define UNCOMPRESS "/usr/bin/gzip -dc"
-X#define RMAIL "rmail"
-X#define RNEWS "rnews"
-SHAR_EOF
-if test 383 -ne "`wc -c < 'uucomp-1.1/uucomp.h'`" ; then
-   echo "shar: ***** error transmitting file uucomp-1.1/uucomp.h (should have been 383 characters, but was "`wc -c < 'uucomp-1.1/uucomp.h'`" characters) *****"
-fi
-fi
-
-touch 0715190293 uucomp-1.1/uucomp.h
-chmod 0600 uucomp-1.1/uucomp.h
-echo End of all shell archives
-exit 0
diff --git a/gnu/libexec/uucp/contrib/uudemon.shar b/gnu/libexec/uucp/contrib/uudemon.shar
deleted file mode 100644
index 31a8fa6..0000000
--- a/gnu/libexec/uucp/contrib/uudemon.shar
+++ /dev/null
@@ -1,82 +0,0 @@
-#! /bin/sh
-# This is a shell archive.  Remove anything before this line, then unpack
-# it by saving it into a file and typing "sh file".  To overwrite existing
-# files, type "sh file -c".  You can also feed this as standard input via
-# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
-# will see the following message at the end:
-#		"End of shell archive."
-# Contents:  Poll uudemon.poll
-# Wrapped by dburr@sbanet on Fri Jul 23 20:15:18 1993
-PATH=/bin:/usr/bin:/usr/ucb ; export PATH
-if test -f 'Poll' -a "${1}" != "-c" ; then 
-  echo shar: Will not clobber existing file \"'Poll'\"
-else
-echo shar: Extracting \"'Poll'\" \(244 characters\)
-sed "s/^X//" >'Poll' <<'END_OF_FILE'
-X# HDB-ish poll file
-X#
-X# Format: <site><tab><hour1> <hour2> ...
-X# ONLY ONE TAB BETWEEN FIELDS... more may work, but I have absolutely no
-X# idea if it will work at all.
-X#
-X# comment lines (begin with `#') are ignored.
-X
-Xdschub	20 21 22
-Xgd	20 21 22
-END_OF_FILE
-if test 244 -ne `wc -c <'Poll'`; then
-    echo shar: \"'Poll'\" unpacked with wrong size!
-fi
-# end of 'Poll'
-fi
-if test -f 'uudemon.poll' -a "${1}" != "-c" ; then 
-  echo shar: Will not clobber existing file \"'uudemon.poll'\"
-else
-echo shar: Extracting \"'uudemon.poll'\" \(941 characters\)
-sed "s/^X//" >'uudemon.poll' <<'END_OF_FILE'
-X#!/bin/sh
-X#
-X# This is my impersonation of the HDB uudemon.poll script.
-X# Yes, I know, this is very clumsy and clunky... ahh well, I've always
-X# been better at C/pascal/etc than Shell programming... :(
-X
-X# change LIBDIR to where UUCP library/conf. files are
-X# change SPOOLDIR to the UUCP spool directory.  It must be HDB-ish.
-XLIBDIR=/usr/lib/uucp; export LIBDIR
-XSPOOLDIR=/usr/spool/uucp; export SPOOLDIR
-X
-X###  no changes needed past here  ###
-X
-XHOUR=`date +%H`; export HOUR
-X
-Xif [ -f ${LIBDIR}/Poll ]; then
-X	for SYS in `uuname`
-X	do
-X		CHOICES="`grep "^$SYS[	]" ${LIBDIR}/Poll | awk -F'	' \
-X			'{ print $2 }'`"
-X		DOIT="no"
-X		for H in $CHOICES
-X		do
-X			if [ "$HOUR" = "$H" ]; then
-X				DOIT="yes"
-X			fi
-X		done
-X		if [ "$DOIT" = "yes" ]; then
-X			if [ ! -d ${SPOOLDIR}/${SYS} ]; then
-X				mkdir ${SPOOLDIR}/${SYS}
-X			fi
-X			chmod 755 ${SPOOLDIR}/${SYS}
-X			touch ${SPOOLDIR}/${SYS}/C.${SYS}n0000
-X			chmod 644 ${SPOOLDIR}/${SYS}/C.${SYS}n0000
-X		fi
-X	done
-Xfi
-END_OF_FILE
-if test 941 -ne `wc -c <'uudemon.poll'`; then
-    echo shar: \"'uudemon.poll'\" unpacked with wrong size!
-fi
-chmod +x 'uudemon.poll'
-# end of 'uudemon.poll'
-fi
-echo shar: End of shell archive.
-exit 0
diff --git a/gnu/libexec/uucp/contrib/uupoll.shar b/gnu/libexec/uucp/contrib/uupoll.shar
deleted file mode 100644
index fa4f72f..0000000
--- a/gnu/libexec/uucp/contrib/uupoll.shar
+++ /dev/null
@@ -1,2687 +0,0 @@
-#!/bin/sh
-# This is a shell archive (produced by shar 3.49)
-# To extract the files from this archive, save it to a file, remove
-# everything above the "!/bin/sh" line above, and type "sh file_name".
-#
-# made 04/17/1994 02:21 UTC by ian@comton.airs.com
-# Source directory /disk4/ian
-#
-# existing files will NOT be overwritten unless -c is specified
-#
-# This shar contains:
-# length  mode       name
-# ------ ---------- ------------------------------------------
-#   2602 -r--r--r-- uupoll/Makefile
-#   3636 -r--r--r-- uupoll/README
-#   4718 -r--r--r-- uupoll/autopoll.8c
-#  44031 -r--r--r-- uupoll/autopoll.c
-#   3884 -r--r--r-- uupoll/conf.h
-#   4787 -r--r--r-- uupoll/uupoll.8c
-#  27587 -r--r--r-- uupoll/uupoll.c
-#
-# ============= uupoll/Makefile ==============
-if test ! -d 'uupoll'; then
-    echo 'x - creating directory uupoll'
-    mkdir 'uupoll'
-fi
-if test -f 'uupoll/Makefile' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/Makefile (File already exists)'
-else
-echo 'x - extracting uupoll/Makefile (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/Makefile' &&
-# This is the Makefile for uupoll and autopoll
-# borrowed and hacked from Taylor UUCP 1.04
-X
-# Prefix directory for installation directories.
-prefix = /usr/local
-X
-# The user name/group that should own the resulting executables.
-# Both should run suid.
-owner = uucp.daemon
-X
-# Which mode should the resulting executables have.
-emode = 4111
-X
-# Where to install autopoll. This definition requires $(prefix)/lib to exist.
-lbindir = $(prefix)/lib/uucp
-X
-# Where are the sources from uucp-Taylor uucp.h, uuconf.h, policy.h.
-# the following assumes that our sources are in uucp-1.05/contrib/uupoll
-# and the required .h files are in main directory for uucp-1.05
-uucpsrcs = ../../
-X
-# Where to install uupoll
-bbindir = $(prefix)/bin
-X
-# Where to install man pages.  Section 8 for daemons.
-man8dir = $(prefix)/man/man8
-man8ext = .8c
-X
-# Define programs and flags
-CC = gcc
-CFLAGS = -O2
-LDFLAGS = -s
-LIBS =
-X
-INSTALL = /usr/bin/install -c
-INSTALL_PROGRAM = $(INSTALL)
-INSTALL_DATA = $(INSTALL) -m 644
-X
-#
-# Nothing else to configure
-#
-X
-SHELL = /bin/sh
-X
-VERSION = 1.00
-X
-MORECFLAGS = -I. -I$(uucpsrcs) -Wall
-X
-PROGRAMS = uupoll autopoll
-X
-UUPOLLOBJS = uupoll.o
-AUTOOBJS = autopoll.o
-X
-ALLOBJS = uupoll.o autopoll.o
-X
-all: $(PROGRAMS)
-X
-install: $(PROGRAMS)
-X	if test -d $(lbindir); then true; else mkdir $(lbindir); fi
-X	if test -d $(bbindir); then true; else mkdir $(bbindir); fi
-X	-if test -f $(lbindir)/autopoll.old; then rm -f $(lbindir)/autopoll; else mv $(lbindir)/autopoll $(lbindir)/autopoll.old; fi
-X	-if test -f $(bbindir)/uupoll.old; then rm -f $(bbindir)/uupoll; else mv $(bbindir)/uupoll $(bbindir)/uupoll.old; fi
-X	$(INSTALL_PROGRAM) autopoll $(lbindir)/autopoll
-X	$(INSTALL_PROGRAM) uupoll $(bbindir)/uupoll
-X	chown $(owner) $(lbindir)/autopoll $(bbindir)/uupoll
-X	chmod $(emode) $(lbindir)/autopoll $(bbindir)/uupoll
-X	$(INSTALL_DATA) uupoll.8c $(man8dir)/uupoll$(man8ext)
-X	$(INSTALL_DATA) autopoll.8c $(man8dir)/autopoll$(man8ext)
-X
-uninstall:
-X	rm -f $(lbindir)/autopoll $(bbindir)/uupoll
-X	rm -f $(man8dir)/autopoll$(man8ext) $(man8dir)/uupoll$(man8ext)
-X	-cp $(lbindir)/autopoll.old $(lbindir)/autopoll
-X	-cp $(bbindir)/uupoll.old $(bbindir)/uupoll
-X	-chown $(owner) $(lbindir)/autopoll $(bbindir)/uupoll
-X	-chmod $(emode) $(lbindir)/autopoll $(bbindir)/uupoll
-X
-uupoll: $(UUPOLLOBJS)
-X	$(CC) $(LDFLAGS) -o uupoll $(UUPOLLOBJS) $(LIBS)
-X
-autopoll: $(AUTOOBJS)
-X	$(CC) $(LDFLAGS) -o autopoll $(AUTOOBJS) $(LIBS)
-X
-.c.o:
-X	$(CC) -c $(CFLAGS) $(MORECFLAGS) $<
-X
-X
-clean:
-X	rm -f $(ALLOBJS) $(PROGRAMS)
-X
-mostlyclean: clean
-X
-TAGS:
-X	etags *.h *.c
-X
-# Header file dependencies.  These are maintained by hand.
-X
-$(ALLOBJS): conf.h
-X
-.NOEXPORT:
-SHAR_EOF
-chmod 0444 uupoll/Makefile ||
-echo 'restore of uupoll/Makefile failed'
-Wc_c="`wc -c < 'uupoll/Makefile'`"
-test 2602 -eq "$Wc_c" ||
-	echo 'uupoll/Makefile: original size 2602, current size' "$Wc_c"
-fi
-# ============= uupoll/README ==============
-if test -f 'uupoll/README' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/README (File already exists)'
-else
-echo 'x - extracting uupoll/README (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/README' &&
-X
-The package consists of the following files:
-X
-X - autopoll.c
-X - autopoll.8c
-X - conf.h
-X - Makefile
-X - README
-X - uupoll.c
-X - uupoll.8c
-X
-CAVEAT:
-uupoll as well as autopoll are created, tested and run on 
-a NeXT running NeXTstep 2.1+ only! Autopoll will take the same arguments
-as uucico and may well work with them the same way uucico works but it
-has only been tested to call uucico with the options:
-X
-X -s<site> -S<site> -f -r1 -C -D (as well as the long form of these options) 
-X
-so far. All options given to autopoll will be passed verbatim to uucico.
-X
-DESCRIPTION:
-The program uupoll was created to be a full replacement for the vendor
-supplied one on a NeXT computer. That uupoll checked any site name against
-the "hardwired" L.sys and did end with a "Bus error" if the site could not
-be found. There was no source available to modify so it had to be created
-from scratch.
-The program autopoll has no equivalent an the NeXT. The intentions behind
-it was to automate the task of rescheduling any failed call. It may be
-started by an entry in the crontab tables in just the same way uucico is
-started (it will start uucico):
-X
-05 5 * * *       uucp  /usr/local/lib/uucp/autopoll -r1 >>/tmp/poll.log 2>&1
-X
-Any messages go to stderr or a file (if compiled with that option); in case
-the file could not be opened it will use stdout to tell you just that and quit.
-To catch any output one may place the string
-X
-X  >>/tmp/poll.log 2>&1
-X
-into the command line as well. Uupoll as well as autopoll will place only
-a start message into the logfiles in case they are invoked manually from
-the shell.
-If the call fails autopoll will reschedule uucico for a later time by means
-of an AT job.
-The messages given by uupoll and autopoll carry an indicator to inform about
-the nature of an error; they are:
-X
-- (I) informal message; such as ".. started" ".. ended".
-- (W) there might be an error but the program decided to go ahead.
-X      The exit code will be at least 4.
-- (E) a severe error was encountered that either aborts the whole run or
-X      only the task for one site will be aborted. 
-X      The exit code will be at least 8.
-- (C) a catastrophic error has been found such as unable to fork. The run
-X      is aborted.
-X      The exit code will be at least 16.
-The final message will show the exit code the programm has terminated with.
-X
-For more information see the man pages or look into the source.
-X
-INSTALLATION:
-all files should be placed in one folder. Then examine and change the files
-Makefile and conf.h to meet your needs. To compile uupoll some files of
-uucp must be available (see Makefile: uucpsrcs)
-If not already there change to the directory which contain the files and type:
-X
-make
-X
-this should compile UUPOLL and AUTOPOLL. There should only be a warning
-that rcsid is defined but not used.
-Before actually installing you should test the programs to be working as
-desired.
-Then check the Makefile for the final placement of the modules and the man
-pages. Make sure the ownership and setuid is what you need on your machine
-to run the program(s).
-Then su to root and type:
-X
-make install
-X
-which should install the above programs and the man pages in the appropriate
-directories.
-Some word on the coding: have mercy! This is my second project in 'C'; any
-suggestions that may improve the style/coding are welcome however.
-X
-In case of any problems that can't be solved feel free to contact the
-author at:
-X
-Klaus Dahlenburg             Timezone : GMT + 2
-P.O.Box 1267                 email    : kdburg@incoahe.hanse.de
-D-21249 Tostedt              Fax      : +49 4287 676
-X    Germany                  Voice    : +49 4287 681
-X
-Have fun!
-SHAR_EOF
-chmod 0444 uupoll/README ||
-echo 'restore of uupoll/README failed'
-Wc_c="`wc -c < 'uupoll/README'`"
-test 3636 -eq "$Wc_c" ||
-	echo 'uupoll/README: original size 3636, current size' "$Wc_c"
-fi
-# ============= uupoll/autopoll.8c ==============
-if test -f 'uupoll/autopoll.8c' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/autopoll.8c (File already exists)'
-else
-echo 'x - extracting uupoll/autopoll.8c (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/autopoll.8c' &&
-.\"
-.\"	@(#)autopoll.8c	1.4 (incoahe) 5/09/1993
-.\"
-.TH AUTOPOLL 8C "May 09, 1993"
-.UC 6
-.SH NAME
-autopoll \- automatic \s-1UUCP\s+1 file transfer supervisor
-.SH SYNOPSIS
-.B autopoll
-[
-.BI options
-]
-.SH DESCRIPTION
-file transfer requests placed by
-.IR uucp (1)
-or
-.IR uux (1)
-are handled by
-.IR uucico (8C).
-.IR uucico
-will be invoked immediately by the above programs unless the \-r
-option is given which queues the request for later processing. This
-is typically done by entries in the
-.IR crontab
-table(s) which will invoke
-.IR uucico.
-.IR uucico
-can also be invoked by
-.IR uupoll (8C).
-All methods have in common that there is no automatic retry by
-.IR uucico
-itself in case the call failed for some reason.
-Either manual
-intervention or some sort of scripts must be used to overcome this
-limitation.
-.PP
-.IR Autopoll
-can be used to automate up to a certain degree the task of rescheduling
-a call. None of the standard programs already mentioned need to be 
-modified to get this working. Also not recommended (see BUGS section)
-.IR uucico
-may be an alias to 
-.IR autopoll
-as all arguments passed to
-.IR autopoll
-will be copied verbatim to
-.IR uucico.
-In case this is done by link or other means the original
-.I uucio
-must still be available in a directory outside of the normal search path
-otherwise
-.I autopoll
-can't do what it's intended to do and will form a loop.
-.PP
-When
-.IR autopoll
-is called thre will be a check on the \-s, \-S and \-f option to
-see whether this
-is a specific call or not. Also the \-S and the \-f option must be checked
-to determine the type of call: honor any imposed wait for a site or not.
-Any call to ourself or to an unknown site will be refused. The known sites
-will be obtained by a call to
-.IR uuname(1).
-All other options will not be checked in any way. Next to this
-.IR uucico
-is called and the exit code is checked for a `1' which indicates that the call
-failed for some reason whatsoever. A `0' exit code will be interpreted as
-a success and
-.IR autopoll
-ends immediate. If the call seems to be unsuccessful a new call is scheduled
-for any site whose .Status files have a retry period greater than 0. The
-retry will be scheduled by means of placing an
-.IR at
-job at the time of the failing call plus any wait time given. For those
-sites that have been called with either the \-f or \-S option the retry
-time will be the time of the failing call plus 120 seconds.
-.PP
-In case the time calculated from the values found in a \.Status file is
-lower than the current time, the current time plus 60 seconds will be taken
-as the retry time. 
-.PP
-A site will
-.IR not
-be automatically called again if one of the following
-conditions is met:
-.PP
-\-
-.IR uucico
-is terminated by a signal
-.PP
-\- either fork() or exec() failed
-.PP
-\- the
-.IR at
-command failed for any reasons.
-.PP
-\- if no wait should be honored and the retry time is found to be zero.
-(this may indicate a `Wrong time to call' condition.
-.PP
-There are other circumstances that may lead to not reschedule a call or
-not to call
-.IR uucico
-at all, all of which should be accompanied by (a) self explanatory message(s).
-.SH BUGS
-\- invalid options will make
-.IR uucico
-fail. The exit code for this type is the same as for any other failure; this
-can reschedule the call over and over again or never.
-.PP
-\- 
-.IR autopoll
-may not work as expected when called with options other than \-r1, \-s,
-\-S or \-f.
-.PP
-\- a rescheduled call may fail with `wrong time to call' the second time
-but will be rescheduled again. The times to call won't be checked by
-.IR autopoll
-and the .Status file may not indicate this in case the \-c option is given.
-.PP
-\- in case the ..._DIR points to an invalid file a `Bus error' my pop up
-during the `exec' call.
-.PP
-\- the `chat-timeout' value may have to be increased when using
-.IR autopoll.
-An indication to do that is that the call fails short after `CONNECT'
-has been received with `Time out in chat script'.
-.PP
-\- the site names given will be checked aginst the output of
-.I uuname
-without any alias expansion done.
-.PP
-\- the text strings whithin the \.Status files will not be used to detect
-a failing call. 
-.SH FILES
-.nf
-/usr/local/lib/uucp	UUCP internal utilities
-/usr/lib/uucp
-/usr/local/bin		UUCP internal utilities
-/usr/bin
-/usr/spool/uucp/.Status/	Status files for each site
-/usr/spool/uucp/	UUCP spool area. one of its sub-
-X				directories will hold the null jobs.
-/tmp/poll.log		This file is present only if autopoll
-X				has been compiled to place the messages
-X				into a file. Otherwise all messages will
-X				go to stderr. The directory as well as
-X				the name may be different. 
-.fi
-.SH SEE ALSO
-uucp(1C), uux(1C), uucico(8C), uupoll(8C), uuname(1C), sort(1), uniq(1),
-at(1)
-SHAR_EOF
-chmod 0444 uupoll/autopoll.8c ||
-echo 'restore of uupoll/autopoll.8c failed'
-Wc_c="`wc -c < 'uupoll/autopoll.8c'`"
-test 4718 -eq "$Wc_c" ||
-	echo 'uupoll/autopoll.8c: original size 4718, current size' "$Wc_c"
-fi
-# ============= uupoll/autopoll.c ==============
-if test -f 'uupoll/autopoll.c' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/autopoll.c (File already exists)'
-else
-echo 'x - extracting uupoll/autopoll.c (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/autopoll.c' &&
-/* ---------------------------------------------------------------------------*
-X
-X   Name:     autopoll
-X
-X   Author:   Klaus Dahlenburg <kdburg@incoahe.hanse.de>
-X
-X   Status:   Public domain
-X
-X   Copyright: none; claiming it to be your work will adversly affect
-X              your image to be a good programmer.
-X
-X   Function: Autopoll may be called just as uucico is called. The difference
-X             is that autopoll will call uucico and if the return code is
-X             not zero a check is made on the status files to see which site's
-X             call failed. Those sites will be called again at that time found
-X             in the status file plus any imposed wait. The next call will be
-X             scheduled via an at job which in turn is handled by cron. 
-X             Atrun depends on the scheduling granularity of cron so the
-X             actual times may be later than planned.  
-X             Autopoll will check the options -f and -s (-S) as well as the name
-X             of the site passed. All other options will be passed unchecked.
-X             The -f and -S options will indicate to autopoll that any wait
-X             to call a site should be ignored; if the call fails the next
-X             call to those sites will be at the current time plus 120 secs.
-X             When the time found plus any wait evaluates to a time that 
-X             passed already the next call will be the current time plus 60
-X             secs. The name of the site if given must be a valid one and not
-X             the host itself otherwise it will be ignored.
-X  
-X   Call:     autopoll [ options ]
-X
-X                      all option that apply to uucico may be given and
-X                      will be passed verbatim. See man uucico(8).
-X             
-X   Environment: NeXT 2.1+, Taylor UUCP-1.04+
-X   
-X   I/O:         stdin: unused.
-X                stdout: used only when ALOG_DIR is defined and the file
-X                        can't be opened. It will be a single message to tell
-X                        just that and the run is aborted.
-X                stderr: all messages go here.
-X                        If ALOG_DIR is defined (see conf.h) all messages will
-X                        be appended to a file autopoll.msglog in that 
-X                        directory; the file will be created automatically if
-X                        necessary; a redirection is then no longer possible. 
-X                Needs access to .Status files (see Comments later on).
-X
-X   Called Programs: sort, uniq, uucico, uuname, at
-X
-X   Compile:     no special options are needed. Compiled with gcc 2.3.3 -O2.
-X                Compile with the supplied cc might produce erroneous code
-X                for the check options switch case 's' code: the break inside
-X                the first if (..) {... break} is ignored.
-X
-X   Comments:    - should run setuid UUCP or whatever userid is necessary to
-X                  access (RDONLY) the .Status files and to run the programs
-X                  named under "Called Programs" above.
-X                - No alias expansion is done on the given names for the
-X                  check against uuname's output..
-X                - Invalid arguments will yield in an exit code > 0 as do
-X                  "normal" failures. It may therefore happen that a site
-X                  is called at the intervals with the same invalid arguments.
-X                - "Wrong time to call" is not handled properly and may 
-X                  call the site at the intervals until the time ban is lifted.
-X                - human action is necessary as we can't distinguish between
-X                  "normal" failures and "errors" such as wrong password,
-X                  number to dial etc. The logs should be checked periodically.
-X                - if CICO_DIR points to a non existent program the run may
-X                  end with signal 10: Bus Error.
-X                - is has been observed that uucico will time out with "Dial
-X                  failed" when called via autopoll; setting chat-timeout to
-X                  value of 40 cured that problem.
-X                - no rescheduling is done in case uucico fails and this
-X                  is not reported in the .Status file, one should check
-X                  the uucico log; this is to the fact that autopoll will
-X                  not scan the uucico log.
-*/
-X
-X
-#if !defined(lint)
-static char rcsid[] = "$FreeBSD$";
-#endif /* not lint */
-X
-X/* Log: uupoll.shar,v
-X * Revision 2.8  1994/04/14  17:22:54  kdburg
-X * corrected misspelled AT_OPTION
-X *
-X * Revision 2.7  1994/04/11  20:15:48  kdburg
-X * major rework done; honor now some of the new option taht came with
-X * uucp-1.05
-X *
-X * Revision 2.6  1994/03/26  17:40:30  kdburg
-X * added support for UNAME_DIR; cleanup of some code; adjusted code after
-X * obtaining sitenames via popen()
-X *
-X * Revision 2.5  1993/07/07  16:49:02  kdburg
-X * when used interactivly only the start msg is put into the msg-log
-X * so far defined (UULOG)
-X *
-X * Revision 2.4  1993/06/26  16:17:51  kdburg
-X * the -S option wasn't propagated to the command passed to the at pgm
-X *
-X * Revision 2.3  1993/05/25  12:05:01  kdburg
-X * added error check on gettimeofday; added comment in the note section;
-X * minor changes not affection code
-X *
-X * Revision 2.2  1993/05/17  20:47:05  kdburg
-X * execution of at cmd also ok always said failed...
-X *
-X * Revision 2.1  1993/05/16  21:49:13  kdburg
-X * changed exit() to _exit() in case the exec fails within child
-X *
-X * Revision 2.0  1993/05/16  14:12:05  kdburg
-X * initial revision
-X * */
-X
-#define CAT 16
-#define SEVERE 8
-#define WARNING 4
-#define OK 0
-/* Boolean types   */
-typedef int bool;
-#undef TRUE
-#undef FALSE
-#define TRUE (1)
-#define FALSE (0)
-X
-#include "conf.h"
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <ctype.h>
-#include <pwd.h>
-#include <unistd.h>
-#include <sys/file.h>
-#include <sys/time.h>
-#include <sys/param.h>
-#include <sys/wait.h>
-X
-#ifdef ALOG_FILE
-X  static char Msg_Log[] = ALOG_FILE;      /* name of msglog filename */
-#endif
-X
-#ifdef UNAME_DIR
-X   static char subcmd[] = " | sort | uniq";     /* pipe that follows uuname */
-#else  /* ! UNAME_DIR */
-X   static char Sort[] = "uuname | sort | uniq"; /* default to obtain site names */
-#endif /*UNAME_DIR */
-X
-#ifdef AT_OPTION
-X static char at_opt[] = AT_OPTION;
-#else
-X static char at_opt[] = "-mc";
-#endif /* AT_OPTION */
-X
-static char at_cmd[] = "at";
-static char cGrade[] = DEF_GRADE;         /* grade as defined in conf.h */
-static char dGrade[] = "A";               /* use this if DEF_GRADE is invalid */
-static char Auto_Dir[] = AUTO_DIR;        /* we live here */
-static char Cico_Dir[] = CICO_DIR;        /* here lives cico */
-X
-struct Sites {
-X       char name[MAXHOSTNAMELEN+1];    /* name of site as supplied by uuname */
-X       char grade[1];                  /* as passed or defaulted */
-X       bool flag;                      /* TRUE: call this site only  */
-X       bool force;                     /* TRUE: -S or -f option given */
-X       int stat_code;
-X       int stat_retries;
-X       long stat_lastcall;
-X       long stat_delay;
-X       char *stat_errtext; 
-};
-X struct Common_Stor {
-X        int maxtab;                       /* high-water-mark for site tab */
-X        int Single_Site_Tab;              /* entry into site tab for a site  */
-X                                          /* passed via -s or -S option  */
-X        bool force_any;                   /* TRUE: -f option without site */
-X        bool one_site;                    /* TRUE: call for a specific site */
-X        bool nodetach;                    /* TRUE: -D or --nodetach found */
-X        bool ifwork;                      /* TRUE: -C or --ifwork found */
-X        char *Grade;                      /* use this as grade for calls */
-X        char *Poll_Pgm;                   /* our name without path */
-X        char *called_as;                  /*     but called by this name */
-X        int  our_pid;                     /* our process-id */
-X        char *Uucico;                     /* cico's name without path */
-X        char This_Site[MAXHOSTNAMELEN+1]; /* our site name */
-X        char Single_Site[MAXHOSTNAMELEN+1]; /* name of site found as arg */
-X        union wait *W_Stat;
-X        char *Usort;                       /* will hold uuname + subcmd */
-X        struct passwd *pwd;
-X        struct timeval tp;
-X        struct timezone tzp;
-X        struct Sites Sitetab[SITE_MAX];
-X        char mon[3];
-X        int day, hh, mm, ss;
-X        char oname[24];
-X        char jname[20];
-X        char tstr[20];
-X        char ctag[2];
-X        char workf[300];
-X        char call_args[300];
-X };
-X
-/* copied from taylor uucp "uudefs.h"
-X *
-X **/
-X
-/* The tstatus_type enumeration holds the kinds of status information
-X   we put in the status file.  The order of entries here corresponds
-X   to the order of entries in the azStatus array.  */
-enum tstatus_type
-{
-X  /* Conversation complete.  */
-X  STATUS_COMPLETE,
-X  /* Port unavailable.  */
-X  STATUS_PORT_FAILED,
-X  /* Dial failed.  */
-X  STATUS_DIAL_FAILED,
-X  /* Login failed.  */
-X  STATUS_LOGIN_FAILED,
-X  /* Handshake failed.  */
-X  STATUS_HANDSHAKE_FAILED,
-X  /* Failed after logging in.  */
-X  STATUS_FAILED,
-X  /* Talking to remote system.  */
-X  STATUS_TALKING,
-X  /* Wrong time to call.  */
-X  STATUS_WRONG_TIME,
-X  /* Number of status values.  */
-X  STATUS_VALUES
-};
-X
-/* ----end-- copied from taylor uucp "uudefs.h"  */
-X
-X
-/* define the prototypes
-X * */
-X
-int set_mlog(FILE **seclog, struct Common_Stor *);
-int get_sites(struct Common_Stor *);
-int Call_Cico(int argc, char *argv[], struct Common_Stor *); 
-int get_args(int argc, char *argv[], struct Common_Stor *); 
-int Housekeeping(int argc, char *argv[], struct Common_Stor *);
-int Chk_Status(int argc, char *argv[],
-X               struct timeval tcc,
-X               struct timezone tzcc,
-X               struct Common_Stor *);
-int Check_Site(struct Common_Stor *);
-int start_at(char *name, struct Common_Stor *);
-void *storage(unsigned count, char *errloc, int *Rc, struct Common_Stor *);
-X
-extern int gethostname(char *name, int namelen);
-extern int system(char *cmd);
-extern int fork();
-extern int unlink(char *path);
-extern void *malloc(size_t byteSize);
-extern int execve(char *name, char *argv[], char *envp[]);
-extern int execlp(char *name, char *arg0, ...);
-extern int chmod(char *path, int mode);
-extern int getuid();
-extern int getpid();
-extern int isatty(int);
-extern char *ttyname(int);
-extern void free(void *ptr);
-#ifdef __STRICT_ANSI__
-extern FILE *popen(char *command, char *type);
-extern int pclose(FILE *stream);
-extern void _exit(int status);
-#endif  /* __STRICT_ANSI__ */
-#ifdef __STRICT_BSD__
-extern int fprintf(FILE *stream, const char *format, ...);
-extern int fclose(FILE *stream);
-extern char *strerror(int errnum);
-extern int fflush(FILE *stream);
-extern void exit(int status);
-extern int fscanf(FILE *stream, const char *format, ...);
-extern int sscanf(char *s, const char *format, ...);
-#endif /* __STRICT_BSD__ */
-X
-/* --------------------------------------------------------------------------*/
-/*                             Main                                          */
-/* --------------------------------------------------------------------------*/
-X
-int main(int argc, char *argv[])
-{
-X
-X struct Common_Stor *sCom_Sto;
-X int Maxrc = OK;                          /* Max err-code encountered so far */
-X int k = 0;
-X
-X if ( NULL == (sCom_Sto = malloc(sizeof(struct Common_Stor))) ) {
-X      fprintf(stderr,"%s: (C) malloc failed (%s). Reason: %i (%s)\n",
-X                     AUTO_DIR,"Common_Stor",errno,strerror(errno));
-X      exit (CAT);
-X     }
-X
-X Maxrc = Housekeeping(argc, argv, sCom_Sto);
-X
-/* If any errors popped up so far they are of such a nature that it is very
-X * questionable to continue; so we better bail out in this case. 
-X */
-X  if (Maxrc <= WARNING) {
-X     if ((sCom_Sto->W_Stat = (union wait *)storage (sizeof(union wait),
-X                        "W_Stat",&Maxrc,sCom_Sto)) != NULL) {
-X        k = Call_Cico(argc, argv, sCom_Sto);
-X        Maxrc = Maxrc >= k ? Maxrc:k;
-X        free(sCom_Sto->W_Stat);
-X        sCom_Sto->W_Stat = NULL;
-X     }
-X  }
-X  k = gettimeofday(&sCom_Sto->tp, &sCom_Sto->tzp);
-X  fprintf(stderr,"%s: (I) ended with rc = %i on %s\n",
-X                 sCom_Sto->called_as,
-X                 Maxrc,k!=0 ? "time unavailable":ctime(&sCom_Sto->tp.tv_sec));
-X  fclose(stderr);
-X  free(sCom_Sto);
-X  sCom_Sto = NULL;
-X  exit (Maxrc);
-}
-X
-/* --------------------------------------------------------------------------*/
-/*                           Functions                                       */
-/* --------------------------------------------------------------------------*/
-X
-/* --------------------------------------------------------------------
-X * housekeeping
-X */
-X
-int Housekeeping(argc, argv, sCom_Sto)
-X               int argc;
-X               char *argv[];
-X               struct Common_Stor *sCom_Sto; { 
-X
-X FILE *seclog = NULL;
-X int Rc = OK;
-X int Rci = OK;                /* intermediate rc as returnd by functions */
-X
-X sCom_Sto->our_pid = getpid();
-X  
-/* 
-X *  get our name sans path
-X * */
-X
-X  sCom_Sto->called_as = argv[0] + strlen(*argv);
-X  for(;sCom_Sto->called_as >= argv[0] && *--sCom_Sto->called_as != '/';)
-X                           ;
-X  sCom_Sto->called_as++;
-X
-/* if defined set up the name of the message log file otherwise
-X * stderr will be used. Setup the cmd string to obtain all known sitenames
-X * which will be sorted in ascending order with duplicates removed
-X * */
-X   
-X   Rc = set_mlog(&seclog, sCom_Sto);
-X   if (Rc > WARNING)
-X      return (Rc);
-X
-/* put out the started message including the time and the userid.
-X * */
-X
-X  sCom_Sto->pwd = getpwuid(getuid());
-X
-X  if ((gettimeofday(&sCom_Sto->tp, &sCom_Sto->tzp)) != 0) {  /* unacceptable error */
-X     fprintf(stderr,"%s: (C) gettimeofday() failed. Reason: %i (%s)\n",
-X                     sCom_Sto->called_as,errno,strerror(errno));
-X     return (Rc >= CAT ? Rc:CAT);
-X  }
-X
-X  if (seclog != NULL) {
-X     fprintf(seclog,"\n%s: (I) started by `%s' (%s) on %s",
-X                   sCom_Sto->called_as,
-X                   (sCom_Sto->pwd==NULL) ? "???":sCom_Sto->pwd->pw_name,
-X                   ttyname(0),
-X                   ctime(&sCom_Sto->tp.tv_sec));
-X     fclose(seclog);
-X  }
-X  fprintf(stderr,"\n%s: (I) started by `%s' on %s",
-X                 sCom_Sto->called_as,
-X                 (sCom_Sto->pwd==NULL) ? "???":sCom_Sto->pwd->pw_name,
-X                 ctime(&sCom_Sto->tp.tv_sec));
-X
-/* set up the default grade 
-X * */
-X
-X   sCom_Sto->Grade = dGrade;          /* set default for now */
-X   if (strlen(cGrade) != 1) {
-X      fprintf(stderr,"%s: (W) grade %s invalid; default `%s' used\n",
-X                      sCom_Sto->called_as,cGrade,sCom_Sto->Grade);
-X      Rc = Rc >= WARNING ? Rc:WARNING;
-X   }
-X   else
-X      sCom_Sto->Grade = cGrade;      /* Ok, take the one from conf.h */
-X
-/* get the program to actually call the site. This is normally UUCICO.
-X * */
-X
-X  sCom_Sto->Uucico = Cico_Dir + strlen(Cico_Dir);
-X  for(;sCom_Sto->Uucico >= Cico_Dir && *--sCom_Sto->Uucico != '/';)
-X                      ;
-X  sCom_Sto->Uucico++;
-X
-/* get the path to ourself.
-X * */
-X
-X  sCom_Sto->Poll_Pgm = Auto_Dir + strlen(Auto_Dir);
-X  for(;sCom_Sto->Poll_Pgm >= Auto_Dir && *--(sCom_Sto->Poll_Pgm) != '/';)
-X                      ;
-X  sCom_Sto->Poll_Pgm++;
-X
-/* obtain our sitename
-X * */
-X
-X  if ((gethostname(sCom_Sto->This_Site,MAXHOSTNAMELEN+1)) != 0) {
-X     fprintf(stderr,"%s: (W) hostname could not be obtained\n",
-X                     sCom_Sto->called_as);
-X     Rc = (Rc >= WARNING) ? Rc:WARNING;
-X  }
-X
-/* obtain all known sitenames
-X * */
-X
-X   Rci = get_sites(sCom_Sto);
-X   Rc = Rci > Rc ? Rci:Rc;
-X
-/* check the arguments that we are called with
-X * */
-X
-X   Rci = get_args(argc, argv, sCom_Sto);
-X   Rc = Rci > Rc ? Rci:Rc;
-X
-X return (Rc);
-}
-X
-/* --------------------------------------------------------------------
-X * check all relevant arguments that have been passed to us. Those args
-X * that may be needed for a recall will be copied to a workfield.
-X * */
-X
-int get_args(int argc, char *argv[], struct Common_Stor *sCom_Sto) {
-X
-X int j = 0;
-X int Rc = OK;
-X int Rci = OK;
-X
-X strcpy(sCom_Sto->Single_Site,"");
-X sCom_Sto->force_any = FALSE;
-X sCom_Sto->one_site = FALSE;
-X sCom_Sto->nodetach = FALSE;
-X
-X  strcpy(sCom_Sto->call_args,AUTO_DIR);  /* specify complete path to us */
-X  strcat(sCom_Sto->call_args," ");       /* and separate by one space */
-X  for (j=1;j<argc;j++) {
-X       if (strcmp(argv[j],"--nodetach") == 0 ||
-X           strcmp(argv[j],"-D") == 0) {
-X          sCom_Sto->nodetach = TRUE;
-X          strcat(sCom_Sto->call_args,"-D ");
-X          continue;
-X       }
-X       if (strcmp(argv[j],"--force") == 0 ||
-X           strcmp(argv[j],"-f") == 0) {
-X          strcat(sCom_Sto->call_args,"-f ");
-X          sCom_Sto->force_any = TRUE;
-X          continue;
-X       }
-X       if (strcmp(argv[j],"--ifwork") == 0 ||
-X           strcmp(argv[j],"-C") == 0) {
-X          sCom_Sto->ifwork = TRUE;
-X          continue;
-X       }
-X       if ( strncmp(argv[j],"-s",2) == 0 ||
-X            strncmp(argv[j],"-S",2) == 0 ||
-X            strcmp(argv[j],"--system") == 0) {
-X         if (strncmp(argv[j],"-S",2) == 0)
-X             sCom_Sto->force_any = TRUE;
-X
-X          if (strlen(argv[j]) == 2 || strcmp(argv[j],"--system") == 0) {
-X              j++;
-X              if (j>=argc) {
-X                 fprintf(stderr,"%s: (E) System to call is missing\n",
-X                                sCom_Sto->called_as);
-X                 Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                 break;
-X              }
-X              else {
-X                 strcpy(sCom_Sto->Single_Site,argv[j]);
-X                 Rci = Check_Site(sCom_Sto);
-X                 if (! Rci) {
-X                    sCom_Sto->one_site = TRUE;  /* specific call */
-X                    strcat(sCom_Sto->call_args,argv[j-1]);
-X                    strcat(sCom_Sto->call_args," ");
-X                    strcat(sCom_Sto->call_args,argv[j]);
-X                    strcat(sCom_Sto->call_args," ");
-X                 }
-X              }  
-X              Rc = Rci <= Rc ? Rc:Rci;
-X          }
-X          else {
-X            strcpy(sCom_Sto->Single_Site,argv[j]+2);
-X            Rci = Check_Site(sCom_Sto);
-X            if (! Rci) {
-X               sCom_Sto->one_site = TRUE;  /* specific call */
-X               strcat(sCom_Sto->call_args,argv[j]);
-X               strcat(sCom_Sto->call_args," ");
-X            }
-X            Rc = Rci <= Rc ? Rc:Rci;
-X          }
-X          continue;
-X       }
-X       strcat(sCom_Sto->call_args,argv[j]);
-X       strcat(sCom_Sto->call_args," ");
-X   }    /* end copy all arguments */
-X
-X   if (sCom_Sto->ifwork) { 
-X      if (sCom_Sto->one_site) {
-X          strcat(sCom_Sto->call_args,"-C ");
-X      }
-X      else {
-X        fprintf(stderr,"%s: (W) no site given, '-C' option is ignored\n",
-X                        sCom_Sto->called_as);
-X        sCom_Sto->ifwork = FALSE;
-X        Rc = Rc >= WARNING ? Rc:WARNING;
-X      }
-X   }
-X
-X   if (! sCom_Sto->nodetach) { 
-X      strcat(sCom_Sto->call_args,"-D ");
-X   }
-X
-X   return (Rc);
-}
-X
-/* --------------------------------------------------------------------
-X * call uucico or whatever programm is necessary to get connected
-X */
-X
-/*  Start uucico and wait for completion. In case the return code is '0'  
-X *  we're finished; otherwise we'll have to check the status files for any 
-X *  non successful calls (retry time > 0). 
-X *  Any such site will be called again at the current time plus any wait
-X *  Note:
-X *       If the '-D' or '--nodetach' option is missing, uucico will
-X *       detach immediate. The return-code is 0 in this case and therefore
-X *       we can't check whether the call is successful or not. No recall
-X *       is scheduled for such an invocation. If we however get control
-X *       to schedule a recall we silently add the '-D' option. To add
-X *       the '-D' option in any case may be undesirable for a specific
-X *       type of run.
-X */
-X
-int Call_Cico(int argc, char *argv[], struct Common_Stor *sCom_Sto) {
-X
-X int W_Ret = 0;
-X int pid = 0;
-X int Rc = OK;
-X struct timeval tcc;
-X struct timezone tzcc;
-X
-X if ((gettimeofday(&tcc, &tzcc)) != 0) {        /* unacceptable error */
-X    fprintf(stderr,"%s: (C) gettimeofday() failed. Reason: %i (%s)\n",
-X                   sCom_Sto->called_as,errno,strerror(errno));
-X    Rc = Rc >= CAT ? Rc:CAT;
-X }
-X
-X if (Rc > WARNING) {
-X     return (Rc);
-X }
-X
-X fflush(stderr);
-X switch(pid = fork()) { 
-X    case -1:
-X         fprintf(stderr,"%s: (C) could not fork(). Reason-code: %i (%s)\n",
-X                         sCom_Sto->called_as,errno,strerror(errno)); 
-X         return (CAT);
-X    case 0:
-X         if ((argv[0] = (char *)storage(strlen(sCom_Sto->Uucico)+1,"argv[0]",
-X                        &Rc,sCom_Sto)) == NULL) {
-X            _exit (CAT);
-X         }
-X         strcpy(argv[0],sCom_Sto->Uucico);   /* change name to be uucico */
-X         execve(Cico_Dir, argv, NULL);
-X         fprintf(stderr,"%s: (C) could not start %s. Reason-code: %i (%s)\n",
-X                         sCom_Sto->called_as,
-X                         sCom_Sto->Uucico,errno,strerror(errno));
-X         _exit (CAT);            /* child: bail out */
-X    default: 
-X         fprintf(stderr,"%s: (I) starting %s [%d]\n\n",
-X                        sCom_Sto->called_as,sCom_Sto->Uucico,pid);
-X         fflush(stderr);          /* maybe we come behind uucico's output */
-X                                  /* if any; it's a race condition        */
-X         W_Ret = wait(sCom_Sto->W_Stat);
-X         if (sCom_Sto->W_Stat->w_termsig == 0) {
-X            if (sCom_Sto->W_Stat->w_retcode == 0) {
-X                fprintf(stderr,"%s: (I) %s [%d] ended normally\n",
-X                                sCom_Sto->called_as,sCom_Sto->Uucico,pid);
-X                return (OK);
-X            }
-X            if (sCom_Sto->W_Stat->w_retcode != CAT) {
-X               fprintf(stderr,"%s: (I) %s's log may contain further information !\n",
-X                               sCom_Sto->called_as,sCom_Sto->Uucico);
-X               fprintf(stderr,"\n%s: (W) %s [%d] ended with rc = %i\n",
-X                               sCom_Sto->called_as,
-X                               sCom_Sto->Uucico,pid,
-X                               sCom_Sto->W_Stat->w_retcode);
-X               return (Chk_Status(argc, argv,
-X                                  tcc, tzcc, sCom_Sto));
-X             }
-X             else
-X             return (CAT);    /* we where unable to exec */
-X          }
-X          else {
-X             fprintf(stderr,"\n%s: (E) %s [%d] terminated by signal %i\n",
-X                            sCom_Sto->called_as,
-X                            sCom_Sto->Uucico,
-X                            pid,
-X                            sCom_Sto->W_Stat->w_termsig);
-X            return (SEVERE);
-X          }
-X }      /* switch (pid = fork()) */
-X return (OK);   /* Never reached: silence the compiler */
-}
-X
-X
-/* --------------------------------------------------------------------
-X * check the status after the call has completed and the return code 
-X * is > zero. The status is checked for all sites found via uuname or
-X * for one site only (option -s, -S or --system given on call)
-X */
-X
-int Chk_Status(int argc, char *argv[],
-X               struct timeval tcc,
-X               struct timezone tzcc,
-X               struct Common_Stor *sCom_Sto) {
-X
-/* 
-X * For all sites found in Site_Tab their status files will be checked.
-X * The table scan will be bypassed for a call to a specific site.
-X * If the call failed the wait period is > 0. We will schedule an at-job
-X * to be run at the time found + the delta. In case we find an old entry
-X * where the time + delta is lower than the current time we'll advance
-X * the current time by 60 secs. and use that value instead.
-X * In case we are invoked to call a specific site and either the -f option or
-X * the site was given as -S... indicating to disregard any wait, we'll
-X * use the time found in the status file increased by 120 secs.
-*/
-X
-X FILE *infile;
-X long secs, retries = 0;
-X long add = 0;
-X int errind = 0;
-X int i = 0;
-X int ecnt = 0;
-X int recall_cnt = 0;
-X char curr_site[MAXHOSTNAMELEN+11] = "";  /* keyword + sitename */
-X bool schedule = TRUE;     /* FALSE: no more rescheduling: unspec. + force */
-X int Rc = WARNING;         /* uucico got rc = 1 otherwise we were not here */
-X int Rs = 0;               /* uucico' reason code from .Status file */
-X
-/*
-X * Note
-X *     We have to increase the sum of time and wait by at least one minute.
-X *     That is because this time denotes the earliest point *after* which 
-X *     we may call again.
-X *     When a site is called at the wrong time the follwing actions are
-X *     taken: wait = 0  && ! force --> no further action (indicator: see log)
-X *            wait = 0  && force   --> (W) message generated; no further action
-X *            wait > 0  && ! force --> normal scheduling at time + wait
-X *            wait > 0  && force   --> normal scheduling at time+120 secs
-X *     We can't depend on the string "Wrong time to call" because the .Status
-X *     file may not be updated due to the -c switch. This may lead to a
-X *     situation where the site will be called over and over again while it's
-X *     still the wrong time. (No we don't want to go fishing for a message in
-X *     the uucp LOG!)
-X *     In  case the -s, -S or --system option was given we will only
-X *     check that site and schedule a recall for it so far the
-X *     conditions are met.
-X *     In case the -C or --ifwork switch is given without naming a site a
-X *     the option is dropped and only an unspecific call is scheduled.
-X * */
-X
-X if (sCom_Sto->one_site) {
-X    i = sCom_Sto->Single_Site_Tab;
-X    if (strncmp(sCom_Sto->Sitetab[i].name,
-X                sCom_Sto->Single_Site,
-X                sizeof(sCom_Sto->Single_Site)) != 0) {
-X       fprintf(stderr,"%s: (C) internal index-error (%d): %s found: %s\n",
-X                      sCom_Sto->called_as,
-X                      i,
-X                      sCom_Sto->Single_Site,
-X                      sCom_Sto->Sitetab[i].name);
-X      Rc = Rc >= CAT ? Rc:CAT;
-X      return (Rc);            /* break unconditionally */
-X    }
-X }
-X
-X for (i = sCom_Sto->Single_Site_Tab; i <= sCom_Sto->maxtab; i++) {
-X   sprintf(sCom_Sto->workf,"%s%s",STATUS_DIR,sCom_Sto->Sitetab[i].name);
-X   if ((infile=fopen(sCom_Sto->workf,"r")) == NULL) {
-X      ecnt++;
-X      fprintf(stderr,"%s: (W) no access to status file for: %s\n",
-X                     sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X      Rc = Rc >= WARNING ? Rc:WARNING;
-X      if (sCom_Sto->one_site) {
-X         break;
-X      }
-X      else {
-X        continue;
-X      }
-X   }
-X
-X   fscanf(infile,"%d %d %ld %ld",&errind,&retries,&secs,&add);
-X   fclose(infile);
-X
-X  /*
-X   *  in case the .Status file is not updated and we have a call to
-X   *  a specific site we try to give some clues of what went wrong
-X   *  (we won't succeed in any case!)
-X   */
-X
-X   if (sCom_Sto->Sitetab[i].stat_lastcall == secs && sCom_Sto->one_site) {
-X
-X      if (errind == 0 && retries == 0 && add == 0)
-X         break;
-X      
-X      if (errind > 0) {
-X         if (tcc.tv_sec <= (secs+add) && ! sCom_Sto->Sitetab[i].force) {
-X            fprintf(stderr,"%s: (W) retry time not reached for site: %s\n",
-X                           sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rc = Rc >= WARNING ? Rc:WARNING;
-X         }
-X         else {
-X            fprintf(stderr,"%s: (E) maybe port/site unavailable site: %s\n",
-X                           sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rc = Rc >= SEVERE ? Rc:SEVERE;
-X         }
-X      }
-X      else {
-X         if (sCom_Sto->one_site) {
-X            fprintf(stderr,"%s: (E) unknown error for call to site: %s\n",
-X                           sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rc = Rc >= SEVERE ? Rc:SEVERE;
-X         }
-X      }
-X      fprintf(stderr,"%s: (W) no recall scheduled for site: %s\n",
-X      sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X      break;       /* bail out completely */
-X   }
-X
-X   if (sCom_Sto->Sitetab[i].stat_lastcall == secs) {
-X      if (sCom_Sto->one_site)
-X         break;
-X      else
-X         continue;
-X   }
-X
-X   Rs = OK;              /* if Rs is > WARNING we won't schedule a recall */
-X   switch(errind) {
-X       case STATUS_COMPLETE:
-X            if (add != 0 || retries != 0) { 
-X               fprintf(stderr,"%s: (E) unknown error for call to site: %s\n",
-X                              sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X               Rs = Rs >= SEVERE ? Rs:SEVERE;
-X            }
-X            break;
-X       case STATUS_PORT_FAILED:
-X            fprintf(stderr,"%s: (E) port was unavailable site: %s\n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            break;
-X       case STATUS_DIAL_FAILED:
-X            fprintf(stderr,"%s: (E) dail failed for site: %s\n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            break;
-X       case STATUS_LOGIN_FAILED:
-X            fprintf(stderr,"%s: (E) login for site: %s failed\n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rs = Rs >= SEVERE ? Rs:SEVERE;
-X            break;
-X       case STATUS_HANDSHAKE_FAILED:
-X            fprintf(stderr,"%s: (E) handshake failed site: %s\n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            break;
-X       case STATUS_FAILED:
-X            fprintf(stderr,"%s: (E) invalid status after login site: %s \n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            break;
-X       case STATUS_TALKING:
-X            break;
-X       case STATUS_WRONG_TIME:
-X            fprintf(stderr,"%s: (W) it's the wrong time to call site: %s\n",
-X                           sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rs = Rs >= SEVERE ? Rs:SEVERE;
-X            break;
-X       default:
-X            fprintf(stderr,"%s: (E) unknown error for call to site: %s\n",
-X                           sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X            Rs = Rs >= SEVERE ? Rs:SEVERE;
-X            break;
-X   }
-X   Rc = Rs > Rc ? Rs:Rc;
-X   if (Rs > WARNING) {              /* schedule a recall ? */
-X      fprintf(stderr,"%s: (W) no recall scheduled for site: %s\n",
-X      sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X      if (sCom_Sto->one_site)
-X          break;
-X      else
-X         continue;
-X   }
-X
-X   if (add == 0) {
-X      fprintf(stderr,"%s: (W) no delay found for site: %s\n",
-X                     sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X      Rc = Rc >= WARNING ? Rc:WARNING;
-X   }
-X
-X
-X   if (! schedule) {
-X      recall_cnt += 1;
-X      continue;              /* scheduling already done: unspec. + force */
-X   }
-X   if ((gettimeofday(&sCom_Sto->tp, &sCom_Sto->tzp)) != 0) { 
-X      fprintf(stderr,"%s: (C) gettimeofday() failed. Reason: %i (%s)\n",
-X                     sCom_Sto->called_as,errno,strerror(errno));
-X      fclose(infile);
-X      Rc = Rc >= CAT ? Rc:CAT;
-X      break;                     /* break unconditionally */
-X   }
-X
-X   if (sCom_Sto->force_any || sCom_Sto->Sitetab[i].force) {
-X      add = secs + 120;                    /* shorten the wait */
-X   }
-X   else {                     /* ! force */
-X
-/*
-X *  check for an already scheduled recall. For we don't keep
-X *  a file of already scheduled recalls the only way to recognize
-X *  this, is to check the current time against that of the .Stats file.
-X *  In case the current time is >= the .Stats-time + n-secs fuzz value
-X *  we assume (99.99% correctness) that we have already scheduled a recall
-X *  for this site. If this assumption is incorrect a call will be
-X *  scheduled on the next unspecific failing call. This check can't
-X *  be done for forced call because the .Stats will be updated.
-X */
-X      if (sCom_Sto->tp.tv_sec >= secs+2) {
-X         fprintf(stderr,"%s: (W) Retry time not reached for site: %s\n",
-X                        sCom_Sto->called_as,
-X                        sCom_Sto->Sitetab[i].name);
-X         Rc = Rc >= WARNING ? Rc:WARNING;
-X         if (sCom_Sto->one_site)
-X            break;
-X         else
-X            continue;
-X      }
-X      add += secs + 60;        /* if not force then take the full wait */
-X   }    /* force */
-X      
-X   if (sCom_Sto->tp.tv_sec >= add) {
-X      add = sCom_Sto->tp.tv_sec + 60;               /* time < current time */
-X   }
-X           
-X   sscanf(ctime(&add),"%*s %s %d %d:%d:%d",sCom_Sto->mon,
-X                      &sCom_Sto->day,
-X                      &sCom_Sto->hh,
-X                      &sCom_Sto->mm,
-X                      &sCom_Sto->ss);
-X
-X   sprintf(sCom_Sto->oname,"/tmp/at.%d.%02d%02d%02d",sCom_Sto->our_pid,
-X                           sCom_Sto->hh,
-X                           sCom_Sto->mm,
-X                           sCom_Sto->ss);
-X   if (! sCom_Sto->one_site) {
-X      strcpy(curr_site,"-s");
-X      strcat(curr_site,sCom_Sto->Sitetab[i].name);
-X   }
-X
-X /*
-X  * If 'onesite' is FALSE and 'force' is TRUE
-X  * we will reschedule one unspecific call an let UUCICO decide
-X  * which site should be called (is there any work?)
-X  */
-X
-X   if ( ! sCom_Sto->one_site && sCom_Sto->force_any) {
-X      recall_cnt += 1;
-X      schedule = FALSE;
-X      continue;
-X   }
-X   strcat(sCom_Sto->call_args,curr_site);
-X   Rs = start_at(sCom_Sto->Sitetab[i].name, sCom_Sto);
-X   Rc = Rs >= Rc ? Rs:Rc;
-X   unlink(sCom_Sto->oname);
-X   if (Rc > SEVERE || sCom_Sto->one_site)
-X      break;
-X }           /* for (i = Single_Site_Tab; ...)  */
-X
-X if (ecnt > sCom_Sto->maxtab) {
-X    fprintf(stderr,"%s: (E) no access to status files; no scheduling done\n",
-X                    sCom_Sto->called_as);
-X    Rc = Rc >= SEVERE ? Rc:SEVERE;
-X }
-X else {
-X   if (! schedule) {
-X      if (recall_cnt == 1) {
-X         strcat(sCom_Sto->call_args,curr_site);
-X      }
-X      Rs = start_at("any site", sCom_Sto);
-X      Rc = Rs >= Rc ? Rs:Rc;
-X      unlink(sCom_Sto->oname);
-X   }
-X }
-X return (Rc);
-}
-X
-X /*
-X  *
-X  */
-X
-int start_at(char *site, struct Common_Stor *sCom_Sto) {
-X
-FILE *outfile;
-int W_Ret = 0;
-int Rc = OK;
-int pid = 0;
-X
-/* 
-X * if we can't open the workfile to be passed to AT we'll abandon
-X * this site and set the rc accordingly
-X * */
-X
-X   if ((outfile=fopen(sCom_Sto->oname,"w")) == NULL) {
-X      fprintf(stderr,"%s: (E) could not open workfile %s. No scheduling for: %s\n",
-X                     sCom_Sto->called_as,
-X                     sCom_Sto->oname,
-X                     site);
-X      Rc = Rc >= SEVERE ? Rc:SEVERE;
-X      fclose(outfile);
-X      unlink(sCom_Sto->oname);
-X      return (Rc);                    /* bail out here */
-X   }
-X   sprintf(sCom_Sto->jname,"at.%d.%02d%02d%02d",sCom_Sto->our_pid,
-X                           sCom_Sto->hh,
-X                           sCom_Sto->mm,
-X                           sCom_Sto->ss);
-X   fprintf(outfile,"%s \n",sCom_Sto->call_args);
-X    sprintf(sCom_Sto->tstr,"%02d%02d",sCom_Sto->hh,
-X                                     sCom_Sto->mm);
-X   sprintf(sCom_Sto->ctag,"%d",sCom_Sto->day);
-X   fclose(outfile);
-X   if ((chmod(sCom_Sto->oname,00644)) != 0) {
-X      fprintf(stderr,"%s: (W) chmod to %s failed. Reason_code: %i (%s)\n",
-X                     sCom_Sto->called_as,
-X                     sCom_Sto->oname,
-X                     errno,
-X                     strerror(errno));
-X      Rc = Rc >= WARNING ? Rc:WARNING;
-X   }
-X
-X   switch (pid = fork()) {
-X      case -1:
-X             fprintf(stderr,"%s: (C) could not fork(). Reason-code: %i (%s)\n",
-X                            sCom_Sto->called_as,errno,strerror(errno)); 
-X             return (Rc >= CAT ? Rc:CAT);
-X       case 0:
-X             if (*at_opt == '\0')
-X                execlp(at_cmd, at_cmd, sCom_Sto->tstr,
-X                       sCom_Sto->mon, sCom_Sto->ctag,
-X                       sCom_Sto->oname, 0);
-X             else
-X                execlp(at_cmd, at_cmd, at_opt, sCom_Sto->tstr,
-X                       sCom_Sto->mon, sCom_Sto->ctag,
-X                       sCom_Sto->oname, 0);
-X
-X             fprintf(stderr,"%s: (C) could not start AT-cmd. Reason-code: %i (%s)\n",
-X                             sCom_Sto->called_as,
-X                             errno,strerror(errno));
-X             _exit (CAT);            /* child: bail out */
-X        default: 
-X             fprintf(stderr,"%s: (I) at [%d] started. Job name: %s\n",
-X                            sCom_Sto->called_as,
-X                            pid,
-X                            sCom_Sto->jname);
-X             W_Ret = wait(sCom_Sto->W_Stat);
-X             if (sCom_Sto->W_Stat->w_termsig == 0) {
-X                if (sCom_Sto->W_Stat->w_retcode != 0) {
-X                   if (sCom_Sto->W_Stat->w_retcode != CAT) {
-X                      fprintf(stderr,"%s: (E) at-cmd failed for some reason\n",
-X                                     sCom_Sto->called_as);
-X                      Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                   }
-X                   else {
-X                      Rc = Rc >= CAT ? Rc:CAT;
-X                   }
-X
-X                   fprintf(stderr,"%s: (I) at [%d] ended with rc = %i\n",
-X                                  sCom_Sto->called_as,
-X                                  pid,
-X                                  sCom_Sto->W_Stat->w_retcode);
-X                   /* bail out in case wait returned > SEVERE */
-X                   if (Rc > SEVERE) {
-X                      return (Rc);
-X                   }
-X                }
-X                else {
-X                   fprintf(stderr,"%s: (I) at-cmd [%d] ended normally\n",
-X                                  sCom_Sto->called_as,
-X                                  pid);
-X                } 
-X             }
-X             else {
-X                fprintf(stderr,"%s: (E) at [%d] terminated by signal %i\n",
-X                               sCom_Sto->called_as,
-X                               pid,
-X                               sCom_Sto->W_Stat->w_termsig);
-X                Rc = Rc >= SEVERE ? Rc:SEVERE;
-X             }
-X   }   /* switch (pid = fork()) */
-X   return (Rc);
-}
-/* -----------------------------------------------------------------
-X * check the site passed via -s or -S option to be a valid one and
-X * not to be our hostname.
-X * */
-X
-int Check_Site(struct Common_Stor *sCom_Sto) {
-X  
-X  int i,j = 0;
-X  sCom_Sto->Single_Site_Tab = 0;
-X    if (strcmp(sCom_Sto->Single_Site,sCom_Sto->This_Site) == 0) {
-X        fprintf(stderr,"%s: (E) won't call *ourself* %s\n",
-X                        sCom_Sto->called_as,sCom_Sto->Single_Site);
-X        return(SEVERE);
-X    }
-X    for(i=0;i<=sCom_Sto->maxtab;i++) {
-X       if ((j=strcmp(sCom_Sto->Sitetab[i].name,sCom_Sto->Single_Site)) >= 0) {
-X          break;
-X       }
-X    }
-X    if (j != 0) {
-X        fprintf(stderr,"%s: (E) unknown site: %s\n",
-X                        sCom_Sto->called_as,sCom_Sto->Single_Site);
-X        return(SEVERE);
-X    }
-X  sCom_Sto->Single_Site_Tab = i;
-X  sCom_Sto->Sitetab[i].flag = TRUE;
-X  if (sCom_Sto->force_any) {
-X      sCom_Sto->Sitetab[i].force = TRUE;
-X      sCom_Sto->force_any = FALSE;
-X  }
-X  return(OK);
-}
-X
-X /* ------------------------------------------------------------------
-X  * storage - get some memory
-X  */
-X
-void *storage(unsigned count,
-X              char *location,
-X              int *Rc,
-X              struct Common_Stor *sCom_Sto)
-{
-X  void *p;
-X
-X  if( NULL == (p= malloc(count)) ) {
-X      fprintf(stderr,"%s: (C) malloc failed (%s). Reason: %i (%s)\n",
-X                     sCom_Sto->called_as,location,errno,strerror(errno));
-X      *Rc = *Rc >= CAT ? *Rc:CAT;
-X    }
-X  return p;
-}
-X
-/*  ------------------------------------------------------------------
-X * if defined open the message log file otherwise all mesages will go
-X * to stderr. If UNAME_DIR is defined construct the command to be
-X * passed to popen(); if undefined the deafult will be used
-X * */
-X
-int set_mlog(FILE **seclog, struct Common_Stor *sCom_Sto) {
-X 
-X   int Rc = 0;
-X   
-#ifdef ALOG_FILE
-X   if (!isatty(0)) {
-X      if ((freopen(Msg_Log,"a",stderr)) == NULL) {
-X         fprintf(stdout,"%s: (C) Could not open msglog: %s\n",
-X                        sCom_Sto->called_as,Msg_Log);
-X         return (Rc >= CAT ? Rc:CAT);
-X      }
-X   }
-X   else {
-X      if ((*seclog = fopen(Msg_Log,"a")) == NULL) {
-X         fprintf(stderr,"%s: (C) Could not open msglog: %s\n",
-X                        sCom_Sto->called_as,Msg_Log);
-X         return (Rc >= CAT ? Rc:CAT);
-X      }
-X   }
-#endif  /* ALOG_FILE */
-X
-/* set up the pipe together with the complete path to uuname */
-X
-#ifdef UNAME_DIR
-X   if ((sCom_Sto->Usort = (char *)storage (sizeof(UNAME_DIR)+sizeof(subcmd),
-X               "Sort",&Rc, sCom_Sto)) != NULL) {
-X      strncpy(sCom_Sto->Usort,UNAME_DIR,strlen(UNAME_DIR)); /* paste in the path */
-X      strcat(sCom_Sto->Usort,subcmd);                   /* chain the pipe to it */
-X   }
-#else   /* ! UNAME_DIR */
-X   sCom_Sto->Usort = &Sort;          /* set pointer to uuname + sort */
-#endif  /* UNAME_DIR */
-X
-X   return (Rc);
-}
-X
-/*  ------------------------------------------------------------------
-X *  obtain all active  sitenames
-X * */
-X
-int get_sites(struct Common_Stor *sCom_Sto) {
-X
-X  int i = 0;
-X  int n;
-X  int Rc = 0;
-X  FILE *infile, *statsfile;
-X
-X  if ((infile=popen(sCom_Sto->Usort,"r")) != NULL) {
-X     while(fgets(sCom_Sto->Sitetab[i].name,MAXHOSTNAMELEN+1,infile)) {
-X          if (i > SITE_MAX) {            /* let'm run so that we can give */
-X             i++;                        /* the user some guidance */
-X             continue;                   /* we'll tell the user later on */
-X          }
-X          n = strlen(sCom_Sto->Sitetab[i].name)-1; /* offset: next to last char */
-X          sCom_Sto->Sitetab[i].name[n] = '\0';  /* strip trailing newline */
-X          sCom_Sto->Sitetab[i].flag = FALSE;    /* TRUE: poll this site only*/
-X          sCom_Sto->Sitetab[i].force = FALSE;   /* TRUE: force call */
-X          strcpy(sCom_Sto->Sitetab[i].grade,sCom_Sto->Grade);
-X          sprintf(sCom_Sto->workf,"%s%s",STATUS_DIR,sCom_Sto->Sitetab[i].name);
-X          if ((statsfile=fopen(sCom_Sto->workf,"r")) == NULL) {
-X             fprintf(stderr,"%s: (W) no access to status file for: %s\n",
-X                            sCom_Sto->called_as,sCom_Sto->Sitetab[i].name);
-X             Rc = Rc >= WARNING ? Rc:WARNING;
-X          }
-X          else {
-X            fscanf(statsfile,"%d %d %ld %ld %s",
-X                             &sCom_Sto->Sitetab[i].stat_code,
-X                             &sCom_Sto->Sitetab[i].stat_retries,
-X                             &sCom_Sto->Sitetab[i].stat_lastcall,
-X                             &sCom_Sto->Sitetab[i].stat_delay,
-X                             sCom_Sto->workf);
-X          
-X            fclose(statsfile);
-X            if ((sCom_Sto->Sitetab[i].stat_errtext = 
-X                                (char *)storage (sizeof(sCom_Sto->workf),
-X                                "stat_errtext",&Rc, sCom_Sto)) == NULL) {
-X               Rc = Rc >= WARNING ? Rc:WARNING;
-X            }
-X            else
-X              strcpy(sCom_Sto->Sitetab[i].stat_errtext,sCom_Sto->workf);  
-X          }
-X          sCom_Sto->maxtab = i++;                  /* set high-water-mark */
-X     }
-X     if (ferror(infile) != 0) {
-X        fprintf(stderr,"%s: (E) fgets() for sitenames failed reason-code: %i (%s)\n",
-X                       sCom_Sto->called_as,errno,strerror(errno));
-X        Rc = Rc >= SEVERE ? Rc:SEVERE;
-X     }
-X     pclose(infile);
-X
-X    /* 
-X     * check for an empty table (strange but possible) 
-X     */
-X
-X    if (sCom_Sto->maxtab == 0) {
-X       fprintf(stderr,"%s: (E) could not obtain sitenames.\n",
-X                      sCom_Sto->called_as);
-X       Rc = Rc >= SEVERE ? Rc:SEVERE;
-X    }
-X    else {
-X
-X      /* in case the internal table overflows we'll now give notice and tell
-X       * the user by which amount the table has to be increased to hold all          
-X       * site-names
-X       */
-X
-X       if (i > SITE_MAX) {
-X          fprintf(stderr,"%s: (E) number of sites > internal tab\n",
-X                         sCom_Sto->called_as);
-X          fprintf(stderr,"%s: (E) increase SITE_MAX to >= %d and recompile\n",
-X                          sCom_Sto->called_as,i);
-X          Rc = Rc >= SEVERE ? Rc:SEVERE;
-X       }
-X    }     /* sCom_Sto->maxtab == 0 */
-X
-X  }
-X  else  /* infile == NULL */
-X  {
-X     fprintf(stderr,"%s: (E) could not sort sitenames. Reason-code: %i (%s)\n",
-X                         sCom_Sto->called_as,errno,strerror(errno)); 
-X     Rc = Rc >= SEVERE ? Rc:SEVERE;
-X
-X  }    /* if ((infile=popen(sCom_Sto->Usort,"r")) ... */
-X
-X  return (Rc);
-}
-SHAR_EOF
-chmod 0444 uupoll/autopoll.c ||
-echo 'restore of uupoll/autopoll.c failed'
-Wc_c="`wc -c < 'uupoll/autopoll.c'`"
-test 44031 -eq "$Wc_c" ||
-	echo 'uupoll/autopoll.c: original size 44031, current size' "$Wc_c"
-fi
-# ============= uupoll/conf.h ==============
-if test -f 'uupoll/conf.h' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/conf.h (File already exists)'
-else
-echo 'x - extracting uupoll/conf.h (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/conf.h' &&
-#ifndef CONF
-X  #define CONF
-X
-X/* $FreeBSD$ */
-X/* Log: uupoll.shar,v
-X * Revision 1.9  1994/04/14  17:24:58  kdburg
-X * added comment to the AT_OPTION
-X *
-X * Revision 1.8  1994/03/26  17:41:06  kdburg
-X * the location of uuname can now be specified. This was added due to
-X * the fact that cron (NeXT 3.2 and +) now obeys the path that was active
-X * during boot (either /.path or set within /etc/rc) so autopoll/uupoll
-X * always got the wrong uuname when called direct fron cron. This is
-X * not true when called via a script that does a 'su - user -c ...'
-X *
-X * Revision 1.7  1993/06/26  16:21:47  kdburg
-X * default location for logfiles changed
-X *
-X * Revision 1.6  1993/05/14  22:32:05  kdburg
-X * change to HAVE_SPOOLDIR_TAYLOR
-X *
-X * Revision 1.5  1993/05/09  13:16:53  kdburg
-X * make have-autopoll the default
-X *
-X * Revision 1.4  1993/05/08  23:17:34  kdburg
-X * cleanup and to reflect changes made to autopoll/uupoll
-X *
-X * Revision 1.3  1993/04/29  10:46:34  kdburg
-X * added def for STATUS_DIR
-X *
-X * Revision 1.2  1993/04/27  15:31:47  kdburg
-X * rearranged the defs; changed LOG_DIR to ALOG_DIR in case uupoll
-X * will have one too; we need then eventually 2 different dirs.
-X *
-X * Revision 1.1  1993/04/26  21:20:12  kdburg
-X * Initial revision
-X * */
-X
-/* --------- combined config file for uupoll and autopoll              */
-/* --------- change the following defines to meet your needs           */
-X
-/*    define the default grade to be inserted into the pollfile name  */
-#define DEF_GRADE "A"
-X
-/*    Define the complete path to the uuname program.
-X *    If undefined we'll use just the name 'uuname' to call it
-X * */
-#define UNAME_DIR "/usr/local/bin/uuname"
-X
-/*    define the path to the directory which does contain uucico */
-#define CICO_DIR "/usr/local/lib/uucp/uucico"
-X
-/*    define the path to the directory which holds all the uucp files.
-X *    We'll place the poll file in one of it's subdirectories
-X * */
-#define SPOOL_DIR "/usr/spool/uucp"
-X
-/*    at least one of the follwing must be defined To use the second or  
-X *    third set of definitions, change the  ``#if 1'' to ``#if 0'' 
-X *    and change the appropriate ``#if 0'' to ``#if 1''.
-X * */
-#if 0
-#define HAVE_SPOOLDIR_BSD
-#endif
-#if 0
-#define HAVE_SPOOLDIR_HDB
-#endif
-#if 1
-#define HAVE_SPOOLDIR_TAYLOR
-#endif
-X
-/*    define the maximum number of sites in your config or L.sys */
-#define SITE_MAX 100
-X
-/*    define the path to the directory which is to contain the
-X *    message log created by uupoll and the file name itself.
-X *    change the ``#if 1'' to ``#if 0'' to have the messages on stderr
-X * */
-#if 1
-#define ULOG_FILE "/Logfiles/poll.log" 
-#endif
-X
-/* change if to 0 if you don't have autopoll installed.               */
-#if 1
-#define AUTO_POLL
-#endif
-X
-/*  The  following defs are irrelevant if you don't have autopoll     */
-X
-/*    define the options to be given to the at cmd (-s -c -m). The default
-X *    is shown (use csh and send mail after execution) if AT_OPTION is
-X *    undefined
-X * */
-#define AT_OPTION "-mc"
-X
-/*    Define the complete path to the autopoll program.
-X *    This will assure that we get the one we want
-X *    The path must be the same as given in Makefile (lbindir) 
-X * */
-#define AUTO_DIR "/usr/local/lib/uucp/autopoll"
-X
-/*    define the path to the directory which is to contain the
-X *    message log created by autopoll and the file name itself.
-X *    change the ``#if 1'' to ``#if 0'' to have the messages on stderr
-X * */
-#if 1
-#define ALOG_FILE "/Logfiles/poll.log" 
-#endif
-X
-/*    define the full path to the directory which holds the status files
-X *    The name should be given *except* the sitename. A trailing `/' if any
-X *    must be given.
-X *    Example: /usr/spool/uucp/.Status/sys.sitename
-X *             then specify STATUS_DIR as
-X *             "/usr/spool/uucp/.Status/sys."
-X * */
-#define STATUS_DIR "/usr/spool/uucp/.Status/" 
-#endif
-SHAR_EOF
-chmod 0444 uupoll/conf.h ||
-echo 'restore of uupoll/conf.h failed'
-Wc_c="`wc -c < 'uupoll/conf.h'`"
-test 3884 -eq "$Wc_c" ||
-	echo 'uupoll/conf.h: original size 3884, current size' "$Wc_c"
-fi
-# ============= uupoll/uupoll.8c ==============
-if test -f 'uupoll/uupoll.8c' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/uupoll.8c (File already exists)'
-else
-echo 'x - extracting uupoll/uupoll.8c (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/uupoll.8c' &&
-.\" Copyright (c) 1986 Regents of the University of California.
-.\" All rights reserved.  The Berkeley software License Agreement
-.\" specifies the terms and conditions for redistribution.
-.\"
-.\"	@(#)uupoll.8c	6.1 (Berkeley) 4/24/86
-.\"	@(#)uupoll.8c	1.11 (incoahe) 5/09/1993
-.\"
-.TH UUPOLL 8C "Mai 09, 1993"
-.UC 6
-.SH NAME
-uupoll \- poll a remote \s-1UUCP\s+1 site
-.SH SYNOPSIS
-.B uupoll
-[
-.BI \-g grade
-] [
-.B \-n
-] [
-.B \-x
-]
-.I system ... ...
-.SH SUMMARY
-This version of
-.IR uupoll
-can be used to fully replace the vendor supplied
-.IR uupoll
-that comes with the NeXTStep OS. The original version (up to 3.1) had a
-X bug in that
-X an unknown site given as argument would yield in a `Bus error' condition.
-Using any other type of UUCP like Taylor-UUCP with the option of having
-a different file structure as well as a different L.sys will therefore 
-make it necessary to do maintenance to the (unused) L.sys as well to keep
-.IR uupoll
-going. This one has been programmed from scratch due to the fact that no 
-source code was available. Some enhancements have been incorporated into
-this version:
-.PP
-\- the default grade may now be compiled different from `A'.
-.PP
-\- the options may now be given in any order and the \-g option may be given
-more than once. Any option will be used immediately when encountered and
-will stay in effect unless reset; this does not apply to the \-x and \-n
-option which can't be reset. The processing of options is guaranteed to be
-from left to right so that some grouping may be achieved (see below).
-.PP
-\-
-.IR uupoll
-may be used to call any program instead of
-.IR uucico
-namely
-.IR autopoll
-to ease the task of rescheduling a failed call. 
-.SH DESCRIPTION
-.I Uupoll
-is used to force a poll of a remote system. It queues a null job for the
-remote system, unless the \-x option has been given, and then invokes
-either
-.IR uucico (8C)
-or
-.IR autopoll (8C)
-or any other program depending on how
-.IR uupoll
-is customized. If used in conjunction with
-.IR autopoll
-the latter will then invoke
-.IR uucico.
-.SH OPTIONS
-The following options are available:
-.TP 8
-.BI \-g grade
-Only send jobs of grade
-.I grade
-or higher on this call. The
-.I grade
-stays in effect until it is changed by a different \-g option. 
-.TP 8
-.B \-n
-Queue the null job, but do not invoke the program that actually calls
-the named site(s).
-The \-n option once given will apply to all sites following to the
-.IR right
-of it.
-.TP 8
-.B \-x
-Do not place a null job for all following sites. This option must be given
-before the \-n option. The \-n option will nullify this. Any grade in effect
-will not be honored because
-.I uucico (Taylor)
-does not carry the \-g option at the moment.
-.PP
-.I Uupoll
-is usually run by
-.IR cron (5)
-or by a user who wants to hurry a job along. A typical entry in
-.I crontab
-could be:
-.PP
-.nf
-X	0	0,8,16	*	*	*	uucp /usr/bin/uupoll ihnp4
-X	0	4,12,20	*	*	*	uucp /usr/bin/uupoll ucbvax
-.fi
-This will poll
-.B ihnp4
-at midnight, 0800, and 1600, and
-.B ucbvax
-at 0400, noon, and 2000.
-.PP
-If the local machine is already running
-.I uucico
-every
-hour and has a limited number of outgoing modems, a better approach
-might be:
-.PP
-.nf
-X	0	0,8,16	*	*	*	uucp /usr/bin/uupoll -n ihnp4
-X	0	4,12,20	*	*	*	uucp /usr/bin/uupoll -n ucbvax
-X	5	*		*	*	*	uucp /usr/lib/uucp/uucico -r1 -D -C
-.fi
-This will queue null jobs for the remote sites at the top of the hour; they
-will be processed by
-.I uucico
-when it runs five minutes later (the -C option apply to Taylor
-uucp-1.05 only, the -D option applies to Talor uucp-1.04 and up)
-.SH EXTENDED options
-An example of the options and how they interact is given below. The working
-order while processing the options is left to right:
-.nf
-X    uupoll -gC site1 -gB site2 -x site3 -n -gA site4 site5
-.fi
-.PP
-this poll will:
-.PP
-- call immediate site1 with grade C or higher and will place a null job
-.PP
-- call immediate site2 with grade B or higher and will place a null job
-.PP
-- call immediate site3 with grade B or higher without placing a null job
-.PP
-- just placing a null job for site4 and site5 with grade A or higher. These
-sites will be called at the next regular schedule.
-.SH BUGS
-When more than one site is given on the command line and no \-n option is
-given there will be an immediate invocation of
-.IR uucico
-or
-.IR autopoll
-for
-.IR all
-sites given. That may lead to a `No port available' condition.
-.SH FILES
-.ta \w'/usr/spool/uucp/   'u
-.nf
-/etc/uucp/	UUCP internal files/utilities
-/usr/spool/uucp/	Spool directory
-/tmp/poll.log		This file is present only if uupoll has been
-X			compiled to place the messages into a file.
-X			Otherwise all messages will go to stderr.
-X			The directory as well as the name may be
-X			different. The name may be defined at compile time. 
-.fi
-.SH SEE ALSO
-uucp(1C), uux(1C), uucico(8C), autopoll(8C)
-SHAR_EOF
-chmod 0444 uupoll/uupoll.8c ||
-echo 'restore of uupoll/uupoll.8c failed'
-Wc_c="`wc -c < 'uupoll/uupoll.8c'`"
-test 4787 -eq "$Wc_c" ||
-	echo 'uupoll/uupoll.8c: original size 4787, current size' "$Wc_c"
-fi
-# ============= uupoll/uupoll.c ==============
-if test -f 'uupoll/uupoll.c' -a X"$1" != X"-c"; then
-	echo 'x - skipping uupoll/uupoll.c (File already exists)'
-else
-echo 'x - extracting uupoll/uupoll.c (Text)'
-sed 's/^X//' << 'SHAR_EOF' > 'uupoll/uupoll.c' &&
-/* ---------------------------------------------------------------------------*
-X
-X   Name:     uupoll
-X
-X   Author:   Klaus Dahlenburg <kdburg@incoahe.hanse.de>
-X
-X   Status:   Public domain
-X
-X   Copyright: none
-X
-X   Funktion: The main intention behind this program was to get a full
-X             replacement of the uupoll supplied by NeXT when using an
-X             UUCP or a file structure that is different from that hardwired
-X             config in NeXT's uupoll. The lack of source made it impossible
-X             to modify the supplied uupoll.
-X  
-X   Call:     uupoll [-n] [-x] [-g[A | 0-9,A-Z,a-z]] site ...
-X             
-X                    -n    just place a poll file but do not call uucico;
-X                          This option can be given only once.
-X                    -x    meaningful only for sites not affected by the -n
-X                          option. It prevents the creation of a poll file; 
-X                          the default is to place one. In case the poll fails 
-X                          there will be no attempt to poll those sites on 
-X                          the next general (unspecific) poll. If using 
-X                          autopoll the site will be called at the next + 1
-X                          run of autopoll.
-X                    -g    any grade may be given to meet the criteria for
-X                          a successful poll. The default being specified
-X                          in conf.h (A).
-X                          This option may be given individually for each
-X                          site to call.
-X                    site  the name of the site to be called. As many sites
-X                          as necessary may be specified separated by at least
-X                          one blank.
-X             Note: any site will be called with the options currently in
-X                   effect. The working order is left to right. Example:
-X                   uupoll -gQ site1 site2 -gZ site3 -n site4
-X                   site1 and site2 will be called immediate with grade Q
-X                   site3 will be called immediate with grade Z. Site4 will
-X                   have a poll file created with grade Z.
-X
-X   Environment: NeXT 2.1
-X
-X   Called Programs: sort, uniq, uucico (or autopoll), uuname
-X
-X   Compile:     no special options are needed
-X
-X   Comments:    - should run setuid UUCP or whatever userid is necessary to
-X                  write to the spool directory with the proper ownership of
-X                  the files and to run uucico.
-X                - No alias expansion is done on the given names.
-*/
-X
-#if !defined(lint)
-static char rcsid[] = "$FreeBSD$";
-#endif /* not lint */
-X
-X/* Log: uupoll.shar,v
-X * Revision 2.7  1994/04/14  17:22:04  kdburg
-X * major rework done
-X *
-X * Revision 2.6  1994/03/26  17:38:41  kdburg
-X * added support for UNAME_DIR; cleanup of some code; adjusted code after
-X * obtaining sitenames via popen()
-X *
-X * Revision 2.5  1994/03/24  19:01:24  kdburg
-X * some minor changes; some calls had their rc not checked
-X *
-X * Revision 2.4  1993/07/08  07:56:26  kdburg
-X * befor invoking autopoll stdin is now closed to avoid blocking of
-X * terminal
-X *
-X * Revision 2.3  1993/07/05  19:43:00  kdburg
-X * when used interactivly only the start msg is put into the msg-log
-X * so far defined (UULOG)
-X *
-X * Revision 2.2  1993/05/20  18:50:52  kdburg
-X * no execute permission to the poll-pgm (uucico/autopoll) was not
-X * reflected in the log; when to start message was not given when -x
-X * option was present
-X *
-X * Revision 2.1  1993/05/16  21:48:15  kdburg
-X * changed exit() to _exit() in case the exec fails within child
-X *
-X * Revision 2.0  1993/05/16  14:11:04  kdburg
-X * initial revision
-X * */
-X
-#define CAT 16
-#define SEVERE 8
-#define WARNING 4
-#define OK 0
-#define P_MODE 00647                      /* file-mode for poll-file */
-/* Boolean types   */
-typedef int bool;
-#undef TRUE
-#undef FALSE
-#define TRUE (1)
-#define FALSE (0)
-X
-#include "conf.h"
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <ctype.h>
-#include <sys/file.h>
-#include <sys/param.h>
-#include <pwd.h>
-#include <sys/time.h>
-X
-#define X_OK 1                            /* access: executable ? */
-X
-#ifdef ALOG_FILE
-X  static char Msg_Log[] = ALOG_FILE;      /* name of msglog filename */
-#endif
-X
-#ifdef UNAME_DIR
-X   static char subcmd[] = " | sort | uniq";     /* pipe that follows uuname */
-#else  /* ! UNAME_DIR */
-X   static char Sort[] = "uuname | sort | uniq"; /* default to obtain site names */
-#endif /*UNAME_DIR */
-X
-static char cGrade[] = DEF_GRADE;         /* grade as defined in conf.h */
-static char dGrade[] = "A";               /* use this if DEF_GRADE is invalid */
-#ifdef AUTO_POLL
-X  static char Auto_Dir[] = AUTO_DIR;      /* autopoll lives here */
-#else
-X  static char Cico_Dir[] = CICO_DIR;      /* and here lives cico */
-#endif  /* AUTO_POLL */
-X
-struct Sites {
-X       char name[MAXHOSTNAMELEN+1];    /* name of site as supplied by uuname */
-X       char grade[1];                  /* as passed or defaulted */
-X       bool flag;                      /* TRUE this site should be polled */
-X       int asap;                       /* 1 without -n; 2 with -x option */
-};
-X struct Common_Stor {
-X        int maxtab;                       /* high-water-mark for site tab */
-X        char *Grade;                      /* use this as grade for calls */
-X        char *Poll_Pgm;                   /* our name without path */
-X        char *called_as;                  /*     but called by this name */
-X        int  our_pid;                     /* our process-id */
-X        char *Uucico;                     /* cico's name without path */
-X        char This_Site[MAXHOSTNAMELEN+1]; /* our site name */
-X        char System[MAXHOSTNAMELEN+1];    /* intermediate to hold sitename */
-X        char *Usort;                       /* will hold uuname + subcmd */
-X        struct passwd *pwd;
-X        struct timeval tp;
-X        struct timezone tzp;
-X        struct Sites Sitetab[SITE_MAX];
-X        char workf[300];
-X };
-X
-/* define the prototypes
-X * */
-X
-int set_mlog(FILE **seclog, struct Common_Stor *);
-int get_sites(struct Common_Stor *);
-int Check_Args(int argc, char *argv[], struct Common_Stor *);
-int Housekeeping(int argc, char *argv[], struct Common_Stor *);
-int Call_Site(struct Common_Stor *);
-void *storage(unsigned count, char *errloc, int *Rc, struct Common_Stor *);
-X
-extern int getpid();
-extern void free(void *ptr);
-extern int access(char *path, int mode);
-extern int gethostname(char *name, int namelen);
-extern int system(char *cmd);
-extern int fork();
-extern int execlp(char *name, char *arg0, ...);
-extern void *malloc(size_t byteSize);
-extern int getuid();
-extern int isatty(int);
-extern char *ttyname(int);
-extern int open(char *path, int flags, int mode);
-extern int close(int fd);
-#ifdef __STRICT_ANSI__
-extern FILE *popen(char *command, char *type);
-extern int pclose(FILE *stream);
-extern void _exit(int status);
-#endif  /* __STRICT_ANSI__ */
-#ifdef __STRICT_BSD__
-extern int fprintf(FILE *stream, const char *format, ...);
-extern int fclose(FILE *stream);
-extern char *strerror(int errnum);
-extern int fflush(FILE *stream);
-extern void exit(int status);
-#endif /* __STRICT_BSD__ */
-X
-/* --------------------------------------------------------------------------*/
-/*                             Main                                          */
-/* --------------------------------------------------------------------------*/
-X
-int main(int argc, char *argv[])
-{
-X
-X struct Common_Stor *sCom_Sto;
-X int Maxrc = OK;                          /* Max err-code encountered so far */
-X int k = 0;
-X
-X if ( NULL == (sCom_Sto = malloc(sizeof(struct Common_Stor))) ) {
-X      fprintf(stderr,"%s: (C) malloc failed (%s). Reason: %i (%s)\n",
-X                     argv[0],"Common_Stor",errno,strerror(errno));
-X      exit (CAT);
-X     }
-X
-X Maxrc = Housekeeping(argc, argv, sCom_Sto);
-X
-/* If any errors popped up so far they are of such a nature that it is very
-X * questionable to continue; so we better bail out in this case. 
-X */
-X  if (Maxrc <= WARNING) {
-X        k = Call_Site(sCom_Sto);
-X        Maxrc = Maxrc >= k ? Maxrc:k;
-X  }
-X  k = gettimeofday(&sCom_Sto->tp, &sCom_Sto->tzp);
-X  fprintf(stderr,"%s: (I) ended with rc = %i on %s\n",
-X                 sCom_Sto->called_as,
-X                 Maxrc,k!=0 ? "time unavailable":ctime(&sCom_Sto->tp.tv_sec));
-X  fclose(stderr);
-X  free(sCom_Sto);
-X  sCom_Sto = NULL;
-X  exit (Maxrc);
-}
-X
-/* --------------------------------------------------------------------------*/
-/*                           Functions                                       */
-/* --------------------------------------------------------------------------*/
-X
-/* --------------------------------------------------------------------
-X * housekeeping
-X */
-X
-int Housekeeping(argc, argv, sCom_Sto)
-X               int argc;
-X               char *argv[];
-X               struct Common_Stor *sCom_Sto; { 
-X
-X FILE *seclog = NULL;
-X int Rc = OK;
-X int Rci = OK;                /* intermediate rc as returnd by functions */
-X
-X sCom_Sto->our_pid = getpid();
-X  
-/* 
-X *  get our name sans path
-X * */
-X
-X  sCom_Sto->called_as = argv[0] + strlen(*argv);
-X  for(;sCom_Sto->called_as >= argv[0] && *--sCom_Sto->called_as != '/';)
-X                           ;
-X  sCom_Sto->called_as++;
-X
-/* if defined set up the name of the message log file otherwise
-X * stderr will be used. Setup the cmd string to obtain all known sitenames
-X * which will be sorted in ascending order with duplicates removed
-X * */
-X   
-X   Rc = set_mlog(&seclog, sCom_Sto);
-X   if (Rc > WARNING)
-X      return (Rc);
-X
-/* put out the started message including the time and the userid.
-X * */
-X
-X  sCom_Sto->pwd = getpwuid(getuid());
-X
-X  if ((gettimeofday(&sCom_Sto->tp, &sCom_Sto->tzp)) != 0) {  /* unacceptable error */
-X     fprintf(stderr,"%s: (C) gettimeofday() failed. Reason: %i (%s)\n",
-X                     sCom_Sto->called_as,errno,strerror(errno));
-X     return (Rc >= CAT ? Rc:CAT);
-X  }
-X
-X  if (seclog != NULL) {
-X     fprintf(seclog,"\n%s: (I) started by `%s' (%s) on %s",
-X                   sCom_Sto->called_as,
-X                   (sCom_Sto->pwd==NULL) ? "???":sCom_Sto->pwd->pw_name,
-X                   ttyname(0),
-X                   ctime(&sCom_Sto->tp.tv_sec));
-X     fclose(seclog);
-X  }
-X  fprintf(stderr,"\n%s: (I) started by `%s' on %s",
-X                 sCom_Sto->called_as,
-X                 (sCom_Sto->pwd==NULL) ? "???":sCom_Sto->pwd->pw_name,
-X                 ctime(&sCom_Sto->tp.tv_sec));
-X
-/* set up the default grade 
-X * */
-X
-X   sCom_Sto->Grade = dGrade;          /* set default for now */
-X   if (strlen(cGrade) != 1) {
-X      fprintf(stderr,"%s: (W) grade %s invalid; default `%s' used\n",
-X                      sCom_Sto->called_as,cGrade,sCom_Sto->Grade);
-X      Rc = Rc >= WARNING ? Rc:WARNING;
-X   }
-X   else
-X      sCom_Sto->Grade = cGrade;      /* Ok, take the one from conf.h */
-X
-/* get the program to actually call the site. This is either UUCICO
-X * or AUTOPOLL or something completely different.
-X * */
-X
-#ifdef AUTO_POLL
-X   sCom_Sto->Uucico = Auto_Dir + strlen(Auto_Dir);
-X   for(;sCom_Sto->Uucico >= Auto_Dir && *--sCom_Sto->Uucico != '/';)
-X                       ;
-X   sCom_Sto->Uucico++;
-#else /* ! AUTO_POLL */
-X   sCom_Sto->Uucico = Cico_Dir + strlen(Cico_Dir);
-X   for(;sCom_Sto->Uucico >= Cico_Dir && *--sCom_Sto->Uucico != '/';)
-X                       ;
-X   sCom_Sto->Uucico++;
-#endif /* AUTO_POLL */
-X
-/* get the path to ourself.
-X * */
-X
-X  sCom_Sto->Poll_Pgm = argv[0] + strlen(argv[0]);
-X  for(;sCom_Sto->Poll_Pgm >= argv[0] && *--(sCom_Sto->Poll_Pgm) != '/';)
-X                      ;
-X  sCom_Sto->Poll_Pgm++;
-X
-/* obtain our sitename
-X * */
-X
-X  if ((gethostname(sCom_Sto->This_Site,MAXHOSTNAMELEN+1)) != 0) {
-X     fprintf(stderr,"%s: (W) hostname could not be obtained\n",
-X                     sCom_Sto->called_as);
-X     Rc = (Rc >= WARNING) ? Rc:WARNING;
-X  }
-X
-/* obtain all known sitenames
-X * */
-X
-X   Rci = get_sites(sCom_Sto);
-X   Rc = Rci > Rc ? Rci:Rc;
-X
-/* check the arguments that we are called with
-X * */
-X
-X   Rci = Check_Args(argc, argv, sCom_Sto);
-X   Rc = Rci > Rc ? Rci:Rc;
-X
-X return (Rc);
-}
-X
-/* --------------------------------------------------------------------
-X * check all relevant arguments that have been passed to us. Those args
-X * that may be needed for a recall will be copied to a workfield.
-X * */
-X
-int Check_Args(int argc, char *argv[], struct Common_Stor *sCom_Sto) {
-X  int i,s,k,n = 0;
-X  int Rc = OK;
-X  int One_Site = 0;          /* TRUE: found at least one valid site to call */
-X  int poll_file = 1;         /* FALSE: after -x option given                  */
-X  int def_flag = 0;          /* TRUE: when option -n was encountered */
-X
-X   /* --------------------------------------------------------------*/
-X   /*               check the arguments passed to us                */
-X   /*                                                               */
-X   /* These are: -n  -> place a POLL file but do not start uucico   */
-X   /*            -x  -> do not place a poll file (immed. poll only) */
-X   /*            -g? -> specify a grade with the POLL file. The ?   */
-X   /*                   may be: 0-9, A-Z, a-z                       */
-X   /*                           (validity not checked!)             */
-X   /*            site   name of the site to call. There many be as  */
-X   /*                   many as necessary separated by at least one */
-X   /*                   blank                                       */
-X   /* Note: all options will stay in effect as long as they are'nt  */
-X   /*       changed by a new setting. The options -n and -x can't   */
-X   /*       be negated once given; that means place all sites       */
-X   /*       that should be immediately polled to the left of the    */
-X   /*       -n option; the same applies to the -x option which must */
-X   /*       be left of the -n option to come into effect!           */
-X   /*       The working order is left to right!                     */
-X   /* --------------------------------------------------------------*/
-X
-X for (i = 1, s = 0; i < argc; i++) {
-X   k = strlen(argv[i]);
-X   switch (*argv[i]) {
-X
-X      /*      ---->     handle the options         */
-X
-X      case '-':
-X           n = 1;
-X           switch (*(argv[i]+n)) {
-X              case 'n':
-X                   if (k > 2) {
-X                      fprintf(stderr,"%s: (E) invalid specification %s\n",
-X                                     sCom_Sto->called_as,argv[i]);
-X                      Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                      break;
-X                   }
-X                   def_flag = 1;
-X                   break;
-X              case 'x':
-X                   if (k > 2) {
-X                      fprintf(stderr,"%s: (E) invalid specification %s\n",
-X                                     sCom_Sto->called_as,argv[i]);
-X                      Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                      break;
-X                   }
-X                   if (def_flag) {
-X                      fprintf(stderr,"%s: (W) -x after -n has no effect\n",
-X                                     sCom_Sto->called_as);
-X                      Rc = Rc >= WARNING ? Rc:WARNING;
-X                      }
-X                   else {
-X                      poll_file = 0;
-X                   }
-X                   break;
-X               case 'g':
-X                    if (k > 3) {
-X                       fprintf(stderr,"%s: (E) invalid specification %s\n",
-X                                       sCom_Sto->called_as,argv[i]);
-X                      Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                      break;
-X                    }
-X                    if (*(argv[i]+n+1) == '\0') {
-X                       fprintf(stderr,"%s: (E) missing grade\n",
-X                                      sCom_Sto->called_as);
-X                       Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                       break;
-X                    }
-X                    if (isalnum(*(argv[i]+n+1)) == 0) {
-X                       fprintf(stderr,"%s: (E) invalid grade %s\n",
-X                                      sCom_Sto->called_as,argv[i]);
-X                       Rc = Rc >= SEVERE ? Rc:SEVERE;
-X                       break;
-X                    }
-X                    strcpy(sCom_Sto->Grade,(argv[i]+n+1));
-X                    break;
-X               default:
-X                    fprintf(stderr,"%s: (W) missing/unknown option `-%s' ignored\n",
-X                                    sCom_Sto->called_as,argv[i]+n);
-X                     Rc = Rc >= WARNING ? Rc:WARNING;
-X                    break;
-X           }  /* end of switch (*(argv[i]+n)) */
-X           break;
-X
-X  /*      ---->     handle the sitenames         */
-X
-X     default:
-X        if (strcmp(argv[i],sCom_Sto->This_Site) == 0) {
-X           fprintf(stderr,"%s: (W) ignoring to call *ourself* %s\n",
-X                          sCom_Sto->called_as,argv[i]);
-X           Rc = Rc >= WARNING ? Rc:WARNING;
-X           break;
-X        }
-X        strcpy(sCom_Sto->System,argv[i]);
-X        for(s=0;s<=sCom_Sto->maxtab;s++) {
-X            if ((n=strcmp(sCom_Sto->Sitetab[s].name,sCom_Sto->System)) >= 0) {
-X                break;
-X            }
-X        }
-X        if (n != 0) {
-X           fprintf(stderr,"%s: (W) unknown site (ignored): %s\n",
-X                          sCom_Sto->called_as,sCom_Sto->System);
-X           Rc = Rc >= WARNING ? Rc:WARNING;
-X           break;
-X        }
-X
-X  /*      ---->     if there was no error we arrive here to save the data  */
-X
-X        strcpy(sCom_Sto->Sitetab[s].grade,sCom_Sto->Grade);
-X        One_Site = sCom_Sto->Sitetab[s].flag = 1; /* poll this site */
-X        if (def_flag)
-X           sCom_Sto->Sitetab[s].asap = 0;   /* poll on next schedule */
-X        else {
-X           sCom_Sto->Sitetab[s].asap = 1;   /* poll immediately */
-X           if (! poll_file)
-X              sCom_Sto->Sitetab[s].asap++;  /* and do not place a poll file */
-X        }
-X        s++;
-X        break;
-X   }        /* end of switch (*argv[i]) */ 
-X }          /* end of for(...) */
-X
-/* now let's check what we've gotten so far. If no valid data has been */
-/* entered we will indicate that to prevent further processing         */
-X
-X if (! One_Site) { 
-X    fprintf(stderr,"%s: (E) found no site to call\n",
-X                   sCom_Sto->called_as);
-X    Rc = Rc >= SEVERE ? Rc:SEVERE;
-X }
-X
-return (Rc);
-}
-X
-int Call_Site(struct Common_Stor *sCom_Sto) {
-X
-/* For all sites that carry the -n flag we will place                     */
-/* a poll file into the appropriate directory. For all others there will  */
-/* be an immediate call to uucico (or autopoll)                           */
-/* Those sites that have been named on the command have the corresponding */
-/* flag byte set to one.                                                          */
-X
-X  int fdpoll;                /* fildes for the poll file */
-X  int mode = P_MODE;          /* mode for poll file */
-X  int i = 0;
-X  int Rc = OK;
-X  int pid = 0;               /* process-id after fork() */
-X
-X for(i=0;(i<=sCom_Sto->maxtab);i++) {
-X    if (sCom_Sto->Sitetab[i].flag == 0) /* should we trigger this one ?   */
-X        continue;                      /* nope */
-X
-/* processing done for delayed polls only                                */
-X
-X    if (sCom_Sto->Sitetab[i].asap <= 1) {   /* do not place a poll file */
-X                                           /* for sites that will be polled */
-X                                      /* immediate and  carry the -x option */
-#ifdef HAVE_SPOOLDIR_TAYLOR
-X       sprintf(sCom_Sto->workf,"%s/%s/C./C.%sPOLL",
-X                     SPOOL_DIR,
-X                     sCom_Sto->Sitetab[i].name,
-X                     sCom_Sto->Sitetab[i].grade);
-#endif
-#ifdef HAVE_SPOOLDIR_HDB
-X       sprintf(sCom_Sto->workf,"%s/%s/C.%s%sPOLL",
-X               SPOOL_DIR,
-X               sCom_Sto->Sitetab[i].name,
-X               sCom_Sto->Sitetab[i].name,
-X               sCom_Sto->Sitetab[i].grade);
-#endif
-#ifdef HAVE_SPOOLDIR_BSD
-X       sprintf(sCom_Sto->workf,"%s/C./C.%s%sPOLL",
-X               SPOOL_DIR,
-X               sCom_Sto->Sitetab[i].name,
-X               sCom_Sto->Sitetab[i].grade);
-#endif
-X
-X       fflush(stderr);
-X       if ((fdpoll=open(sCom_Sto->workf,O_CREAT,mode)) <= 0) {
-X          fprintf(stderr,"%s: (E) couldn't place poll file for system: %s. Reason: %s\n",
-X                          sCom_Sto->called_as,
-X                          sCom_Sto->Sitetab[i].name,
-X                          strerror(errno));
-X          Rc = Rc >= SEVERE ? Rc:SEVERE;
-X       }
-X       else {
-X          if (close(fdpoll) != 0) {
-X             fprintf(stderr,"%s: (W) close failed for poll file; system: %s. Reason: %s\n",
-X                          sCom_Sto->called_as,
-X                          sCom_Sto->Sitetab[i].name,
-X                          strerror(errno));
-X             Rc = Rc >= WARNING ? Rc:WARNING;
-X          }
-X       }
-X    }
-X
-/* the following processing is done for immediate polls only
-X * there is no wait for the completion of the called program that actually
-X * calls the site
-X * */
-X
-X    fflush(stderr);
-X    if (Rc <= WARNING) {
-X       fprintf(stderr,"%s: (I) site %s will be called %s\n",
-X                       sCom_Sto->called_as,
-X                       sCom_Sto->Sitetab[i].name,
-X                       sCom_Sto->Sitetab[i].asap == 0 ?
-X                                  "upon next poll":"immediately");
-X       if (sCom_Sto->Sitetab[i].asap >= 1)
-X       {
-#ifdef AUTO_DIR
-X          if ( access(Auto_Dir,X_OK) != 0) /* do we have xecute permission ? */
-#else  /* ! AUTO_DIR */
-X          if ( access(Cico_Dir,X_OK) != 0) /* do we have xecute permission ? */
-#endif /* AUTO_DIR */
-X          {
-X             fprintf(stderr,"%s: (C) could not start %s. Reason-code: %i (%s)\n",
-X                             sCom_Sto->called_as,
-X                             sCom_Sto->Uucico,
-X                             errno,strerror(errno));
-X             return (Rc >= CAT ? Rc:CAT);        /* abandon the run */
-X          }
-X          switch (pid = fork())
-X          {
-X             case -1:
-X                 fprintf(stderr,"%s: (C) could not fork() Reason-code: %i (%s)\n",
-X                                 sCom_Sto->called_as,
-X                                 errno,strerror(errno)); 
-X                   return (Rc >= CAT ? Rc:CAT);
-X             case 0:
-X                if (isatty(0))
-X                   close(0);      /* don't block the terminal  by autopoll */
-#ifdef AUTO_DIR
-X                execlp(Auto_Dir,
-#else /* ! AUTO_DIR */
-X                execlp(Cico_Dir,
-#endif  /*AUTO_DIR */
-X                       sCom_Sto->Uucico,
-X                       "-D", "-r1", "-s",
-X                       sCom_Sto->Sitetab[i].name,0);
-X                fprintf(stderr,"%s: (C) could not start %s. Reason-code: %i (%s)\n",
-X                                sCom_Sto->called_as,
-X                                sCom_Sto->Uucico,
-X                                errno,strerror(errno));
-X                _exit (CAT);            /* child: bail out */
-X             default: 
-X                fflush(stderr);
-X                fprintf(stderr,"%s: (I) %s [%d] started; site: %s\n",
-X                                sCom_Sto->called_as,
-X                                sCom_Sto->Uucico,
-X                                pid,
-X                                sCom_Sto->Sitetab[i].name);
-X           }     /* switch (pid = fork()) */
-X       }      /* if (Sitetab ...)  */
-X    }      /* if (Rc ...) */
-X }      /* for(i=0;(i<= ...))  */
-X return (Rc);
-}
-X
-X /* ------------------------------------------------------------------
-X  * storage - get some memory
-X  */
-X
-void *storage(unsigned count,
-X              char *location,
-X              int *Rc,
-X              struct Common_Stor *sCom_Sto)
-{
-X  void *p;
-X
-X  if( NULL == (p= malloc(count)) ) {
-X      fprintf(stderr,"%s: (C) malloc failed (%s). Reason: %i (%s)\n",
-X                     sCom_Sto->called_as,location,errno,strerror(errno));
-X      *Rc = *Rc >= CAT ? *Rc:CAT;
-X    }
-X  return p;
-}
-X
-/*  ------------------------------------------------------------------
-X * if defined open the message log file otherwise all mesages will go
-X * to stderr. If UNAME_DIR is defined construct the command to be
-X * passed to popen(); if undefined the default will be used
-X * */
-X
-int set_mlog(FILE **seclog, struct Common_Stor *sCom_Sto) {
-X 
-X   int Rc = 0;
-X   
-#ifdef ALOG_FILE
-X   if (!isatty(0)) {
-X      if ((freopen(Msg_Log,"a",stderr)) == NULL) {
-X         fprintf(stdout,"%s: (C) Could not open msglog: %s\n",
-X                        sCom_Sto->called_as,Msg_Log);
-X         return (Rc >= CAT ? Rc:CAT);
-X      }
-X   }
-X   else {
-X      if ((*seclog = fopen(Msg_Log,"a")) == NULL) {
-X         fprintf(stderr,"%s: (C) Could not open msglog: %s\n",
-X                        sCom_Sto->called_as,Msg_Log);
-X         return (Rc >= CAT ? Rc:CAT);
-X      }
-X   }
-#endif  /* ALOG_FILE */
-X
-/* set up the pipe together with the complete path to uuname */
-X
-#ifdef UNAME_DIR
-X   if ((sCom_Sto->Usort = (char *)storage (sizeof(UNAME_DIR)+sizeof(subcmd),
-X               "Sort",&Rc, sCom_Sto)) != NULL) {
-X      strncpy(sCom_Sto->Usort,UNAME_DIR,strlen(UNAME_DIR)); /* paste in the path */
-X      strcat(sCom_Sto->Usort,subcmd);                   /* chain the pipe to it */
-X   }
-#else   /* ! UNAME_DIR */
-X   sCom_Sto->Usort = &Sort;          /* set pointer to uuname + sort */
-#endif  /* UNAME_DIR */
-X
-X   return (Rc);
-}
-X
-/*  ------------------------------------------------------------------
-X *  obtain all active  sitenames
-X * */
-X
-int get_sites(struct Common_Stor *sCom_Sto) {
-X
-X  int i = 0;
-X  int n;
-X  int Rc = 0;
-X  FILE *infile;
-X
-X  if ((infile=popen(sCom_Sto->Usort,"r")) != NULL) {
-X     while(fgets(sCom_Sto->Sitetab[i].name,MAXHOSTNAMELEN+1,infile)) {
-X          if (i > SITE_MAX) {            /* let'm run so that we can give */
-X             i++;                        /* the user some guidance */
-X             continue;                   /* we'll tell the user later on */
-X          }
-X          n = strlen(sCom_Sto->Sitetab[i].name)-1; /* offset: next to last char */
-X          sCom_Sto->Sitetab[i].name[n] = '\0';  /* strip trailing newline */
-X          sCom_Sto->Sitetab[i].flag = FALSE;    /* TRUE: poll this site */
-X          sCom_Sto->Sitetab[i].asap = FALSE;    /* TRUE: immediate poll */
-X          strcpy(sCom_Sto->Sitetab[i].grade,sCom_Sto->Grade);
-X          sprintf(sCom_Sto->workf,"%s%s",STATUS_DIR,sCom_Sto->Sitetab[i].name);
-X          sCom_Sto->maxtab = i++;                  /* set high-water-mark */
-X     }
-X     if (ferror(infile) != 0) {
-X        fprintf(stderr,"%s: (E) fgets() for sitenames failed reason-code: %i (%s)\n",
-X                       sCom_Sto->called_as,errno,strerror(errno));
-X        Rc = Rc >= SEVERE ? Rc:SEVERE;
-X     }
-X     pclose(infile);
-X
-X    /* 
-X     * check for an empty table (strange but possible) 
-X     */
-X
-X    if (sCom_Sto->maxtab == 0) {
-X       fprintf(stderr,"%s: (E) could not obtain sitenames.\n",
-X                      sCom_Sto->called_as);
-X       Rc = Rc >= SEVERE ? Rc:SEVERE;
-X    }
-X    else {
-X
-X      /* in case the internal table overflows we'll now give notice and tell
-X       * the user by which amount the table has to be increased to hold all          
-X       * site-names
-X       */
-X
-X       if (i > SITE_MAX) {
-X          fprintf(stderr,"%s: (E) number of sites > internal tab\n",
-X                         sCom_Sto->called_as);
-X          fprintf(stderr,"%s: (E) increase SITE_MAX to >= %d and recompile\n",
-X                          sCom_Sto->called_as,i);
-X          Rc = Rc >= SEVERE ? Rc:SEVERE;
-X       }
-X    }     /* sCom_Sto->maxtab == 0 */
-X
-X  }
-X  else  /* infile == NULL */
-X  {
-X     fprintf(stderr,"%s: (E) could not sort sitenames. Reason-code: %i (%s)\n",
-X                         sCom_Sto->called_as,errno,strerror(errno)); 
-X     Rc = Rc >= SEVERE ? Rc:SEVERE;
-X
-X  }    /* if ((infile=popen(sCom_Sto->Usort,"r")) ... */
-X
-X  return (Rc);
-}
-SHAR_EOF
-chmod 0444 uupoll/uupoll.c ||
-echo 'restore of uupoll/uupoll.c failed'
-Wc_c="`wc -c < 'uupoll/uupoll.c'`"
-test 27587 -eq "$Wc_c" ||
-	echo 'uupoll/uupoll.c: original size 27587, current size' "$Wc_c"
-fi
-exit 0
diff --git a/gnu/libexec/uucp/contrib/uuq.sh b/gnu/libexec/uucp/contrib/uuq.sh
deleted file mode 100755
index a5d88e9..0000000
--- a/gnu/libexec/uucp/contrib/uuq.sh
+++ /dev/null
@@ -1,125 +0,0 @@
-#!/bin/sh
-#
-# uuq - a script to examine and display the Taylor spool directory contents.
-#       note - uses the uuname script or similar functionality.
-# Zacharias Beckman
-
-SPOOLDIR="/usr/spool/uucp"
-SYSTEMS=`uuname`
-TMPFILE="/tmp/uuq.tmp"
-FORSYSTEM=""
-DELETE=""
-LONG=0
-SINGLE=0
-
-while [ "$1" != "" ]
-do
-  case $1 in
-    -l) LONG=1
-        shift
-        ;;
-    -s) shift
-        SYSTEMS=$argv[1]
-        SINGLE=1
-        shift
-        ;;
-    -d) shift
-        DELETE=$argv[1]
-        shift
-        ;;
-    -h) echo "uuq: usage uuq [options]"
-        echo "     -l    long listing (may take a while)"
-        echo "     -s n  run uuq only for system n"
-        echo "     -d n  delete item n from the queue (required -s)"
-        exit 1
-            ;;
-        *)  echo "uuq: invalid option"
-            exit 1
-            ;;
-  esac
-done
-
-if [ "${DELETE}" != "" ] && [ ${SINGLE} != 1 ] ; then
-  echo "uuq: you must specify a system to delete the job from:"
-  echo "     uuq -s wizard -d D.0004"
-  exit 1
-fi
-
-cd ${SPOOLDIR}
-
-# if we are deleting a job, then do that first and exit without showing
-# any other queue information
-
-if [ "${DELETE}" != "" ] ; then
-  if [ -d ${SYSTEMS}/D. ] ; then
-    cd ${SYSTEMS}/C.
-    PACKET=${DELETE}
-    if [ -f ${PACKET} ] ; then
-      EXFILE=../D.X/`awk '{if (NR == 2) print $2}' ${PACKET}`
-      DFILE=../D./`awk '{if (NR == 1) print $2}' ${PACKET}`
-      echo "deleting job ${PACKET}"
-      rm ${PACKET}
-      rm ${EXFILE}
-      rm ${DFILE}
-    else
-      echo "uuq: job ${PACKET} not found"
-      exit 1
-    fi
-  else
-    echo "uuq: system ${SYSTEMS} not found"
-  fi
-
-  exit 1
-fi
-
-# use the 'uuname' script to obtain a list of systems for the 'sys' file,
-# then step through each directory looking for appropriate information.
-
-if [ ${LONG} -gt 0 ] ; then
-  echo "system"
-  echo -n "job#    act size       command"
-fi
-
-for DESTSYSTEM in ${SYSTEMS} ; do
-  # if there is an existing directory for the named system, cd into it and
-  # "do the right thing."
-
-  if [ -d ${DESTSYSTEM} ] ; then
-    cd ${DESTSYSTEM}/C.
-
-    PACKET=`ls`
-
-    if [ "${PACKET}" != "" ] ; then
-      # if a long listing has been required, extra information is printed
-
-      echo ""
-      echo "${DESTSYSTEM}:"
-
-      # now each packet must be examined and appropriate information is
-      # printed for this system
-
-      if [ ${LONG} -gt 0 ] ; then
-        for PACKET in * ; do
-          EXFILE=../D.X/`awk '{if (NR == 2) print $2}' ${PACKET}`
-          DFILE=../D./`awk '{if (NR == 1) print $2}' ${PACKET}`
-          echo -n "${PACKET} " > ${TMPFILE}
-          gawk '{if (NR == 2) printf(" %s  ", $1);}' ${PACKET} >> ${TMPFILE}
-          ls -l ${DFILE}|awk '{printf("%-10d ", $4)}' >> ${TMPFILE}
-          if [ -f ${EXFILE} ] ; then
-            gawk '/U / {printf("(%s)", $2);}\
-                  /C / {print substr($0,2,length($0));}' ${EXFILE} >> ${TMPFILE}
-          else
-            echo "---" >> ${TMPFILE}
-          fi
-
-          cat ${TMPFILE}
-        done
-        cat ${SPOOLDIR}/.Status/${DESTSYSTEM}
-      else
-        ls
-      fi
-    fi
-  fi
-
-  cd ${SPOOLDIR}
-done
diff --git a/gnu/libexec/uucp/contrib/uurate.c b/gnu/libexec/uucp/contrib/uurate.c
deleted file mode 100644
index 83be734..0000000
--- a/gnu/libexec/uucp/contrib/uurate.c
+++ /dev/null
@@ -1,1854 +0,0 @@
-/*
- * @(#)uurate.c 1.2 - Thu Sep  3 18:32:46 1992
- *
- * This program digests log and stats files in the "Taylor" format
- * and outputs various statistical data to standard out.
- *
- * Author:
- *      Bob Denny (denny@alisa.com)
- *      Fri Feb  7 13:38:36 1992
- *
- * Original author:
- *      Mark Pizzolato   mark@infopiz.UUCP
- *
- * Edits:
- *      Bob Denny - Fri Feb  7 15:04:54 1992
- *      Heavy rework for Taylor UUCP. This was the (very old) uurate from
- *      DECUS UUCP, which had a single logfile for activity and stats.
- *      Personally, I would have done things differently, with tables
- *      and case statements, but in the interest of time, I preserved
- *      Mark Pizzolato's techniques and style.
- *
- *      Bob Denny - Sun Aug 30 14:18:50 1992
- *      Changes to report format suggested by Francois Pinard and others.
- *      Add summary report, format from uutraf.pl (perl script), again
- *      thanks to Francois. Integrate and checkout with 1.03 of Taylor UUCP.
- *
- *      Stephan Niemz <stephan@sunlab.ka.sub.org> - Fri Apr 9 1993
- *      - Print totals in summary report,
- *      - show all commands in execution report,
- *      - count incoming calls correctly,
- *      - suppress empty tables,
- *      - don't divide by zero in efficiency report,
- *      - limit the efficiency to 100% (could be more with the i-protocol),
- *      - suppress some zeros to improve readability,
- *      - check for failure of calloc,
- *      - -h option changed to -s for consistency with all other uucp commands
- *        (but -h was left in for comptibility).
- *
- *      Scott Boyd <scott@futures.com> - Thu Aug 26 13:21:34 PDT 1993
- *      - Changed hosts linked-list insertion routine so that hosts
- *        are always listed in alphabetical order on reports.
- *
- *      Klaus Dahlenburg <kdburg@incoahe.hanse.de> - Fri Jun 18 1993 (1.2.2)
- *      - redesigned the printed layout (sticked to those 80 column tubes).
- *      - 'Retry time not ...' and ' ERROR: All matching ports ...' will now be
- *        counted as calls and will raise the failed-call counter.
- *      - times now shown as hh:mm:ss; the fields may hold up to 999 hrs  
- *        (a month equals 744 hrs at max). Printing will be as follows:
- *
- *         hrs > 0  hh:mm:ss
- *         min > 0     mm:ss
- *         sec > 0        ss
- *         leading zeroes are suppressed.
- *
- *      - the bytes xfered will be given in thousands only (we're counting 
- *        so 1K is 1000 bytes!). Sums up to 9,999,999.9 thousand can be shown.
- *      - dropped the fractions of a byte in columns: bytes/second (avg cps).
- *      - File statistic changed to display in/out in one row instead of 2
- *        separate reports.
- *      - eliminated the goto in command report and tightened the code; also
- *        the 'goto usage' has been replaced by a call to void usage() with no
- *        return (exit 1).
- *      - a totaling is done for all reports now; the total values are held 
- *        within the structure; after finishing read there will be an alloc
- *        for a site named 'Total' so that the totals line will be printed
- *        more or less automatically.
- *      - option -t implemented: that is every possible report will be given.
- *      - the start and end date/time of the input files are printed; can be
- *        dropped by the -q option at run time.
- *      - it is now possible to use Log/Stats files from V2_LOGGING configs.
- *        They must however not be mixed together (with each other).
- *      - the Log/Stats files are taken from config which is passed via
- *        Makefile at compile time. Variable to set is: newconfigdir. If the
- *        default config can't be read the default values are used
- *        (the config is optional!).
- *        Note: keyword/filename must be on the same line (no continuation).
- *      - -I option implemented to run with a different config file. In case
- *        the file can't be opened the run is aborted!
- *      - -q option implemented to run without environment report (default is
- *        FALSE: print the report).
- *      - -p option added to print protocol statistics: one for the packets
- *        and one for the errors encountered
- *      - reapplied patch by Scott Boyd <scott@futures.com> that I did not
- *        get knowledge of
- */
-/* Log: uurate.c,v
- * Revision 1.15  1994/04/07  21:47:11  kdburg
- * printed 'no data avail' while there was data; layout chnaged
- * (cosmetic only)
- *
- * Revision 1.14  1994/04/07  21:16:32  kdburg
- * the layout of the protocol-used line within the LOGFILE changed
- * from 1.04 to 1.05; both formats may be used together; output
- * changed for packet report (columns adjusted)
- *
- * Revision 1.13  1994/04/04  10:04:35  kdburg
- * cosmetic change to the packet-report (separator lines)
- *
- * Revision 1.12  1994/03/30  19:52:04  kdburg
- * incorporated patch by Scott Boyd which was missing from this version
- * of uurate.c. Left the comment in cronological order.
- *
- * Revision 1.11  1994/03/28  18:53:22  kdburg
- * config not checked properly for 'logfile/statsfile' overwrites, bail-out
- * possible; wrong file name written to log for statsfile when found
- *
- * Revision 1.10  1993/09/28  16:46:51  kdburg
- * transmission failures denoted by: failed after ... in stats file
- * have not been counted at all.
- *
- * Revision 1.9  1993/08/17  23:38:36  kdburg
- * sometimes a line(site) was missing from the protocol stats due
- * to a missing +; added option -d and -v reassing option -h to print
- * the help; a zero was returned instead of a null-pointer by
- * prot_sum
- *
- * Revision 1.8  1993/07/03  06:58:55  kdburg
- * empty input not handled properly; assigned some buffer to input; msg
- * not displayed when no protocol data was available
- *
- * Revision 1.7  1993/06/27  10:31:53  kdburg
- * rindex was replaced by strchr must be strrchr
- *
- * Revision 1.6  1993/06/26  06:59:18  kdburg
- * switch hdr_done not reset at beginning of protocol report
- *
- * Revision 1.5  1993/06/25  22:22:30  kdburg
- * changed rindex to strchr; if there is no NEWCONFIG defined take
- * appropriate action
- *
- * Revision 1.4  1993/06/25  20:04:07  kdburg
- * added comment about -p option; inserted proto for rindex
- *
- * Revision 1.3  1993/06/25  19:31:14  kdburg
- * major rework done; added protocol reports (normal/errors)
- *
- * Revision 1.2  1993/06/21  19:53:54  kdburg
- * init
- * */
-
-char version[] = "@(#) Taylor UUCP Log File Summary Filter, Version 1.2.2";
-static char rcsid[] = "$FreeBSD$";
-#include <ctype.h>            /* Character Classification      */
-#include <math.h>
-#include "uucp.h"
-/* uucp.h includes string.h or strings.h, no include here. */
-
-#if HAVE_SYS_PARAM_H
-#include <sys/param.h>
-#endif
-
-#define _DEBUG_ 0
-
-/*
- * Direction of Calling and Data Transmission
- */
-
-#define IN      0            /* Inbound            */
-#define OUT     1            /* Outbound            */
-
-/*
- *  define some limits
- */
-#define MAXCOLS    8        /* report has this # of columns incl. 'name' */
-#define MAXREP     6        /* number of reports available */
-#define MAXFNAME  64        /* max input file name length incl. path*/
-#define MAXDNAME   8        /* max display (Hostname) name length  */
-
-/*
- * Data structures used to collect information
- */
-struct File_Stats
-    {
-    int files;                      /* Files Transferred      */
-    unsigned long bytes;      /* Data Size Transferred*/
-    double time;                /* Transmission Time      */
-    };
-
-struct Phone_Call
-    {
-    int calls;                           /* Call Count            */
-    int succs;                           /* Successful calls     */
-    double connect_time;           /* Connect Time Spent      */
-    struct File_Stats flow[2];       /* Rcvd & Sent Data      */
-    };
-
-struct Execution_Command
-    {
-    struct Execution_Command *next;
-    char Commandname[64];
-    int count;
-    };
-
-struct Protocol_Summary
-    {
-    struct Protocol_Summary *next;
-    char type[3];
-    long int  pr_cnt;
-    long int  pr_psent;
-    long int  pr_present;
-    long int  pr_preceived;
-    long int  pr_eheader;
-    long int  pr_echksum;
-    long int  pr_eorder;
-    long int  pr_ereject;
-    long int  pr_pwinmin;
-    long int  pr_pwinmax;
-    long int  pr_psizemin;
-    long int  pr_psizemax;
-    };
-
-struct Host_entry
-    {
-    struct Host_entry *next;
-    char Hostname[32];
-    struct Execution_Command *cmds;      /* Local Activities */
-    struct Phone_Call call[2];            /* In & Out Activities */
-    struct Protocol_Summary *proto;
-    };
-
-  struct Host_entry *hosts = NULL;
-  struct Host_entry *tot = NULL;
-  struct Host_entry *cur = NULL;
-  struct Execution_Command *cmd, *t_cmds = NULL;
-  struct Protocol_Summary *prot, *t_prot, *s_prot, *ss_prot = NULL;
-/*
- * Stuff for getopt()
- */
-
-extern int optind;                /* GETOPT : Option Index */
-extern char *optarg;            /* GETOPT : Option Value */
-#if ! HAVE_STDLIB_H
-   extern pointer *calloc();
-#endif  /* HAVE_STDLIB_H */
-/*
- * Default files to read. Taken from Taylor compile-time configuration.
- * def_logs must look like an argvec, hence the dummy argv[0].
- * Maybe later modified by scanning the config
- */
-
-static char *def_logs[3] = { NULL, NULL, NULL};
-char *I_conf = NULL;            /* points to config lib given by -I option */
-char *D_conf = NULL;            /* points to config lib from makefile */
-char *Tlog = NULL;              /* points to Log-file */
-char *Tstat = NULL;             /* points to Stats-file */
-char Pgm_name[64];              /* our pgm-name */
-char logline[BUFSIZ+1];         /* input area */
-char noConf[] = "- not defined -";
-char buff[16*BUFSIZ];
-char sbuff[2*BUFSIZ];
-
-/*
- * Boolean switches for various decisions
- */
-
-  int p_done = FALSE;           /* TRUE: start date/time of file printed */
-  int hdr_done = FALSE;         /* TRUE: report header printed */
-  int show_files = FALSE;       /* TRUE: -f option given */
-  int show_calls = FALSE;       /* TRUE: -c option given */
-  int show_commands = FALSE;    /* TRUE: -x option given */
-  int show_efficiency = FALSE;  /* TRUE: -e option given */
-  int show_all = FALSE;         /* TRUE: -t option given */
-  int show_proto = FALSE;       /* TRUE: -p option given */
-  int use_stdin = FALSE;        /* TRUE: -i option given */
-  int be_quiet = FALSE;         /* TRUE: -q option given */
-  int have_files[2];            /* TRUE: [IN] or [OUT] files found */
-  int have_calls = FALSE;       /* TRUE: in/out calls found */
-  int have_commands = FALSE;    /* TRUE: found uuxqt records */
-  int have_proto = FALSE;       /* TRUE: protocol data found */
-  int no_records = TRUE;        /* FALSE: got one record from file */
-
-/*
- * protos
- */
-
-static pointer *getmem(unsigned n);
-static void inc_cmd(struct Execution_Command **, char *name);
-static void fmtime(double sec, char *buf);
-static void fmbytes(unsigned long n, char *buf);
-static void usage();
-static int  chk_config(char *conf, int n, int type);
-static void hdrprt(char c, int bot);
-struct Protocol_Summary *prot_sum(struct Protocol_Summary **, char *, int);
-
-/*
- * BEGIN EXECUTION
- */
-
-int main(argc, argv)
-         int argc;
-         char *argv[];
-{
-  FILE *Log = NULL;
-  int c; 
-  char *p, *s, *stt, *flq = NULL;
-  char Hostname[MAXHOSTNAMELEN]; /* def taken from <sys/param.h> */
-  char Filename[15];             /* filename to be printed */
-  char in_date[14];              /* holds the date info of record read*/
-  char in_time[14];              /* holds the time info of record read */
-  char dt_info[31];  /* holds the date info from the last record read */
-  char *logmsg;
-  int sent, called = IN;
-  int report = 0;            /* if <= 0 give msg that no report was avail. */
-  int junk;
-
-  /* --------------------------------------------------------------------
-   *           P r o l o g
-   * --------------------------------------------------------------------
-   */
-
-   Hostname[0] = '\0';
-   have_files[IN]= have_files[OUT]= FALSE;
-   setvbuf(stdout,sbuff,_IOFBF,sizeof(sbuff));
-
-  /*
-   * get how we've been called isolate the name from the path
-   */
-
-   if ((stt = strrchr(argv[0],'/')) != NULL)
-      strcpy(Pgm_name,++stt);
-   else
-      strcpy(Pgm_name,argv[0]);
-   def_logs[0] = Pgm_name;
-   
-  /*
-   * I wish the compiler had the #error directive!
-   */
-
-#if !HAVE_TAYLOR_LOGGING && !HAVE_V2_LOGGING
-  fprintf(stderr,"\a%s: (E) %s\n",Pgm_name,"Your config of Taylor UUCP is not yet supported.");
-  fprintf(stderr,"%s: (E) %s\n",Pgm_name,"Current support is for V2 or TAYLOR logging only.");
-  puts("   Run aborted due to errors\n")
-  exit(1);
-#endif
-
-  /*
-   *  get some mem to store the default config name (def's are in
-   *  policy.h )
-   */
-
-  if (sizeof(NEWCONFIGLIB) > 1)       /* defined at compile time */
-  {
-     D_conf = (char *)getmem((sizeof(NEWCONFIGLIB) + sizeof("/config")));
-     strcpy(D_conf,NEWCONFIGLIB);       /* passed by makefile */
-     strcat(D_conf,"/config");
-  }
-  Tlog   = (char *)getmem(sizeof(LOGFILE));
-  Tstat  = (char *)getmem(sizeof(STATFILE));
-  Tlog   = LOGFILE;
-  Tstat  = STATFILE;
-  
-  /*
-   * Process the command line arguments
-   */
-
-  while((c = getopt(argc, argv, "I:s:cfdexaitphv")) != EOF)
-  {
-    switch(c)
-    {
-         case 'h':
-                  (void) usage();
-         case 's':
-                  strcpy(Hostname, optarg);
-                    break;
-         case 'c':
-                  show_calls = TRUE;
-                  ++report;
-                  break;
-         case 'd':
-                  printf("%s: (I) config-file default: %s\n",Pgm_name,D_conf);
-                  exit (0);
-                  break;
-         case 'f':
-                  show_files = TRUE;
-                  ++report;
-                  break;
-         case 'x':
-                  show_commands = TRUE;
-                  ++report;
-                  break;
-         case 'e':
-                  show_efficiency = TRUE;
-                  ++report;
-                  break;
-         case 'a':
-                  show_calls = show_files = show_commands = show_efficiency = TRUE;
-                  report = 4;
-                  break;
-         case 'i':
-                  use_stdin = TRUE;
-                  break;
-         case 't':
-                  show_all = TRUE;
-                  report = MAXREP;
-                  break;
-         case 'p':
-                  show_proto = TRUE;
-                  ++report;
-                  break;
-         case 'I':
-                  I_conf = (char *)getmem(sizeof(optarg));
-                  I_conf = optarg;
-                  break;
-                  case 'q':
-                  be_quiet = TRUE;
-                  break;
-         case 'v':
-                  printf("%s\n",rcsid);
-                  exit (0);
-         default :
-                  (void) usage();
-     }
-  }
-  if (report == 0)           /* no options given */
-     ++report;               /* at least summary can be printed */
-  if (! be_quiet)
-     hdrprt('i',0);         /* print header for environment info */
-
-  /*
-   * Adjust argv and argc to account for the args processed above.
-   */
-
-  argc -= (optind - 1);
-  argv += (optind - 1);
-
-  /*
-   * If further args present, Assume rest are logfiles for us to process
-   * which should be given in pairs (log plus stat) otherwise the results may
-   * not come out as expected! If no further args are present take input from 
-   * Log and Stat files provided in the compilation environment of Taylor UUCP. 
-   * If -i was given, Log already points to stdin and no file args are accepted.
-   */
-
-   if (use_stdin)           /* If -i, read from stdin */
-   {
-      if (argc != 1)            /* No file arguments allowed */
-      {
-         fprintf(stderr,"\a%s: (E) %s\n",Pgm_name,
-                         "it's not posssible to give file args with '-i'");
-         (void) usage();
-      }
-      else
-      {
-         argc = 2;
-         Log = stdin;
-         if (! be_quiet)
-            puts("   Input from stdin; no other files will be used\n");
-      }
-   }
-   else
-   {
-      if (argc != 1)                    /* file arguments are present */
-      {
-         if (! be_quiet)
-            puts("   No defaults used; will use passed file arguments\n");
-      }
-      else                            /* Read from current logs */
-      {
-         def_logs[1] = Tlog;      /* prime the */
-         def_logs[2] = Tstat;     /*   file names */   
-         if (! be_quiet)
-            printf("   Config for this run: ");
-
-         if (I_conf != NULL)
-         {
-            junk = 0;
-            if (! be_quiet)
-                printf("%s\n",I_conf);
-            if (0 != (chk_config(I_conf,be_quiet,junk)))
-               return (8);
-         }
-         else
-         {
-           if (D_conf != NULL)
-           {
-              junk = 1;             /* indicate default (compiled) config */
-              if (! be_quiet)
-                 printf("%s\n",D_conf);
-              chk_config(D_conf,be_quiet,junk);
-           }
-           else
-              if (! be_quiet)
-                 printf("%s\n",noConf);
-         }
-         def_logs[1] = Tlog;      /* final setting of */
-         def_logs[2] = Tstat;     /*   file names */   
-         argv = def_logs;            /* Bash argvec to log/stat files */
-         argc = sizeof(def_logs) / sizeof(def_logs[0]);
-       }
-   }
-
-  /* --------------------------------------------------------------------
-   *                 MAIN LOGFILE PROCESSING LOOP
-   * --------------------------------------------------------------------
-   */
-
-  if (!use_stdin)
-  {
-     if (argc < 3 && ! be_quiet)
-     {
-        puts("   (W) there is only one input file!");
-        puts("   (W) some reports may not be printed");
-     }
-     if (! be_quiet)
-        hdrprt('d',0);      /* give subheaderline  */
-  }
-
-  while (argc > 1)
-  {
-    if (!use_stdin && (Log = fopen(argv[1], "r")) == NULL)
-    {
-       perror(argv[1]);
-       exit (8);
-    }
-    setvbuf(Log,buff,_IOFBF,sizeof(buff));
-    if ((flq = strrchr(argv[1], '/')) == NULL)
-       strncpy(Filename,argv[1],sizeof(Filename)-1);
-    else
-       strncpy(Filename,++flq,sizeof(Filename)-1);
-       
-    strcpy(in_date,"   n/a");
-    strcpy(in_time,"   n/a");
-    p_done = FALSE;             /* no info printed yet */
-    no_records = TRUE;          /* not read any record yet */
-
-    /*
-     * Read each line of the logfile and collect information
-     */
-
-    while (fgets(logline, sizeof(logline), Log))
-    {
-        /*
-         * The host name of the other end of the connection is
-         * always the second field of the log line, whether we
-         * are reading a Log file or a Stats file. Set 'p' to
-         * point to the second field, null-terminated. Skip
-         * the line if something is funny. V2 and Taylor ar identical
-         * up to this part. Put out the start/end date of the files read;
-         */
-
-      if (NULL == (p = strchr(logline, ' ')))
-         continue;
-      no_records = FALSE;          /* got one (usable) record at least */
-      ++p;
-
-      if (NULL != (stt = strchr(p, '(')))
-      {
-         if (! p_done && ! use_stdin && ! be_quiet)
-         {  
-
-#if HAVE_TAYLOR_LOGGING
-         sscanf(++stt,"%s%*c%[^.]",in_date,in_time);
-#endif /* HAVE_TAYLOR_LOGGING */
-
-#if HAVE_V2_LOGGING
-         sscanf(++stt,"%[^-]%*c%[1234567890:]",in_date,in_time);
-#endif /* HAVE_V2_LOGGING */
-
-            printf("   %-14s %10s %8s",Filename, in_date, in_time);
-            strcpy(in_date,"   n/a");         /* reset to default */
-            strcpy(in_time,"   n/a");
-            p_done = TRUE;
-         }
-         else
-         {
-            if (! use_stdin && ! be_quiet)  /* save for last time stamp prt. */
-               strncpy(dt_info,++stt,sizeof(dt_info)-1);
-         }
-      }
-
-      if (NULL != (s = strchr(p, ' ')))
-         *s = '\0';
-      for (s = p; *s; ++s)
-          if (isupper(*s))
-             *s = tolower(*s);
-
-        /*
-         * Skip this line if we got -s <host> and
-         * this line does not contain that host name.
-         * Don't skip the `incoming call' line with the system name `-'.
-         */
-
-      if (Hostname[0] != '\0')
-         if ( (p[0] != '-' || p[1] != '\0') && 0 != strcmp(p, Hostname) )
-            continue;
-
-        /*
-         * We are within a call block now. If this line is a file
-         * transfer record, determine the direction. If not then
-         * skip the line if it is not interesting.
-         */
-      
-      if ((s = strchr(++s, ')')) == NULL)
-         continue;
-
-#if ! HAVE_TAYLOR_LOGGING
-#if HAVE_V2_LOGGING
-      if ((strncmp(s,") (",3)) ==  0)      /* are we in stats file ?) */
-         if ((s = strchr(++s, ')')) == NULL)
-            continue;                     /* yes but strange layout */
-#endif /* HAVE_V2_LOGGING */
-#endif /* ! HAVE_TAYLOR_LOGGING  */ 
-
-       logmsg = s + 2;            /* Message is 2 characters after ')' */
-       if ((0 != strncmp(logmsg, "Call complete", 13)) &&
-          (0 != strncmp(logmsg, "Calling system", 14)) &&
-          (0 != strncmp(logmsg, "Incoming call", 13)) &&
-          (0 != strncmp(logmsg, "Handshake successful", 20)) &&
-          (0 != strncmp(logmsg, "Retry time not", 14)) &&
-          (0 != strncmp(logmsg, "ERROR: All matching ports", 25)) &&
-          (0 != strncmp(logmsg, "Executing", 9)) &&
-          (0 != strncmp(logmsg, "Protocol ", 9)) &&
-          (0 != strncmp(logmsg, "sent ", 5)) &&
-          (0 != strncmp(logmsg, "received ", 9)) &&
-          (0 != strncmp(logmsg, "failed after ", 13)) &&
-          (0 != strncmp(logmsg, "Errors: ", 8)))
-          continue;
-
-        /*
-         * Find the Host_entry for this host, or create a new
-         * one and link it on to the list.
-         */
-
-       if ((cur == NULL) || (0 != strcmp(p, cur->Hostname)))
-       {
-          struct Host_entry *e, *last;
-
-          for (e= cur= hosts; cur != NULL ; e= cur, cur= cur->next)
-              if (0 == strcmp(cur->Hostname, p))
-                 break;
-              if (cur == NULL)
-              {
-                 cur= (struct Host_entry *)getmem(sizeof(*hosts));
-                 strcpy(cur->Hostname, p);
-                 if (hosts == NULL)
-                    e= hosts= cur;
-		 else {
-                    e = hosts;
-                    last = NULL;
-                    while (e != NULL) {
-                          if (strcmp(e->Hostname, cur->Hostname) <= 0) {
-                             if (e->next == NULL) {
-                                e->next = cur;
-                                break;
-                             }
-                             last = e;
-                             e = e->next;
-                          }
-                          else {
-                             cur->next = e;
-                             if (last == NULL)
-                                hosts = cur;
-                             else
-                                last->next = cur;
-                             break;
-                          }
-                     }   /*  while (e != NULL) */ 
-                 }    /*  hosts == NULL  */ 
-              }   /* cur == NULL */
-       }
-
-        /*
-         * OK, if this is a uuxqt record, find the Execution_Command
-         * structure for the command being executed, or create a new
-         * one. Then count an execution of this command.
-         * (Log file only)
-         */
-
-        if (0 == strncmp(logmsg, "Executing", 9))
-        {
-            if (NULL == (p = strchr(logmsg, '(')))
-               continue;
-            if ((s = strpbrk(++p, " )")) == NULL)
-               continue;
-            *s = '\0';
-            inc_cmd(&cur->cmds, p);
-            inc_cmd(&t_cmds, p);
-            have_commands = TRUE;
-            continue;
-        }
-
-        /*
-         * Count start of outgoing call.
-         */
-
-        if ((0 == strncmp(logmsg, "Calling system", 14)) ||
-            (0 == strncmp(logmsg, "Retry time not", 14)) ||
-            (0 == strncmp(logmsg, "ERROR: All matching ports", 25)))
-        {
-           called = OUT;
-           cur->call[OUT].calls++;
-           have_calls = TRUE;
-           s_prot = NULL;              /* destroy pointer to protocol */
-           continue;
-        }
-
-        /*
-         * Count start of incoming call.
-         */
-
-        if (0 == strncmp(logmsg, "Incoming call", 13))
-        {
-           called = IN;
-           s_prot = NULL;              /* destroy pointer to protocol */
-           continue;
-        }
-
-        /*
-         * On an incoming call, get system name from the second line.
-         * Get protocol type and size/window too
-         */
-
-        if (0 == strncmp(logmsg, "Handshake successful", 20))
-        {
-           if ( called==IN )
-              cur->call[IN].calls++;
-           have_calls = TRUE;
-           s_prot = NULL;              /* destroy pointer to protocol */
-           if (NULL == (p = strchr(logmsg, '(')))
-              continue;
-           if (0 == strncmp(p, "(protocol ", 10))
-           {
-              if (NULL == (p = strchr(p, '\'')))
-                 continue;
-              ss_prot = prot_sum(&cur->proto, ++p, 1);
-              s_prot  = prot_sum(&t_prot, p, 1);
-              continue;
-           }
-        }
-
-        /*
-         * check protocol type and get stats
-         *
-         */
-
-        if (0 == strncmp(logmsg, "Protocol ", 9))
-        {
-           s_prot = NULL;              /* destroy pointer to protocol */
-           if (NULL == (p = strchr(logmsg, '\'')))
-              continue;
-           ss_prot = prot_sum(&cur->proto, ++p, 2);
-           s_prot = prot_sum(&t_prot, p, 2);
-           continue;
-        }
-
-        /*
-         * check protocol errors. Unfortunately the line does not contain
-         * the used protocol, so if any previous line did contain that
-         * information and we did process that line we will save the pointer
-         * to that particular segment into s_prot. If this pointer is not set
-         * the error info is lost for we don't know where to store.
-         *
-         */
-
-        if ((0 == strncmp(logmsg, "Errors: header", 14)) && s_prot != NULL)
-        {
-          int i1,i2,i3,i4 = 0;
-          sscanf(logmsg,"%*s %*s %d%*c%*s %d%*c%*s %d%*c%*s %*s%*c %d",&i1,&i2,&i3,&i4);
-          ss_prot->pr_eheader += i1;
-          ss_prot->pr_echksum += i2;
-          ss_prot->pr_eorder += i3;
-          ss_prot->pr_ereject += i4;
-          s_prot->pr_eheader += i1;
-          s_prot->pr_echksum += i2;
-          s_prot->pr_eorder += i3;
-          s_prot->pr_ereject += i4;
-          s_prot = NULL;
-          continue;
-        }
-
-        /*
-         * Handle end of call. Pick up the connect time.
-         * position is on the closing paren of date/time info
-         * i.e: ) text....  
-         */
-
-        if (0 == strncmp(logmsg, "Call complete", 13))
-        {
-           cur->call[called].succs++;
-           s_prot = NULL;              /* destroy pointer to protocol */
-           if (NULL == (s = strchr(logmsg, '(')))
-              continue;
-           cur->call[called].connect_time += atof(s+1);
-           continue;
-        }
-
-        /*
-         * We are definitely in a Stats file now.
-         * If we reached here, this must have been a file transfer
-         * record. Count it in the field corresponding to the
-         * direction of the transfer. Count bytes transferred and
-         * the time to transfer as well.
-         * Position within the record is at the word 'received' or 'sent'
-         * depending on the direction.
-         */
-
-        sent = IN;              /* give it an initial value */
-        if (0 == strncmp(logmsg, "failed after ",13))
-           logmsg += 13;        /* the transmission failed for any reason */
-                                /* so advance pointer */
-        if (0 == strncmp(logmsg, "sent", 4)) 
-           sent = OUT;
-        else if (0 == strncmp(logmsg, "received", 8))
-                sent = IN;
-        have_files[sent] = TRUE;
-        cur->call[called].flow[sent].files++;
-        if (NULL == (s = strchr(logmsg, ' ')))       /* point past keyword */
-           continue;                                 /* nothing follows */
-                                   /* we should be at the bytes column now*/
-#if HAVE_TAYLOR_LOGGING
-        cur->call[called].flow[sent].bytes += atol(++s);
-#endif /* HAVE_TAYLOR_LOGGING */
-#if HAVE_V2_LOGGING
-        if (NULL == (s = strpbrk(s, "0123456789")))  /* point to # bytes */
-           continue;
-        cur->call[called].flow[sent].bytes += atol(s);
-#endif /* HAVE_V2_LOGGING */
-        if (NULL == (s = strchr(s, ' ')))          /* point past # of bytes */
-           continue;
-        if (NULL == (s = strpbrk(s, "0123456789"))) /* point to # of seconds */
-           continue;
-        cur->call[called].flow[sent].time += atof(s);
-
-    }   /* end of while (fgets(logline...)) */
-
-    if (stt != NULL && ! use_stdin && ! be_quiet && ! no_records)
-    {  
-
-#if HAVE_TAYLOR_LOGGING
-         sscanf(dt_info,"%s%*c%[^.]",in_date,in_time);
-#endif /* HAVE_TAYLOR_LOGGING */
-
-#if HAVE_V2_LOGGING
-         sscanf(dt_info,"%[^-]%*c%[1234567890:]",in_date,in_time);
-#endif /* HAVE_V2_LOGGING */
-
-       printf("  %10s %8s\n",in_date, in_time);
-       p_done = FALSE;
-    }
-    if (Log != stdin)
-    {
-       if (0 != ferror(Log))
-       {
-          if (! be_quiet)
-             printf("   %-14s data is incomplete; read error"," ");
-          else
-            fprintf(stderr,"%s (W) data is incomplete; read error on %s\n",
-                                   Pgm_name,argv[1]);
-       }
-       else
-       {
-          if (! be_quiet && no_records)
-             printf("   %-14s %10s\n",Filename, " is empty ");
-       }         
-     }
-     fclose(Log);
-
-    argc--;
-    argv++;
-  }  /* end of while (for (argv ....) */
-
-  /*
-   *   do we have *any* data ?
-   */
-
-  if (cur == NULL)
-  {
-     puts("\n(I) Sorry! No data is available for any requested report\n");
-     exit(0);
-  }
-
-  /*
-   *   truncate hostname, alloc the structure holding the totals and
-   *   collect the totals data
-   */
-
-  for (cur = hosts; cur != NULL;cur = cur->next)
-  {
-      cur->Hostname[MAXDNAME] = '\0';
-      if (cur->next == NULL)            /* last so will have to alloc totals */
-      {
-         cur->next = (struct Host_entry *)getmem(sizeof(*hosts));
-         strcpy(cur->next->Hostname,"Totals");
-         tot = cur->next;
-         for (cur = hosts; cur != NULL; cur = cur->next)
-         {
-           if (cur->next != NULL)        /* don't count totals to totals */
-           {
-              tot->call[IN].flow[IN].bytes += cur->call[IN].flow[IN].bytes;
-              tot->call[OUT].flow[IN].bytes += cur->call[OUT].flow[IN].bytes;
-              tot->call[IN].flow[OUT].bytes  += cur->call[IN].flow[OUT].bytes;
-              tot->call[OUT].flow[OUT].bytes += cur->call[OUT].flow[OUT].bytes;
-              tot->call[IN].flow[IN].time  += cur->call[IN].flow[IN].time;
-              tot->call[OUT].flow[IN].time += cur->call[OUT].flow[IN].time;
-              tot->call[IN].flow[OUT].time  += cur->call[IN].flow[OUT].time;
-              tot->call[OUT].flow[OUT].time += cur->call[OUT].flow[OUT].time;
-              tot->call[IN].flow[IN].files  += cur->call[IN].flow[IN].files;
-              tot->call[OUT].flow[IN].files += cur->call[OUT].flow[IN].files;
-              tot->call[IN].flow[OUT].files  += cur->call[IN].flow[OUT].files;
-              tot->call[OUT].flow[OUT].files += cur->call[OUT].flow[OUT].files;
-              tot->call[OUT].succs += cur->call[OUT].succs; 
-              tot->call[OUT].calls += cur->call[OUT].calls; 
-              tot->call[OUT].connect_time += cur->call[OUT].connect_time;
-              tot->call[IN].succs += cur->call[IN].succs; 
-              tot->call[IN].calls += cur->call[IN].calls; 
-              tot->call[IN].connect_time += cur->call[IN].connect_time;
-           }
-         }
-         break;                   /* totals is last in Host_Entry */
-     }
-  }
-
-  /*
-   *                       ***********
-   *                       * REPORTS *
-   *                       ***********
-   */
-
-#if _DEBUG_
-  putchar('\n');
-#endif
-
-  /* ------------------------------------------------------------------
-   *
-   * Summary report only when no other report except option -t is given
-   *
-   * I know, this code could be tightened (rbd)...
-   * ------------------------------------------------------------------
-   */
-
-  if (  !(show_calls || show_files ||
-          show_efficiency || show_commands || show_proto) || show_all)
-  {
-     if (have_calls || have_files[IN] || have_files[OUT])
-     {
-        char t1[32], t2[32], t3[32], t4[32], t5[32];
-        long ib, ob, b, rf, sf;
-        double it, ot, ir, or;
-
-        hdr_done = FALSE;
-        for (cur = hosts; cur != NULL; cur = cur->next)
-        {
-           ib = (cur->call[IN].flow[IN].bytes +
-                cur->call[OUT].flow[IN].bytes);
-           fmbytes(ib, t1);
-
-           ob = (cur->call[IN].flow[OUT].bytes +
-                cur->call[OUT].flow[OUT].bytes);
-           fmbytes(ob, t2);
-
-                 /* Don't print null-lines. */
-           if (( b= ib+ob ) == 0 )
-              continue;
-                 /* Don't print the header twice. */
-             if (! hdr_done)
-             {
-                hdrprt('s',0);            /* print the header line(s) */
-                hdr_done = TRUE;
-             }
-
-             fmbytes(b, t3);
-
-             it = cur->call[IN].flow[IN].time +
-                  cur->call[OUT].flow[IN].time;
-             fmtime(it, t4);
-
-             ot = cur->call[IN].flow[OUT].time +
-                  cur->call[OUT].flow[OUT].time;
-             fmtime(ot, t5);
-
-             rf = cur->call[IN].flow[IN].files +
-                  cur->call[OUT].flow[IN].files;
-
-             sf = cur->call[IN].flow[OUT].files +
-                  cur->call[OUT].flow[OUT].files;
-
-             ir = (it == 0.0) ? 0.0 : (ib / it);
-             or = (ot == 0.0) ? 0.0 : (ob / ot);
-
-             if (cur->next == NULL)            /* totals line reached ? */
-                hdrprt('s',1);                 /* print the separator line */
-
-             printf("%-8s %4d %4d %9s %9s %9s %9s %9s %5.0f %5.0f\n",
-                   cur->Hostname, rf, sf,
-                   t1, t2, t3, t4, t5,
-                   ir, or);
-        } 
-        if (! hdr_done)
-        {
-            puts("\n(I) No data found to print Compact summary report");
-        }
-     }
-     else
-     {
-        puts("\n(I) No data available for Compact summary report");
-        --report;
-     }
-  }
-
-  /* ------------------------------------------------------------------
-   *                     Protocol statistics report
-   * ------------------------------------------------------------------
-   */
-
-  if (show_proto || show_all)
-  {
-     if (have_proto)
-     {
-                        /* ---------------------  */
-                        /* protocol packet report */
-                        /* ---------------------  */
-
-        char *type = NULL;
-        hdr_done = FALSE;
-        for (cur = hosts; cur != NULL; cur = cur->next)
-        {
-            type = cur->Hostname;
-            if (cur->next == NULL)
-            {
-               if (hdr_done)
-   puts("-------------------------------------------------------------------");
-            cur->proto = t_prot;
-            }
-            for (prot = cur->proto; prot != NULL; prot = prot->next)
-            {
-                if (! hdr_done)
-                {
-                    hdrprt('p',0);            /* print the header line(s) */
-                    hdr_done = TRUE;
-                }
-                printf("%-8s %3s  %4d %4d %5d %4d    %10d %7d %10d\n",
-                                    type == NULL ? " ":cur->Hostname,
-                                    prot->type,
-                                    prot->pr_psizemin,
-                                    prot->pr_psizemax,
-                                    prot->pr_pwinmin,
-                                    prot->pr_pwinmax,
-                                    prot->pr_psent,
-                                    prot->pr_present,
-                                    prot->pr_preceived);
-                type = NULL;
-             }
-         }
-         if (! hdr_done)
-            puts("\n(I) No data found to print Protocol packet report");
-
-                        /* --------------------- */
-                        /* protocol error report */
-                        /* --------------------- */
-
-        type = NULL;
-        hdr_done = FALSE;
-        if (t_prot != NULL)
-        {
-           for (cur = hosts; cur != NULL; cur = cur->next)
-           {
-               type = cur->Hostname;
-               if (cur->next == NULL)
-               {
-                  if (hdr_done)
-        puts("--------------------------------------------------------------");
-               cur->proto = t_prot;
-               }
-
-               for (prot = cur->proto; prot != NULL; prot = prot->next)
-               {
-                   if ((prot->pr_eheader + prot->pr_echksum +
-                      prot->pr_eorder + prot->pr_ereject) != 0)
-                   {
-                      if (! hdr_done)
-                      {
-                         hdrprt('p',1);       /* print the header line(s) */
-                         hdr_done = TRUE;
-                      }
-                      printf("%-8s %3s  %11d %11d  %11d %11d\n",
-                                    type == NULL ? " ":cur->Hostname,
-                                    prot->type,
-                                    prot->pr_eheader,
-                                    prot->pr_echksum,
-                                    prot->pr_eorder,
-                                    prot->pr_ereject);
-                      type = NULL;
-                   } 
-                }
-            }
-        }
-        if (! hdr_done)
-           puts("\n(I) No data found to print Protocol error report");
-     }
-     else
-     {
-        puts("\n(I) No data available for Protocol reports");
-        --report;
-     }
-  }
-
-  /* ------------------------------------------------------------------
-   *                     Call statistics report
-   * ------------------------------------------------------------------
-   */
-
-  if (show_calls || show_all)
-  {
-     if (have_calls)
-     {
-        char t1[32], t2[32];
-
-        hdr_done = FALSE;
-        for (cur = hosts; cur != NULL; cur = cur->next)
-        {
-            if (cur->next == NULL)
-            {
-               if (hdr_done)
-                  hdrprt('c',1);                 /* print the separator line */
-            }
-            else
-            {
-                  /* Don't print null-lines on deatail lines */
-               if ( cur->call[OUT].calls + cur->call[IN].calls == 0 )
-                  continue;
-
-                 /* Don't print the header twice. */
-               if (! hdr_done)
-               {
-                   hdrprt('c',0);               /* print the header line(s) */
-                   hdr_done = TRUE;
-               }
-            }
-            if ( cur->call[OUT].calls > 0 || cur->next == NULL)
-            {
-               fmtime(cur->call[OUT].connect_time, t1);
-               printf( "   %-8s %7d %7d %7d %9s",
-                     cur->Hostname,
-                     cur->call[OUT].succs,
-                     cur->call[OUT].calls - cur->call[OUT].succs,
-                     cur->call[OUT].calls,
-                     t1 );
-             }
-             else
-             {
-                printf( "   %-42s", cur->Hostname );
-             }
-             if ( cur->call[IN].calls > 0 || cur->next == NULL )
-             {
-                fmtime(cur->call[IN].connect_time, t2);
-                printf( " %7d %7d %7d %9s",
-                       cur->call[IN].succs,
-                       cur->call[IN].calls - cur->call[IN].succs,
-                       cur->call[IN].calls,
-                       t2 );
-              }
-              putchar('\n');
-        }
-        if (! hdr_done)
-        {
-            puts("\n(I) No data found to print Call statistics report");
-        }
-     }
-     else
-     {
-        puts("\n(I) No data available for Call statistics report");
-        --report;
-     }
-  }
-
-  /* ------------------------------------------------------------------
-   *                    File statistics report
-   * ------------------------------------------------------------------
-   */
-
-  if (show_files || show_all)
-  {
-     if (have_files[IN] || have_files[OUT])
-     {
-        char t1[32], t2[32];
-        double rate = 0, time = 0;
-        int b = 0; 
-        int lineOut = 0;
-
-        hdr_done = FALSE;
-        for (cur = hosts; cur != NULL; cur = cur->next)
-        {
-            lineOut = 0;
-            for (sent= IN; sent <= OUT; ++sent)
-            {  
-                b    = cur->call[IN].flow[sent].bytes +
-                       cur->call[OUT].flow[sent].bytes;
-                time = cur->call[IN].flow[sent].time +
-                       cur->call[OUT].flow[sent].time;
-
-                   /* Don't print null-lines on detail lines. */
-                if ( (b != 0 && time != 0.0) || cur->next == NULL)
-                {
-                      /* Don't print the header twice. */
-                   if (! hdr_done)
-                   {
-                      hdrprt('f',0);          /* print the header line(s) */
-                      hdr_done = TRUE;
-                   }
-                   fmbytes(b, t1);
-                   rate = (cur->call[IN].flow[sent].bytes +
-                          cur->call[OUT].flow[sent].bytes) / time;
-                   fmtime((cur->call[IN].flow[sent].time +
-                          cur->call[OUT].flow[sent].time), t2);
-
-                   if (lineOut == 0)         /* first half not printed yet ? */
-                   {
-                      if (cur->next == NULL)       /* totals line ? */
-                         hdrprt('f',1);          /* print the separator line */
-                      printf("   %-8s", cur->Hostname);
-                      if (sent == OUT)     /* can't happen whith totals line */
-                         printf("%34s", " ");
-                    }
-
-                    printf(" %5d %11s %9s %5.0f",
-                          cur->call[IN].flow[sent].files +
-                          cur->call[OUT].flow[sent].files,
-                          t1, t2, rate);
-                    lineOut = 1;
-                 }
-            }    /* end:  for (sent ... ) */  
-            if (lineOut)
-                printf("\n");
-        }    /* end:  for (cur= ... ) */
-        if (! hdr_done)
-        {
-           puts("\n(I) No data found to print File statistics report");
-        }
-     }
-     else
-     {
-        puts("\n(I) No data available for File statistics report");
-        --report;
-     }
-  }
-
-  /* ------------------------------------------------------------------
-   *                       Efficiency report
-   * ------------------------------------------------------------------
-   */
-
-  if (show_efficiency || show_all)
-  {
-     if (have_files[IN] || have_files[OUT])
-     {
-        char t1[32], t2[32], t3[32];
-        double total, flow;
-
-        hdr_done = FALSE;
-        for (cur = hosts; cur != NULL; cur = cur->next)
-        {
-                 /* Don't print null-lines. */
-            if ( 0 == cur->call[IN].flow[IN].files +
-                      cur->call[IN].flow[OUT].files +
-                      cur->call[OUT].flow[IN].files +
-                      cur->call[OUT].flow[OUT].files ||
-                 0.0 == (total= cur->call[IN].connect_time +
-                        cur->call[OUT].connect_time))
-            {
-               continue;
-            }
-
-            if (! hdr_done)
-            {
-               hdrprt('e',0);                 /* print the header line(s) */
-               hdr_done = TRUE;
-            }
-
-            flow = cur->call[IN].flow[IN].time + 
-                   cur->call[IN].flow[OUT].time +
-                   cur->call[OUT].flow[IN].time +
-                   cur->call[OUT].flow[OUT].time;
-             fmtime(total, t1);
-             fmtime(flow, t2);
-             fmtime(total-flow, t3);
-
-            if (cur->next == NULL)
-               hdrprt('e',1);                 /* print the separator line */
-
-            printf("   %-8s %10s %10s %10s %7.2f\n",
-                   cur->Hostname, t1, t2, t3,
-            flow >= total ? 100.0: flow*100.0/total);
-        }   /* end: for (cur= .. */
-        if (! hdr_done)
-        {
-           puts("\n(I) No data found to print Efficiency report");
-        }
-     }
-     else
-     {
-        puts("\n(I) No data available for Efficiency report");
-        --report;
-     }
-  }
-
-  /* ------------------------------------------------------------------
-   *                   Command execution report
-   * ------------------------------------------------------------------
-   */
-
-  if (show_commands || show_all)
-  { 
-     if (have_commands)
-     {
-        int ncmds, i, match;
-
-        /* 
-         *  layout the header line. The column's header is the command name
-         */
-
-        hdr_done = FALSE;
-        for (ncmds= 0, cmd= t_cmds;
-             cmd != NULL && ncmds <= MAXCOLS-1;
-             ncmds++, cmd= cmd->next)
-        {
-            if (! hdr_done)
-            {
-               puts("\nCommand executions:");
-               puts("-------------------");
-               puts("   Name of ");
-               fputs("   site    ", stdout);
-               hdr_done = TRUE;
-            }
-            printf(" %7s", cmd->Commandname);
-         }
-         if (! hdr_done)
-         {
-            puts("\n(I) No data found to print Command execution report");
-         }
-         else
-         {
-           fputs("\n   --------", stdout);
-           for (i= 0; i<ncmds; i++)
-               fputs("  ------", stdout);
-           putchar('\n');
-
-        /* 
-         *  print out the number of executions for each host/command
-         */
-
-           for (cur= hosts; cur != NULL; cur= cur->next)
-           {
-               if (cur->next == NULL)
-                  break;
-
-                 /* Don't print null-lines. */
-
-              if (cur->cmds == NULL)
-                 continue;
-
-              printf("   %-8s", cur->Hostname);
-              for (cmd= t_cmds; cmd != NULL; cmd= cmd->next)
-              {
-                  struct Execution_Command *ec;
-                  match = FALSE;
-                  for(ec= cur->cmds; ec != NULL; ec= ec->next)
-                  {
-                     if ( 0 == strcmp(cmd->Commandname, ec->Commandname) )
-                     { 
-                        printf(" %7d", ec->count);
-                        match = TRUE;
-                        break;
-                     }
-                   }
-                   if (! match)
-                      printf("%8s"," ");    /* blank out column */
-               }
-               putchar('\n');
-            }
-
-         /*
-          *  print the totals line 
-          */
-
-            fputs("   --------", stdout);
-            for (i= 0; i<ncmds; i++)
-                fputs("--------", stdout);
-            printf("\n   %-8s", cur->Hostname);
-            for (cmd= t_cmds; cmd != NULL; cmd= cmd->next)
-            {
-                printf(" %7d", cmd->count);
-            }
-            putchar('\n');
-        }
-     }
-     else
-     {
-        puts("\n(I) No data available for Command execution report");
-        --report;
-     }
-  }
-  if (report <= 0 )       /* any reports ? */
-  {
-     puts("\n(I) Sorry! No data is available for any requested report\n");
-     exit(1);
-  }
-
-  puts("\n(I) End of reports\n");
-  exit (0);
-}  /* end of main */
-
-  /* ------------------------------------------------------------------
-   *                       * Functions *
-   * ------------------------------------------------------------------
-   */
-
-  /* ------------------------------------------------------------------
-   *                    display the help 
-   * ------------------------------------------------------------------
-   */
-
-void usage()
-{
-  fprintf(stderr,"Usage uurate [-acdefhiptvx] [-s hostname] [-I config file] [logfile(s) ... logfile(s)]\n");
-  fprintf(stderr,"where:\t-a\tPrint reports c,e,f,x\n");
-  fprintf(stderr,"\t-c\tReport call statistics\n");
-  fprintf(stderr,"\t-d\tPrint the name of the default config file\n");
-  fprintf(stderr,"\t-e\tReport efficiency statistics\n");
-  fprintf(stderr,"\t-f\tReport file transfer statistics\n");
-  fprintf(stderr,"\t-h\tPrint this help\n");
-  fprintf(stderr,"\t-i\tRead log info from standard input\n");
-  fprintf(stderr,"\t-p\tReport protocol statistics\n");
-  fprintf(stderr,"\t-t\tAll available reports plus compact summary report\n");
-  fprintf(stderr,"\t-v\tPrint version number\n");
-  fprintf(stderr,"\t-x\tReport command execution statistics\n");
-  fprintf(stderr,"\t-s host\tReport activities involving HOST only\n");
-  fprintf(stderr,"\t-I config Use config instead of standard config file\n");
-  fprintf(stderr,"If no report options given, a compact summary report is printed.\n");
-  fprintf(stderr,"log files should be given as pairs that is Log/Stats ... .\n");
-  fprintf(stderr,"If neither -i nor logfiles given, those names found in config will be used\n");
-
-  exit (1);
-}
-
- /* ------------------------------------------------------------------
-  *                    getmem - get some memory
-  * ------------------------------------------------------------------
-  */
-
-static pointer *getmem(n)
-                    unsigned n;
-{
-  pointer *p;
-
-  if( NULL== (p= calloc(1, n)) )
-    {
-      fprintf(stderr,"\a%s (C) %s\n",Pgm_name, "out of memory\n");
-      exit (8);
-    }
-  return p;
-}
-
-  /* ------------------------------------------------------------------
-   *             inc_cmd - increment command count
-   * ------------------------------------------------------------------
-   */
-
-static void inc_cmd(cmds, name)
-                    struct Execution_Command **cmds;
-                    char *name;
-{
-  int cnt = 0;
-  struct Execution_Command *cmd, *ec;
-
-  for (ec = cmd = *cmds; cmd != NULL; ec= cmd, cmd= cmd->next, cnt++)
-      if ( (0 == strcmp(cmd->Commandname, name)) ||
-           (0 == strcmp(cmd->Commandname, "Misc.")) )
-         break;
-  if (cmd == NULL)
-  {
-     cmd= (struct Execution_Command *)getmem(sizeof(*cmd));
-     if (cnt <= MAXCOLS-1)   /* first col prints site name therefore < max-1 */
-     {
-        strcpy(cmd->Commandname, name);
-        if (*cmds == NULL)
-           ec = *cmds = cmd;
-        else
-           ec->next= cmd;
-     }
-     else
-     {
-        strcpy(ec->Commandname, "Misc.");  /* reached high-water-mark */
-        cmd = ec;                          /* backtrack */
-     }
-  }
-  cmd->count++;
-}
-
-
-  /* ------------------------------------------------------------------
-   *             prot_sum - collect protocol data
-   * ------------------------------------------------------------------
-   */
-
-   struct Protocol_Summary *
-   prot_sum(proto, ptype, ind)
-                    struct Protocol_Summary **proto;
-                    char *ptype;
-                    int ind;
-{
-  int cnt = 0;
-  int i1, i2, i3 = 0;
-  struct Protocol_Summary *cur, *first;
-
-  for (first = cur = *proto; cur != NULL; first= cur, cur= cur->next, cnt++)
-  {
-      if ( (0 == strncmp(cur->type, ptype,strlen(cur->type))))
-         break;
-  }
-  if (cur == NULL)
-  {
-     cur= (struct Protocol_Summary *)getmem(sizeof(*cur));
-     sscanf(ptype,"%[^\' ]3",cur->type);
-     if (*proto == NULL)
-        first = *proto = cur;
-     else
-        first->next= cur;
-  }
-  if (NULL == (ptype = strchr(ptype, ' ')))
-         return (NULL);
-  cur->pr_cnt++;
-  have_proto = TRUE;
-  ++ptype;
-  switch(ind)
-  {
-     case 1:              /* used protocol line */
-  /*
-   * uucp-1.04 format: .... packet size ssss window ww)
-   * uucp-1.05 format: .... remote packet/window ssss/ww local ssss/ww)
-   *           (the remote packet/window will be used!)
-   */
-
-          i1 = i2 = 0;    /* reset */
-
-          if (NULL == (strchr(ptype, '/')))
-             sscanf(ptype,"%*s %*s %d %*s %d",&i1,&i2);
-          else
-             sscanf(ptype,"%*s %*s %d/%d",&i1,&i2);
-
-          if (i1 > cur->pr_psizemax)
-             cur->pr_psizemax = i1;
-          if (i1 < cur->pr_psizemin || cur->pr_psizemin == 0)
-             cur->pr_psizemin = i1;
-
-          if (i2 > cur->pr_pwinmax)
-             cur->pr_pwinmax = i2;
-          if (i2 < cur->pr_pwinmin || cur->pr_pwinmin == 0)
-             cur->pr_pwinmin = i2;
-          break;
-     case 2:              /* protocol statistics line */
-          i1 = i2 = i3 = 0;    /* reset */
-          sscanf(ptype,"%*s %*s %d%*c %*s %d%*c %*s %d",&i1,&i2,&i3);
-          cur->pr_psent += i1;
-          cur->pr_present += i2;
-          cur->pr_preceived += i3;
-          break;
-     default:
-          break;
-  }
-  return (cur);
-}
-  /* ------------------------------------------------------------------
-   *           fmtime() - Format time in hours & minutes & seconds;
-   * ------------------------------------------------------------------
-   */
-
-static void fmtime(dsec, buf)
-                  double dsec;
-                  char *buf;
-{
-  long hrs, min, lsec;
-
-  if( dsec <= 0 )
-    {
-      strcpy(buf, "0" );
-      return;
-    }
-  lsec = fmod(dsec+0.5, 60L);        /* round to the next full second */
-  hrs = dsec / 3600L;
-  min = ((long)dsec / 60L) % 60L;
-  if (hrs == 0)
-     if (min == 0)
-       sprintf(buf,"%6s%2ld"," ",lsec);
-     else
-       sprintf(buf,"%3s%2ld:%02ld"," ",min,lsec);
-  else
-    sprintf(buf,"%2ld:%02ld:%02ld",hrs,min,lsec);
-
-}
-
-  /* ------------------------------------------------------------------
-   *                 fmbytes - Format size in bytes
-   * ------------------------------------------------------------------
-   */
-
-static void fmbytes(n, buf)
-                   unsigned long n;
-                   char *buf;
-{
-  if ( n == 0 )
-  {
-     strcpy( buf, "0.0" );
-     return;
-  }
-  sprintf(buf, "%.1f", (double)n / 1000.0);    /* Display in Kilobytes */
-}
-
-
-  /* ------------------------------------------------------------------
-   *                 chk_config - Read the config file
-   *    check on keywords: logfile and statfile. When found override
-   *    the corresponding default
-   * ------------------------------------------------------------------
-   */
-
-int chk_config(char *T_conf,int be_quiet, int type)
-{
-   FILE *Conf;
-   char keywrd[9];
-   char name[MAXPATHLEN+1];
-   char *pos1, *pos2;
-   int i = 0;
-   int logf = FALSE;
-   int statf = FALSE;
-
-   if ((Conf = fopen(T_conf, "r")) == NULL)
-   {
-      if (! be_quiet)
-      {
-         puts("   Could not open config");
-         if (type == 0)
-         {
-            puts("   The run will be aborted\n");
-            return (8);
-         }
-      }
-      else
-      {
-         fprintf(stderr,"%s (E) %s %s \n",Pgm_name,
-                                     "could not open config:",
-                                      T_conf);
-         if (type != 0)
-            fprintf(stderr,"%s (W) defaults used for all files\n",
-                                               Pgm_name);
-         else
-         {
-            fprintf(stderr,"%s (C) ended due to errors\n",
-                                               Pgm_name);
-            return (8);
-         } 
-      }
-   }
-   else
-   {
-      while (fgets(logline, sizeof(logline), Conf))
-      {
-        if (logline[0] == '#')
-           continue;
-        sscanf(logline,"%8s %s",keywrd,name);
-        if (0 == strncmp(keywrd,"logfile",7))
-        {
-           pos1 = pos2 = name;
-           for (i=0;(i<=MAXPATHLEN && *pos1 != '\0');pos1++,pos2++,i++)
-           {
-               if (*pos1 == '#')     /* name immed followed by comment */
-                  break;
-               if (*pos1 == '\\')    /* quoted comment (filename has #) */
-               {
-                  ++pos1;               /* skip escape char */
-                  if (*pos1 != '#')     /* continuation ? */
-                  {
-                     puts("   Config error:");
-                     puts("   Found filename continuation; bailing out\n");
-                     exit (8);
-                  }
-               }
-               *pos2 = *pos1;        /* move char */
-           }
-           *pos2 = '\0';             /* terminate string */
-           Tlog   = (char *)getmem(strlen(name)+1);
-           strcpy(Tlog,name);
-           if (! be_quiet)
-              printf("   logfile used:        %s\n",Tlog);
-           logf = TRUE;
-           if  (statf)                /* statsfile still to come ? */
-               break;                 /* no finished */
-           continue;
-        }
-
-        if (0 == strncmp(keywrd,"statfile",8))
-        {
-           pos1 = pos2 = name;
-           for (i=0;(i<=MAXPATHLEN && *pos1 != '\0');pos1++,pos2++,i++)
-           {
-               if (*pos1 == '#')     /* name immed followed by comment */
-                  break;
-               if (*pos1 == '\\')    /* quoted comment (filename has #) */
-               {
-                  ++pos1;               /* skip escape char */
-                  if (*pos1 != '#')     /* continuation ? */
-                  {
-                     puts("   Config error:");
-                     puts("   Found filename continuation; bailing out\n");
-                     exit (8);
-                  }
-               }
-               *pos2 = *pos1;        /* move char */
-           }
-           *pos2 = '\0';             /* terminate string */
-           Tstat   = (char *)getmem(strlen(name)+1);
-           strcpy(Tstat,name);
-           if (! be_quiet)
-              printf("   statfile used:       %s\n",Tstat);
-           statf = TRUE;
-           if  (logf)                 /* logfile still to come ? */
-               break;                 /* no finished */
-           continue;
-        }
-      }
-      fclose(Conf);
-   }
-
-   if (! be_quiet)
-   {
-      if (! logf)
-         puts("   logfile used:        - default -");
-      if (! statf)
-         puts("   statfile used:       - default -");
-   }
-
-return 0;
-}
-
-
-  /* ------------------------------------------------------------------
-   *   hdrprt - Print Header/Trailer lines (constant data)
-   * ------------------------------------------------------------------
-   */
-
-static void hdrprt(char head, int bot)
-{
-  switch(head)
-  {
-     case('s'):                   /* standard summary report */
-          if (bot == 0)
-          {
-             puts("\nCompact summary:");
-             puts("----------------");
-             puts("\
-Name of  + Files + +------- Bytes/1000 --------+ +------ Time -----+ + Avg CPS +\n\
-site       in  out   inbound  outbound     total   inbound  outbound    in   out\n\
--------- ---- ---- --------- --------- --------- --------- --------- ----- -----");
-          }
-          else
-             puts("\
---------------------------------------------------------------------------------");
-          break;
-
-
-     case('f'):                   /* file statistic report */
-          if (bot == 0)
-          {
-             puts("\nFile statistics:");
-             puts("----------------");
-             puts("   Name of  +----------- Inbound -----------+ +---------- Outbound -----------+");
-            puts("   site     files  Bytes/1000  xfr time B/sec files  Bytes/1000  xfr time B/sec");
-            puts("   -------- ----- ----------- --------- ----- ----- ----------- --------- -----");
-          }
-          else
-            puts("\
-   ----------------------------------------------------------------------------");
-          break;
-
-
-     case('c'):                   /* calls statistic report */
-          if (bot == 0)
-          {
-             puts("\nCall statistics:");
-             puts("----------------");
-             puts("   Name of   +------- Outbound Calls -------+  +-------- Inbound Calls  ------+");
-             puts("   site       succ.  failed   total      time   succ.  failed   total      time");
-            puts("   --------  ------  ------  ------ ---------  ------  ------  ------ ---------");
-          }
-          else
-            puts("\
-   ----------------------------------------------------------------------------");
-          break;
-
-
-     case('e'):                   /* efficiency statistic report */
-          if (bot == 0)
-          {
-             puts("\nEfficiency:");
-             puts("-----------");
-             puts("   Name of   +------ Times inbound/outbound -------+");
-             puts("   site      connected   xfr time   overhead  eff. %");
-             puts("   --------  ---------  ---------  ---------  ------");
-          }
-          else
-            puts("   -------------------------------------------------");
-          break;
-
-     case('i'):                   /* Environment information */
-          if (bot == 0)
-          {
-             puts("\nEnvironment Information:");
-             puts("------------------------");
-             printf("   Default config:      %s\n",D_conf == NULL ?
-                                                   noConf:D_conf);
-             printf("   Default logfile:     %s\n",Tlog);
-             printf("   Default statfile:    %s\n\n",Tstat);
-          }
-          break;
-
-     case('d'):                   /* Date/time coverage */
-          if (bot == 0)
-          {
-             puts("\n   Date coverage of input files:");
-             puts("   Name of        +----- Start -----+  +------ End ------+");
-             puts("   file                 date     time        date     time");
-             puts("   --------       ---------- --------  ---------- --------");
-          }
-          break;
-
-     case('p'):                   /* Protocol stats */
-          if (bot == 0)
-          {
-             puts("\nProtocol packet report:");
-             puts("-----------------------");
-             puts("          +------- protocol -----+   +--------- Packets ----------+");
-             puts("Name of         packet     window ");
-             puts("site      typ  min  max   min  max          sent  resent   received");
-            puts("--------  --- ---- ----  ---- ----   ----------- ------- ----------");
-          }
-          else
-          {
-             puts("\nProtocol error report:");
-             puts("----------------------");
-             puts("Name of   +----------------- Error Types --------------------+");
-             puts("site      typ      header    checksum        order  rem-reject");
-             puts("--------  --- -----------  ----------  -----------  ----------");
-          }
-          break;
-
-     default:
-          if (bot == 0)
-          {
-             puts("\nNo header for this report defined:");
-          }
-          else
-            puts("  ");
-         break;
-   }
-}
diff --git a/gnu/libexec/uucp/contrib/uurate.man b/gnu/libexec/uucp/contrib/uurate.man
deleted file mode 100644
index f6c0399..0000000
--- a/gnu/libexec/uucp/contrib/uurate.man
+++ /dev/null
@@ -1,280 +0,0 @@
-''' $FreeBSD$
-.TH uurate 1
-.SH NAME
-uurate \- Report Taylor UUCP statistics
-.SH SYNOPSIS
-.BR uurate " [ " "\-acdefhipqtvx" " ] [ " "\-s "
-.I host
-.RI " ] [ " "\-I "
-.I config
-.RI " ][ " "logfile..." " ] "
-.PP
-or simply,
-.PP
-.B uurate
-.PP
-for a traffic summary report.
-.SH DESCRIPTION
-The
-.I uurate
-command provides tabular summary reports on the operation of the
-Taylor UUCP system. Data is taken from the currently active log
-files, standard input, or from a list of log files given on the
-command line. Output is in the form of tabular reports summarizing
-call, file transfer, and command execution
-.RI "("  "uuxqt" ")"
-activity.
-.PP
-The log and stats files given to
-.I uurate
-must be in the ``Taylor'' or ``V2'' format. Also, note that call and file
-transfer activities are logged in separate files, nominally called
-.I Log
-and
-.I Stats,
-respectively. For reports to be meaningful, the
-.I Log
-and
-.I Stats
-files should be given to
-.I uurate
-together, and cover the same time period.
-.PP
-If neither the
-.B \-i
-or
-.B \-I
-option nor any
-.I logfile
-options are given,
-.I uurate
-defaults to taking its input from the current Taylor
-.I Log
-and
-.I Stats
-files. The names are either as defined at compilation time, in case
-there is no config file, or taken from the arguments of the keywords
-.I logfile
-and
-.I statfile
-when encountered in the config file.
-This is the normal mode of operation.
-.PP
-The reporting options described below can be used to select
-the set of reports desired. If no options are given, a summary
-report is displayed. If there is no relevant data for a particular
-report or host, that report or host will be suppressed.
-.SH OPTIONS
-The following options may be given to
-.I uurate:
-.TP 5
-.B \-a
-All reports. Identical to
-.B \-cfexp.
-.TP 5
-.B \-c
-Report on call statistics. Requires data from a
-.I Log
-file.
-.TP 5
-.B \-d
-will print the default config file to be used.
-.TP 5
-.B \-e
-Report on efficiency (total connect time versus time spent transferring
-files). Requires data from both a
-.I Log
-and a
-.I Stats
-file, and they must span the same time period.
-.TP 5
-.B \-f
-Report on file transfer statistics. Requires data from a
-.I Stats
-file.
-.TP 5
-.B \-h
-will print a short help information.
-.TP 5
-.B \-i
-tells uurate to read any logfile information from standard input.
-.TP 5
-.B \-p
-report on protocol errors and packets sent/received
-.TP 5
-.B \-q
-do not print the Environment information,
-.TP 5
-.B \-t
-All reports. Identical to
-.B \-cfexp.
-plus the
-.B Compact summary.
-.TP 5
-.B \-v
-will print the version id string
-.TP 5
-.B \-x
-Report on remote execution requests (e.g.,
-.IR rmail ")."
-Requires data from a
-.I Log
-file.
-.TP 5
-.BI "\-s " "host"
-Restrict report output to
-.I host.
-.TP 5
-.BI "\-I " "config file"
-an alternate config file may be passed by this option.
-.SH "DESCRIPTION OF REPORTS"
-There are four reports available: the call, file transfer, efficiency,
-and remote execution reports. Each may be selected by a command line
-option. All reports may be selected via the options
-.B \-a
-or
-.B \-t.
-If no report selection options are given,
-.I uurate
-displays a compact traffic summary report (see below).
-.SS "Summary report"
-If no report options are given,
-.I uurate
-displays a traffic summary report. This is particularly useful in daily
-.I cron
-jobs which report on errors and the like. Traffic statistics for each
-active system is reported on a single line. If more than one system was
-active, a 'totals' line is included at the end of the report.
-.SS "Protocol packet report"
-The protocol report gives statistics on min/max packet and window sizes
-used during transmission. Further on data is collected for packets
-transferred. The data is collected for each host/protocol type.
-The fields are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.0i
-.BR "site	" "UUCP node name of neighbor host system,"
-.BR "typ	" "Type of protocol used"
-.BR "Min	" "minimum packet/window size"
-.BR "Max	" "maximum packet/window size"
-.BR "sent	" "packets sent"
-.BR "resent	" "packets resent"
-.BR "received	" "packets received"
-.in -.3
-.SS "Protocol error report"
-The protocol report gives statistics on packet errors
-during transmission. The data is collected for each host/protocol type.
-The fields are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.5i
-.BR "site	" "UUCP node name of neighbor host system,"
-.BR "typ	" "Type of protocol used"
-.BR "header	" "number of errors in header"
-.BR "checksum	" "number of checksum errors"
-.BR "order	" "number of order errors"
-.BR "resent	" "number packets resent"
-.BR "rem-reject	" "packets that the remote site rejected"
-.in -.3
-.SS "Call report"
-The call report gives statistics on inbound and outbound calls for
-each active host system. The fields are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.0i
-.BR "site	" "UUCP node name of neighbor host system,"
-.BR "succ.	" "Successful calls attempted to/by that system,"
-.BR "failed	" "Failed calls to/by that system,"
-.BR "total	" "Total calls to/by that system,"
-.BR "time	" "Collected connect time (hh:mm:ss) for all calls,"
-.in -.3
-.SS "File transfer reports"
-The file transfer reports give statistics on inbound and
-outbound file transfers (regardless of which end initiated the transfer)
-for each active host system. There are two reports, one for files
-sent to the remote system and one for files received from the remote
-system. The fields in each report are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.0i
-.BR "site	  " "UUCP node name of neighbor host system"
-.BR "files	  " "Number of files transferred"
-.BR "Bytes/1000	  " "Total size of files transferred given in thousands"
-.BR "xfr time	  " "Total time (hh:mm:ss) spent on transfer the files,"
-.BR "B/sec	  " "Average transfer rate (bytes/sec)."
-.in -.3
-.SS "Efficiency report"
-The efficiency report describes the utilization of the links
-to each active remote system, giving the ratio of total connect time
-to the time spent actually transferring files.
-The fields are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.0i
-.BR "site	 " "UUCP node name of neighbor host system"
-.BR "connected	 " "Total connect time for that system (turn-around)"
-.BR "xfr time	 " "Total file transfer time for that system"
-.BR "overhead	 " "Connect time not used to transfer files,"
-.BR "eff. %	 " "Ratio of connect time to transfer time (xfer*100/conn)"
-.in -.3
-.SS "Command executions report"
-The remote execution report describes remotely
-requested command executions from each active host system, like
-.I rmail
-and
-.IR rnews "."
-Up to eight command names are displayed. If there are more, the
-rest will be put together in an `Misc.' column.
-The fields are described below:
-.PP
-.br
-.nf
-.in +.3i
-.ta 1.0i
-.BR "site	  " "UUCP node name of neighbor host system,"
-.BR "(command)	  " "Number of requests of this command,"
-.BR "Misc.	  " "Number of other requests, if more than eight."
-.in -.3i
-.SS FILES
-The file names below may be changed at compilation time or by the
-configuration file, so these are only approximations.
-.br
-.nf
-.in +.3in
-.ta 2.2i
-.IR "/usr/spool/uucp/Log	" "V2/Taylor format call/execution log,"
-.IR "/usr/spool/uucp/Stats	" "V2/Taylor format file transfer log."
-.SS "SEE ALSO"
-.IR uucico "(8)"
-.SS BUGS
-Does not understand other than V2/TAYLOR logging formats. Anyone care to
-volunteer to add the not mentioned?
-.PP
-Scanning the arguments of logfile and statfile keywords 
-in config should handle lines continued with the backslash as well.
-.PP
-The
-.B failfm
-field in the call statistics table is always zero, unless
-something really serious happens, e.g. uucico got SIGQUIT or
-the whole system crashed.
-.SS AUTHOR
-Robert B. Denny (denny@alisa.com).
-.br
-Loosely based on the DECUS UUCP program
-.I uurate
-by Mark Pizzolato.
-.br
-Modified by Stephan Niemz (stephan@sunlab.ka.sub.org).
-.br
-Modified by Klaus Dahlenburg (kdburg@incoahe.hanse.de).
diff --git a/gnu/libexec/uucp/contrib/uureroute.perl b/gnu/libexec/uucp/contrib/uureroute.perl
deleted file mode 100755
index 3eeb654..0000000
--- a/gnu/libexec/uucp/contrib/uureroute.perl
+++ /dev/null
@@ -1,91 +0,0 @@
-#!/usr/local/bin/perl
-eval ' exec /usr/local/bin/perl $0 "$@" '
-	if $running_under_some_shell;
-
-# From a script by <Bill.Campbell@celestial.com>
-# Newsgroups: comp.sources.misc
-# Subject: v28i073:  uureroute - Reroute HDB queued mail, Part01/01
-# Date: 26 Feb 92 02:28:37 GMT
-#
-# This is a Honey DanBer specific routine written in perl to reroute all
-# mail queued up for a specific host.  It needs to be run as "root" since
-# uucp will not allow itself to remove others requests.
-#
-# Revision ***  92/21/09:  Francois Pinard <pinard@iro.umontreal.ca>
-#	1.	adapted for Taylor UUCP
-#
-# Revision 1.3  91/10/08  09:01:21  src
-# 	1.	Rewritten in perl
-#   	2.	Add -v option for debugging.
-#
-# Revision 1.2  91/10/07  23:57:42  root
-#	1.	Fix mail program path.
-#	2.	Truncate directory name to 7 characters
-
-($progname = $0) =~ s!.*/!!;	# save this very early
-
-$USAGE = "
-#   Reroute uucp mail
-#
-#   Usage: $progname [-v] host [host...]
-#
-# Options   Argument    Description
-#   -v                  Verbose (doesn't execute /bin/sh)
-#
-";
-
-$UUSTAT = "/usr/local/bin/uustat";
-$SHELL = "/bin/sh";
-$SMAIL = "/bin/smail";
-
-sub usage
-{
-    die join ("\n", @_) . "\n$USAGE\n";
-}
-
-do "getopts.pl";
-
-&usage ("Invalid Option") unless do Getopts ("vV");
-
-$verbose = ($opt_v ? '-v' : ());
-$suffix = ($verbose ? '' : $$);
-
-&usage ("No system specified") if $#ARGV < 0;
-
-if (!$verbose)
-{
-    open (SHELL, "| $SHELL");
-    select SHELL;
-}
-
-while ($system = shift)
-{
-    $sysprefix = substr ($system, 0, 7);
-    $directory = "/usr/spool/uucp/$sysprefix";
-    open (UUSTAT, "$UUSTAT -s $system -c rmail |");
-    print "set -ex\n";
-    while (<UUSTAT>)
-    {
-	($jobid, ) = split;
-	($cfile) = substr ($jobid, length ($jobid) - 5);
-	$cfilename = "$directory/C./C.$cfile";
-	open (CFILE, $cfilename) || die "Cannot open $cfilename\n";
-	$_ = <CFILE>;
-	close CFILE;
-	if (/^E D\.(....) [^ ]+ [^ ]+ -CR D\.\1 0666 [^ ]+ 0 rmail (.*)/)
-	{
-	    $datafile = "$directory/D./D.$1";
-	    $address = $2;
-	}
-	else
-	{
-	    print STDERR;
-	    die "Cannot parse previous line from $cfilename\n";
-	}
-	print "$SMAIL -R $system!$address < $datafile && $UUSTAT -k $jobid\n";
-    }
-    close UUSTAT;
-}
-close SHELL unless $verbose;
-
-exit 0;
diff --git a/gnu/libexec/uucp/contrib/uusnap.c b/gnu/libexec/uucp/contrib/uusnap.c
deleted file mode 100644
index 992aa04..0000000
--- a/gnu/libexec/uucp/contrib/uusnap.c
+++ /dev/null
@@ -1,321 +0,0 @@
-/* uusnap.c
-   (c) 1992 Heiko W.Rupp hwr@pilhuhn.ka.sub.org
-   uusnap is a tool to display the activities of the connected
-   systems.
-
-   Put a file uusnap.systems in NEWCONFIGDIR (see Makefile), in which
-   the systems, you want to monitor are listed, one on a single line.
-   The sequence of the files there determine the sequence of the
-   listing.
-
-   At the moment it only works with taylor config and taylor dirs
-
-   compile it form the Makefile or:
-   cc -c -g -pipe -O  -I. -I. -DNEWCONFIGLIB=\"/usr/local/lib/uucp\" uusnap.c
-   cc  -o uusnap uusnap.o 
-   For this, uusnap.[ch] must be in the same directory as uucp.h and so.
-
-   uusnap must have read access to SPOOLDIR/.Status in order to work.
-*/
-
-#define MAXSYS 30		/* maximum number of systems */
-#define WAIT_NORMAL 10		/* wait period if noone is talking */
-#define WAIT_TALKING 2		/* refresh display every second if */
-				/* someone is talking with us */
-
-#include "uucp.h"
-#if USE_RCS_ID
-char uusnap_rcsid[] = "$FreeBSD$";
-#endif
-
-#include <ctype.h>
-#include <time.h>
-#include <sys/types.h>
-#include <sys/dir.h>
-
-extern char *ctime(time_t*);
-
-struct sysInfo  {
-    char sysname[10];		/* name of the system to watch */
-    char *statfile;		/* name of its status file */
-    char *spooldir;		/* root of its spooldir */
-    int in;			/* number of unprocessed in-files */
-    int out;			/* number of files to send them */
-    time_t last;		/* last poll time */
-    time_t next;		/* time of next poll */
-    time_t lastidir;		/* time of last in-spooldir access */
-    time_t lastodir;		/* time of last outgoing spd acc */
-    time_t laststat;		/* time of last status file access */
-    int status;			/* status of the system */
-    int num_retries;		/* number of retries */
-};
-
-struct sysInfo Systems[MAXSYS];    
-
-
-/*  I have extend the system status. If time for the specified system
-    is Never, I say so. To get this to work, one also should extend
-    uucico.c. It is not important to do this. With the normal uucico,
-    one only gets no status.
-*/
-
-const char *azStatus[] =        /* Status codes as defined by uucico  */
-{   			        /* listing them here instead of       */
-  "Conversation complete",      /* including the appropriate file     */
-  "Port unavailable",           /* reduces the size of the executable */
-  "Dial failed",
-  "Login failed",
-  "Handshake failed",
-  "Call failed",
-  "Talking",
-  "Wrong time to call",
-  "Time to call = Never !"
-};
-
-main()
-{
-    int i;
-    i=get_systems();
-    display_info(i);
-    
-    exit(0);
-}
-
-int
-get_systems()
-{
-    char filename[1024];
-    char fn[1024];
-    char line[80];
-    FILE *fp;
-    int i=0;
-    int j;
-    struct stat stbuf;
-    struct sysInfo sys;
-
-    strcpy(filename,NEWCONFIGLIB);
-    strcat(filename,"/uusnap.systems");
-    if ((fp=fopen(filename,"r"))!=NULL) {
-	while (fgets(line,80,fp)!=NULL) {
-	    *(rindex(line,'\n'))='\0';
-	    strcpy(sys.sysname,line); /* get the name of the system */
-	    strcpy(fn,SPOOLDIR); /* get the name of the statusfile */
-	    strcat(fn,"/.Status/");
-	    strcat(fn,line);
-	    sys.statfile=malloc(strlen(fn)+1);
-	    strcpy(sys.statfile,fn);
-	    strcpy(fn,SPOOLDIR); /* get the name of the spooldir */
-	    strcat(fn,"/");
-	    strcat(fn,line);
-	    sys.spooldir=malloc(strlen(fn)+1);
-	    strcpy(sys.spooldir,fn);
-	    sys.laststat=0;
-	    sys.lastidir=sys.lastodir=0;
-	    Systems[i]=sys;		/* get_stat_for_system needs it */
-	    get_stat_for_system(i);    	/* now get the system status */
-	    get_inq_num(i,TRUE);	/* number of unprocessed files */
-	    get_outq_num(i,TRUE);       /* number of files to send */
-	    i++;	
-	}
-	fclose(fp);
-    }
-    else {
-	fprintf(stderr,"Can't open %s \n",filename);
-	exit(1);
-    }
-    return i;
-}
-
-	    
-
-display_info(int numSys)
-{
-    char *filename;
-    int sysnum;
-    FILE *fp;
-    char contentline[80];
-    char isTalking=FALSE;
-    struct stat stbuf;
-    struct sysInfo sys;
-    time_t time;
-
-    filename = (char*)malloc(1024);
-    if (filename == NULL) {
-	fprintf(stderr, "Can't malloc 1024 bytes");
-	exit(1);
-    }
-	
-    while(TRUE) {
-	display_headline();
-	for (sysnum=0;sysnum<numSys;sysnum++) {
-	    sys = Systems[sysnum];
-	    stat(sys.statfile,&stbuf);
-	    if ((time=stbuf.st_atime) > sys.laststat) {
-		get_stat_for_system(sysnum);
-	    }
-	    if(display_status_line(sysnum)==1)
-		isTalking=TRUE;
-	}
-	if (isTalking) {
-	    sleep(WAIT_TALKING);
-	    isTalking = FALSE;
-	}
-	else
-	    sleep(WAIT_NORMAL);            /* wait a bit */
-    }
-    return 0;
-}
-
-int
-display_status_line(int sn)
-{
-    char *time_s;
-    
-    int sys_stat,num_retries,wait;
-    int i;
-    time_t last_time;
-    time_t next_time;
-     
-    struct sysInfo sys;
-    
-    sys = Systems[sn];
-
-    printf("%10s  ",sys.sysname);
-    get_inq_num(sn);
-    if (sys.in==0)
-	printf("     ");
-    else 
-	printf("%3d  ",sys.in);
-    get_outq_num(sn);
-    if (sys.out==0)
-	printf("     ");
-    else
-	printf("%3d  ",sys.out);
-    time_s = ctime(&sys.last);
-    time_s = time_s + 11;
-    *(time_s+8)='\0';
-    printf("%8s ",time_s);	/* time of last poll */
-    time_s = ctime(&sys.next);
-    time_s = time_s + 11;
-    *(time_s+8)='\0';
-    if (sys.last == sys.next) 
-	printf("           ");
-    else
-	printf("%8s   ",time_s);	/* time of next poll */
-    if (sys.num_retries==0) 
-	printf("   ");
-    else 
-	printf("%2d ",sys.num_retries);
-    if (sys_stat==6) 		/* system is talking */
-	printf("\E[7m");	/* reverse video on */
-    printf("%s",azStatus[sys.status]);
-    if (sys.status==6) {
-	printf("\E[m\n");	/* reverse video off */
-	return 1;
-    }
-    else {
-	printf("\n");
-	return 0;
-    }
-}
-
-
-display_headline()
-{
-    printf("\E[;H\E[2J");	/* clear screen */
-    printf("\E[7muusnap (press CTRL-C to escape)\E[m \n\n");
-    printf("  System     #in #out   last     next   #ret    Status\n");
-    return 0;
-}
-
-get_inq_num(int num,char firstTime)
-{
-    int i=0;
-    char filename[1024];
-    struct stat stbuf;
-    DIR *dirp;
-    
-    strcpy(filename,Systems[num].spooldir);
-    strcat(filename,"/X./.");
-    stat(filename,&stbuf);
-    if ((stbuf.st_mtime > Systems[num].lastidir) || (firstTime)) {
-	if ((dirp=opendir(filename))!=NULL) {
-	    while(readdir(dirp))
-		i++;
-	    closedir(dirp);
-	    stat(filename,&stbuf);
-	    Systems[num].lastidir=stbuf.st_mtime;
-	}
-	else {
-	    fprintf(stderr,"Can't open %s \n",filename);
-	    exit(1);
-	}
-	if (i>=2)
-	    i-=2;			/* correct . and .. */
-	Systems[num].in=i;
-    }
-    return 0;
-}
-
-get_outq_num(int sys,char firstTime)
-{
-    int i=0;
-    char filename[1024];
-    struct stat stbuf;
-    DIR *dirp;
-    
-    strcpy(filename,Systems[sys].spooldir);
-    strcat(filename,"/C./.");
-    stat(filename,&stbuf);
-    if ((stbuf.st_mtime > Systems[sys].lastodir) || (firstTime)) {
-	if ((dirp=opendir(filename))!=NULL) {
-	    while(readdir(dirp))
-		i++;
-	    closedir(dirp);
-	    stat(filename,&stbuf);
-	    Systems[sys].lastodir=stbuf.st_mtime;
-	}
-	else {
-	    fprintf(stderr,"Can't open %s \n",filename);
-	    exit(1);
-	}
-	if (i>=2)
-	    i-=2;			/* correct . and .. */
-	Systems[sys].out=i;
-    }
-    return 0;
-}
-
-get_stat_for_system(int i)
-{
-    char fn[80];
-    struct sysInfo sys;
-    struct stat stbuf;
-    FILE *fp;
-    time_t wait;
-
-    sys = Systems[i];
-    stat(sys.statfile,&stbuf);
-    if (stbuf.st_atime > sys.laststat) {
-	if ((fp=fopen(sys.statfile,"r"))!=NULL) {
-	    fgets(fn,80,fp);
-	    fclose(fp);
-	    sscanf(fn,"%d %d %ld %d",
-		   &sys.status,
-		   &sys.num_retries,
-		   &sys.last,
-		   &wait);
-	    sys.next=sys.last+wait;
-	}
-	else {
-	    sys.status=0;
-	    sys.num_retries=0;
-	    sys.last=0;
-	    sys.next=0;
-	}
-	stat(sys.statfile,&stbuf);
-	sys.laststat=stbuf.st_atime;
-    }
-    Systems[i] = sys;
-    return 0;
-}
diff --git a/gnu/libexec/uucp/contrib/uutraf b/gnu/libexec/uucp/contrib/uutraf
deleted file mode 100644
index 00e4b03..0000000
--- a/gnu/libexec/uucp/contrib/uutraf
+++ /dev/null
@@ -1,210 +0,0 @@
-#!/usr/bin/perl
-# uutraf.pl -- UUCP Traffic Analyzer
-# SCCS Status     : @(#)@ uutraf	1.8
-# Author          : Johan Vromans
-# Created On      : ***
-# Last Modified By: Johan Vromans
-# Last Modified On: Mon Aug 30 15:02:22 1993
-# Update Count    : 6
-# Status          : OK
-# Requires:       : Perl V4 or later
-
-# Reads UUCP syslog, and generates a report from it.
-#
-# Created by Johan Vromans <jv@mh.nl>
-# Loosely based on an idea by Greg Hackney (hack@texbell.swbt.com)
-
-# Usage: uutraf [-taylor|-hdb|-bnu|-bsd] [syslog]
-
-# Logfile formats:
-#
-# BSD:
-#
-# jv mhres (2/23-5:18) (698818735) received 135 b 2 secs
-# root mhres (2/23-5:19) (698818742) sent 2365 b 3 secs, Pk: 38, Rxmt: 0
-#
-# HDB:
-#
-# uunet!uucp M (12/10-09:04:22) (C,16390,1) [ttyXX] <- 2371 / 5.000 secs, \
-#     474 bytes/sec
-#
-# Taylor:
-#
-# jv mhres (1992-02-24 20:49:04.06) sent 16234 bytes in 148.780 seconds \
-#    (109 bytes/sec)
-# jv mhres (1992-02-24 21:04:05.76) received 449 bytes in 6.550 seconds \
-#    (68 bytes/sec)
-
-$uucp_type = "gnu";
-
-%hosts = ();		# hosts seen
-%bytes_in = ();		# of bytes received from host
-%bytes_out = ();	# of bytes sent to host
-%secs_in = ();		# of seconds connect for recving
-%secs_out = ();		# of seconds connect for sending
-%files_in = ();		# of input requests
-%files_out = ();	# of output requests
-
-# read info, break the lines and tally
-
-if ( $ARGV[0] =~ /^-/ ) {
-    ($uucp_type = substr (shift (@ARGV), 1)) =~ tr/A-Z/a-z/;
-}
-
-if ( $uucp_type eq "taylor" || $uucp_type eq "gnu" ) {
-    @ARGV = ("/usr/local/spool/uucp/Stats") unless $#ARGV >= 0;
-    $pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/ .]+)\\) " .
-	"(sent|received) (\\d+) bytes in (\\d+)\\.(\\d+) seconds";
-    $uucp_type = 0;
-    $recv = "received";
-}
-elsif ( $uucp_type eq "hdb" || $uucp_type eq "bnu" ) {
-    @ARGV = ("/usr/spool/uucp/.Admin/xferstats") unless $#ARGV >= 0;
-    $pat = "^([^!]+)![^(]+\\(([-0-9:\\/]+)\\).+([<>])-? " .
-	"(\\d+) \\/ (\\d+)\\.(\\d+) secs";
-    $uucp_type = 1;
-    $recv = "<";
-}
-elsif ( $uucp_type eq "bsd" || $uucp_type eq "v7" ) {
-    @ARGV = ("/usr/spool/uucp/SYSLOG") unless $#ARGV >= 0;
-    $pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/]+)\\) \\([^)]+\\) " .
-	"(sent|received) (\\d+) b (\\d+) secs";
-    $uucp_type = 2;
-    $recv = "received";
-}
-else {
-    die ("FATAL: Unknown UUCP type: $uucp_type\n");
-}
-
-$garbage = 0;
-
-while ( <> ) {
-    unless ( /$pat/o ) {
-	print STDERR "$_";
-	next if /failed/;
-	if ( $garbage++ > 10 ) {
-	    die ("FATAL: Too much garbage; wrong UUCP type?\n");
-	}
-	next;
-    }
-
-    # gather timestamps
-    $last_date = $2;
-    $first_date = $last_date unless defined $first_date;
-	
-    # initialize new hosts
-    unless ( defined $hosts{$1} ) {
-	$hosts{$1} = $files_in{$1} = $files_out{$1} = 
-	    $bytes_in{$1} = $bytes_out{$1} =
-		$secs_in{$1} = $secs_out{$1} = 0;
-    }
-
-    # Taylor and HDB have milliseconds, BSD has not.
-    $secs = ($uucp_type == 2) ? ($5 + ($5 == 0 ? 0.5 : 0)) : ($5 + $6/1000);
-
-    # tally
-    if ( $3 eq $recv ) {		# recv
-	$bytes_in{$1} += $4;
-	$files_in{$1}++;
-	$secs_in{$1} += $secs;
-    }
-    else {			# xmit
-	$bytes_out{$1} += $4;
-	$files_out{$1}++;
-	$secs_out{$1} += $secs;
-    }
-    $garbage = 0;
-}
-
-@hosts = keys (%hosts);
-die ("No info found, stopped\n") if $#hosts < 0;
-
-################ report section ################
-
-$thishost = &gethostname();
-$thishost = (defined $thishost) ? "on node $thishost" : "report";
-
-if ( $uucp_type eq 0 ) {	# Taylor UUCP
-    substr ($first_date, 16) = "";
-    substr ($last_date, 16) = "";
-}
-
-format std_head =
-@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-"UUCP traffic $thishost from $first_date to $last_date"
-
-Remote   -----------K-Bytes----------- ----Hours---- --Avg CPS-- --Files--
- Host         Recv      Sent     Total   Recv   Sent  Recv  Sent Recv Sent
-.
-format std_out =
-@<<<<<<< @>>>>>>>> @>>>>>>>> @>>>>>>>> @>>>>> @>>>>> @>>>> @>>>> @>>> @>>>
-$Zhost,   $Zi_bytes, $Zo_bytes, $Zt_bytes, $Zi_hrs, $Zo_hrs, $Zi_acps, $Zo_acps, $Zi_count, $Zo_count
-.
-
-$^ = "std_head";
-$~ = "std_out";
-
-&print_dashes ();
-
-reset "T";	       # reset totals
-
-foreach $host (@hosts) {
-  &print_line ($host, $bytes_in{$host}, $bytes_out{$host},
-		 $secs_in{$host},  $secs_out{$host},
-		 $files_in{$host}, $files_out{$host});
-
-}
-
-&print_dashes ();
-&print_line ("Total", $Ti_bytes, $To_bytes,
-	       $Ti_secs, $To_secs, $Ti_count, $To_count);
-
-################ that's it ################
-
-sub print_line {
-  reset "Z";		# reset print fields
-  local ($Zhost, 
-	 $Zi_bytes, $Zo_bytes, 
-	 $Zi_secs, $Zo_secs, 
-	 $Zi_count, $Zo_count) = @_;
-  $Ti_bytes += $Zi_bytes;
-  $To_bytes += $Zo_bytes;
-  $Zt_bytes = $Zi_bytes + $Zo_bytes;
-  $Tt_bytes += $Zt_bytes;
-  $Zi_acps = ($Zi_secs > 0) ? sprintf ("%.0f", $Zi_bytes/$Zi_secs) : "0";
-  $Zo_acps = ($Zo_secs > 0) ? sprintf ("%.0f", $Zo_bytes/$Zo_secs) : "0";
-  $Zi_bytes = sprintf ("%.1f", $Zi_bytes/1000);
-  $Zo_bytes = sprintf ("%.1f", $Zo_bytes/1000);
-  $Zt_bytes = sprintf ("%.1f", $Zt_bytes/1000);
-  $Zi_hrs = sprintf ("%.1f", $Zi_secs/3600);
-  $Zo_hrs = sprintf ("%.1f", $Zo_secs/3600);
-  $Ti_secs += $Zi_secs;
-  $To_secs += $Zo_secs;
-  $Ti_count += $Zi_count;
-  $To_count += $Zo_count;
-  write;
-}
-
-sub print_dashes {
-  $Zhost = $Zi_bytes = $Zo_bytes = $Zt_bytes =
-    $Zi_hrs = $Zo_hrs = $Zi_acps = $Zo_acps = $Zi_count = $Zo_count = 
-      "------------";
-  write;
-  # easy, isn't it?
-}
-
-################ missing ################
-
-sub gethostname {
-  $ENV{"SHELL"} = "/bin/sh";
-  $try = `(hostname) 2>/dev/null`;
-  chop $try;
-  return $+ if $try =~ /^[-.\w]+$/;
-  $try = `uname -n 2>/dev/null`;
-  chop $try;
-  return $+ if $try =~ /^[-.\w]+$/;
-  $try = `uuname -l 2>/dev/null`;
-  chop $try;
-  return $+ if $try =~ /^[-.\w]+$/;
-  return undef;
-}
diff --git a/gnu/libexec/uucp/contrib/uutry b/gnu/libexec/uucp/contrib/uutry
deleted file mode 100644
index 258bb30..0000000
--- a/gnu/libexec/uucp/contrib/uutry
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/bin/sh
-#
-# This script was hacked together by Marc Evans (marc@Synergytics.Com)
-# I claim no copyright to it and don't really care what people do
-# with it, hence, it is public domain. I take no responsibility for
-# for happens if you use this script, providing no warentee. This
-# section of the comments may be removed if you so desire.
-#
-# Usage:
-#       uutry [-x#] systemname
-# where '-x#' has the value [0-9], higher values providing more detail
-
-#
-# The following variables should be gropped from the configuration
-# files rather then being hard coded here.
-#
-Spool=/usr/spool/uucp
-Lib=/usr/local/lib/uucp
-Status=$Spool/.Status
-Debug=$Spool/Debug
-Uucico=$Lib/uucico
-#
-# Default option values
-#
-x="-x5"
-s=""
-
-for i in $* ; do
-    case $i in
-        -x*) x="$i" ;;
-        *) s="$i" ;;
-    esac
-done
-
-if [ x$s != x ]; then
-    rm -f $Status/$s
-    $Uucico -r1 $x -s$s &
-    >$Debug
-    tail -f $Debug
-else
-    echo "Usage: uutry systemname"
-    exit 1
-fi
diff --git a/gnu/libexec/uucp/contrib/uuxconv b/gnu/libexec/uucp/contrib/uuxconv
deleted file mode 100755
index 843f9e0..0000000
--- a/gnu/libexec/uucp/contrib/uuxconv
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/bin/sh
-#
-# uuxconv
-#
-# After converting to Taylor from SVR4.03 UUCP, I still had a lot of
-# jobs queued up to go out.
-#
-# This script is a one-shot to mass-requeue a site's spool.
-#
-# It doesn't go and do your whole spool, nor even all grades.
-# you need to go into each grade directory for each site and 
-# execute this.
-#
-# i.e.:  You have a site named 'foo'
-# cd /var/spool/uucp/foo/Z
-# uuxconv foo
-# 
-# it does delete the 'D' & 'X' after requeing them, but doesn't remove
-# the 'C' files.
-#
-# I foolishly went and ran this script on all my queued jobs, without
-# adding the improvements to recursively go through the entire UUCP spool,
-# so now I'm out of files to test with.  I don't want to add the code
-# to do that since I can't test it, and this worked.
-#
-# I hereby give this (trivial :-)) program to the GNU Project/FSF
-# and Ian Taylor in it's entirety, so that it can be placed in
-# the contrib directory of taylor-uucp, and save others the pain
-# of rewriting it.
-#
-# Richard Nickle (rick@trystro.uucp, rnickle@gnu.ai.mit.edu)
-# May 27, 1993
-#
-if [ $# -eq 0 ]
-then
-	echo "Usage: $0 sitename"
-	exit 1
-fi
-exit 0
-site=$1
-tsite=`echo $site | cut -c1-5`
-find . -name "D.$tsite*" -print |
-while read file
-do
-	control=`egrep "^C" $file | cut -c3-`
-	input=`egrep "^I" $file | cut -c3-`
-	(uux - -r -z $site!$control < $input) && (rm $file $input)
-	echo "$site!$control < $input"
-done
-exit 0
diff --git a/gnu/libexec/uucp/contrib/xc-conf.h-dist b/gnu/libexec/uucp/contrib/xc-conf.h-dist
deleted file mode 100644
index 8810dd7..0000000
--- a/gnu/libexec/uucp/contrib/xc-conf.h-dist
+++ /dev/null
@@ -1,38 +0,0 @@
-/*
- *    *************
- *    * XC-CONF.H *
- *    *************
- *
- * Configuration file for xchat 1.1. Edit this file prior to make-ing
- * xchat.
- *
- * History:
- *  Bob Denny - Tue Sep  1 11:42:54 1992
- */
-
-/*
- * Edit this to reflect the relative location of xchat sources to
- * the main Taylor UUCP source directory. As distributed, xchat
- * is in the ./contrib sub-directory under the main Taylor UUCP
- * directory. Therefore, Taylor's conf.h is in our parent directory.
- */
-#include "../conf.h"
-
-/*
- * The following definition establishes the default path to the
- * scripts used by xchat. You may lleave this blank (""), but
- * the command line given to xchat (e.g., in the 'sys' file entry)
- * must specify a full (absolute) path name to the script to be
- * executed. Normally, this is the same place you put your config
- * and system files for UUCP.
- */
-#define SCRIPT_DIR "/usr/local/conf/uucp/" /* MUST HAVE TRAILING "/" */
-
-/*
- * The following definition establishes the default path to the
- * log files that are produced by the 'dbgfile' statement. Normally
- * this is the same location you configured Taylor UUCP to put its
- * log files.
- */
-#define LOG_DIR "/usr/spool/uucp/" 	   /* MUST HAVE TRAILING "/" */
-
diff --git a/gnu/libexec/uucp/contrib/xchat.c b/gnu/libexec/uucp/contrib/xchat.c
deleted file mode 100644
index b44549e..0000000
--- a/gnu/libexec/uucp/contrib/xchat.c
+++ /dev/null
@@ -1,1473 +0,0 @@
-/*
- *  ***********
- *  * XCHAT.C *
- *  ***********
- *
- * Extended chat processor for Taylor UUCP. See accompanying documentation.
- *
- * Written by:
- *   Bob Denny (denny@alisa.com)
- *   Based on code in DECUS UUCP (for VAX/VMS)
- *
- * Small modification by:
- *   Daniel Hagerty (hag@eddie.mit.edu)
- *
- * History:
- *   Version 1.0 shipped with Taylor 1.03. No configuration info inside.
- *
- *   Bob Denny - Sun Aug 30 18:41:30 1992
- *     V1.1 - long overdue changes for other systems. Rip out interval
- *            timer code, use timer code from Taylor UUCP, use select()
- *            for timed reads. Use Taylor UUCP "conf.h" file to set
- *            configuration for this program. Add defaulting of script
- *            and log file paths.
- *   
- *   Daniel Hagerty - Mon Nov 22 18:17:38 1993
- *     V1.2 - Added a new opcode to xchat. "expectstr" is a cross between
- *            sendstr and expect, looking for a parameter supplied string.
- *            Useful where a prompt could change for different dial in
- *            lines and such.
- *
- * Bugs:
- *   Does not support BSD terminal I/O. Anyone care to add it?
- */
-
-#include <sys/types.h>
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-#include <signal.h>
-#include <time.h>
-#include <sys/ioctl.h>
-#include <sys/termio.h>
-
-#include "xc-conf.h"
-
-/* 
- * Pick a timing routine to use, as done in Taylor UUCP.
- */
-#if HAVE_USLEEP || HAVE_NAP || HAVE_NAPMS || HAVE_POLL
-#define USE_SELECT_TIMER 0
-#else
-#define USE_SELECT_TIMER HAVE_SELECT
-#if USE_SELECT_TIMER
-#include <sys/time.h>
-#endif
-#endif
-
-#if HAVE_USLEEP || HAVE_NAP || HAVE_NAPMS
-#undef HAVE_POLL
-#define HAVE_POLL 0
-#endif
-
-#if HAVE_USLEEP || HAVE_NAP
-#undef HAVE_NAPMS
-#define HAVE_NAPMS 0
-#endif
-
-#if HAVE_USLEEP
-#undef HAVE_NAP
-#define HAVE_NAP 0
-#endif
-
-static int ttblind();
-static int ttcd();
-
-/* script entry -- "compiled" form of dial, hangup, or login script */
-
-struct script {
-	struct	script	*next;	/* pointer to next entry, or null */
-	int		 opcode;	/* numeric opcode */
-	char		*strprm;	/* pointer to string param */
-	long		 intprm;	/* integer parameter */
-	char		*newstate;	/* new state name */
-};
-
-/* opcode definition array element -- one for each possible opcode */
-
-struct script_opdef {
-	char	*opname;
-	int	 opcode;	/* numeric opcode -- same as array index */
-	int	 prmtype;	/* one of SC_NONE, SC_STR, SC_XSTR, SC_INT */
-	int	 newstate;	/* one of SC_NONE, SC_NWST */
-};
-
-	/* values for opcode */
-
-#define	SC_LABEL 0	/* "label" (state name) */
-#define	SC_CDLY	1	/* set char output delay in msec */
-#define	SC_PCHR	2	/* pause char for dial string (from P in input) */
-#define	SC_PTIM	3	/* seconds to allow for pause char */
-#define	SC_WCHR	4	/* wait char for dial string (from W in input) */
-#define	SC_WTIM	5	/* seconds to allow for wait char */
-#define	SC_ZERO	6	/* zero counter */
-#define	SC_INCR	7	/* increment counter */
-#define SC_IFGT	8	/* change state if counter > int param */
-#define	SC_WAIT	9	/* wait for int param seconds */
-#define	SC_GOTO	10	/* unconditional change to new state */
-#define	SC_SEND	11	/* send strparam (after sprintf substitutions) */
-#define	SC_BRK	12	/* send a break */
-#define	SC_HANG	13	/* drop DTR */
-#define	SC_DIAL	14	/* send telno string (after subst PCHR & WCHR) */
-#define	SC_DTIM	15	/* time in msec per digit (for timeout calculations) */
-			/* default = 100 (one tenth second) */
-#define	SC_CTIM	16	/* additional time (in seconds) to wait for carrier */
-			/* default = 45 seconds */
-#define	SC_EXIT	17	/* script done, success */
-#define	SC_FAIL	18	/* script done, failure */
-#define	SC_LOG	19	/* write strparam to uucp.log */
-#define	SC_LOGE	20	/* write strparam to uucp.log w/error ind */
-#define	SC_DBG	21	/* write strparam to debug log if debug lvl = LGI */
-#define	SC_DBGE	22	/* write strparam to debug log if debug lvl = LGIE */
-#define	SC_DBST	23	/* 'or' intparam into debug mask */
-#define	SC_DBCL	24	/* 'bicl' intparam into debug mask */
-#define	SC_TIMO	25	/* newstate if no match in intparam secs */
-			/* (uses calculated dial time if intparam is 0) */
-#define	SC_XPCT	26	/* wait for strparam, goto _newstate if found */
-#define	SC_CARR	27	/* goto _newstate if carrier detected */
-#define	SC_FLSH	28	/* flush typeahead buffer */
-#define	SC_IFBL	29	/* change state if controller is blind w/o CD */
-#define	SC_IFBG	30	/* chg state if ctlr is blind and counter > intprm */
-#define	SC_SNDP	31	/* send parameter n */
-#define	SC_IF1P	32	/* if parameter n present */
-#define	SC_IF0P	33	/* if parameter n absent */
-#define SC_DBOF 34	/* open debugging file */
-#define SC_TELN 35	/* Set telno from parameter n */
-#define SC_7BIT 36	/* Set port to 7-bit stripping */
-#define SC_8BIT 37	/* Set port for 8-bit characters */
-#define SC_PNON 38	/* Set port for 8-bit, no parity */
-#define SC_PEVN 39	/* Set port for 7-bit, even parity */
-#define SC_PODD 40	/* Set port for 7-bit, odd parity */
-#define SC_HUPS 41	/* Change state on HUP signal */
-#define SC_XPST	42	/* Expect a param string */
-#define	SC_END	43	/* end of array */
-
-	/* values for prmtype, prm2type */
-
-#define	SC_NONE	0		/* no parameter */
-#define	SC_STR	1		/* simple string */
-#define	SC_INT	2		/* integer */
-#define	SC_NWST	3		/* new state name */
-#define	SC_XSTR	4		/* translated string */
-
-/* opcode definition table for dial/login/hangup scripts */
-
-static struct	script_opdef	sc_opdef[] =
-      {
-	{"label",	SC_LABEL,	SC_NONE,	SC_NONE},
-	{"chrdly",	SC_CDLY,	SC_INT,		SC_NONE},
-	{"pchar",	SC_PCHR,	SC_STR,		SC_NONE},
-	{"ptime",	SC_PTIM,	SC_INT,		SC_NONE},
-	{"wchar",	SC_WCHR,	SC_STR,		SC_NONE},
-	{"wtime",	SC_WTIM,	SC_INT,		SC_NONE},
-	{"zero",	SC_ZERO,	SC_NONE,	SC_NONE},
-	{"count",	SC_INCR,	SC_NONE,	SC_NONE},
-	{"ifgtr",	SC_IFGT,	SC_INT,		SC_NWST},
-	{"sleep",	SC_WAIT,	SC_INT,		SC_NONE},
-	{"goto",	SC_GOTO,	SC_NONE,	SC_NWST},
-	{"send",	SC_SEND,	SC_XSTR,	SC_NONE},
-	{"break",	SC_BRK,		SC_NONE,	SC_NONE},
-	{"hangup",	SC_HANG,	SC_NONE,	SC_NONE},
-	{"7bit",	SC_7BIT,	SC_NONE,	SC_NONE},
-	{"8bit",	SC_8BIT,	SC_NONE,	SC_NONE},
-	{"nopar",	SC_PNON,	SC_NONE,	SC_NONE},
-	{"evenpar",	SC_PEVN,	SC_NONE,	SC_NONE},
-	{"oddpar",	SC_PODD,	SC_NONE,	SC_NONE},
-	{"telno",	SC_TELN,	SC_INT,		SC_NONE},
-	{"dial",	SC_DIAL,	SC_NONE,	SC_NONE},
-	{"dgttime",	SC_DTIM,	SC_INT,		SC_NONE},
-	{"ctime",	SC_CTIM,	SC_INT,		SC_NONE},
-	{"success",	SC_EXIT,	SC_NONE,	SC_NONE},
-	{"failed",	SC_FAIL,	SC_NONE,	SC_NONE},
-	{"log",		SC_LOG,		SC_XSTR,	SC_NONE},
-	{"logerr",	SC_LOGE,	SC_XSTR,	SC_NONE},
-	{"debug",	SC_DBG,		SC_XSTR,	SC_NONE},
-	{"debuge",	SC_DBGE,	SC_XSTR,	SC_NONE},
-	{"dbgset",	SC_DBST,	SC_INT,		SC_NONE},
-	{"dbgclr",	SC_DBCL,	SC_INT,		SC_NONE},
-	{"dbgfile",	SC_DBOF,	SC_XSTR,	SC_NONE},
-	{"timeout",	SC_TIMO,	SC_INT,		SC_NWST},
-	{"expect",	SC_XPCT,	SC_XSTR,	SC_NWST},
-	{"ifcarr",	SC_CARR,	SC_NONE,	SC_NWST},
-	{"ifhang",	SC_HUPS,	SC_NONE,	SC_NWST},
-	{"flush",	SC_FLSH,	SC_NONE,	SC_NONE},
-	{"ifblind",	SC_IFBL,	SC_NONE,	SC_NWST},
-	{"ifblgtr",	SC_IFBG,	SC_INT,		SC_NWST},
-	{"sendstr",	SC_SNDP,	SC_INT,		SC_NONE},
-	{"ifstr",	SC_IF1P,	SC_INT,		SC_NWST},
-	{"ifnstr",	SC_IF0P,	SC_INT,		SC_NWST},
-	{"expectstr",	SC_XPST,	SC_INT,		SC_NWST},
-	{"table end",	SC_END,		SC_NONE,	SC_NONE}
-      };
-
-#define SUCCESS 0
-#define	FAIL	1
-#define ERROR	-1
-#define MAX_SCLINE	255	/* max length of a line in a script file */
-#define MAX_EXPCT	127	/* max length of an expect string */
-#define	CTL_DELIM	" \t\n\r" /* Delimiters for tokens */
-#define	SAME		0	/* if (strcmp(a,b) == SAME) ... */
-#define	SLOP		10	/* Slop space on arrays */
-#define	MAX_STRING	200	/* Max length string to send/expect */
-
-#define	DEBUG_LEVEL(level) \
-	   (Debug & (1 << level))
-
-#define	DB_LOG	0	/* error messages and a copy of the LOGFILE output */
-#define	DB_LGIE	1	/* dial,login,init trace -- errors only */
-#define	DB_LGI	2	/* dial,login,init trace -- nonerrors (incl chr I/O) */
-#define	DB_LGII	3	/* script processing internals */
-
-#define TRUE    1
-#define FALSE   0
-
-#define NONE	0
-#define EVEN	1
-#define ODD	2
-
-#define logit(m, p1) fprintf(stderr, "%s %s\n", m, p1)
-
-static char **paramv;		/* Parameter vector */
-static int paramc;		/* Parameter count */
-static char telno[64];		/* Telephone number w/meta-chars */
-static int Debug;
-static int fShangup = FALSE;	/* TRUE if HUP signal received */
-static FILE  *dbf = NULL;
-static struct termio old, new;
-
-extern int usignal();
-extern int uhup();
-
-static struct siglist
-{
-  int signal;
-  int (*o_catcher) ();
-  int (*n_catcher) ();
-} sigtbl[] = {
-             { SIGHUP,   NULL, uhup },
-             { SIGINT,   NULL, usignal },
-	     { SIGIOT,   NULL, usignal },
-             { SIGQUIT,  NULL, usignal },
-             { SIGTERM,  NULL, usignal },
-             { SIGALRM,  NULL, usignal },
-             { 0,        NULL, NULL    }    /* Table end */
-           };
-
-extern struct script *read_script();
-extern void msleep();
-extern char xgetc();
-extern void charlog();
-extern void setup_tty();
-extern void restore_tty();
-extern void ttoslow();
-extern void ttflui();
-extern void tthang();
-extern void ttbreak();
-extern void tt7bit();
-extern void ttpar();
-extern void DEBUG();
-
-extern void *malloc();
-
-
-/*
- * **********************************
- * * BEGIN EXECUTION - MAIN PROGRAM *
- * **********************************
- *
- * This program is called by Taylor UUCP with a list of
- * arguments in argc/argv, and stdin/stdout mapped to the
- * tty device, and stderr mapped to the Taylor logfile, where
- * anything written to stdout will be logged as an error.
- * 
- */
-int main(argc, argv)
-int argc;
-char *argv[];
-{
-  int i, stat;
-  FILE *sf;
-  char sfname[256];
-  struct script *script;
-  struct siglist *sigs;
-
-  /*
-   * The following is needed because my cpp does not have the
-   * #error directive...
-   */
-#if ! HAVE_SELECT
-  no_select_sorry();		/* Sad way to fail make */
-#endif
-
-  paramv = &argv[2];		/* Parameters start at 2nd arg */
-  paramc = argc - 2;		/* Number of live parameters */
-
-  telno[0] = '\0';
-
-  if (argc < 2)
-    {
-      fprintf(stderr, "%s: no script file supplied\n", argv[0]);
-      exit(FAIL);
-    }
-
-  /*
-   * If the script file argument begins with '/', then we assume
-   * it is an absolute pathname, otherwise, we prepend the 
-   * SCRIPT_DIR path.
-   */
-  *sfname = '\0';		/* Empty name string */
-  if(argv[1][0] != '/')		/* If relative path */
-    strcat(sfname, SCRIPT_DIR); /* Prepend the default dir. */
-  strcat(sfname, argv[1]);	/* Add the script file name */
-
-  /*
-   * Now open the script file.
-   */
-  if ((sf = fopen(sfname, "r")) == NULL)
-    {
-      fprintf(stderr, "%s: Failed to open script %s\n", argv[0], sfname);
-      perror(" ");
-      exit(FAIL);
-    }
-
-  /*
-   * COMPILE SCRIPT
-   */
-  if ((script = read_script(sf)) == NULL)
-    {
-      fprintf(stderr, "%s: script error in \"%s\"\n", argv[0], argv[1]);
-      exit(FAIL);
-    }
-
-  /*
-   * Set up a signal catcher so the line can be returned to
-   * it's current state if something nasty happens.
-   */
-  sigs = &sigtbl[0];
-  while(sigs->signal)
-    {
-      sigs->o_catcher = (int (*) ())signal(sigs->signal, sigs->n_catcher);
-      sigs += 1;
-    }
-
-  /*
-   * Save current tty settings, then set up raw, single
-   * character input processing, with 7-bit stripping.
-   */
-  setup_tty();
-
-  /*
-   * EXECUTE SCRIPT
-   */
-  if ((stat = do_script(script)) != SUCCESS)
-    fprintf(stderr, "%s: script %s failed.\n", argv[0], argv[1]);
-
-  /*
-   * Clean up and exit.
-   */
-  restore_tty();
-#ifdef FIXSIGS
-  sigs = &sigtbl[0];
-  while(sigs->signal)
-    if(sigs->o_catcher != -1)
-      signal(sigs->signal, sigs->o_catcher);
-#endif
-  exit(stat);
-}
-
-/* 
- * deal_script - deallocate a script and all strings it points to
- */
-int deal_script(loc)
-struct script *loc;
-{
-  /*
-   * If pointer is null, just exit
-   */
-  if (loc == (struct script *)NULL)
-    return SUCCESS;
-  
-  /*
-   * Deallocate the rest of the script
-   */
-  deal_script(loc->next);
-  
-  /*
-   * Deallocate the string parameter, if any
-   */
-  if (loc->strprm != (char *)NULL)
-    free(loc->strprm);
-  
-  /*
-   * Deallocate the new state name parameter, if any
-   */
-  if (loc->newstate != (char *)NULL)
-    free(loc->newstate);
-  
-  /*
-   * Deallocate this entry
-   */
-  free(loc);
-  
-  return SUCCESS;
-}
-
-
-/* 
- * read_script
- *
- * Read & compile a script, return pointer to first entry, or null if bad
- */
-struct script *read_script(fd)
-     FILE *fd;
-{
-  struct script	*this = NULL;
-  struct script	*prev = NULL;
-  struct script	*first = NULL;
-  long len, i;
-  char inpline[MAX_SCLINE];
-  char inpcopy[MAX_SCLINE];
-  char *c, *cln, *opc, *cp;
-  
-  /*
-   * MAIN COMPILATION LOOP
-   */  
-  while ((c = fgets(inpline, (sizeof inpline - 1), fd)) != (char *)NULL)
-    {
-      /*
-       * Skip comments and blank lines
-       */
-      if (*c == '#' || *c == '\n')
-	continue;
-      
-      /* 
-       * Get rid of the trailing newline, and copy the string
-       */
-      inpline[strlen(inpline)-1] = '\0';
-      strcpy(inpcopy, inpline);
-      
-      /*
-       * Look for text starting in the first col (a label)
-       */
-      if ((!isspace(inpline[0])) &&
-	  (cln = strchr (inpline, ':')) != (char *)NULL) {
-	this = (struct script *)malloc (sizeof (struct script));
-	if (prev != (struct script *)NULL)
-	  prev->next = this;
-	prev = this;
-	if (first == (struct script *)NULL)
-	  first = this;
-	this->next = (struct script *)NULL;
-	this->opcode = SC_LABEL;
-	len = cln - c;
-	this->strprm = (char *)malloc(len+1);
-	strncpy(this->strprm, c, len);
-	(this->strprm)[len] = '\0';
-	this->intprm = 0;
-	this->newstate = (char *)NULL;
-	c = cln + 1;
-      }
-      
-      /*
-       * Now handle the opcode. Fold it to lower case.
-       */
-      opc = strtok(c, CTL_DELIM);
-      if (opc == (char *)NULL)	/* If no opcode... */
-	continue;			/* ...read the next line */
-      cp = opc;
-      while(*cp)
-	tolower(*cp++);
-      
-      /* 
-       * If we have an opcode but we haven't seen anything
-       * else (like a label) yet, i.e., this is the first
-       * entry, and there was no label.  We need to 
-       * cobble up a label so that read_script is happy
-       */
-      if (first == (struct script *)NULL) 
-	{
-	  this = (struct script *)malloc (sizeof (struct script));
-	  prev = this;
-	  first = this;
-	  this->next = (struct script *)NULL;
-	  this->opcode = SC_LABEL;
-	  this->strprm = (char *)malloc(2);
-	  strcpy(this->strprm, ":");
-	  this->intprm = 0;
-	  this->newstate = (char *)NULL;
-	}
-      
-      /* 
-       * Find opcode - ndex through the opcode definition table
-       */
-      for (i=1; sc_opdef[i].opcode != SC_END; i++)
-	if (strcmp(opc, sc_opdef[i].opname) == SAME) 
-	  break;
-      if ((sc_opdef[i].opcode) == SC_END)
-	{
-	  logit ("Bad opcode in script", opc);
-	  deal_script(first);
-	  return (struct script *)NULL;
-        }
-      
-      /*
-       * Found opcode. Allocate a new command node and initialize
-       */
-      this = (struct script *)malloc(sizeof (struct script));
-      prev->next = this;
-      prev = this;
-      this->next = (struct script *)NULL;
-      this->opcode = sc_opdef[i].opcode;
-      this->strprm = (char *)NULL;
-      this->intprm = 0;
-      this->newstate = (char *)NULL;
-      
-      /* 
-       * Pick up new state parameter, if any
-       */
-      if (sc_opdef[i].newstate == SC_NWST)
-	{
-	  c = strtok((char *)NULL, CTL_DELIM);
-	  if (c == (char *)NULL)
-	    {
-	      logit("Missing new state", opc);
-	      deal_script(first);
-	      return (struct script *)NULL;
-	    }
-	  else
-	    {
-	      this->newstate = (char *)malloc(strlen(c)+1);
-	      strcpy(this->newstate, c);
-	    }
-	}
-      
-      /*
-       * Pick up the string or integer parameter. Handle missing
-       * parameter gracefully.
-       */
-      switch (sc_opdef[i].prmtype)
-	{
-	/*
-	 * INT parameter - convert and store in node
-	 */
-	case SC_INT:
-	  c = strtok((char *)NULL, CTL_DELIM);
-	  if (c == (char *)NULL)
-	    {
-	      logit("Missing script param", opc);
-	      deal_script(first);
-	      return (struct script *)NULL;
-	    }
-	  /*
-	   * If this is the parameter to DBST or DBCL, force
-           * base-10 conversion, else convert per parameter.
-	   */
-	  if (sc_opdef[i].opcode == SC_DBST ||
-	      sc_opdef[i].opcode == SC_DBCL)
-	    this->intprm = strtol(c, (char **)NULL, 0);
-	  else
-	    this->intprm = strtol(c, (char **)NULL, 10);
-	  break;
-
-	/*
-	 * STR/XSTR strings.
-	 */
-	case SC_STR:		
-	case SC_XSTR:		
-	  c = strtok((char *)NULL, CTL_DELIM);
-	  if (c == (char *)NULL)
-	    {
-	      logit("Missing script param", opc);
-	      deal_script(first);
-	      return (struct script *)NULL;
-	    }
-	  /*
-	   * For XSTR opcode, use c to find out where
-	   * the string param begins in the copy of the
-	   * input line, and pick up all that's left of
-	   * the line (to allow imbedded blanks, etc.).
-	   */
-	  if (sc_opdef[i].prmtype == SC_XSTR)
-	    c = &inpcopy[0] + (c - &inpline[0]);
-
-	  /*
-	   * Allocate a buffer for the string parameter
-	   */
-	  this->strprm = (char *)malloc(strlen(c)+1);
-
-	  /*
-	   * For XSTR, Translate the string and store its
-	   * length. Note that, after escape sequences are 
-	   * compressed, the resulting string may well be a 
-	   * few bytes shorter than the input string (whose 
-	   * length was the basis for the malloc above),
-	   * but it will never be longer.
-	   */
-	  if (sc_opdef[i].prmtype == SC_XSTR)
-	    {
-	      this->intprm = xlat_str(this->strprm, c);
-	      this->strprm[this->intprm] = '\0';
-	    }
-	  else
-	    strcpy(this->strprm, c);
-	  break;
-	  
-	}
-    }
-  
-  /*
-   * EOF
-   */
-  return first;
-}
-
-
-/*
- * xlat_str
- *
- * Translate embedded escape characters in a "send" or "expect" string.
- *
- * Called by read_script(), above.
- *
- * Returns the actual length of the resulting string.  Note that imbedded
- * nulls (specified by \000 in the input) ARE allowed in the result.  
- */
-xlat_str(out, in)
-     char *out, *in;
-{
-  register int i = 0, j = 0;
-  int byte, k;
-  
-  while (in[i]) 
-    {
-      if (in[i] != '\\') 
-	{
-	  out[j++] = in[i++];
-	}
-      else 
-	{
-	  switch (in[++i]) 
-	    {
-	    case 'd':		/* EOT */
-	      out[j++] = 0x04;
-	      break;
-	    case 'N':		/* null */
-	      out[j++] = 0x00;
-	      break;
-	    case 'n':		/* line feed */
-	      out[j++] = 0x0a;
-	      break;
-	    case 'r':		/* carriage return */
-	      out[j++] = 0x0d;
-	      break;
-	    case 's':		/* space */
-	      out[j++] = ' ';
-	      break;
-	    case 't':		/* tab */
-	      out[j++] = '\t';
-	      break;
-	    case '-':		/* hyphen */
-	      out[j++] = '-';
-	      break;
-	    case '\\':		/* back slash */
-	      out[j++] = '\\';
-	      break;
-	    case '0':		/* '\nnn' format */
-	    case '1':
-	    case '2':
-	    case '3':
-	    case '4':
-	    case '5':
-	    case '6':
-	    case '7':
-	      byte = in[i] - '0';
-	      k = 0;
-	      
-	      while (3 > ++k)	
-		if ((in[i+1] < '0') || (in[i+1] > '7'))
-		  break;
-		else 
-		  {
-		    byte = (byte<<3) + in[i+1] - '0';
-		    ++i;
-		  }
-	      out[j++] = byte;
-	      break;
-	    default:            /* don't know so skip it */
-	      break;
-	    }
-	  ++i;
-	}
-    } 
-  return j;
-}
-
-
-/* find a state within a script */
-
-struct script *
-  find_state(begin, newstate)
-struct script *begin;
-char *newstate;
-{
-  struct script *here;
-  
-  for (here=begin; here != (struct script *)NULL; here=here->next) {
-    if (here->opcode == SC_LABEL && 
-	strcmp(here->strprm, newstate) == SAME)
-      return here;
-  }
-  return (struct script *)NULL;
-}
-
-
-/* 
- * do_script() - execute a script 
- */
-int do_script(begin)
-     struct script *begin;
-{
-  struct script *curstate, *newstate, *curscr;
-  int	 dbgsave;
-  char	 tempstr[MAX_SCLINE];
-  char   dfname[256];
-  char	*c, chr;
-  int	 prmlen;
-  int    dbfd;
-  
-  time_t sc_carrtime = 45000;	/* time to wf carr after dial */
-  time_t sc_chrdly   = 100;	/* delay time for ttoslow */
-  time_t sc_ptime    = 2000;	/* time to allow for pause char */
-  time_t sc_wtime    = 10000;	/* time to allow for wait char */
-  time_t sc_dtime    = 100;	/* time to allow for each digit */
-  time_t sc_dtmo;		/* total time to dial number */
-  int    sc_counter;		/* random counter */
-  char   sc_pchar    = ',';	/* modem pause character */
-  char   sc_wchar    = 'W';	/* modem wait-for-dialtone character */
-  time_t sc_begwait;		/* time at beg of wait */
-  time_t sc_secs;		/* timeout period */
-  
-  int    expcnt;
-  int    expin;
-  static char expbuf[MAX_EXPCT];
-  
-  dbgsave = Debug;
-  curstate = begin;
-  
-  if (curstate == (struct script *)NULL) 
-    return SUCCESS;
-  
-  _newstate:
-  /* 
-   * do all of curstate's actions.  Enter with curstate pointing
-   * to a label entry
-   */
-  expin = 0;
-  
-  for (curscr = curstate->next; /* point to 1st scr after label */
-       (curscr != (struct script *)NULL) &&  /* do until end of scr */
-       (curscr->opcode != SC_LABEL);		/* or next label */
-       curscr = curscr->next) 
-    {
-      expcnt = 0;
-      switch (curscr->opcode) 
-	{
-	case SC_LABEL:
-	  logit("Script proc err", curstate->strprm);
-	  return FAIL;
-	  
-	case SC_FLSH:
-	  DEBUG(DB_LGII, "Flushing typeahead buffer\n", 0);
-	  ttflui();
-	  break;
-	  
-	case SC_CDLY:
-	  sc_chrdly = curscr->intprm;
-	  DEBUG(DB_LGII, "Set chrdly to %d\n", sc_chrdly);
-	  break;
-	  
-	case SC_PCHR:
-	  sc_pchar = *(curscr->strprm);
-	  DEBUG(DB_LGII, "Set pause char to %c\n", sc_pchar);
-	  break;
-	  
-	case SC_PTIM:
-	  sc_ptime = curscr->intprm;
-	  DEBUG(DB_LGII, "Set pause time to %d\n", sc_ptime);
-	  break;
-	  
-	case SC_WCHR:
-	  sc_wchar = *(curscr->strprm);
-	  DEBUG(DB_LGII, "Set wait char to %c\n", sc_wchar);
-	  break;
-	  
-	case SC_WTIM:
-	  sc_wtime = curscr->intprm;
-	  DEBUG(DB_LGII, "Set wait time to %d\n", sc_wtime);
-	  break;
-	  
-	case SC_ZERO:
-	  sc_counter = 0;
-	  DEBUG(DB_LGII, "Set counter to %d\n", sc_counter);
-	  break;
-	  
-	case SC_INCR:
-	  sc_counter++;
-	  DEBUG(DB_LGII, "Incr counter to %d\n", sc_counter);
-	  break;
-	  
-	case SC_WAIT:
-	  DEBUG(DB_LGII, "Sleeping %d tenth-secs\n", curscr->intprm);
-	  msleep(curscr->intprm);
-	  break;
-	  
-	case SC_DTIM:
-	  sc_dtime = curscr->intprm;
-	  DEBUG(DB_LGII, "Digit time is %d\n", sc_dtime);
-	  break;
-	  
-	case SC_CTIM:
-	  sc_carrtime = curscr->intprm;
-	  DEBUG(DB_LGII, "Carrier time is %d\n", sc_carrtime);
-	  break;
-	  
-	case SC_EXIT:
-	  Debug = dbgsave;
-	  DEBUG(DB_LGI, "Script ended successfully\n", 0);
-	  return SUCCESS;
-	  
-	case SC_FAIL:
-	  Debug = dbgsave;
-	  if (DEBUG_LEVEL(DB_LGI) && dbf != NULL)
-	    fprintf(dbf, "Script failed\n");
-	  else if (expin)
-	    charlog(expbuf, expin, DB_LOG, 
-		    "Script failed.  Last received data");
-	  return FAIL;
-	  
-	case SC_LOG:
-	  logit(curscr->strprm, "");
-	  break;
-	  
-	case SC_LOGE:
-	  logit("ERROR: ", curscr->strprm);
-	  break;
-	  
-	case SC_DBOF:
-	  /*
-	   * If the debug file name does not begin with "/", then
-	   * we prepend the LOG_DIR to the string. Then CREATE the
-	   * file. This WIPES OUT previous logs. 
-	   */
-	  *dfname = '\0';	/* Zero name string */
-	  if(curscr->strprm[0] != '/')
-	    strcat(dfname, LOG_DIR); /* Prepend default directory */
-	  strcat(dfname, curscr->strprm); /* Add given string */
-	  DEBUG(DB_LGII, "Open debug file %s\n", dfname);
-	  if ((dbfd = creat (dfname, 0600)) <= 0)
-	    {
-	      logit("Failed to create debug log %s", dfname);
-	      perror("");
-	      return FAIL;
-	    }
-	  if ((dbf = fdopen(dbfd, "w")) == NULL)
-	    {
-	      logit("Failed to open debug log fildes.", "");
-	      perror("");
-	      return FAIL;
-	    }
-	  break;
-	  
-	case SC_DBG:
-	  DEBUG(DB_LGI, "<%s>\n", curscr->strprm);
-	  break;
-	  
-	case SC_DBGE:
-	  DEBUG(DB_LGIE, "ERROR: <%s>\n", curscr->strprm);
-	  break;
-	  
-	case SC_DBST:
-	  Debug |= curscr->intprm;
-	  DEBUG(DB_LGII, "Debug mask set to %04o (octal)\n", Debug);
-	  break;
-	  
-	case SC_DBCL:
-	  Debug &= ~(curscr->intprm);
-	  DEBUG(DB_LGII, "Debug mask set to %04o (octal)\n", Debug);
-	  break;
-	  
-	case SC_BRK:
-	  DEBUG(DB_LGI, "Sending break\n", 0);
-	  ttbreak();
-	  break;
-	  
-	case SC_HANG:
-	  DEBUG(DB_LGI, "Dropping DTR\n", 0);
-	  tthang();
-	  break;
-	  
-	case SC_7BIT:
-	  DEBUG(DB_LGI, "Enabling 7-bit stripping\n", 0);
-	  tt7bit(TRUE);
-	  break;
-	  
-	case SC_8BIT:
-	  DEBUG(DB_LGI, "Disabling 7-bit stripping\n", 0);
-	  tt7bit(FALSE);
-	  break;
-	  
-	case SC_PNON:
-	  DEBUG(DB_LGI, "Setting 8-bit, no parity\n", 0);
-	  ttpar(NONE);
-	  break;
-	  
-	case SC_PEVN:
-	  DEBUG(DB_LGI, "Setting 7-bit, even parity\n", 0);
-	  ttpar(EVEN);
-	  break;
-	  
-	case SC_PODD:
-	  DEBUG(DB_LGI, "Setting 7-bit, odd parity\n", 0);
-	  ttpar(ODD);
-	  break;
-	  
-	case SC_IFBL:
-	  if (ttblind()) 
-	    {
-	      DEBUG(DB_LGI, "Blind mux,\n", 0);
-	      goto _chgstate;
-	    }
-	  break;
-	  
-	case SC_IFBG:
-	  if (ttblind() && sc_counter > curscr->intprm) 
-	    {
-	      DEBUG(DB_LGI, "Blind mux & ctr > %d\n", 
-		    curscr->intprm);
-	      goto _chgstate;
-	    }
-	  break;
-	  
-	case SC_IFGT:
-	  if (sc_counter > curscr->intprm) 
-	    {
-	      DEBUG(DB_LGI, "Counter > %d\n", curscr->intprm);
-	      goto _chgstate;
-	    }
-	  break;
-	  
-	case SC_GOTO:
-	  _chgstate:
-	  DEBUG(DB_LGI, "Changing to state %s\n",
-		curscr->newstate);
-	  curstate = find_state(begin, curscr->newstate);
-	  if (curstate == NULL) 
-	    {
-	      logit("New state not found",
-		    curscr->newstate);
-	      return FAIL;
-	    }
-	  goto _newstate;
-	  
-	case SC_SEND:
-	  ttoslow(curscr->strprm, curscr->intprm, sc_chrdly);
-	  break;
-	  
-	case SC_TELN:
-	  if (curscr->intprm > paramc - 1)
-	    {
-	      sprintf(tempstr, "telno - param #%d", curscr->intprm);
-	      logit(tempstr, " not present");
-	      return FAIL;
-	    }
-	  strcpy(telno, paramv[curscr->intprm]);
-	  DEBUG(DB_LGII, "telno set to %s\n", telno);
-	  break;
-	  
-	case SC_SNDP:
-	  if (curscr->intprm > paramc - 1)
-	    {
-	      sprintf(tempstr, "sendstr - param #%d", curscr->intprm);
-	      logit(tempstr, " not present");
-	      return FAIL;
-	    }
-	  prmlen = xlat_str(tempstr, paramv[curscr->intprm]);
-	  ttoslow(tempstr, prmlen, sc_chrdly);
-	  break;
-	  
-	case SC_IF1P:
-	  if (curscr->intprm < paramc)
-	    goto _chgstate;
-	  break;
-	  
-	case SC_IF0P:
-	  if (curscr->intprm >= paramc)
-	    goto _chgstate;
-	  break;
-	  
-	case SC_DIAL:
-	  if(telno[0] == '\0')
-	    {
-	      logit("telno not set", "");
-	      return(FAIL);
-	    }
-	  /*
-	   * Compute and set a default timeout for the 'timeout'
-	   * command. Some parameters in this computation may be
-	   * changed by the script. See the man page xchat(8) for
-	   * details.
-	   */
-	  sc_dtmo = (sc_dtime+sc_chrdly)*strlen(telno) 
-	    + sc_carrtime;
-	  c=strcpy(tempstr, telno);
-	  for (; *c!='\0'; c++) 
-	    {
-	      if (*c == 'W') 
-		{
-		  *c = sc_wchar;
-		  sc_dtmo += sc_wtime;
-		}
-	      else if (*c == 'P') 
-		{
-		  *c = sc_pchar;
-		  sc_dtmo += sc_ptime;
-		}
-	    }
-	  DEBUG(DB_LGI, "Dialing, default timeout is %d millisecs\n", sc_dtmo);
-	  ttoslow(tempstr, 0, sc_chrdly);
-	  break;
-	  
-	case SC_TIMO:	/* these are "expects", don't bother */
-	case SC_XPCT:	/* with them yet, other than noting that */
-	case SC_CARR:	/* they exist */
-	case SC_XPST:
-	  expcnt++;
-	  break;
-	}
-      
-    }
-  
-  /* we've done the current state's actions, now do its expects, if any */
-  
-  if (expcnt == 0) 
-    {
-      if (curscr != (struct script *)NULL &&  
-	  (curscr->opcode == SC_LABEL)) 
-	{
-	  curstate = curscr;
-	  DEBUG(DB_LGI, "Fell through to state %s\n",
-		curstate->strprm);
-	  goto _newstate;
-	}
-      else 
-	{
-	  logit("No way out of state", curstate->strprm);
-	  return FAIL;
-	}
-    }
-  
-  time(&sc_begwait);	/* log time at beg of expect */
-  DEBUG(DB_LGI, "Doing expects for state %s\n", curstate->strprm);
-  charlog((char *)NULL, 0, DB_LGI, "Received");
-  
-  while (1) 
-    {
-      chr = xgetc(1);		/* Returns upon char input or 1 sec. tmo */
-      
-      charlog(&chr, 1, DB_LGI, (char *)NULL);
-      
-      if (chr != EOF) 
-	{
-	  if (expin < MAX_EXPCT) 
-	    {
-	      expbuf[expin++] = chr & 0x7f;
-	    }
-	  else 
-	    {
-	      strncpy(expbuf, &expbuf[1], MAX_EXPCT-1);
-	      expbuf[MAX_EXPCT-1] = chr & 0x7f;
-	    }
-	}
-      
-      /* for each entry in the current state... */
-      
-      for (curscr = curstate->next; 
-	   (curscr != (struct script *)NULL) &&
-	   (curscr->opcode != SC_LABEL);
-	   curscr = curscr->next) 
-	{
-	  
-	  switch (curscr->opcode) 
-	    {
-	    case SC_TIMO:
-	      sc_secs = curscr->intprm;
-	      if (sc_secs == 0)
-		sc_secs = sc_dtmo;
-	      sc_secs /= 1000;
-	      if (time(NULL)-sc_begwait > sc_secs) 
-		{
-		  DEBUG(DB_LGI,
-			"\nTimed out (%d secs)\n", sc_secs);
-		  goto _chgstate;
-		}
-	      break;
-	      
-	    case SC_CARR:
-	      if (ttcd()) 
-		{
-		  DEBUG(DB_LGI, "\nGot carrier\n", 0);
-		  goto _chgstate;
-		}
-	      break;
-	      
-	    case SC_HUPS:
-	      if (fShangup) 
-		{
-		  DEBUG(DB_LGI, "\nGot data set hangup\n", 0);
-		  goto _chgstate;
-		}
-	      break;
-	      
-	    case SC_XPCT:
-	      if ((expin >= curscr->intprm) &&
-		  (strncmp(curscr->strprm, 
-			   &expbuf[expin - curscr->intprm],
-			   curscr->intprm) == SAME)) 
-		{
-		  charlog(curscr->strprm, curscr->intprm,
-			  DB_LGI, "Matched");
-		  goto _chgstate;
-		}
-	      break;
-	      
-	    }
-	}
-    }
-}
-	      /* New opcode added by hag@eddie.mit.edu for expecting a 
-		 parameter supplied string */
-	     case SC_XPST:
-	      if(curscr->intprm >paramc-1)
-	      {
-		sprintf(tempstr,"expectstr - param#%d",curscr->intprm);
-		logit(tempstr, " not present");
-		return(FAIL);
-	      }
-	      prmlen=xlat_str(tempstr,paramv[curscr->intprm]);
-	      if((expin >= prmlen) &&
-		 (strncmp(tempstr,&expbuf[expin-prmlen],
-			  prmlen) == SAME))
-	      {
-		charlog(tempstr,prmlen,DB_LGI, "Matched");
-		goto _chgstate;
-	      }
-	      break;
-/*
- * SIGNAL HANDLERS
- */
-
-/*
- * usignal - generic signal catcher
- */
-static int usignal(isig)
-     int isig;
-{
-  DEBUG(DB_LOG, "Caught signal %d. Exiting...\n", isig);
-  restore_tty();
-  exit(FAIL);
-}
-
-/*
- * uhup - HUP catcher
- */
-static int uhup(isig)
-     int isig;
-{
-  DEBUG(DB_LOG, "Data set hangup.\n");
-  fShangup = TRUE;
-}
-
-/*
- * TERMINAL I/O ROUTINES
- */
-
-/*
- * xgetc - get a character with timeout
- *
- * Assumes that stdin is opened on a terminal or TCP socket 
- * with O_NONBLOCK. 
- */
-static char xgetc(tmo)
-int tmo;			/* Timeout, seconds */
-{
-  char c;
-  struct timeval s;
-  int f = 1;			/* Select on stdin */
-  int result;
-
-  if(read(0, &c, 1)  <= 0)	/* If no data available */
-    {
-      s.tv_sec = (long)tmo;
-      s.tv_usec = 0L;
-      if(select (1, &f, (int *) NULL, &f, &s) == 1)
-	read(0, &c, 1);
-      else
-	c = '\377';
-    }
-
-  return(c);
-}
-
-/* 
- * Pause for an interval in milliseconds
- */
-void msleep(msec)
-long msec;
-{
-
-#if HAVE_USLEEP
-  if(msec == 0)			/* Skip all of this if delay = 0 */
-    return;
-  usleep (msec * (long)1000);
-#endif /* HAVE_USLEEP */
-
-#if HAVE_NAPMS
-  if(msec == 0)			/* Skip all of this if delay = 0 */
-    return;
-  napms (msec);
-#endif /* HAVE_NAPMS */
-
-#if HAVE_NAP
-  if(msec == 0)			/* Skip all of this if delay = 0 */
-    return;
-  nap (msec);
-#endif /* HAVE_NAP */
-
-#if HAVE_POLL
-  struct pollfd sdummy;
-
-  if(msec == 0)
-    return;
-  /* 
-   * We need to pass an unused pollfd structure because poll checks
-   * the address before checking the number of elements.
-   */
-  poll (&sdummy, 0, msec);
-#endif /* HAVE_POLL */
-
-#if USE_SELECT_TIMER
-  struct timeval s;
-
-  if(msec == 0)
-    return;
-  s.tv_sec = msec / 1000L;
-  s.tv_usec = (msec % 1000L) * 1000L;
-  select (0, (int *) NULL, (int *) NULL, (int *) NULL, &s);
-#endif /* USE_SELECT_TIMER */
-
-#if ! HAVE_NAPMS && ! HAVE_NAP && ! HAVE_USLEEP && \
-    ! HAVE_POLL && ! USE_SELECT_TIMER
-  if(msec == 0)
-    return;
-  sleep (1);			/* Sleep for a whole second (UGH!) */
-#endif /* HAVE_ and USE_ nothing */
-}
-
-/*
- * Debugging output
- */
-static void DEBUG(level, msg1, msg2)
-int level;
-char *msg1, *msg2;
-{
-  if ((dbf != NULL) && DEBUG_LEVEL(level))
-    fprintf(dbf, msg1, msg2);
-}
-
-/*
- * charlog - log a string of characters
- *
- * SPECIAL CASE: msg=NULL, len=1 and msg[0]='\377' gets logged
- *               when read does its 1 sec. timeout. Log "<1 sec.>"
- *               so user can see elapsed time 
- */
-static void charlog(buf, len, mask, msg)
-char *buf;
-int len, mask;
-char *msg;
-{
-  char tbuf[256];
-
-  if (DEBUG_LEVEL(mask) && dbf != NULL)
-    {
-      if(msg == (char *)NULL)
-	msg = "";
-      strncpy(tbuf, buf, len);
-      tbuf[len] = '\0';
-      if(len == 1 && tbuf[0] == '\377')
-	strcpy(tbuf, "<1 sec.>");
-      fprintf(dbf, "%s %s\n", msg, tbuf);
-    }
-}
-
-/*
- * setup_tty()
- *
- * Save current tty settings, then set up raw, single
- * character input processing, with 7-bit stripping.
- */
-static void setup_tty()
-{
-  register int i;
-
-  ioctl(0, TCGETA, &old);
-
-  new = old;
-
-  for(i = 0; i < 7; i++)
-    new.c_cc[i] = '\0';
-  new.c_cc[VMIN] = 0;		/* MIN = 0, use requested count */
-  new.c_cc[VTIME] = 10;		/* TIME = 1 sec. */
-  new.c_iflag = ISTRIP;		/* Raw mode, 7-bit stripping */
-  new.c_lflag = 0;		/* No special line discipline */
-
-  ioctl(0, TCSETA, &new);
-}
-
-/*
- * restore_tty() - restore signal handlers and tty modes on exit.
- */
-static void restore_tty(sig)
-int sig;
-{
-  ioctl(0, TCSETA, &old);
-  return;
-}
-
-/* 
- * ttoslow() - Send characters with pacing delays
- */
-static void ttoslow(s, len, delay)
-     char *s; 
-     int len;
-     time_t delay; 
-{
-  int i;
-  
-  if (len == 0)
-    len = strlen(s);
-  
-  charlog (s, len, DB_LGI, "Sending slowly");
-  
-  for (i = 0; i < len; i++, s++)
-    {
-      write(1, s, 1);
-      msleep(delay);
-    }
-}
-
-/*
- * ttflui - flush input buffer
- */
-static void ttflui()
-{
-  if(isatty(0))
-    (void) ioctl ( 0, TCFLSH, 0);
-}
-
-/*
- * ttcd - Test if carrier is present
- *
- * NOT IMPLEMENTED. I don't know how!!!
- */
-static int ttcd()
-{
-  return TRUE;
-}
-
-/*
- * tthang - Force DTR low for 1-2 sec.
- */
-static void tthang()
-{
-  if(!isatty())
-    return;
-
-#ifdef TCCLRDTR
-  (void) ioctl (1, TCCLRDTR, 0);
-  sleep (2);
-  (void) ioctl (1, TCSETDTR, 0);
-#endif
-
-  return;
-}
-
-/*
- * ttbreak - Send a "break" on the line
- */
-static void ttbreak()
-{
-  (void) ioctl (1, TCSBRK, 0);
-}
-
-/*
- * ttblind - return TRUE if tty is "blind"
- *
- * NOT IMPLEMENTED - Don't know how!!!
- */
-static int ttblind()
-{
-  return FALSE;
-}
-
-/*
- * tt7bit - enable/disable 7-bit stripping on line
- */
-static void tt7bit(enable)
-     int enable;
-{
-  if(enable)
-    new.c_iflag |= ISTRIP;
-  else
-    new.c_iflag &= ~ISTRIP;
-
-  ioctl(0, TCSETA, &new);
-}
-
-/*
- * ttpar - Set parity mode on line. Ignore parity errors on input.
- */
-static void ttpar(mode)
-     int mode;
-{
-  switch(mode)
-    {
-    case NONE:
-      new.c_iflag &= ~(INPCK | IGNPAR);
-      new.c_cflag &= ~(CSIZE | PARENB | PARODD);
-      new.c_cflag |= CS8;
-      break;
-
-    case EVEN:
-      new.c_iflag |= (INPCK | IGNPAR);
-      new.c_cflag &= ~(CSIZE | PARODD);
-      new.c_cflag |= (CS7 | PARENB);
-
-      break;
-
-    case ODD:
-      new.c_iflag |= (INPCK | IGNPAR);
-      new.c_cflag &= ~(CSIZE);
-      new.c_cflag |= (CS7 | PARENB | PARODD);
-      break;
-    }
-
-  ioctl(0, TCSETA, &new);
-}
-
-
-
-
-
-
-
diff --git a/gnu/libexec/uucp/contrib/xchat.man b/gnu/libexec/uucp/contrib/xchat.man
deleted file mode 100644
index 55537be..0000000
--- a/gnu/libexec/uucp/contrib/xchat.man
+++ /dev/null
@@ -1,628 +0,0 @@
-.TH xchat 8
-.SH NAME
-xchat - Extended chat processor
-.SH SYNOPSIS
-.BI "xchat " "scriptfile"
-.RI " [ " parameter... " ] "
-.PP
-where
-.I scriptfile
-is the name of a file containing an 
-.I xchat
-script. If 
-.I scriptfile
-begins with ``/'', then it is assumed to be a full path name for the
-script file. If not, a configuration-dependent default directory path
-(usually
-.B "/usr/local/conf/uucp/"
-) is prepended to the script file name. Normally, the default path
-is the same as that for the Taylor UUCP configuration files.
-.SH DESCRIPTION
-.I Xchat
-is a general-purpose dialing and login program designed for use 
-with Taylor UUCP as a ``chat-program'', taking the place (or 
-augmenting) the built-in chat scripting facility. It provides the 
-ability to closely control timeouts, multiple simultaneous ``expect'' 
-strings with separate actions, extended terminal control, modem 
-command character pacing, and more.
-.PP
-When used in conjunction with Taylor UUCP's
-configuration features, 
-.I xchat
-can provide you the ability to manage the most intricate login, 
-dial and hangup needs. The scripts are written in a shell-like (well, 
-sort-of) style with labels, commands, and parameters, easing the task 
-of writing procedures for complex terminal communications situations.
-.PP
-Because 
-.I xchat
-assumes that it is connected to the terminal device via stdin/stdout, 
-you can easily debug scripts by invoking it from the shell and 
-responding to the script from the keyboard. A debug logging facility 
-is included, with the debug output going to a separate user-specified 
-file. This makes it easy to debug connection problems without wading 
-through large 
-.I uucico
-log and debug files.
-.PP
-Formally, a script describes a state machine; 
-.I xchat
-interprets the script and does what the state machine
-tells it to. This section will be much easier to understand 
-if you obtain listings of the script files supplied with
-.I xchat.
-.SH "SCRIPT FILE FORMAT"
-Script files are ordinary text files containing comments, labels,
-and statements. Blank lines are ignored. 
-Comments are denoted by leading ``#''
-characters. Some statements (those which do not end with an
-``extended string'' argument; see below) can also have trailing
-comments.
-.PP
-.I Labels 
-begin in column one and are ended by colons (:). A label
-specifies a state name. All lines between a pair of labels are
-the statements for a single state.
-.PP
-Processing always begins at the head of the script (no leading
-state name is necessary).
-.PP
-.I Statements 
-are divided into two categories, ``action'' and ``expect''.
-When a state is entered, all of its actions are performed in the
-order in which they appear in the file.
-.PP
-A 
-.I transition 
-to another state may occur for any of three reasons:
-.IP (1) 5
-One of the actions may cause a transition to
-another state, in which case the rest of the
-current state's actions are skipped.
-Processing resumes with the first action
-statement of the new state.
-.IP (2) 5
-If none of the actions cause a state
-transition, and there are no expects in the
-state, processing ``falls through'' to the next
-state in the file.
-.IP (3) 5
-If none of the actions cause a state
-transition, but there are expects in the
-state, the state machine pauses until one of
-the expects is ``satisfied''. It then transitions 
-to the state named in the expect
-statement.
-.PP
-Finally, there are two action statements which, when executed,
-cause the script to exit.
-.SH "SCRIPT FILE STATEMENTS"
-This section describes all of the statements that may appear in script
-files, except for a few special action statements. Those are described
-in a later section, ``Overriding Defaults''.
-.PP
-Some statements accept one or two arguments, referred to in the
-following descriptions as 
-.IR int ", " ns ", " str ", or "
-.IR xstr ", to"
-indicate whether the argument is an integer, a new state name, a
-string, or an ``extended string'' (described in a later section).
-.PP
-For all statements that accept two arguments, the first is the
-name of a new state, and the second specifies a condition or
-reason for changing to the new state.
-.SS "Termination And Informational Statements"
-These statements are used to place entries into the Taylor UUCP
-.I Log
-file, and to cause 
-.I xchat
-to exit with successful or failure status. It is also possible to open a 
-separate
-.I debug
-log file and control the level of tracing and error reporting that will go
-into that log file. This is very useful in debugging 
-.I xchat
-scripts.
-.br
-.ta 1.0i 1.5i 2.0i
-.TP 2.0i
-.B failed
-Exit script with ``failed'' status. This causes 
-.I xchat 
-to exit with status 0.
-.TP 2.0i
-.B success
-Exit script with ``success'' status. This causes
-.I xchat
-to exit with status 1.
-.TP 2.0i
-.BI "log	" xstr     
-Send informational message
-.I xstr 
-to standard error. When used with Taylor UUCP, this is the 
-.I Log
-file for the 
-.I uucico
-program.
-.TP 2.0i
-.BI "logerr	" xstr     
-Send message
-.I xstr 
-to standard error, with ``ERROR:'' indicator. When used 
-with Taylor UUCP, this is the 
-.I Log
-file for the 
-.I uucico
-program.
-.TP 2.0i
-.BI "dbgfile	" xstr
-Open script debugging file 
-.I xstr.
-If
-.I xstr
-begins with ``/'', it is assumed to be an absolute path name for the
-debugging file. If not, then a configuration-dependent default directory 
-path (usually
-.B "/usr/spool/uucp"
-) is prepended to
-.I xstr.
-Normally the default path is that of the directory where Taylor UUCP 
-puts its log files.
-The debugging file is used to capture a detailed log of the data sent
-and received, errors encountered, and a trace of script execution.
-The various types of logging are controlled by the
-.I "debug mask,"
-described next. 
-.B Note:
-A new log file is created each time 
-.I xchat
-runs. Use the 
-.B log
-and
-.B loge
-commands to log 
-continuous information onto standard out, which is connected
-to the Taylor UUCP
-.I Log
-file when 
-.I xchat
-is run by the Taylor
-.I uucico.
-.TP 2.0i
-.BI "dbgset	" int
-Set the bits specified in 
-.I int
-in the debugging mask. The value in
-.I int
-is ``or''ed into the mask. Set bit 0 (value \= 1) for error messages,
-bit 1 (value \= 2) for dial, login and init errors, bit 2 (value \= 4)
-for dial, login and init trace with character I/O, and bit 3 (value \= 8)
-for script processing internals. Normally, you will just turn it all on
-with a value of 15.
-.TP 2.0i
-.BI "dbgclr	" int
-Clear the bits specified in
-.I int
-from the debugging mask.
-.TP 2.0i
-.BI "debug	" xstr
-Write 
-.I
-xstr
-into the debug log. The entry will be enclosed in angle brackets.
-.TP 2.0i
-.BI "debuge	" xstr
-Write
-.I xstr
-into the debug log with ``ERROR: '' prepended. The entry will be enclosed
-in angle brackets. 
-.SS "Sending Data"
-These statements are used to transmit data to standard out (the tty or TCP
-port when used with Taylor UUCP).
-.I
-No implied carriage returns are sent.
-You must include a \\r if you want a carriage return in the string
-sent by the 
-.B send
-command. If you want a return sent after 
-.B dial
-or
-.B sendstr,
-you must send it with a separate
-.B send
-command.
-.TP 2.0i
-.B dial
-Send the string previously set by the 
-.B telno
-command to the serial port.
-.B W
-and
-.B P
-characters in the phone number are
-converted as described under 
-.B 
-Dial Strings,
-below. This statement also sets a default
-timeout value, as described under the 
-.B timeout
-statement.
-.TP 2.0i
-.BI "send	" xstr
-Send the string 
-.I xstr 
-to the serial port.
-.TP 2.0i
-.BI "sendstr	" int
-The argument of this statement is a digit from 0
-through 7. Send the corresponding string
-parameter as passed to 
-.I xchat
-following the script file name. The parameter is interpreted 
-as an extended string.
-.SS "Special Terminal Control Statements"
-These statements are used to cause the terminal port to perform some special action, or to change the mode of the port.
-.I 
-The modes of the port are restored to their original settings
-.I
-by xchat before it exits.
-.TP 2.0i
-.B flush
-Flush the terminal port's input buffer.
-.TP 2.0i
-.B break
-Send a break signal.
-.TP 2.0i
-.B hangup
-Momentarily drop Data Terminal Ready (DTR) on the
-serial port, causing the modem to hang up. (Not
-usually needed, since 
-.I uucico
-does this at the end of each call.)
-.TP 2.0i
-.B 7bit
-Change the port to strip incoming characters to 7 bits. 
-.I
-This is the default mode.
-This mode 
-is implied when the port has parity enabled, since parity characters
-are 7-bits wide.
-.TP 2.0i
-.B 8bit
-Change the port to allow incoming 8-bit characters to be passed 
-to the script processor. This mode has no effect if parity is 
-enabled, since parity characters are 7-bits wide.
-.TP 2.0i
-.B nopar
-Change the port to 8-bits, no parity. 
-.I
-This is the default mode.
-.TP 2.0i
-.B evenpar
-Change the port to 7-bits, even parity. 
-.I 
-Incoming characters with parity errors are discarded.
-.TP 2.0i
-.B oddpar
-Change the port to 7-bits, odd parity.
-.I 
-Incoming characters with parity errors are discarded.
-.SS "Counting, Branching, Timing and Testing Statements"
-These statements are used to control the flow of the 
-.I xchat
-script itself, including branching, delays, and counter manipulation.
-.TP 2.0i
-.BI "sleep	" int 
-Delay for 
-.I int
-milliseconds.
-.TP 2.0i
-.B zero
-Clear the counter.
-.TP 2.0i
-.B count
-Add one to the counter.
-.TP 2.0i
-.BI "ifgtr	" "ns	int"
-Go to state 
-.I ns
-if counter greater than 
-.I int.
-.TP 2.0i
-.BI "goto	" ns
-Go to state 
-.I ns 
-unconditionally.
-.TP 2.0i
-.BI "ifstr	" "ns	int"
-Go to state 
-.I ns
-if string parameter 
-.I int
-is nonempty.
-.TP 2.0i
-.BI "ifnstr	" "ns	int"
-Go to state
-.I ns
-if string parameter 
-.I int
-is empty.
-.TP 2.0i
-.BI "ifblind	" ns
-Change to state
-.I ns
-if the port is ``blind'' without carrier (CD) asserted.
-.I 
-This is not yet implemented, the test always fails.
-.TP 2.0i
-.BI "ifblgtr	" "ns	int"
-Change to state
-.I ns
-if the port is ``blind'' without carrier (CD) asserted, and counter
-is greater then
-.I int.
-.I 
-This is not yet implemented, the test always fails.
-.SS "Expect Statements"
-Expect statements are usually the last statements that appear in a
-given state, though in fact they can appear anywhere within the
-state. Even if they appear at the beginning, the script processor
-always does all of the action statements first. As a practical
-matter, the order of these statements is not significant; they are
-all interpreted ``in parallel''.
-.TP 2.0i
-.BI "expect	" "ns	xstr"
-Change to state 
-.I ns 
-if the string specified by
-.I xstr 
-is received from standard input (usually the serial port). 
-Case is significant, but high-order bits are not
-checked.
-.TP 2.0i
-.BI "expectstr	" "ns	int"
-Change to state 
-.I ns 
-if the string specified in parameter
-.I int 
-is received from standard input (usually the serial port).
-.I int 
-must be in the range 0 to 7. 
-Case is significant, but high-order bits are not
-checked.
-Useful where a prompt can change in different dial-in lines. 
-.TP 2.0i
-.BI "ifcarr	" ns
-Change to state
-.I ns 
-if Carrier Detect (CD) is true.
-.I
-Not currently implemented. Always changes state.
-.TP 2.0i
-.BI "ifhang	" ns
-Change to state
-.I ns
-if a data set hangup occurs (SIGHUP signal received).
-.TP 2.0i
-.BI "timeout	" "ns	int"
-Change to state 
-.I ns 
-if the time (in milliseconds)
-given by 
-.I int
-has elapsed without satisfying any
-expects. If the time specified is 0, a default
-timeout value (calculated from the length and
-other characteristics of the most recent dial
-string) is used.
-.SH "SCRIPT PROCESSING DETAILS"
-.SS "Extended Strings"
-In the statements that accept string arguments, the strings are
-interpreted as 
-.I 
-extended strings. 
-Extended strings begin with
-the first nonblank character and continue, including all imbedded
-and trailing blanks and other whitespace, until (but not
-including) the end of the line in the script file. (There is no
-provision for line continuation.)  No trailing spaces should be
-present between the last ``desired'' character of the string and the
-end of the line, as they will be included in the stored string and
-sent or expected, just as they appear in the script file. And,
-obviously, no trailing comments are permitted!  They will just be
-stored as part of the string.
-.PP
-Within an extended string, the following ``escape sequences'' will
-be converted as indicated before being sent or expected:
-.br
-.nf
-.in +0.5i
-\fB\\d\fR	EOT character (control-D)
-\fB\\N\fR	null character
-\fB\\n\fR	line feed
-\fB\\r\fR	carriage return
-\fB\\s\fR	space
-\fB\\t\fR	tab
-\fB\\\-\fR	hyphen
-\fB\\\\\fR	backslash
-\fB\\ooo\fR	character with value ooo (in octal)
-.in -0.5i
-.fi
-.PP
-Since extended strings in scripts can include embedded spaces,
-tabs, etc., these escape sequences are only required in strings
-appearing in systems entries, though they may be used in script
-files to improve readability.
-.PP
-The octal-character specification (\\ooo) may have from one to
-three octal digits; it is terminated either after the third digit
-or when a non-octal character is encountered. But if you want to
-specify one of these followed by something that happens to be a
-valid octal character (for example, a control-A followed by a 7)
-make sure to include all three digits after the \\ . So \\0017
-would become a control-A followed by the Ascii character ``7'', but
-\\17 or \\017 would become a control-Y (decimal value 25). \\1S
-would convert to a control-A followed by an ``S''.
-.PP
-Extended strings are stored without a trailing carriage return
-unless one is explicitly present in the string (via \\r).
-.SS "String Parameters"
-The 
-.B sendstr 
-statement sends (after conversion from extended string
-format) one of the parameters given on the 
-.I xchat
-command line following the script file name. 
-The parameter is selected by the integer
-argument of the statement.
-.PP
-This allows ``generic'' script files to serve
-for many different systems; the string parameters 
-provide the phone number, username, password, etc. Character
-substitutions described under ``extended strings'' above are
-performed on these strings.
-.PP
-The ifstr and ifnstr statements allow further generality in script
-files, by testing whether a particular parameter is present in the
-systems entry. For example, a single script can be
-used both for those systems that require a password and
-those that do not. The password is specified as the last argument
-in the 
-.xchat
-command; the script can test for this
-parameter's existence and skip the password sequence if
-the parameter is empty.
-.SS "``Wait'' And ``Pause'' Characters In Dial Strings"
-An additional conversion is performed on dial strings. Dial strings
-are interpreted as extended strings. Then the characters
-.B W 
-and
-.B P
-within a dial string are interpreted as ``wait for dial
-tone'' and ``pause'', and may be converted to other characters. By
-default, 
-.B W
-is left alone, and
-.B P
-is converted to a comma (,);
-these are appropriate for Hayes-type modems. The script may
-specify other substitutions (see below).
-.PP
-.B NOTE: 
-The Taylor UUCP documentation states that the ``wait'' and ``pause''
-characters are ``='' and ``-'', respectively. These are actual characters
-understood by some modems. When using
-.I xchat
-you should put
-.B W
-and
-.B P
-in the dial strings you specify in the Taylor configuration files. 
-This way, the 
-.I xchat
-processor can make the substitution appropriate for the particular 
-modem in use. Make a separate 
-.I xchat
-script for each modem type, e.g.,
-.I "dial.hayes"
-and specify the translation there. This way, the phone number strings
-in the Taylor configuration files can be used with a variety of modems.
-.SS "Default Timeouts For Dial Strings"
-When a 
-.B dial 
-statement is executed, a default timeout value is set.
-This is the timeout value used by a subsequent timeout statement
-if the statement specifies a timeout value of 0.
-.PP
-The default timeout is given by:
-.br
-.nf
-.in +2
-\fIctime\fR + (\fIndigits\fR * \fIdgttime\fR) + (\fInwchar\fR * \fIwtime\fR) + (\fInpchar\fR * \fI ptime\fR) 
-.in -2
-.fi
-.PP
-where 
-.I 
-ndigits, nwchar, 
-and 
-.I npchar
-are the number of digits, wait characters, and pause characters in
-the dial string, and 
-.I ctime, dgttime, wtime, 
-and 
-.I ptime 
-are 45 seconds, 0.1 seconds, 10 seconds, and 2 seconds, 
-respectively.
-All of these times may be changed as specified below under
-``Overriding Defaults.''
-.SS "Trailing Carriage Returns Not Assumed"
-In the 
-.B dial
-and
-.B sendstr 
-statements, the dial string or
-parameter is sent with no trailing carriage return;
-if a carriage return must be sent after one of these, a separate
-send statement must provide it.
-.SH "OVERRIDING DEFAULTS"
-The script processor sets several default values. The following
-statements, which override these defaults, may be useful in
-certain circumstances.
-.TP 2.0i
-.BI "chrdly	" int
-Since many modems cannot accept dialing commands
-at full ``computer speed'', the script processor
-sends all strings with a brief inter-character
-delay. This statement specifies the delay time,
-in milliseconds. The default is 100 (0.1 second).
-.TP 2.0i
-.BI "pchar	" str
-Specifies the character to which 
-.BR P s 
-in the
-dial string should be converted. Default is
-``,'', for use with Hayes-type modems.
-.TP 2.0i
-.BI "ptime	" int
-Specifies the time, in milliseconds, to allow in
-the default timeout for each pause character in
-the dial string. Default is 2000 (2 seconds).
-.TP 2.0i
-.BI "wchar	" str
-Specifies the character to which 
-.BR W s 
-in the
-dial string should be converted. Default is
-``W'', for Hayes modems.
-.TP 2.0i
-.BI "wtime	" int
-Specifies the time, in milliseconds, to allow in
-the default timeout for each wait-for-dialtone
-character in the dial string. Default is 10000
-(10 seconds).
-.TP 2.0i
-.BI "dgttime	" int
-Specifies the time, in milliseconds, to allow in
-the default timeout for each digit character in
-the dial string. Default is 100 (0.1 second).
-.TP 2.0i
-.BI "ctime	" int
-Specifies the time, in milliseconds, to allow in
-the default timeout for carrier to appear after
-the dial string is sent. Default is 45000 (45
-seconds).
-.SH "SEE ALSO"
-uucico(8) for Taylor UUCP, and documentation for Taylor UUCP.
-.SH AUTHOR
-Robert B. Denny (denny@alisa.com)
-.SH CONTRIBUTORS
-Daniel Hagerty (hag@eddie.mit.edu)
-.SH HISTORY
-This program is an adaptation of the dial/login script processing 
-code that is a part of DECUS UUCP for VAX/VMS, written by Jamie 
-Hanrahan, et. al.
-.SH BUGS
-This version (1.1) does not support BSD terminal facilities. Anyone 
-volunteer to add this?
-