Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (02/04/90)
Submitted-by: overload!dillon (Matt Dillon)
Posting-number: Volume 90, Issue 045
Archive-name: unix/uucp-1.03d/part01
[ Some sites may receive two copies of parts 1-6 due to an error while posting
this package. Disregard them. ...tad ]
[
This is the release version of the Dillon/Loftus UUCP package for the
Amiga. With this package and a willing UUCP neighbor, it's possible
for your Amiga to participate in the UUCP network for both file
transfer and mail, and to join in USENET.
All the files in the two-disk distribution (available via anonymous ftp
from ucbvax.berkeley.edu) are included in the comp.binaries.amiga postings
except the sources. This means that if you don't want the sources, you can
ignore the postings in comp.sources.amiga. Additionally, in both groups, a
list of how the files were originally distributed between the two disks is
included.
The file s/man/Standards has been split to allow for posting. Remember to
rejoin this file after unsharing.
...tad
]
#!/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 archive 1 (of 16)."
# Contents: NewsSetup.DOC README.NOW devs devs/.DistFiles
# devs/Mountlist lib lib/.signature lib/Config lib/Domain
# lib/Getty-header lib/L.Sys lib/NewsGroups lib/Passwd lib/Security
# lib/SeqNews lib/news.distribution lib/seq man man/.Distfiles
# man/Config man/From man/MapExample man/NULL man/PhoneBook
# man/Rmail man/TrimFile man/expandm s s/.DistFiles s/crontab
# s/startup-sequence src src/.Distfiles src/GUtil
# src/GUtil/DMakefile src/GUtil/uident.c src/MUtil
# src/MUtil/DMakefile src/MUtil/expandm.c src/News060
# src/News060/Anews src/News060/Anews/DMakefile
# src/News060/DMakefile src/ReadMe src/TODO src/compress
# src/compress/DMakefile src/dmail src/dmail/TODO
# src/dmail/dmkhelp.c src/dmail/execom.h src/getty
# src/getty/DMakefile src/getty/syms.c src/include src/include/log.h
# src/include/pwd.h src/include/sys src/include/sys/file.h
# src/include/sys/stat.h src/include/sys/time.h
# src/include/sys/types.h src/include/tmpfile.h src/lib
# src/lib/DMakefile src/lib/getenv.c src/lib/lsys.c src/lib/mntreq.c
# src/lib/seq.c src/lib/setstdin.c src/lib/sleep.c src/lib/string.c
# src/lib/syms.c src/lib/tmpfile.c src/lib/validuser.c src/sendmail
# src/sendmail/DMakefile src/uucico src/uucico/modem.h
# src/uucico/uuhosts.c src/uucico/uuname.c src/uucico/uupoll.c
# src/uuser src/uuser/DMakefile src/uuser/mountlist src/version.h
# Wrapped by tadguy@xanth on Sat Feb 3 20:50:54 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'NewsSetup.DOC' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'NewsSetup.DOC'\"
else
echo shar: Extracting \"'NewsSetup.DOC'\" \(755 characters\)
sed "s/^X//" >'NewsSetup.DOC' <<'END_OF_FILE'
X
X NEWSSETUP.DOC
X
X This is really only a note. Once you have the rest of UUCP
X working and get a news feed (by having another machine sent
X news to you), you should edit the file 'UULIB:Newsgroups'.
X This file contains a list of newsgroups you wish to receive,
X one per line.
X
X Any groups received that are not in this list will be written
X to the directory UUNEWS:Rejects ... you can clean out this
X directory with a crontab entry (see DCron manual page) that, say,
X deletes the directory once a day.
X
X The program 'ANews', part of William Loftus's 0.60 News
X distribution, can be used to read news. News is placed in
X separate directories in the UUNEWS: directory.
X
X As I said, really aweful documentation eh?
X
END_OF_FILE
if test 755 -ne `wc -c <'NewsSetup.DOC'`; then
echo shar: \"'NewsSetup.DOC'\" unpacked with wrong size!
fi
# end of 'NewsSetup.DOC'
fi
if test -f 'README.NOW' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README.NOW'\"
else
echo shar: Extracting \"'README.NOW'\" \(7968 characters\)
sed "s/^X//" >'README.NOW' <<'END_OF_FILE'
X
X README.NOW
X
X V1.03D
X The version number is 1.03D(0.40W/0.60W), or 1.03D for short.
X
X * After you glance at the rest of this document refer to the
X file "QuickSetup.DOC". Seasoned UUCP users may want to
X glance at QuickSetup.DOC but spend the majority of their
X time on SlowSetup.DOC
X
X * UUCP should be tested via QuickSetup.DOC by inexperienced
X UUCP users before attempting a real installation.
X
X * The first floppy is bootable (note: distributions on networks
X do not include commodore 1.3 system executables). The boot
X sequence sets up the appropriate directories and assigns and
X runs two programs (Getty and DCron) in the background before
X giving you a standard CLI prompt.
X
X The second floppy contains additional executables, manual pages,
X and the source code.
X
X ** Credits **
X
X P.S. I try not to imply favoritism and have attempted to put
X together exactly who did what in this release. When possible
X history is given... and, of course, I know what I have done
X much better than I know what other people have done so don't
X take the below list as a 'who did the most' list... everyone
X did a lot.
X
X
X VERSION
X
X This code is based on months of work on William P. Loftus's
X Amiga UUCP 0.40 release with news code from his 0.60 release.
X The version number is shown at the top of this file. x.xxD
X refers to versions originated by myself and have nothing to do with
X WPL's version numbering. The code is sufficiently different ..
X MAJORLY different that it is not possible to assign a sub version
X relative to WPLs version numbering.
X
X COPYRIGHTS
X
X This distribution is freely redistributable as long as all files and
X directory structures, except the 'system' directory which contains
X commodore-amiga executables, remain intact. Redistributions
X which include enhanced or additional modules while keeping the same
X basic structure are allowed but discouraged (I would much rather you
X sent the mods / additions to me and I will pass them on as is
X appropriate). Redistributions may charge fees at-cost (i.e. non-
X commercial and non-profit). These terms may change at any time
X and all holders of copyrights on code in the distribution may set
X their own terms independant of any terms set in this document for
X related executable modules and source in this distribution.
X
X Copyrights contained in the source effect the specific source files
X in question and the derived executable independant of other source
X files and derived executables. For example, the GNU copyright does
X not effect the 'sendmail' source and binaries which is entirely my
X own code.
X
X source containing the GNU copyright notice and derived executables are
X subject to the GNU Emacs General Public License. This license is
X available in the file man/GNU-LICENSE.
X
X Matthew Dillon
X 891 Regal Rd.
X Berkeley, Ca. 94708
X USA
X
X pacbell.PacBell.COM!sorinc!overload!dillon
X
X
X Code containing parts of the original GNU release will contain the
X following copyright:
X
X (C) Copyright 1987 by John Gilmore
X Copying and use of this program are controlled by the terms of the Free
X Software Foundation's GNU Emacs General Public License.
X
X Code modified or written from scratch by William Loftus will contain
X the following copyright:
X
X (C) Copyright 1988 by William Loftus. All Rights Reserved.
X
X Code modified or written from scratch by Matthew Dillon will contain
X the following copyright:
X
X (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X
X Code containing one more copyrights is interpreted as meaning the code
X is based on previous copyrights and modifications based on subsequent
X copyrights.
X
X Additional copyright messages may exist in source files and
X executables.
X
X I appologize for any mistakes I have made, please contact me with any
X corrections at pacbell.pacbell.com!sorinc!overload!dillon or
X
X Matthew Dillon
X 891 Regal Rd.
X Berkeley, Ca. 94708
X USA
X
X Questions pertaining to previous releases of UUCP and News060 which
X is in this release can be sent to:
X
X William Loftus uucp: wpl@burdvax.UUCP
X Unisys/Paoli Research Center arpa: wpl@prc.unisys.com
X PO Box 517 Phone: 215-648-7248 (work)
X Paoli, PA 19301-0517 215-354-0614 (home)
X
X
X
X The below represents originators and major contributors. Again,
X please correct me!
X
X - = so small it doesn't matter.
X ? = I don't know
X JG = John Gilmore
X WPL = William P. Loftus prc.Unisys.COM!wpl
X MD = Matthew Dillon pacbell.pacbell.com!sorinc!overload
X PHL = Phil Lindsay
X CAS = Carolyn Scheppner
X AFI = Andy Finkel
X CMM = Chuck McManis
X CNB = Craig Norborg
X
X
Xsrc/News060/rnews.c WPL
Xsrc/News060/Anews/anews.c WPL
Xsrc/News060/Anews/sendpacket.c PHL CAS AFI
Xsrc/News060/Anews/raw.c CMM
Xsrc/News060/Anews/mscan.c JG WPL
Xsrc/News060/Anews/DMakefile MD
Xsrc/News060/postnews.c WPL
Xsrc/News060/DMakefile MD
Xsrc/uuser/uuser.doc MD
Xsrc/uuser/misc.c PHL MD
Xsrc/uuser/DMakefile -
Xsrc/uuser/mountlist -
Xsrc/uuser/uuser.c MD
Xsrc/dmail/compat.c MD
Xsrc/dmail/DMakefile -
Xsrc/dmail/dmail.h MD
Xsrc/dmail/dmail.help MD
Xsrc/dmail/execom.h MD
Xsrc/dmail/commands.c MD
Xsrc/dmail/cond.c MD
Xsrc/dmail/dmkhelp.c MD
Xsrc/dmail/do_lists.c MD
Xsrc/dmail/execom.c MD
Xsrc/dmail/globals.c MD
Xsrc/dmail/help.c MD
Xsrc/dmail/load_mail.c MD
Xsrc/dmail/main.c MD
Xsrc/dmail/range.c MD
Xsrc/dmail/sendmail.c MD
Xsrc/dmail/set.c MD
Xsrc/dmail/sub.c MD
Xsrc/sendmail/DMakefile -
Xsrc/sendmail/sendmail.c MD
Xsrc/sendmail/parse.c MD
Xsrc/sendmail/domain.c MD
Xsrc/compress/compress.c ?
Xsrc/compress/tarsplit.c ?
Xsrc/compress/DMakefile -
Xsrc/compress/unshar.c CNB
Xsrc/compress/uudecode.c ?
Xsrc/compress/uuencode.c ?
Xsrc/GUtil/uident.c MD
Xsrc/GUtil/gnote.c MD
Xsrc/GUtil/uuserdump.c MD
Xsrc/GUtil/DMakefile -
Xsrc/MUtil/trimfile.c MD
Xsrc/MUtil/from.c ?
Xsrc/MUtil/man.c ?
Xsrc/MUtil/DMakefile -
Xsrc/MUtil/expandm.c MD
Xsrc/ReadMe MD
Xsrc/uucico/version.doc -
Xsrc/uucico/sysdep.c JG WPL MD
Xsrc/uucico/uucico.c JG WPL MD
Xsrc/uucico/DMakefile -
Xsrc/uucico/modem.h WPL
Xsrc/uucico/uuxqt.c WPL
Xsrc/uucico/uupoll.c WPL
Xsrc/uucico/uux.c WPL
Xsrc/uucico/gio.c MD
Xsrc/uucico/sysdep.h WPL
Xsrc/uucico/uuname.c WPL
Xsrc/uucico/includes.h JG WPL MD
Xsrc/uucico/uuhosts.c WPL
Xsrc/uucico/uucp.c WPL
Xsrc/uucico/uucp.h JG WPL
Xsrc/uucico/modem.c MD
Xsrc/include/log.h MD
Xsrc/include/tmpfile.h MD
Xsrc/include/config.h MD
Xsrc/include/pwd.h MD
Xsrc/include/sys/stat.h MD
Xsrc/include/sys/types.h MD
Xsrc/include/sys/file.h MD
Xsrc/include/sys/time.h MD
Xsrc/getty/getty.c MD
Xsrc/getty/syms.c MD
Xsrc/getty/passwd.c MD
Xsrc/getty/DMakefile -
Xsrc/lib/string.c MD
Xsrc/lib/getenv.c MD
Xsrc/lib/sleep.c MD
Xsrc/lib/security.c MD
Xsrc/lib/lsys.c MD
Xsrc/lib/mntreq.c MD
Xsrc/lib/log.c MD
Xsrc/lib/tmpfile.c MD
Xsrc/lib/seq.c MD
Xsrc/lib/config.c MD
Xsrc/lib/setstdin.c MD
Xsrc/lib/serialport.c MD
Xsrc/lib/DMakefile -
Xsrc/lib/getpwnam.c MD
Xsrc/lib/lockfile.c MD
Xsrc/lib/syms.c MD
Xsrc/lib/alias.c MD
Xsrc/lib/validuser.c MD
Xsrc/version.h
Xsrc/TODO
X
X VERSIONS
X
X1.02D
X stack warning in SlowSetup.DOC added (stack should be at least
X 8192). 'Stack 8192' added to sample startup sequence. RNews
X warning (RNews takes a huge amount of RAM currently) added.
X
X1.01D
X UUCP:LIB paths fixed to use UULIB:
X
X1.00D
X Initial Release 'D' series by Matthew Dillon, based on
X 0.40, 0.50 and 0.60WPL series by William Loftus.
X
X0.60WPL
X0.50WPL
X0.40WPL
X UUCP release series for the Amiga by William Loftus, sub
X version changes not listed in this file.
X
X
END_OF_FILE
if test 7968 -ne `wc -c <'README.NOW'`; then
echo shar: \"'README.NOW'\" unpacked with wrong size!
fi
# end of 'README.NOW'
fi
if test ! -d 'devs' ; then
echo shar: Creating directory \"'devs'\"
mkdir 'devs'
fi
if test -f 'devs/.DistFiles' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'devs/.DistFiles'\"
else
echo shar: Extracting \"'devs/.DistFiles'\" \(30 characters\)
sed "s/^X//" >'devs/.DistFiles' <<'END_OF_FILE'
X
Xroot:1.3/devs/serial.device
X
END_OF_FILE
if test 30 -ne `wc -c <'devs/.DistFiles'`; then
echo shar: \"'devs/.DistFiles'\" unpacked with wrong size!
fi
# end of 'devs/.DistFiles'
fi
if test -f 'devs/Mountlist' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'devs/Mountlist'\"
else
echo shar: Extracting \"'devs/Mountlist'\" \(185 characters\)
sed "s/^X//" >'devs/Mountlist' <<'END_OF_FILE'
X
XUUSER: Handler = l:uuser-handler
X Stacksize = 6000
X Priority = 5
X GlobVec = 1
X#
X
XNULL: Handler = l:null-handler
X Stacksize = 500
X Priority = 5
X GlobVec = 1
X#
X
END_OF_FILE
if test 185 -ne `wc -c <'devs/Mountlist'`; then
echo shar: \"'devs/Mountlist'\" unpacked with wrong size!
fi
# end of 'devs/Mountlist'
fi
if test ! -d 'lib' ; then
echo shar: Creating directory \"'lib'\"
mkdir 'lib'
fi
if test -f 'lib/.signature' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/.signature'\"
else
echo shar: Extracting \"'lib/.signature'\" \(167 characters\)
sed "s/^X//" >'lib/.signature' <<'END_OF_FILE'
X
X
X
X Somebody Or Other Path to get to you (always begin with a
X Your Address Maybe fully domain'd machine).
X
X Suggest you use only '!'s in your path.
X
END_OF_FILE
if test 167 -ne `wc -c <'lib/.signature'`; then
echo shar: \"'lib/.signature'\" unpacked with wrong size!
fi
# end of 'lib/.signature'
fi
if test -f 'lib/Config' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Config'\"
else
echo shar: Extracting \"'lib/Config'\" \(255 characters\)
sed "s/^X//" >'lib/Config' <<'END_OF_FILE'
XNodeName uucp
XUserName root
XRealName Foo The Bar
XDebug 0
XNewsFeed newsnode
XOrganization Not an Organization
XFilter DMe
XRFilter DMe
XMailEditor DMe
XDomainName .UUCP
XTimeZone PST
XDefaultNode overload.UUCP
X
END_OF_FILE
if test 255 -ne `wc -c <'lib/Config'`; then
echo shar: \"'lib/Config'\" unpacked with wrong size!
fi
# end of 'lib/Config'
fi
if test -f 'lib/Domain' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Domain'\"
else
echo shar: Extracting \"'lib/Domain'\" \(987 characters\)
sed "s/^X//" >'lib/Domain' <<'END_OF_FILE'
X
X# UULIB:Domain Domain data base for mailer
X#
X# Refer to MAN:Domains for information on how the domain file works
X# This file holds domain information for properly routing email when
X# you talk to several adjacent sites. When you can talk to just a
X# single site this file should contain a single master default to
X# that site.
X#
X# SAMPLE MULTI-SITE DOMAIN FILE, commented out. If your UUCP
X# site connects to only one other site you do not need a Domain
X# file, simply set the 'DefaultNode' entry in UULIB:Config to
X# that site.
X#
X# If you can talk UUCP to multiple other sites and wish to route
X# various domains to different sites you need to construct a Domain
X# file that looks something like that below. The first entry, '*',
X# serves as a default and you do not need a 'DefaultNode' entry
X# in UULIB:Config.
X#
X# Again, refer to the manual pages.
X#
X#* MF UU sorinc.UUCP
X#*.EDU MF UU fubar.UUCP!buggy.CTS.COM
X#*.COM MF UU chugly.UUCP
X
X
END_OF_FILE
if test 987 -ne `wc -c <'lib/Domain'`; then
echo shar: \"'lib/Domain'\" unpacked with wrong size!
fi
# end of 'lib/Domain'
fi
if test -f 'lib/Getty-header' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Getty-header'\"
else
echo shar: Extracting \"'lib/Getty-header'\" \(99 characters\)
sed "s/^X//" >'lib/Getty-header' <<'END_OF_FILE'
X
X This machine is currently a stupid UUCP node... the user hasn't
X followed the directions.
X
END_OF_FILE
if test 99 -ne `wc -c <'lib/Getty-header'`; then
echo shar: \"'lib/Getty-header'\" unpacked with wrong size!
fi
# end of 'lib/Getty-header'
fi
if test -f 'lib/L.Sys' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/L.Sys'\"
else
echo shar: Extracting \"'lib/L.Sys'\" \(497 characters\)
sed "s/^X//" >'lib/L.Sys' <<'END_OF_FILE'
X
X# Examples....
Xoverload Any SER: 2400 5255506 ogin: uucp sword: uupc
Xcae780 Any SER: 2400 5555678 ogin: Udillon sword: barbbb
Xspooge Any SER: 2400 5559012 ogin: uucp sword: catccc
Xsorinc Any SER: 2400 5553456 ogin: uover sword: dogddd
Xapple Any SER: 2400 1,408,5557890 "" \d\r\c ogin: ovrdrive word: egoeee
X
X# Examples for simple testing
Xuucp Any SER: 1200 5555555 ogin: uucp sword: uupc
Xtest1 Any SER: 1200 5555555 ogin: uucp sword: uupc
Xtest2 Any SER: 1200 5555555 ogin: uucp sword: uupc
X
END_OF_FILE
if test 497 -ne `wc -c <'lib/L.Sys'`; then
echo shar: \"'lib/L.Sys'\" unpacked with wrong size!
fi
# end of 'lib/L.Sys'
fi
if test -f 'lib/NewsGroups' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/NewsGroups'\"
else
echo shar: Extracting \"'lib/NewsGroups'\" \(71 characters\)
sed "s/^X//" >'lib/NewsGroups' <<'END_OF_FILE'
Xcomp.sys.amiga
Xcomp.sys.amiga.tech
Xnews.admin
Xrec.games.frp
Xnews.misc
X
END_OF_FILE
if test 71 -ne `wc -c <'lib/NewsGroups'`; then
echo shar: \"'lib/NewsGroups'\" unpacked with wrong size!
fi
# end of 'lib/NewsGroups'
fi
if test -f 'lib/Passwd' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Passwd'\"
else
echo shar: Extracting \"'lib/Passwd'\" \(600 characters\)
sed "s/^X//" >'lib/Passwd' <<'END_OF_FILE'
X
X# UUCP:LIB/PASSWD
X#
X# User,Password,Uid,GroupId,(Finger-Info),Home-Dir,Command-To-Run
X# name,
X# NOTE, if command-to-run is prefaced with a '*' Getty will open
X# the UUSER: device for stdin and stdout and a read-timeout of
X# 1 second.
X
Xinfo,*,100,0,(Info Login),ram:,*uuserdump UULIB:Info-Text
Xucae,aaa,200,0,(UUCP-CAE780),ram:,uucico
Xukorn,bbb,201,0,(UUCP-KORN),ram:,uucico
Xua500,ccc,202,0,(UUCP-A500),ram:,uucico
Xuapple,eee,204,0,(UUCP-UAPPLE),ram:,uucico
X
X# Dumb entry for testing (you may want to not have this in a real
X# system).
Xuucp,uupc,203,0,(UUCP-DUMB),ram:,uucico
X
END_OF_FILE
if test 600 -ne `wc -c <'lib/Passwd'`; then
echo shar: \"'lib/Passwd'\" unpacked with wrong size!
fi
# end of 'lib/Passwd'
fi
if test -f 'lib/Security' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Security'\"
else
echo shar: Extracting \"'lib/Security'\" \(369 characters\)
sed "s/^X//" >'lib/Security' <<'END_OF_FILE'
X
X# This file is used by UUCICO to determine the validity of requests.
X#
X# The directories listed here are *allowed* directories for uucp
X# transfers. The permissions field lists permissions
X# r -readable
X# w -writable
X#
X# DO NOT PUT UUSPOOL: IN THIS LIST
X
X
Xtmp: rw
Xuucp:c r
Xuucp:man r
XUUPUB: rw
Xdist: r
Xdist:uucp0 r
Xdist:uucp1 r
X
END_OF_FILE
if test 369 -ne `wc -c <'lib/Security'`; then
echo shar: \"'lib/Security'\" unpacked with wrong size!
fi
# end of 'lib/Security'
fi
if test -f 'lib/SeqNews' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/SeqNews'\"
else
echo shar: Extracting \"'lib/SeqNews'\" \(3 characters\)
sed "s/^X//" >'lib/SeqNews' <<'END_OF_FILE'
X38
END_OF_FILE
if test 3 -ne `wc -c <'lib/SeqNews'`; then
echo shar: \"'lib/SeqNews'\" unpacked with wrong size!
fi
# end of 'lib/SeqNews'
fi
if test -f 'lib/news.distribution' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/news.distribution'\"
else
echo shar: Extracting \"'lib/news.distribution'\" \(164 characters\)
sed "s/^X//" >'lib/news.distribution' <<'END_OF_FILE'
Xpa Pennsylvania
Xnj New Jersey
Xny New York
Xusa United States
Xna North America
Xworld Everywhere on Usenet in the world (same as net)
X
END_OF_FILE
if test 164 -ne `wc -c <'lib/news.distribution'`; then
echo shar: \"'lib/news.distribution'\" unpacked with wrong size!
fi
# end of 'lib/news.distribution'
fi
if test -f 'lib/seq' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/seq'\"
else
echo shar: Extracting \"'lib/seq'\" \(4 characters\)
sed "s/^X//" >'lib/seq' <<'END_OF_FILE'
X1996END_OF_FILE
if test 4 -ne `wc -c <'lib/seq'`; then
echo shar: \"'lib/seq'\" unpacked with wrong size!
fi
# end of 'lib/seq'
fi
if test ! -d 'man' ; then
echo shar: Creating directory \"'man'\"
mkdir 'man'
fi
if test -f 'man/.Distfiles' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/.Distfiles'\"
else
echo shar: Extracting \"'man/.Distfiles'\" \(22 characters\)
sed "s/^X//" >'man/.Distfiles' <<'END_OF_FILE'
X
Xsrc:dme/doc/dme.doc
X
END_OF_FILE
if test 22 -ne `wc -c <'man/.Distfiles'`; then
echo shar: \"'man/.Distfiles'\" unpacked with wrong size!
fi
# end of 'man/.Distfiles'
fi
if test -f 'man/Config' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/Config'\"
else
echo shar: Extracting \"'man/Config'\" \(62 characters\)
sed "s/^X//" >'man/Config' <<'END_OF_FILE'
X
X See 'Assigns' for information on the UULIB:Config file.
X
END_OF_FILE
if test 62 -ne `wc -c <'man/Config'`; then
echo shar: \"'man/Config'\" unpacked with wrong size!
fi
# end of 'man/Config'
fi
if test -f 'man/From' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/From'\"
else
echo shar: Extracting \"'man/From'\" \(380 characters\)
sed "s/^X//" >'man/From' <<'END_OF_FILE'
X
XNAME
X FROM - list all mail in the users mailbox
X
XSYNTAX
X From [user/file]
X
XDESCRIPTION
X the From program prints out the From: and Subject: fields of
X received mail. If no user/file is specified the UserName
X UULIB:Config entry is used.
X
X Multiple files may be specified.
X
X From attempts to pick out the real name of the sender from the
X From: field.
X
X
END_OF_FILE
if test 380 -ne `wc -c <'man/From'`; then
echo shar: \"'man/From'\" unpacked with wrong size!
fi
# end of 'man/From'
fi
if test -f 'man/MapExample' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/MapExample'\"
else
echo shar: Extracting \"'man/MapExample'\" \(749 characters\)
sed "s/^X//" >'man/MapExample' <<'END_OF_FILE'
XFrom: cbmvax!njin.rutgers.edu!dpz (David P. Zimmerman)
XSubject: ACK for heimat UUCP map
XTo: heimat!sneakers
XDate: Sun, 17 Jul 88 23:37:50 EDT
X
XYour "heimat" UUCP map has been entered into the UUCP map database.
XHowever, I had to clean it up a bit. Here is your revised entry.
X
X service with a :-),
X
X David P. Zimmerman
X PA Regional Coordinator
X The UUCP Mapping Project
X
X#N heimat
X#S Commodore-AMIGA; Amiga-DOS V1.3 & Amiga-UUCP V0.30
X#O Sneakers Computing
X#C Dan Schein
X#E heimat!sneakers
X#T +1 215 678 7691
X#P 2455 McKinley Ave, West Lawn, PA 19609
X#L
X#R This is a test site for the development of Amiga-UUCP & UseNet software.
X#U
X#W heimat!sneakers (Dan "Sneakers" Schein); Wed Jul 11 20:38:16 EST 1988
X#
Xheimat cbmvax(DEMAND)
X
X
X
END_OF_FILE
if test 749 -ne `wc -c <'man/MapExample'`; then
echo shar: \"'man/MapExample'\" unpacked with wrong size!
fi
# end of 'man/MapExample'
fi
if test -f 'man/NULL' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/NULL'\"
else
echo shar: Extracting \"'man/NULL'\" \(572 characters\)
sed "s/^X//" >'man/NULL' <<'END_OF_FILE'
X
XNAME
X NULL:
X
XSYNOPSIS
X Mount NULL:
X
XDESCRIPTION
X the NULL: device is a dos handler designed to allow programs
X such as DCron, DMe, etc... to run other programs in the
X background while still allowing the user to close the CLI
X window these programs were originally backgrounded on.
X
X NULL: Requires L:Handler and a proper mountlist entry:
X
XNULL: Handler = root:L/null-handler
X Stacksize = 1024
X Priority = 5
X GlobVec = 1
X#
X
X Getty also uses NULL:. You normally Mount NULL: in your
X startup-sequence.
X
X
XFILES/REQUIRES
X L:Null-Handler
X DEVS:Mountlist
X
XREFERENCES
X Getty
X
X
X
END_OF_FILE
if test 572 -ne `wc -c <'man/NULL'`; then
echo shar: \"'man/NULL'\" unpacked with wrong size!
fi
# end of 'man/NULL'
fi
if test -f 'man/PhoneBook' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/PhoneBook'\"
else
echo shar: Extracting \"'man/PhoneBook'\" \(320 characters\)
sed "s/^X//" >'man/PhoneBook' <<'END_OF_FILE'
X
X Matthew Dillon
X 891 Regal Rd.
X Berkeley, Ca. 94708
X
X uucp: pacbell.pacbell.com!sorinc!overload!dillon
X
X William Loftus uucp: wpl@burdvax.UUCP
X Unisys/Paoli Research Center arpa: wpl@prc.unisys.com
X PO Box 517 Phone: 215-648-7248 (work)
X Paoli, PA 19301-0517 215-354-0614 (home)
X
END_OF_FILE
if test 320 -ne `wc -c <'man/PhoneBook'`; then
echo shar: \"'man/PhoneBook'\" unpacked with wrong size!
fi
# end of 'man/PhoneBook'
fi
if test -f 'man/Rmail' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/Rmail'\"
else
echo shar: Extracting \"'man/Rmail'\" \(314 characters\)
sed "s/^X//" >'man/Rmail' <<'END_OF_FILE'
X
XNAME
X rmail - route mail to users on remote systems
X
XSYNTAX
X rmail user...
X
XDESCRIPTION
X The rmail command interprets incoming mail received via
X uucp, and passing the processed mail on to the required
X program(s)
X
X The rmail is explicitly designed for use with uucp and send-
X mail.
X
END_OF_FILE
if test 314 -ne `wc -c <'man/Rmail'`; then
echo shar: \"'man/Rmail'\" unpacked with wrong size!
fi
# end of 'man/Rmail'
fi
if test -f 'man/TrimFile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/TrimFile'\"
else
echo shar: Extracting \"'man/TrimFile'\" \(403 characters\)
sed "s/^X//" >'man/TrimFile' <<'END_OF_FILE'
X
XNAME
X TrimFile
X
XSYNOPSIS
X TrimFile file1 file2 ... fileN [-N]
X
XDESCRIPTION
X TRIMFILE trims the specified files to N lines each. If no
X -N argument is given the files are trimmed to 100 lines each.
X
X The last N lines of the file are kept. Each line may be up
X to 256 characters long.
X
X TRIMFILE currently allocates memory to hold the lines and so
X should not be used with large numeric arguments.
X
X
END_OF_FILE
if test 403 -ne `wc -c <'man/TrimFile'`; then
echo shar: \"'man/TrimFile'\" unpacked with wrong size!
fi
# end of 'man/TrimFile'
fi
if test -f 'man/expandm' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/expandm'\"
else
echo shar: Extracting \"'man/expandm'\" \(193 characters\)
sed "s/^X//" >'man/expandm' <<'END_OF_FILE'
X
XNAME
X Expandm
X
XSYNOPSIS
X Expandm alias1 alias2 ... aliasN
X
XDESCRIPTION
X This program expands the specified aliases and displays
X the results.
X
XFILES
X UULIB:Aliases
X
XREFERENCES
X MAN:Aliases
X
X
X
END_OF_FILE
if test 193 -ne `wc -c <'man/expandm'`; then
echo shar: \"'man/expandm'\" unpacked with wrong size!
fi
# end of 'man/expandm'
fi
if test ! -d 's' ; then
echo shar: Creating directory \"'s'\"
mkdir 's'
fi
if test -f 's/.DistFiles' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'s/.DistFiles'\"
else
echo shar: Extracting \"'s/.DistFiles'\" \(9 characters\)
sed "s/^X//" >'s/.DistFiles' <<'END_OF_FILE'
X
Xs:.edrc
END_OF_FILE
if test 9 -ne `wc -c <'s/.DistFiles'`; then
echo shar: \"'s/.DistFiles'\" unpacked with wrong size!
fi
# end of 's/.DistFiles'
fi
if test -f 's/crontab' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'s/crontab'\"
else
echo shar: Extracting \"'s/crontab'\" \(471 characters\)
sed "s/^X//" >'s/crontab' <<'END_OF_FILE'
X
X# S:CRONTAB
X#
X#min hr day mon dow command
X
X# adjust time every 24 hours.. keep us in line
X#0 0 * * * dhb:altc/mousetime
X
X# Disable modem speaker while I'm asleep
X
X0 23 * * * getty -m0
X0 11 * * * getty -m1
X
X# run UUCP nightly to various sites.
X#
X#0 3 * * * uucp:c/uucico -scae780
X#0 6 * * * uucp:c/uucico -ssorinc
X
X# trim log files at 8a.m. so they do not get too big.
X0 8 * * * uucp:c/trimfile uuspool:logfile getty:logfile tmp:dcron.log -100
X
X
END_OF_FILE
if test 471 -ne `wc -c <'s/crontab'`; then
echo shar: \"'s/crontab'\" unpacked with wrong size!
fi
# end of 's/crontab'
fi
if test -f 's/startup-sequence' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'s/startup-sequence'\"
else
echo shar: Extracting \"'s/startup-sequence'\" \(872 characters\)
sed "s/^X//" >'s/startup-sequence' <<'END_OF_FILE'
X
X; Standalone Startup Sequence for UUCP
X;
X; no-frills startup-sequence.
X
Xsystem/Assign c: system
Xsystem/path reset c
Xresident c:Assign
Xresident c:Wait
X
X; Need 8192 for all UUCP programs
Xstack 8192
XAddbuffers df0: 10
X
XAssign UUCP: :
XAssign t: ram:
X
X; NORMALLY YOU DO NOT ASSIGN SPOOL, MAIL, AND NEWS TO VOLTILE STORAGE!
X; THIS IS A SAMPLE STARTUP
X;
X; TMP: is used by DCron
X
XAssign TMP: ram:
XAssign ENV: ram:
XAssign UUSPOOL: ram:
XAssign UULIB: UUCP:Lib
XAssign UUMAIL: ram:
XAssign UUNEWS: ram:
X; UUPUB*: normally not temporary storage either.
XAssign UUPUB: ram:
XAssign UUPUBW: UUCP:Pub
XAssign Getty: UUCP:Lib
X
X; Note, contains only dmail.help on the first distribution floppy
X; required for online help
XAssign Man: UUCP:man
X
Xmount null:
Xmount uuser:
X
Xrun <nil: >nil: Getty -B1200 -Mh -7
Xwait 4
Xrun <nil: >nil: dcron T:dcron.log
X
END_OF_FILE
if test 872 -ne `wc -c <'s/startup-sequence'`; then
echo shar: \"'s/startup-sequence'\" unpacked with wrong size!
fi
# end of 's/startup-sequence'
fi
if test ! -d 'src' ; then
echo shar: Creating directory \"'src'\"
mkdir 'src'
fi
if test -f 'src/.Distfiles' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/.Distfiles'\"
else
echo shar: Extracting \"'src/.Distfiles'\" \(9 characters\)
sed "s/^X//" >'src/.Distfiles' <<'END_OF_FILE'
Xsrc:dbbs
END_OF_FILE
if test 9 -ne `wc -c <'src/.Distfiles'`; then
echo shar: \"'src/.Distfiles'\" unpacked with wrong size!
fi
# end of 'src/.Distfiles'
fi
if test ! -d 'src/GUtil' ; then
echo shar: Creating directory \"'src/GUtil'\"
mkdir 'src/GUtil'
fi
if test -f 'src/GUtil/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/GUtil/DMakefile'\"
else
echo shar: Extracting \"'src/GUtil/DMakefile'\" \(676 characters\)
sed "s/^X//" >'src/GUtil/DMakefile' <<'END_OF_FILE'
X
X# DMakefile
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= uuserdump.c uident.c gnote.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cq -v
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)uuserdump $(EXE)uident $(EXE)gnote
X
X$(EXE)uuserdump: $(OD)uuserdump.o
X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
X
X$(EXE)uident: $(OD)uident.o
X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
X
X$(EXE)gnote: $(OD)gnote.o
X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 676 -ne `wc -c <'src/GUtil/DMakefile'`; then
echo shar: \"'src/GUtil/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/GUtil/DMakefile'
fi
if test -f 'src/GUtil/uident.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/GUtil/uident.c'\"
else
echo shar: Extracting \"'src/GUtil/uident.c'\" \(925 characters\)
sed "s/^X//" >'src/GUtil/uident.c' <<'END_OF_FILE'
X
X/*
X * UIDENT.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * UIDENT files...
X *
X * Searches for @($) <string> \0 and prints out
X */
X
X#include <stdio.h>
X#include <fcntl.h>
X#include "/version.h"
X
XIDENT(".01");
X
Xvoid FindIdent();
X
Xchar Buf[8192];
X
Xvoid
Xmain(ac, av)
Xchar **av;
X{
X short i;
X int fd;
X
X for (i = 1; i < ac; ++i) {
X printf("%-15s ", av[i]);
X fd = open(av[i], O_RDONLY);
X if (fd > 0)
X FindIdent(fd);
X else
X printf("(unable to open)");
X puts("");
X fflush(stdout);
X if (fd > 0)
X close(fd);
X }
X}
X
Xvoid
XFindIdent(fd)
Xint fd;
X{
X long n;
X long i;
X long x = 0;
X
X while ((n = read(fd, Buf + x, sizeof(Buf) - x)) > 0) {
X n += x;
X for (i = n - 128; i >= 0; --i) {
X if (Buf[i] == '@' && Buf[i+1] == '(' && Buf[i+2] == '$' && Buf[i+3] == ')') {
X printf("%s", Buf + i);
X }
X }
X x = 128;
X if (n < x)
X x = n;
X movmem(Buf + n - x, Buf, x);
X }
X}
X
END_OF_FILE
if test 925 -ne `wc -c <'src/GUtil/uident.c'`; then
echo shar: \"'src/GUtil/uident.c'\" unpacked with wrong size!
fi
# end of 'src/GUtil/uident.c'
fi
if test ! -d 'src/MUtil' ; then
echo shar: Creating directory \"'src/MUtil'\"
mkdir 'src/MUtil'
fi
if test -f 'src/MUtil/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/MUtil/DMakefile'\"
else
echo shar: Extracting \"'src/MUtil/DMakefile'\" \(579 characters\)
sed "s/^X//" >'src/MUtil/DMakefile' <<'END_OF_FILE'
X
XOD=ltmp:uucp/
XSRCS= from.c man.c expandm.c trimfile.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XSYMS= uucp:src/lib/all.m
XCFLAGS= -iuucp:src/include/ -cq -v
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
XBLINK= blink from lib:cres.o %(right) TO %(left) SC SD LIB $(LIBS)
X
Xall: $(EXE)expand $(EXE)from $(EXE)man $(EXE)expandm $(EXE)trimfile
X
X$(EXE)trimfile: $(OD)trimfile.o
X $(BLINK)
X
X$(EXE)expandm: $(OD)expandm.o
X $(BLINK)
X
X$(EXE)from: $(OD)from.o
X $(BLINK)
X
X$(EXE)man: $(OD)man.o
X $(BLINK)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 579 -ne `wc -c <'src/MUtil/DMakefile'`; then
echo shar: \"'src/MUtil/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/MUtil/DMakefile'
fi
if test -f 'src/MUtil/expandm.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/MUtil/expandm.c'\"
else
echo shar: Extracting \"'src/MUtil/expandm.c'\" \(432 characters\)
sed "s/^X//" >'src/MUtil/expandm.c' <<'END_OF_FILE'
X
X/*
X * EXPANDM.C expands alias via uulib:Aliases and prints
X * results
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * EXPANDM alias
X */
X
Xmain(ac, av)
Xchar *av[];
X{
X short i;
X void callBack();
X
X LoadAliases();
X for (i = 1; i < ac; ++i) {
X printf("%s:", av[i]);
X UserAliasList(av[i], callBack);
X }
X puts("");
X}
X
Xvoid
XcallBack(name)
Xchar *name;
X{
X printf(" %s", name);
X}
X
END_OF_FILE
if test 432 -ne `wc -c <'src/MUtil/expandm.c'`; then
echo shar: \"'src/MUtil/expandm.c'\" unpacked with wrong size!
fi
# end of 'src/MUtil/expandm.c'
fi
if test ! -d 'src/News060' ; then
echo shar: Creating directory \"'src/News060'\"
mkdir 'src/News060'
fi
if test ! -d 'src/News060/Anews' ; then
echo shar: Creating directory \"'src/News060/Anews'\"
mkdir 'src/News060/Anews'
fi
if test -f 'src/News060/Anews/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/News060/Anews/DMakefile'\"
else
echo shar: Extracting \"'src/News060/Anews/DMakefile'\" \(477 characters\)
sed "s/^X//" >'src/News060/Anews/DMakefile' <<'END_OF_FILE'
X
X# DMakefile for news
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X
XOD=ltmp:uucp/anews/
XSRCS= anews.c mscan.c raw.c sendpacket.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XSYMS= uucp:src/lib/all.m
XCFLAGS= -iuucp:src/include/ -cq -v -b0
XEXE= uucp:c/anews
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)
X
X$(EXE) : $(OBJS)
X blink from lib:c.o %(right) to %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
X
X
END_OF_FILE
if test 477 -ne `wc -c <'src/News060/Anews/DMakefile'`; then
echo shar: \"'src/News060/Anews/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/News060/Anews/DMakefile'
fi
if test -f 'src/News060/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/News060/DMakefile'\"
else
echo shar: Extracting \"'src/News060/DMakefile'\" \(567 characters\)
sed "s/^X//" >'src/News060/DMakefile' <<'END_OF_FILE'
X
X# DMakefile for news
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X
XOD=ltmp:uucp/
XSRCS= rnews.c PostNews.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XSYMS= uucp:src/lib/all.m
XCFLAGS= -iuucp:src/include/ -cq -v -b0
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)rnews $(EXE)PostNews
X
X$(EXE)rnews: $(OD)rnews.o
X blink from lib:c.o %(right) to %(left) lib $(LIBS)
X
X$(EXE)PostNews: $(OD)PostNews.o
X blink from lib:c.o %(right) to %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 567 -ne `wc -c <'src/News060/DMakefile'`; then
echo shar: \"'src/News060/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/News060/DMakefile'
fi
if test -f 'src/ReadMe' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/ReadMe'\"
else
echo shar: Extracting \"'src/ReadMe'\" \(811 characters\)
sed "s/^X//" >'src/ReadMe' <<'END_OF_FILE'
X
X To compile:
X
X * You must have Lattice C 5.02 or greater (you might have to get rid
X of the -cq option if you have <5.03.99)
X
X * Should compile under the new Manx C by fixing up the DMakefiles
X but I haven't had time to try yet.
X
X * The dmake executable is required (should be in UUCP:C)
X
X * Object directories: (I normally put these on a different
X partition on my HD). Holds .O files and symbol table.
X
X Assign LTMP: <some-place-to-hold-objs>
X
X MakeDir LTMP:uucp
X MakeDir LTMP:uucp/lib
X MakeDir LTMP:uucp/anews
X MakeDir LTMP:dmail
X
X * Make the link library and symbol table
X
X 1> cd lib
X 1> dmake
X
X * Make the remaining executables by CDing into the appropriate
X source directory and typing 'dmake'. Executables will be
X placed in uucp:c
X
END_OF_FILE
if test 811 -ne `wc -c <'src/ReadMe'`; then
echo shar: \"'src/ReadMe'\" unpacked with wrong size!
fi
# end of 'src/ReadMe'
fi
if test -f 'src/TODO' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/TODO'\"
else
echo shar: Extracting \"'src/TODO'\" \(559 characters\)
sed "s/^X//" >'src/TODO' <<'END_OF_FILE'
X
X sendmail: sort the To: list and remove duplicates due to aliases
X sendmail: return erronous email to sender... Mailer-Daemon
X sendmail: too-many-hops
X sendmail: mail for this node... i.e. user says 'name@thisnode'
X instead of just 'name'.. currently generates X.
X files but sendmail does not (should not!) run uuxqt!
X
X aliases: rnews via alias mail based news
X aliases: postnews via alias mail based news
X
X aliases: it is possible to get into a stack loop when
X using the <file feature in the Aliases file.
X
END_OF_FILE
if test 559 -ne `wc -c <'src/TODO'`; then
echo shar: \"'src/TODO'\" unpacked with wrong size!
fi
# end of 'src/TODO'
fi
if test ! -d 'src/compress' ; then
echo shar: Creating directory \"'src/compress'\"
mkdir 'src/compress'
fi
if test -f 'src/compress/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/compress/DMakefile'\"
else
echo shar: Extracting \"'src/compress/DMakefile'\" \(938 characters\)
sed "s/^X//" >'src/compress/DMakefile' <<'END_OF_FILE'
X
XOD=ltmp:uucp/
XSRCS= compress.c tarsplit.c unshar.c uudecode.c uuencode.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XSYMS= uucp:src/lib/all.m
XCFLAGS= -iuucp:src/include/ -cq -v
XCFLAGS_LD= $(CFLAGS) -b0
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
XBLINK= blink from lib:cres.o %(right) TO %(left) SC SD LIB $(LIBS)
XBLINK_LD= blink from lib:c.o %(right) TO %(left) SC LIB $(LIBS)
X
Xall: $(EXE)compress $(EXE)tarsplit $(EXE)unshar \
X $(EXE)uudecode $(EXE)uuencode
X
X$(EXE)compress : $(OD)14compress.o
X $(BLINK_LD)
X
X$(EXE)tarsplit : $(OD)tarsplit.o
X $(BLINK)
X
X$(EXE)unshar : $(OD)unshar.o
X $(BLINK)
X
X$(EXE)uudecode : $(OD)uudecode.o
X $(BLINK)
X
X$(EXE)uuencode : $(OD)uuencode.o
X $(BLINK)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
X$(OD)14compress.o : compress.c
X lc $(CFLAGS_LD) -H$(SYMS) -o%(left) %(right)
X
X$(OD)16compress.o : compress.c
X lc $(CFLAGS_LD) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 938 -ne `wc -c <'src/compress/DMakefile'`; then
echo shar: \"'src/compress/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/compress/DMakefile'
fi
if test ! -d 'src/dmail' ; then
echo shar: Creating directory \"'src/dmail'\"
mkdir 'src/dmail'
fi
if test -f 'src/dmail/TODO' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/dmail/TODO'\"
else
echo shar: Extracting \"'src/dmail/TODO'\" \(329 characters\)
sed "s/^X//" >'src/dmail/TODO' <<'END_OF_FILE'
X
XLIST tabs....
Xother junk, fix bugs (malloc stuff)
X
X-multiple dimension arrayed variables, add ability to do a natural join
X coupled to a command.
X
X-Automatically remove fields on forward, mail, and reply.
X
XResend support:
X New To: on top.
X New Cc: .... etc etc etc
X prepend Resent- to Date, From, Message-Id, *To, *Cc
X
X
END_OF_FILE
if test 329 -ne `wc -c <'src/dmail/TODO'`; then
echo shar: \"'src/dmail/TODO'\" unpacked with wrong size!
fi
# end of 'src/dmail/TODO'
fi
if test -f 'src/dmail/dmkhelp.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/dmail/dmkhelp.c'\"
else
echo shar: Extracting \"'src/dmail/dmkhelp.c'\" \(958 characters\)
sed "s/^X//" >'src/dmail/dmkhelp.c' <<'END_OF_FILE'
X
X/*
X * DMKHELP.C
X *
X * (C) Copyright 1985-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Standalone C source.
X *
X * Takes the file DMAIL.HELP (or that specified), and puts quotes and
X * commas around each line, the output to stdout. Used by Makefile to
X * place the help file on line (by making it a static array). See the
X * Makefile.
X *
X */
X
X#include <stdio.h>
X
X#define HELPC "dmail.help"
X
Xstatic char buf[1024];
X
Xmain(argc, argv)
Xchar *argv[];
X{
X FILE *fi;
X char *ptr;
X int len;
X register int i;
X
X if (argc == 1)
X fi = fopen (HELPC, "r");
X else
X fi = fopen (argv[1], "r");
X if (fi == NULL) {
X puts ("CANNOT OPEN");
X exit (1);
X }
X while (fgets (buf, 1024, fi)) {
X len = strlen(buf) - 1;
X buf[len] = '\0';
X putchar ('\"');
X for (i = 0; i < len; ++i) {
X if (buf[i] == '\"') {
X putchar ('\\');
X putchar ('\"');
X } else {
X putchar (buf[i]);
X }
X }
X puts ("\",");
X }
X puts ("NULL");
X fclose (fi);
X}
X
X
END_OF_FILE
if test 958 -ne `wc -c <'src/dmail/dmkhelp.c'`; then
echo shar: \"'src/dmail/dmkhelp.c'\" unpacked with wrong size!
fi
# end of 'src/dmail/dmkhelp.c'
fi
if test -f 'src/dmail/execom.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/dmail/execom.h'\"
else
echo shar: Extracting \"'src/dmail/execom.h'\" \(358 characters\)
sed "s/^X//" >'src/dmail/execom.h' <<'END_OF_FILE'
X
X/*
X * EXECOM.H
X *
X * (C) Copyright 1985-1990 by Matthew Dillon, All Rights Reserved.
X */
X
Xstruct COMMAND {
X int (*func)();
X int stat;
X int val;
X char *name;
X};
X
Xextern struct COMMAND Command[];
Xextern char *Desc[];
X
X#define C_NO 0x01 /* Not implimented yet */
X#define C_COND 0x02 /* Is conditional, execute despite if */
X
X
END_OF_FILE
if test 358 -ne `wc -c <'src/dmail/execom.h'`; then
echo shar: \"'src/dmail/execom.h'\" unpacked with wrong size!
fi
# end of 'src/dmail/execom.h'
fi
if test ! -d 'src/getty' ; then
echo shar: Creating directory \"'src/getty'\"
mkdir 'src/getty'
fi
if test -f 'src/getty/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/getty/DMakefile'\"
else
echo shar: Extracting \"'src/getty/DMakefile'\" \(369 characters\)
sed "s/^X//" >'src/getty/DMakefile' <<'END_OF_FILE'
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= getty.c passwd.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cim -cq
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)getty
X
X$(EXE)getty: $(OBJS)
X blink from lib:cres.o $(OBJS) SC SD TO %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 369 -ne `wc -c <'src/getty/DMakefile'`; then
echo shar: \"'src/getty/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/getty/DMakefile'
fi
if test -f 'src/getty/syms.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/getty/syms.c'\"
else
echo shar: Extracting \"'src/getty/syms.c'\" \(195 characters\)
sed "s/^X//" >'src/getty/syms.c' <<'END_OF_FILE'
X
X/*
X * SYMS.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * almost-dummy file for precomp symbol table gen.
X */
X
X#include <exec/types.h>
X#include <proto/all.h>
X
END_OF_FILE
if test 195 -ne `wc -c <'src/getty/syms.c'`; then
echo shar: \"'src/getty/syms.c'\" unpacked with wrong size!
fi
# end of 'src/getty/syms.c'
fi
if test ! -d 'src/include' ; then
echo shar: Creating directory \"'src/include'\"
mkdir 'src/include'
fi
if test -f 'src/include/log.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/log.h'\"
else
echo shar: Extracting \"'src/include/log.h'\" \(330 characters\)
sed "s/^X//" >'src/include/log.h' <<'END_OF_FILE'
X
X/*
X * LOG.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
Xextern int LogToStdout;
Xextern int LogLevel;
Xextern char *LogProgram;
Xextern char *LogHost;
Xextern char *LogWho;
Xextern char *LogFile;
X
X#define DEBUG(level, msg, moremsg) if (LogLevel > level) printf(msg, moremsg)
X
END_OF_FILE
if test 330 -ne `wc -c <'src/include/log.h'`; then
echo shar: \"'src/include/log.h'\" unpacked with wrong size!
fi
# end of 'src/include/log.h'
fi
if test -f 'src/include/pwd.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/pwd.h'\"
else
echo shar: Extracting \"'src/include/pwd.h'\" \(540 characters\)
sed "s/^X//" >'src/include/pwd.h' <<'END_OF_FILE'
X
X/*
X * PWD.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
Xstruct passwd {
X char *pw_name;
X char *pw_passwd;
X long pw_uid;
X long pw_gid;
X long pw_quota;
X char *pw_comment;
X char *pw_gecos;
X char *pw_dir;
X char *pw_shell;
X char *pw_shell_arg0; /* arg0 broken out from pw_shell */
X char *pw_shell_argn; /* remaining args from pw_shell */
X};
X
Xextern struct passwd *getpwuid();
Xextern struct passwd *getpwnam();
X
Xextern char *PasswdFile;
X
END_OF_FILE
if test 540 -ne `wc -c <'src/include/pwd.h'`; then
echo shar: \"'src/include/pwd.h'\" unpacked with wrong size!
fi
# end of 'src/include/pwd.h'
fi
if test ! -d 'src/include/sys' ; then
echo shar: Creating directory \"'src/include/sys'\"
mkdir 'src/include/sys'
fi
if test -f 'src/include/sys/file.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/sys/file.h'\"
else
echo shar: Extracting \"'src/include/sys/file.h'\" \(136 characters\)
sed "s/^X//" >'src/include/sys/file.h' <<'END_OF_FILE'
X
X/*
X * FILE.H
X *
X * UNIX compat.
X */
X
X#include <fcntl.h>
X
X#define LOCK_EX 0x01
X#define LOCK_UN 0x02
X#define LOCK_NB 0x04
X
END_OF_FILE
if test 136 -ne `wc -c <'src/include/sys/file.h'`; then
echo shar: \"'src/include/sys/file.h'\" unpacked with wrong size!
fi
# end of 'src/include/sys/file.h'
fi
if test -f 'src/include/sys/stat.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/sys/stat.h'\"
else
echo shar: Extracting \"'src/include/sys/stat.h'\" \(239 characters\)
sed "s/^X//" >'src/include/sys/stat.h' <<'END_OF_FILE'
X
X/*
X * STAT.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Expand as applicable for library routines in uucp:src/lib
X */
X
Xstruct stat {
X long st_ino;
X long st_mtime;
X long st_ctime;
X};
X
END_OF_FILE
if test 239 -ne `wc -c <'src/include/sys/stat.h'`; then
echo shar: \"'src/include/sys/stat.h'\" unpacked with wrong size!
fi
# end of 'src/include/sys/stat.h'
fi
if test -f 'src/include/sys/time.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/sys/time.h'\"
else
echo shar: Extracting \"'src/include/sys/time.h'\" \(107 characters\)
sed "s/^X//" >'src/include/sys/time.h' <<'END_OF_FILE'
X
X/*
X * SYS/TIME.H
X *
X * UNIX Compat
X */
X
X#ifndef SYS_TIME_H
X#define SYS_TIME_H
X#include <time.h>
X#endif
X
END_OF_FILE
if test 107 -ne `wc -c <'src/include/sys/time.h'`; then
echo shar: \"'src/include/sys/time.h'\" unpacked with wrong size!
fi
# end of 'src/include/sys/time.h'
fi
if test -f 'src/include/sys/types.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/sys/types.h'\"
else
echo shar: Extracting \"'src/include/sys/types.h'\" \(125 characters\)
sed "s/^X//" >'src/include/sys/types.h' <<'END_OF_FILE'
X
X/*
X * SYS/TYPES.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * UNIX compatibility?
X */
X
X
END_OF_FILE
if test 125 -ne `wc -c <'src/include/sys/types.h'`; then
echo shar: \"'src/include/sys/types.h'\" unpacked with wrong size!
fi
# end of 'src/include/sys/types.h'
fi
if test -f 'src/include/tmpfile.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/include/tmpfile.h'\"
else
echo shar: Extracting \"'src/include/tmpfile.h'\" \(126 characters\)
sed "s/^X//" >'src/include/tmpfile.h' <<'END_OF_FILE'
X
X/*
X * TMPFILE.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
Xchar *TmpFileName(char *);
X
END_OF_FILE
if test 126 -ne `wc -c <'src/include/tmpfile.h'`; then
echo shar: \"'src/include/tmpfile.h'\" unpacked with wrong size!
fi
# end of 'src/include/tmpfile.h'
fi
if test ! -d 'src/lib' ; then
echo shar: Creating directory \"'src/lib'\"
mkdir 'src/lib'
fi
if test -f 'src/lib/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/DMakefile'\"
else
echo shar: Extracting \"'src/lib/DMakefile'\" \(615 characters\)
sed "s/^X//" >'src/lib/DMakefile' <<'END_OF_FILE'
X
X# DMakefile For Lattice V5.02
X#
X
XOD = ltmp:uucp/lib/
XEXE = uucp.lib
XSYMS = all.m
X
XSRCS = getpwnam.c serialport.c setstdin.c sleep.c validuser.c lsys.c \
X mntreq.c security.c log.c lockfile.c tmpfile.c seq.c getenv.c \
X config.c alias.c string.c
X
XOBJS = $(SRCS:"*.c":"$(OD)*.o")
X
XCFLAGS= -iuucp:src/include/ -cq
X
X$(EXE) : $(SYMS) $(OBJS)
X list LFORMAT $(OD)%s TO $(OD)list.lst $(OD)#?.o
X oml %(left) r @$(OD)list.lst
X filenote %(left) NODIST
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
X$(SYMS) : syms.c
X lc $(CFLAGS) -ph -o$(SYMS) syms.c
X filenote %(left) NODIST
X
END_OF_FILE
if test 615 -ne `wc -c <'src/lib/DMakefile'`; then
echo shar: \"'src/lib/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/lib/DMakefile'
fi
if test -f 'src/lib/getenv.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/getenv.c'\"
else
echo shar: Extracting \"'src/lib/getenv.c'\" \(834 characters\)
sed "s/^X//" >'src/lib/getenv.c' <<'END_OF_FILE'
X
X/*
X * GETENV.C
X *
X * Lattice's screws up.
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include <proto/all.h>
X#include <stdio.h>
X#include <stdlib.h>
X
Xchar *
Xgettmpenv(id)
Xchar *id;
X{
X static char *buf;
X static char *res = NULL;
X long fh;
X long len;
X
X buf = malloc(strlen(id) + 8);
X sprintf(buf, "ENV:%s", id);
X fh = Open(buf, 1005);
X free(buf);
X if (fh) {
X Seek(fh, 0L, 1);
X len = Seek(fh, 0L, -1);
X if (len < 0) {
X Close(fh);
X return(NULL);
X }
X if (res)
X free(res);
X res = malloc(len + 1);
X Read(fh, res, len);
X Close(fh);
X res[len] = 0;
X return(res);
X }
X return(NULL);
X}
X
Xchar *
Xgetenv(id)
Xchar *id;
X{
X char *res = gettmpenv(id);
X char *perm = NULL;
X
X if (res) {
X perm = malloc(strlen(res) + 1);
X strcpy(perm, res);
X }
X return(perm);
X}
X
END_OF_FILE
if test 834 -ne `wc -c <'src/lib/getenv.c'`; then
echo shar: \"'src/lib/getenv.c'\" unpacked with wrong size!
fi
# end of 'src/lib/getenv.c'
fi
if test -f 'src/lib/lsys.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/lsys.c'\"
else
echo shar: Extracting \"'src/lib/lsys.c'\" \(621 characters\)
sed "s/^X//" >'src/lib/lsys.c' <<'END_OF_FILE'
X
X/*
X * LSYS.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
X#include <stdio.h>
X
Xint
Xis_in_L_sys_file(system_name)
Xchar *system_name;
X{
X static char buf[256];
X static char system[128];
X FILE *fd;
X
X if (!(fd = fopen("UULIB:L.sys","r"))) {
X printf("Couldn't open UULIB:L.sys file\n");
X exit(1);
X }
X
X sprintf(system,"%s ", system_name);
X
X while (NULL != fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X if (strncmp(buf, system, strlen(system)) == 0) {
X fclose(fd);
X return TRUE;
X }
X }
X fclose(fd);
X return FALSE;
X}
X
X
END_OF_FILE
if test 621 -ne `wc -c <'src/lib/lsys.c'`; then
echo shar: \"'src/lib/lsys.c'\" unpacked with wrong size!
fi
# end of 'src/lib/lsys.c'
fi
if test -f 'src/lib/mntreq.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/mntreq.c'\"
else
echo shar: Extracting \"'src/lib/mntreq.c'\" \(519 characters\)
sed "s/^X//" >'src/lib/mntreq.c' <<'END_OF_FILE'
X
X/*
X * MNTREQ.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include <proto/all.h>
X
Xtypedef struct Process PROC;
X
Xvoid
Xmountrequest(bool)
Xint bool;
X{
X static APTR original_pr_WindowPtr = NULL;
X register PROC *proc;
X
X proc = (PROC *)FindTask(0);
X if (!bool && proc->pr_WindowPtr != (APTR)-1) {
X original_pr_WindowPtr = proc->pr_WindowPtr;
X proc->pr_WindowPtr = (APTR)-1;
X }
X if (bool && proc->pr_WindowPtr == (APTR)-1)
X proc->pr_WindowPtr = original_pr_WindowPtr;
X}
X
X
END_OF_FILE
if test 519 -ne `wc -c <'src/lib/mntreq.c'`; then
echo shar: \"'src/lib/mntreq.c'\" unpacked with wrong size!
fi
# end of 'src/lib/mntreq.c'
fi
if test -f 'src/lib/seq.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/seq.c'\"
else
echo shar: Extracting \"'src/lib/seq.c'\" \(643 characters\)
sed "s/^X//" >'src/lib/seq.c' <<'END_OF_FILE'
X
X/*
X * SEQ.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Returns a unique sequence number
X */
X
X#include <stdio.h>
X
XGetSequence(bump)
X{
X char *seqfile = "UULIB:seq";
X FILE *fp;
X int seq;
X char buf[32];
X
X LockFile(seqfile);
X fp = fopen("UULIB:seq","r");
X if (fp) {
X fgets(buf, 32, fp);
X seq = atoi(buf);
X fclose(fp);
X } else {
X perror("UULIB:seq");
X seq = -1;
X }
X
X if (seq > 0) {
X fp = fopen("UULIB:seq", "w");
X if (fp) {
X fprintf(fp,"%d", seq + bump);
X fclose(fp);
X } else {
X perror("UULIB:seq");
X seq = -1;
X }
X }
X UnLockFile(seqfile);
X return(seq);
X}
X
END_OF_FILE
if test 643 -ne `wc -c <'src/lib/seq.c'`; then
echo shar: \"'src/lib/seq.c'\" unpacked with wrong size!
fi
# end of 'src/lib/seq.c'
fi
if test -f 'src/lib/setstdin.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/setstdin.c'\"
else
echo shar: Extracting \"'src/lib/setstdin.c'\" \(815 characters\)
sed "s/^X//" >'src/lib/setstdin.c' <<'END_OF_FILE'
X
X/*
X * SETSTDIN.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Sets stdin, stdout, and stderr to UUSER: handler
X */
X
X#include <stdio.h>
X
XSetStdin(ac, av)
Xchar *av[];
X{
X short i;
X short getty = 0; /* from getty */
X char *device = "serial.device"; /* device name */
X long unit = 0; /* unit no. */
X char buf[64];
X FILE *f1, *f2, *f3;
X
X for (i = 1; i < ac; ++i) {
X char *ptr = av[i];
X if (*ptr != '-')
X continue;
X if (ptr[1] == 'D')
X device = av[++i];
X if (ptr[1] == 'U')
X unit = atoi(av[++i]);
X if (ptr[1] == 'G')
X getty = 1;
X }
X sprintf(buf, "UUSER:%s/%d/R1000G%d", device, unit, getty);
X f1 = freopen(buf, "r", stdin);
X f2 = freopen(buf, "w+", stdout);
X f3 = freopen(buf, "w+", stderr);
X return(f1 && f2 && f3);
X}
X
END_OF_FILE
if test 815 -ne `wc -c <'src/lib/setstdin.c'`; then
echo shar: \"'src/lib/setstdin.c'\" unpacked with wrong size!
fi
# end of 'src/lib/setstdin.c'
fi
if test -f 'src/lib/sleep.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/sleep.c'\"
else
echo shar: Extracting \"'src/lib/sleep.c'\" \(156 characters\)
sed "s/^X//" >'src/lib/sleep.c' <<'END_OF_FILE'
X
X/*
X * SLEEP.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
X#include <proto/all.h>
X
Xvoid
Xsleep(n)
X{
X Delay(50*n);
X}
X
END_OF_FILE
if test 156 -ne `wc -c <'src/lib/sleep.c'`; then
echo shar: \"'src/lib/sleep.c'\" unpacked with wrong size!
fi
# end of 'src/lib/sleep.c'
fi
if test -f 'src/lib/string.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/string.c'\"
else
echo shar: Extracting \"'src/lib/string.c'\" \(589 characters\)
sed "s/^X//" >'src/lib/string.c' <<'END_OF_FILE'
X
X/*
X * STRING.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
Xstrcmpi(s, d)
Xchar *s;
Xchar *d;
X{
X short c1, c2;
X for (;;) {
X c1 = *s++;
X c2 = *d++;
X
X if (c1 == 0 || c2 == 0)
X return(c1 || c2); /* 0= both are 0 */
X if (((c1 ^ c2) | 0x20) != 0x20)
X return(1);
X }
X return(0);
X}
X
Xstrncmpi(s, d, n)
Xchar *s;
Xchar *d;
Xshort n;
X{
X short c1, c2;
X while (n--) {
X c1 = *s++;
X c2 = *d++;
X
X if (c1 == 0 || c2 == 0)
X return(c1 || c2); /* 0= both are 0 */
X if (((c1 ^ c2) | 0x20) != 0x20)
X return(1);
X }
X return(0);
X}
X
END_OF_FILE
if test 589 -ne `wc -c <'src/lib/string.c'`; then
echo shar: \"'src/lib/string.c'\" unpacked with wrong size!
fi
# end of 'src/lib/string.c'
fi
if test -f 'src/lib/syms.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/syms.c'\"
else
echo shar: Extracting \"'src/lib/syms.c'\" \(49 characters\)
sed "s/^X//" >'src/lib/syms.c' <<'END_OF_FILE'
X
X#include <exec/types.h>
X#include <proto/all.h>
X
END_OF_FILE
if test 49 -ne `wc -c <'src/lib/syms.c'`; then
echo shar: \"'src/lib/syms.c'\" unpacked with wrong size!
fi
# end of 'src/lib/syms.c'
fi
if test -f 'src/lib/tmpfile.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/tmpfile.c'\"
else
echo shar: Extracting \"'src/lib/tmpfile.c'\" \(376 characters\)
sed "s/^X//" >'src/lib/tmpfile.c' <<'END_OF_FILE'
X
X/*
X * TMPFILE.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * create a temporary file
X *
X * template limited to 16 chars
X */
X
Xchar *
XTmpFileName(template)
Xchar *template;
X{
X static char Template[256];
X static unsigned short Idx;
X
X sprintf(Template, "%s-%08lx.TMP", template, (long)FindTask(NULL) + Idx++);
X return(Template);
X}
X
END_OF_FILE
if test 376 -ne `wc -c <'src/lib/tmpfile.c'`; then
echo shar: \"'src/lib/tmpfile.c'\" unpacked with wrong size!
fi
# end of 'src/lib/tmpfile.c'
fi
if test -f 'src/lib/validuser.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/lib/validuser.c'\"
else
echo shar: Extracting \"'src/lib/validuser.c'\" \(338 characters\)
sed "s/^X//" >'src/lib/validuser.c' <<'END_OF_FILE'
X
X/*
X * VALIDUSER.C
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
XValidUser(str)
Xchar *str;
X{
X if (*str == '|' || *str == '@')
X return(0);
X while (*str) {
X if (*str < 32 || *str > 126)
X return(0);
X if (*str == ':')
X return(0);
X if (*str == '/')
X return(0);
X ++str;
X }
X return(1);
X}
X
END_OF_FILE
if test 338 -ne `wc -c <'src/lib/validuser.c'`; then
echo shar: \"'src/lib/validuser.c'\" unpacked with wrong size!
fi
# end of 'src/lib/validuser.c'
fi
if test ! -d 'src/sendmail' ; then
echo shar: Creating directory \"'src/sendmail'\"
mkdir 'src/sendmail'
fi
if test -f 'src/sendmail/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/sendmail/DMakefile'\"
else
echo shar: Extracting \"'src/sendmail/DMakefile'\" \(496 characters\)
sed "s/^X//" >'src/sendmail/DMakefile' <<'END_OF_FILE'
X
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= sendmail.c parse.c domain.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cim -cq
XEXE= uucp:c/
XLIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)sendmail
X
X$(EXE)sendmail: $(OBJS)
X blink from lib:cres.o $(OBJS) SC SD TO %(left) lib $(LIBS)
X copy $(EXE)sendmail $(EXE)rmail
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 496 -ne `wc -c <'src/sendmail/DMakefile'`; then
echo shar: \"'src/sendmail/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/sendmail/DMakefile'
fi
if test ! -d 'src/uucico' ; then
echo shar: Creating directory \"'src/uucico'\"
mkdir 'src/uucico'
fi
if test -f 'src/uucico/modem.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uucico/modem.h'\"
else
echo shar: Extracting \"'src/uucico/modem.h'\" \(854 characters\)
sed "s/^X//" >'src/uucico/modem.h' <<'END_OF_FILE'
X/* modem.h
X
X This file defines all the routines that specific to the modem.
X
X Copyright 1988 by William Loftus. All rights reserved.
X
X*/
X
X/* When in SLAVE mode the this routine should poll the modem for
X a CONNECT message (at least on Hayes's) */
Xvoid openline();
X
X/* Machines may dial in at different baud rates that are reported by the
X modem. This routine uncovers what the baud rate incomming rate is
X and returns it as an int */
Xint get_baud();
X
X/* This routine is called when the UUCICO program starts up */
Xvoid modem_init();
X
X/* this routine takes a number as a parameter and sends the appropriate
X commands to the modem to dial that number */
Xint dial_nbr(char *);
X
X/* This routine is called at the end of a call. It should reset the modem
X to the appropriate state (i.e. ready to receive another call) */
Xvoid reset_modem();
X
END_OF_FILE
if test 854 -ne `wc -c <'src/uucico/modem.h'`; then
echo shar: \"'src/uucico/modem.h'\" unpacked with wrong size!
fi
# end of 'src/uucico/modem.h'
fi
if test -f 'src/uucico/uuhosts.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uucico/uuhosts.c'\"
else
echo shar: Extracting \"'src/uucico/uuhosts.c'\" \(672 characters\)
sed "s/^X//" >'src/uucico/uuhosts.c' <<'END_OF_FILE'
X/*
X UUHOSTS -- List all UUCP sites connected to our system
X
X Usage: UUHOSTS
X
X Copyright 1988 by William Loftus. All rights reserved.
X
X ARPA: wpl@prc.unisys.com
X UUCP: wpl@burdvax.UUCP
X USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
X
X*/
X
X#include "/version.h"
X#include <stdio.h>
X
XIDENT(".01");
X
Xvoid
Xmain()
X{
X char buf[256];
X FILE *fd;
X
X if (!(fd = fopen("UULIB:L.sys", "r"))) {
X printf("Couldn't open UULIB:L.sys file\n");
X exit(1);
X }
X
X while (fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
X printf("%s\n", buf);
X }
X fclose(fd);
X}
X
END_OF_FILE
if test 672 -ne `wc -c <'src/uucico/uuhosts.c'`; then
echo shar: \"'src/uucico/uuhosts.c'\" unpacked with wrong size!
fi
# end of 'src/uucico/uuhosts.c'
fi
if test -f 'src/uucico/uuname.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uucico/uuname.c'\"
else
echo shar: Extracting \"'src/uucico/uuname.c'\" \(675 characters\)
sed "s/^X//" >'src/uucico/uuname.c' <<'END_OF_FILE'
X
X/*
X UUHOSTS -- List all UUCP sites connected to our system
X
X Usage: UUHOSTS
X
X Copyright 1988 by William Loftus. All rights reserved.
X
X ARPA: wpl@prc.unisys.com
X UUCP: wpl@burdvax.UUCP
X USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
X
X*/
X
X#include <stdio.h>
X#include "/version.h"
X
XIDENT(".00");
X
Xvoid
Xmain()
X{
X char buf[256];
X FILE *fd;
X
X if (!(fd = fopen("UULIB:L.sys", "r"))) {
X printf("Couldn't open UULIB:L.sys file\n");
X exit(1);
X }
X
X while (fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
X printf("%s\n", buf);
X }
X
X fclose(fd);
X}
X
X
END_OF_FILE
if test 675 -ne `wc -c <'src/uucico/uuname.c'`; then
echo shar: \"'src/uucico/uuname.c'\" unpacked with wrong size!
fi
# end of 'src/uucico/uuname.c'
fi
if test -f 'src/uucico/uupoll.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uucico/uupoll.c'\"
else
echo shar: Extracting \"'src/uucico/uupoll.c'\" \(939 characters\)
sed "s/^X//" >'src/uucico/uupoll.c' <<'END_OF_FILE'
X/*
X UUPOLL -- call a UUCP connect site
X
X Usage: UUPOLL <system-name>
X
X Copyright 1988 by William Loftus. All rights reserved.
X
X ARPA: wpl@prc.unisys.com
X UUCP: wpl@burdvax.UUCP
X USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
X
X*/
X
X#include <stdio.h>
X#include "/version.h"
X
X#define LOCK_FILE "t:UUCP.LCK"
X
X#define TRUE 1
X#define FALSE 0
X
XIDENT(".02");
X
XCXBRK()
X{
X return(0);
X}
X
Xvoid
Xmain (argc, argv)
Xint argc;
Xchar ** argv;
X{
X static char buf[256];
X
X if (argc != 2) {
X printf("Usage: UUPOLL <system-name>\n");
X exit(1);
X }
X
X if (access(LOCK_FILE,0) != -1) {
X printf("UUCP is locked.\n");
X exit(0);
X }
X
X if (is_in_L_sys_file(argv[1])) {
X sprintf(buf, "run >nil: <nil: UUCICO -s%s\n", argv[1]);
X if (system(buf) == -1) {
X printf("Error spawning task to call system \"%s\"\n", argv[1]);
X }
X } else {
X printf("System \"%s\" not in UULIB:L.sys file.\n", argv[1]);
X }
X}
X
X
END_OF_FILE
if test 939 -ne `wc -c <'src/uucico/uupoll.c'`; then
echo shar: \"'src/uucico/uupoll.c'\" unpacked with wrong size!
fi
# end of 'src/uucico/uupoll.c'
fi
if test ! -d 'src/uuser' ; then
echo shar: Creating directory \"'src/uuser'\"
mkdir 'src/uuser'
fi
if test -f 'src/uuser/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uuser/DMakefile'\"
else
echo shar: Extracting \"'src/uuser/DMakefile'\" \(506 characters\)
sed "s/^X//" >'src/uuser/DMakefile' <<'END_OF_FILE'
X
X# DMakefile for uuser:
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= uuser.c misc.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cimq -v
XLEXE= uucp:l/
X#LIBS= uucp:src/lib/uucp.lib lib:lc.lib lib:amiga.lib
XLIBS= lib:lc.lib lib:amiga.lib
X
Xall: $(LEXE)uuser-handler
X
X$(LEXE)uuser-handler : $(OBJS)
X blink from $(OBJS) ADDSYM TO %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 506 -ne `wc -c <'src/uuser/DMakefile'`; then
echo shar: \"'src/uuser/DMakefile'\" unpacked with wrong size!
fi
# end of 'src/uuser/DMakefile'
fi
if test -f 'src/uuser/mountlist' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/uuser/mountlist'\"
else
echo shar: Extracting \"'src/uuser/mountlist'\" \(100 characters\)
sed "s/^X//" >'src/uuser/mountlist' <<'END_OF_FILE'
X
XUUSER: Handler = uucp:l/uuser-handler
X Stacksize = 6000
X Priority = 5
X GlobVec = 1
X#
X
END_OF_FILE
if test 100 -ne `wc -c <'src/uuser/mountlist'`; then
echo shar: \"'src/uuser/mountlist'\" unpacked with wrong size!
fi
# end of 'src/uuser/mountlist'
fi
if test -f 'src/version.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/version.h'\"
else
echo shar: Extracting \"'src/version.h'\" \(705 characters\)
sed "s/^X//" >'src/version.h' <<'END_OF_FILE'
X
X/*
X * VERSION.H
X *
X * Major version number (minor version numbers kept in subsidary
X * files.
X */
X
X#define VERSION "V1.03D(0.40W/0.60W)"
X
X#define COPYRIGHT \
X "(C) Copyright 1987 by John Gilmore\n" \
X "Copying and use of this program are controlled by the terms of the Free\n" \
X "Software Foundation's GNU Emacs General Public License.\n" \
X "Amiga Changes Copyright 1988 by William Loftus. All rights reserved.\n" \
X "Additional chgs Copyright 1989 by Matthew Dillon, All Rights Reserved.\n"
X
X#define DCOPYRIGHT \
X "(c)Copyright 1990, Matthew Dillon, all rights reserved\n"
X
X#define IDENT(subv) static char *Ident = "@($)" __FILE__ " " VERSION subv " " __DATE__
X
END_OF_FILE
if test 705 -ne `wc -c <'src/version.h'`; then
echo shar: \"'src/version.h'\" unpacked with wrong size!
fi
# end of 'src/version.h'
fi
echo shar: End of archive 1 \(of 16\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 16 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Submissions to comp.sources.amiga and comp.binaries.amiga should be sent to:
amiga@cs.odu.edu
or amiga@xanth.cs.odu.edu ( obsolescent mailers may need this address )
or ...!uunet!xanth!amiga ( very obsolescent mailers need this address )
Comments, questions, and suggestions should be addressed to ``amiga-request''
(please only use ``amiga'' for actual submissions) at the above addresses.