Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume15/rnalib2/part02

Text File | 1990-10-05 | 26.0 KB | 825 lines

Newsgroups: comp.sources.misc
X-UNIX-From: otello!i2ack![e-mail]
from: [e-mail] (Paolo Ventafridda)
subject: v15i012: RNALIB_20/part02
Sender: [e-mail] (Brandon S. Allbery - comp.sources.misc)

Posting-number: Volume 15, Issue 12
Submitted-by: [e-mail] (Paolo Ventafridda)
Archive-name: rnalib2/part02

#!/bin/sh
# This is part 02 of RNALIB_20
if touch 2>&1 | fgrep '[-amc]' > /dev/null
 then TOUCH=touch
 else TOUCH=true
fi
# ============= CREDITS ==============
echo "x - extracting CREDITS (Text)"
sed 's/^X//' << 'SHAR_EOF' > CREDITS &&
X------------------------------------------------------------------------------
X
X                  RNALIB 2.0
X
X             Copyright (c) 1989,1990 by Paolo Ventafridda
X
X
X                                      ***    **       *
X                                      **            **
X          ****   ** ***   ****       **   ***     *****   *****
X        **  **   *** ** **  **   *****    **      **    **
X       **       **  ** ******  **  **    **      **     ****
X      **  **   **     **      **  **    **      ** *      **
X      ****   ****     ****    *** **  ****      **   *****
X                     (Who Wrote It?)
X
X
XThe RNALIB software was developed to be used inside the italian uucp
Xnetwork 'sublink' as automatic source for documents, papers, maps,
Xand also for 'netware'. A first release of RNA (1.0) was distributed
Xinside comp.sources.misc in August 1989; that relase has little to
Xshare with the 2.0. I got a copy of 'netlib' software from AT&T, and
Xi kept their best ideas while designing the 2.0. I want to point out
Xthat NO part of netlib was used, copied or cloned, except for some
Xkind of messages (thanks at&t grammars!). Actually RNA 2.0 might look
Xlike netlib, from the user point of view.
X
X
X                       Special Credits to:
X
X         -----------------------------------------------------
X       Marco Lorenzini, Bologna, Italy  ([e-mail])
X         -----------------------------------------------------
X
X     He took the beta development since 2.0 beta 1.11. That version
X     was 33K long...
X     Contributed with precious extensions for file compression and
X     uusend/uucp usage through the 'via' field. We got to 52K ..!
X     He also took the deep beta-testing of the program, doing a
X     great job.
X
X
XCredits also to:
X
X- Lele Gaifas, Rovereto, Italy     ([e-mail])
X
X    sep.89
X    Contributed with 'PrintSumm', 'CutMail', 'ListLib'
X    'StripPermAndLink' and with many good ideas, following the project
X    from very close. Actually under the IT Army.
X
X- Enrico Palmerini, University of L'Aquila, Italy. ([e-mail])
X
X
XFinally, credits are given to Kent Landfield (uunet!ssbell!kent)
Xfor the 'Copyright' notice taken from its 'rkive' program, and to
XEric Grosse ([e-mail]), author of the latest (?) version of
X'netlib', AT&T labs. I could not install 'netlib', and i found
Xthe documentation pretty hostile; that's why i made 'rna' ;-)
XThough rna was made from scratch, i would consider netlib the logic
Xfather of rnalib; i took some messages from netlib/mess which i
Xfound useful, along with some other good ideas. Header parsing was
Xdeducted from RFC822.
X
XRna 2.0 basic utilities were ready in september 1989. At that time
XRNA was a 19K shell script; i thought to be closed to the final version
Xwhen i found serious problems inside the code. I got sick of the shell
Xand decided to give up for a while. I started back working on the
Xshell script in january 90; it might sound stupid for a shell program,
Xbut i found it hard to patch and to get to a working version. The 19K
Xcode was now 33K long; rnalib 2.0 was at its beta version 1.09.
XThen came Marco ([e-mail]), and we started working
Xtogether on the project, using e-mail for xchanging ideas and routines.
XWe got to beta release 1.16 in March 1990. Then i married, then it was
Xvacation's time, and finally we got to 1.17 which is the current version.
X
XThis is probably the longest shell script i will
Xever write in my life; probably the last one also... I did my best to
Xmake it readable and structured; there are a lot of comments which i
Xhope someone will read ;-)
X
X                [e-mail]
X                september 1990
X
XHISTORY
X-------
X
XJul 89        Beta testing 1.0
XAug 89        RNA 1.0 in comp.sources.misc
XSep 89        basic utilities for the 2.0
XJan 90        final hacks on the source
XFeb 90        Beta testing 2.0, marlor@gear adds new features
XMar 90          2.0 beta 1.16: 52K of code. Added 'pathsizing'.
XApr 90        sco Unix working release by marlor. Start of docs..sigh
X---
XSep 90        the end
X
X
X------------------------------------------------------------------------------
SHAR_EOF
$TOUCH -am 0915012590 CREDITS &&
chmod 0644 CREDITS ||
echo "restore of CREDITS failed"
set `wc -c CREDITS`;Wc_c=$1
if test "$Wc_c" != "4155"; then
    echo original size 4155, current size $Wc_c
fi
# ============= MAKE_RNA ==============
echo "x - extracting MAKE_RNA (Text)"
sed 's/^X//' << 'SHAR_EOF' > MAKE_RNA &&
X:
X# MAKE_RNA for rnalib 2.0    venta@i2ack
Xecho "Making a faster and smaller version of RNA, wait please.."
Xtest -s RNA || { echo "Cannot find RNA - stop"; exit; }
Xrm -f XRNA /tmp/TMPRNA 2>/dev/null
Xecho ":\n# RNALIB 2.0  by venta@i2ack and marlor@gear .SUBLINK.ORG" >XRNA
X# Cant use pipe here, file is too big and pipe misses lines ;-(
Xgrep -v '^#' RNA >/tmp/TMPRNA; strings -1 /tmp/TMPRNA >>XRNA
Xchmod 755 XRNA
Xecho "Done. Now you also have an executable version of RNA called \"XRNA\""
Xrm /tmp/TMPRNA
SHAR_EOF
$TOUCH -am 0916131490 MAKE_RNA &&
chmod 0755 MAKE_RNA ||
echo "restore of MAKE_RNA failed"
set `wc -c MAKE_RNA`;Wc_c=$1
if test "$Wc_c" != "502"; then
    echo original size 502, current size $Wc_c
fi
# ============= PROBLEMS ==============
echo "x - extracting PROBLEMS (Text)"
sed 's/^X//' << 'SHAR_EOF' > PROBLEMS &&
X
X------------------------------------------------------------------------------
X
X                                    lll      ii    bbb
X                                    ll             bb
X         rr rrr  nnnnn    aaaa     ll     iii     bb
X         rrr rr nn  nn      aa    ll      ii     bbbbb
X        rr  rr nn  nn   aaaaa    ll      ii     bb  bb
X       rr     nn  nn  aa  aa    ll      ii     bb  bb
X     rrrr    nn  nn   aaa aa  llll    iiii   bb bbb    (c)
X
X                  RNALIB 2.0
X
X            Copyright (c) 1989,1990, by Paolo Ventafridda
X
X               Operator's Guide: Bugs & Problems Hunting
X               =========================================
X
XThis document contains reports from beta-testers and rna operators;
Xcommon problems and possible solutions for various hardware/software
Xconfigurations. Please submit your reports to  [e-mail].
X
X
X
X---
X
XDue to the size of RNA, you might get some problems with the shell.
XThis is very likely to happen on 16bit-based xenix/unix systems,
Xsince their shell have a fixed stack . Basically, here's what you can get.
X
X(1)
XDIAGNOSTIC:    sh: RNA: no space
X
XCAUSE:
X    your shell has not enough core space for keeping in memory RNA
X    and its mail. The program does NOT start, so you don't loose
X    rnalib mail.
X
XSOLUTIONS:
X
X    Check that it's really a problem of space. If you have more than
X    one mail inside rnalib' mailbox, remove all but the first and
X    retry executing RNA. If RNA can deal with a single message but
X    crashes with others at the same time, you may try one of the
X    following solutions:
X
X    -     Edit RNA. Remove the very first line, containing ':'.
X        Or, if you own a version with the first line as '#/bin/sh'
X        then remove this one. Then execute RNA with
X        ' sh RNA ' (also from cron).
X
X    -    Try lowering stack space (ugly!).
X        Do a copy of your /bin/sh. Do 'hdr /bin/sh and take note
X        of the 'stack size' number. Then execute 'fixhdr -F yyyy sh'
X        where yyyy is a number slightly lower than the old one.
X
X
X(2)
XDIAGNOSTIC:     RNA: no stack space
X
XCAUSE:
X        Your shell can't stand RNA internal environments.
X        It starts but fails after boot; you (may) loose mail, beware.
X        I am assuming you did not add or remove any ' { } '
X        or brackets; if you modify bracket's position you may
X        get serious problems and need to debug from scratch.
X        Do not modify RNA unless you are 100% sure of what
X        you are doing.
X
XSOLUTIONS:
X
X    -    Run RNA with 'sh RNA' also from cron.
X
X    -    Enlarge shell's stack size. Get the current one with
X        ' hdr /bin/sh ', then fix it with 'fixhdr -F yyyy sh'
X        where yyyy is the new size. No warranty! Caution!
X
X
X(3)
XDIAGNOSTIC:    cannot unlink /usr/spool/mail/rnalib    (sort-of)
X
XCAUSE:
X
X        You are suffering of strange mail access permissions.
X        Try removing your own mailbox with 'rm' (do a copy
X        before!). Do 'id' and see if you have some 'egid'
X        permissions.
X
XSOLUTION:
X
X        This is a problem of yours, not really an RNA one.
X        Anyway try fixing the 'egid' thing; check that inside
X        /etc/passwd rnalib has a /bin/sh or /bin/csh or nothing
X        at all (defaults to /bin/sh).
X
X(4)
XDIAGNOSTIC:
X        RNA fails a 'find' command; everything looks like Ok, but
X        a 'find' causes a 'Memory Fault'.
X
XCAUSE:        It might really be a problem of 'grep'.
X        At least, on SCO Unix System V 3.2 this was the problem.
X
XSOLUTION:    Search for the 'FindFile' procedure inside RNA source.
X        Replace the line:
X
X                ls -got $FFpath | StripPermAndLink | grep -y $FFchars && {
X
X        with:
X
X        ls -got $FFpath | StripPermAndLink | fgrep -y $FFchars && {
X                             ^^^^
X
X        (This was included inside source as a %%FIX%% ).
X
X
X(5)
XSENT BY: [e-mail]
XDATE: 17/9/1990
XSYSTEM: UNISYS 7000/40 running UNIX sysV R.2.21.02
X---
XE.R. Palmerini - Centro di Calcolo Facolta' di Ingegneria
XUniversita' Degli Studi De L'Aquila (0862-432511)
X---
X
X* RNA could not remove its own mailbox: it was fixed giving to rnalib
X  group 'mail'.
X
X    On UNISYS 7000 under old Unix 2.x problems appear
X    with the StripPermAndLink() function.
X* There was some trouble with 'head': executed by cron, RNA could not
X  find this command. Fixed by putting full pathname to 'head'.
X
X* Along with 'head', some other commands could not be found.
X  Always executed by cron (not by shell), strange 'cannot shift' were
X  appearing, generating ping-pong mails between rna and root (cron owner).
X  Fixed by changing 'shift' with 'shift 2>/dev/null'
X
XAUTHOR'S NOTE:
X    It could be just a stupid problem of 'PATH'. In this case a simple
X        PATH=yourpaths/as/usual: could solve the whole situation.
X    However i am not sure, since have no 7000/40 at home ;-)
X    So i included PATH declaration inside RNA few hours before shipping!
X
XThere was a patch for the 7000, but basically all you have to do
Xis changing 'shift' with 'shift 2>/dev/null' inside the program,
Xand a major workout on the followings:
X
X359c359
X<     echo "$4\t$5,$6\t$7\t$8"
X---
X>     echo "$3\t$4,$5\t$6\t$7"
X(*** inside StripPermAndLink ***)
X
X402c402
X<     ls -ot $LLpath | StripPermAndLink
X---
X>     ls -got $LLpath | StripPermAndLink
X427c427
X<     ls -ot $FFpath | StripPermAndLink | fgrep -i $FFchars && {
X---
X>     ls -got $FFpath | StripPermAndLink | fgrep -i $FFchars && {
X
XThere's a patch for the 7000/40 which applies to release 2.0 rev.A of RNA.
XDoes nothing but changing shift to shift 2>/dev/null and above things.
XIf you are lazy, this patch is named 'ptc.7000.a'. Use at your own risk!
X
X
X=== your suggestions will be put here in the next release ===
XPlease give a description of your problems and a solution, if any.
XDon't send big 'diffs' since they are related to versions of RNA
Xwhich are going to be obsoleted.
XIn any case, report:
X1) hardware in use
X2) operating system/release
X3) rna release referring to
X
XThanks a lot, any contributions are welcome.
XRemember not to post too much stuff cause i pay for the traffic ;-(
X
X-- Paolo
SHAR_EOF
$TOUCH -am 0918180990 PROBLEMS &&
chmod 0644 PROBLEMS ||
echo "restore of PROBLEMS failed"
set `wc -c PROBLEMS`;Wc_c=$1
if test "$Wc_c" != "5845"; then
    echo original size 5845, current size $Wc_c
fi
# ============= README.FIRST ==============
echo "x - extracting README.FIRST (Text)"
sed 's/^X//' << 'SHAR_EOF' > README.FIRST &&
X
XRNALIB 2.0 - September 1990
X
XHello. Start from OPER.GUIDE. Don't panic, it won't take long.
XI hate long docs too ;-)
X
X            Paolo
X
X
SHAR_EOF
$TOUCH -am 0911003290 README.FIRST &&
chmod 0644 README.FIRST ||
echo "restore of README.FIRST failed"
set `wc -c README.FIRST`;Wc_c=$1
if test "$Wc_c" != "130"; then
    echo original size 130, current size $Wc_c
fi
# ============= black ==============
echo "x - extracting black (Text)"
sed 's/^X//' << 'SHAR_EOF' > black &&
X# Blacklist file for RNA 2.0        - comments start with a #
X# ---------------------------------------------------------------
X# >>>> WARNING: NEVER USE <TABS> HERE!!! CAUTION! BEWARE! <<<<
X# This file is the 'BLACKLIST' one mentioned inside RNA configuration.
X# Usually it should be inside RNADIR and called 'black'.
X# RNA always looks at his mail headers and greps out a 'uucp path'.
X# If this 'path' contains ANY of the following words, that origin is
X# considered 'blacklisted' and requests are denied (rejected).
X# You can blacklist users, systems, networks... If you put a simple
X# '!' on a single line, RNA will reject all requests coming from the
X# UUCP worlds. If you want to blacklist a backbone but NOT its sub-hosts,
X# you necessarily need to specify users inside that backbone with lines
X# such as 'host!user1'  'host!user2' etc.
X# If you simply specify 'host' than all sites coming through that host
X# will match the blacklist and won't be accepted.
X# Do NOT put *any empty line: a blank line is taken as end-of-file
X# by RNA, and all the rest is ignored. Beware...
X# Everything is case-sensitive here.
X#
Xbadhost!baduser
Xbadgateway
SHAR_EOF
$TOUCH -am 0918172290 black &&
chmod 0644 black ||
echo "restore of black failed"
set `wc -c black`;Wc_c=$1
if test "$Wc_c" != "1143"; then
    echo original size 1143, current size $Wc_c
fi
# ============= deliver.sh ==============
echo "x - extracting deliver.sh (Text)"
sed 's/^X//' << 'SHAR_EOF' > deliver.sh &&
X:
X# Deliver script for RNALIB 2.0      - by  [e-mail]
X#
X# This script is for the 'deliver' mail package by Chip Salzenberg.
X# Put it inside rnalib home directory as .deliver, and you will get
X# sequential processing of RNA mail, instead of parallel ones.
X# Carefully check everything is ok, or your system will get a bunch
X# of dangerous sessions spreading around as hells.
X# Note#1: Chip has sent out new patches for his 'deliver'. Maybe if
X#         you have this new release something will not work, or
X#         (probably) will work much better ;-)
X#
X# Note#2: THIS SCRIPT IS NOT SUPPORTED. It was written months ago
X#         while trying to find a solution in order to run RNA on a
X#         286 system. The 286 shell shouts and dies running RNA.
X#         When RNA was not as big, still there was a chance to make it
X#         work without core dumps (!). This is just an example of
X#         how 'deliver' can be used with rna. It's an old example,
X#         found in an old directory of an old release of RNA.
X#         So take it as a simple idea of how to do it.
X#         If you run 'deliver' you could use it for having RNA processing
X#         incoming mails 'realtime'. This script is supposed to process
X#         them once at a time.
X#
Xuser=$1
X# MAILBOX=/usr/local/usr/rnalib/box
X
X# create your own lock
Xtouch $HOME/lock.$$
X
X# how many delivers pending?
Xset `ls -l $HOME/lock.* 2>/dev/null | wc -l`
X
X# determine a syncronization wait time; if your system is *fast, then
X# higher the multiply factor
Xsync_time=`expr $1 \* 3`
X
X# first attempt to queue
Xsleep $sync_time
X
X# does a queue exist?
Xwhile test -r $HOME/lock
Xdo
X#    wait until your turn
X    sleep $sync_time
Xdone
X
X#    My turn now!
Xtouch $HOME/lock
Xdate >>account
X# If the next line is  creating stdin errors...
Xcat $HEADER $BODY | deliver -n "$user"
X# .. jump over the pipe and do it your way!
X# cat $HEADER $BODY >>$MAILBOX
X
X# If you use 'deliver -n' then higher sleep time in order to let deliver
X# complete its mailing, or RNA won't find anything to process!
Xsleep 5
X
X# force an RNA session
X/bin/sh /usr/local/usr/rnalib/RNA
X
X# remove queue lock: a new RNA session will start
Xrm $HOME/lock 2>/dev/null
X
X# Sleep again to assure that new delivers don't get an already used sync_time.
X# This way it will be harder to happen.
Xsleep $sync_time
Xrm $HOME/lock.$$
X
X# quit living and forget about any further delivery please!
X# ("Trust me, i know what i am doing..")
Xecho "DROP"
SHAR_EOF
$TOUCH -am 0915011890 deliver.sh &&
chmod 0644 deliver.sh ||
echo "restore of deliver.sh failed"
set `wc -c deliver.sh`;Wc_c=$1
if test "$Wc_c" != "2455"; then
    echo original size 2455, current size $Wc_c
fi
# ============= libindex ==============
echo "x - extracting libindex (Text)"
sed 's/^X//' << 'SHAR_EOF' > libindex &&
X# Library Index file for RNA 2.0    - comments start with a #
X# ---------------------------------------------------------------
X# >>>> WARNING: NEVER USE <TABS> HERE!!! CAUTION! BEWARE! <<<<
X# This file is the 'LIBIND' one mentioned inside RNA configuration.
X# Usually it should be inside RNADIR and called 'libindex'.
X# You need at least one 'home' directory for the RNA-USER; this
X# directory is the one were rna will look for HELP, INDEX etc. whenever
X# the request did not specified a library. It's also called
X# 'system library' (do not misconfuse with RNADIR, which is the
X# administrator's library).
X# So the 'system library' HAS to be called 'DEFAULT'.
X# Without a 'DEFAULT' library, RNA will not work.
X# You can choose different library names for the same paths, no problem.
X#
XDEFAULT /usr/local/rnalib/system
Xsystem  /usr/local/rnalib/system
Xnetware /usr/local/rnalib/net
Xdocs    /usr/local/rnalib/docs
Xpublic  /usr/spool/uucppublic
SHAR_EOF
$TOUCH -am 0918172490 libindex &&
chmod 0644 libindex ||
echo "restore of libindex failed"
set `wc -c libindex`;Wc_c=$1
if test "$Wc_c" != "941"; then
    echo original size 941, current size $Wc_c
fi
# ============= pathsize ==============
echo "x - extracting pathsize (Text)"
sed 's/^X//' << 'SHAR_EOF' > pathsize &&
X# Pathsize file for RNA 2.0        - comments start with a #
X# ---------------------------------------------------------------
X# >>>> WARNING: NEVER USE <TABS> HERE!!! CAUTION! BEWARE! <<<<
X# This file is the 'PATHSIZE' one mentioned inside RNA configuration.
X# Usually it should be inside RNADIR and called 'pathsize'.
X# This is a two-fields database: first field is a uucp path.
X# >Same rules as for 'black' (blacklistings)  and 'white' apply here.
X# The second field of each line is called 'credits', and it's the
X# number of bytes allowed to be transmitted toward that path.
X# When 'credits' is 0 or a negative number, RNA will reject requests
X# and notify origin about this matter.
X# This database is updated automatically by the program; however you
X# can change with an editor all fields.
X# Please take care:
X# - do not put comments inside the database (only at the beginning,
X#   like this message).
X# - do not put blank lines inside the database
X# - do not use <TABS> !!!!!
X# - *leave the first example line* since RNA gets angry whenever this
X#   database is empty and is being used.
X# - if you want a host to be given infinite credit, put the word
X#   'UNLIMITED' as credits.
X#
X# path    credits (in bytes)  example:
X# gear!marlor  9000000        or even
X# host!friend  UNLIMITED
X#
X# * do not remove next line* !
Xnohost!nobody 0
SHAR_EOF
$TOUCH -am 0918161990 pathsize &&
chmod 0644 pathsize ||
echo "restore of pathsize failed"
set `wc -c pathsize`;Wc_c=$1
if test "$Wc_c" != "1335"; then
    echo original size 1335, current size $Wc_c
fi
# ============= white ==============
echo "x - extracting white (Text)"
sed 's/^X//' << 'SHAR_EOF' > white &&
X# Whitelist file for RNA 2.0        - comments start with a #
X# ---------------------------------------------------------------
X# >>>> WARNING: NEVER USE <TABS> HERE!!! CAUTION! BEWARE! <<<<
X# This file is the 'WHITELIST' one mentioned inside RNA configuration.
X# Usually it should be inside RNADIR and called 'white'.
X# RNA always looks at his mail headers and greps out a 'uucp path'.
X# If this 'path' contains ANY of the following words, that origin is
X# considered 'privileged' and the sender can specify alternate output
X# destination (see 'external destinations' inside RNA user's guide).
X# Do NOT put *any empty line: a blank line is taken as end-of-file
X# by RNA, and all the rest is ignored. Beware...
X# Same rules as for 'black' (blacklistings) apply here.
X#
Xyourname
Xtrusthost!trustuser
SHAR_EOF
$TOUCH -am 0918172190 white &&
chmod 0644 white ||
echo "restore of white failed"
set `wc -c white`;Wc_c=$1
if test "$Wc_c" != "793"; then
    echo original size 793, current size $Wc_c
fi
# ============= strings.c ==============
echo "x - extracting strings.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > strings.c &&
X/* A very poor "strings" clone; just what you need for RNA 2.0 ;-)
X * I could do it in bourne shell as well, but -com'on- that would
X * really mean wasting time!
X * I still wonder why my 3b2-600 with UNIX V 3.2. has no "strings".
X * Who cares after all...
X * Use this 'strings' for 'MAKE_RNA' and inside RNA. The only
X * common thing between original 'strings' and this one is the name.
X * This is used twice in the whole package: once inside RNA, with
X * a single argument (filename), to grep out empty lines.
X * Once also inside MAKE_RNA, with a necessary option '-1' to force it
X * keeping lines with a single valid character (for instance a bracket).
X * No need to do more.
X */
X
X#include <stdio.h>
X
Xmain(argc,argv)
Xint argc;
Xchar *argv[];
X{
XFILE *fp, *fopen();
Xint car;
X
X
Xif ((strcmp(argv[1],"-1")) == 0)
X    fp=fopen(argv[2],"r");
Xelse
X    fp=fopen(argv[1],"r");
X
Xwhile (( car=getc(fp)) != EOF)
X        if (car >32) {
X                putc(car,stdout);
X                while (( car=getc(fp)) != 10) putc(car,stdout);
X        putc(10,stdout);
X        }
Xfclose(fp);
X}
SHAR_EOF
$TOUCH -am 0916215390 strings.c &&
chmod 0644 strings.c ||
echo "restore of strings.c failed"
set `wc -c strings.c`;Wc_c=$1
if test "$Wc_c" != "1064"; then
    echo original size 1064, current size $Wc_c
fi
# ============= ptc.7000.a ==============
echo "x - extracting ptc.7000.a (Text)"
sed 's/^X//' << 'SHAR_EOF' > ptc.7000.a &&
X
X22c22
X< RNADIR=/work/rnalib/src/RNA
X---
X> RNADIR=/usr/local/src/rnalib
X28c28
X< TMPDIR=$RNADIR
X---
X> TMPDIR=$RNADIR/tmp
X49c49
X< UNAME=univaq.sublink.ORG
X---
X> UNAME=otello.sublink.ORG
X59c59
X< POSTMASTER=[e-mail]
X---
X> POSTMASTER=[e-mail]
X96c96
X< DEBUG=
X---
X> DEBUG=1
X108c108
X< UUENCODE=/u1/uuencode
X---
X> UUENCODE=
X119c119
X< BTOA=/u1/btoa
X---
X> BTOA=/usr/local/bin/btoa
X124c124
X< COMPRESS=/u1/compress
X---
X> COMPRESS=/usr/local/bin/compress
X137c137
X< UUSEND=/usr/bin/uusend
X---
X> UUSEND=/usr/local/bin/uusend
X152c152
X< STRINGS=/usr/ucb/strings
X---
X> STRINGS=/usr/local/bin/strings
X348,349c348,349
X<     test "$1" = "$search" && shift 2>/dev/null && echo $1 && break
X<     shift 2>/dev/null
X---
X>     test "$1" = "$search" && shift && echo $1 && break
X>     shift
X359c359
X<     echo "$4\t$5,$6\t$7\t$8"
X---
X>     echo "$3\t$4,$5\t$6\t$7"
X402c402
X<     ls -ot $LLpath | StripPermAndLink
X---
X>     ls -got $LLpath | StripPermAndLink
X427c427
X<     ls -ot $FFpath | StripPermAndLink | fgrep -i $FFchars && {
X---
X>     ls -got $FFpath | StripPermAndLink | fgrep -i $FFchars && {
X432c432
X<     shift 2>/dev/null; shift 2>/dev/null
X---
X>     shift; shift
X474c474
X<     shift 2>/dev/null
X---
X>     shift
X488c488
X<     shift 2>/dev/null
X---
X>     shift
X703c703
X<     ps_path=$1; ps_credit=$2; shift 2>/dev/null; shift 2>/dev/null
X---
X>     ps_path=$1; ps_credit=$2; shift; shift
X717c717
X<     ps_path=$1; ps_credit=$2; shift 2>/dev/null; shift 2>/dev/null
X---
X>     ps_path=$1; ps_credit=$2; shift; shift
X1091c1091
X< set `/usr/ucb/head -1 $MBOX_CUT`; UUCP_SENDER=$2
X---
X> set `head -1 $MBOX_CUT`; UUCP_SENDER=$2
X1196c1196
X<         shift 2>/dev/null;;
X---
X>         shift;;
X1203c1203
X<                 shift 2>/dev/null
X---
X>                 shift
X1214c1214
X<                         shift 2>/dev/null
X---
X>                         shift
X1225c1225
X<                 shift 2>/dev/null
X---
X>                 shift
X1236c1236
X<                         shift 2>/dev/null
X---
X>                         shift
X1247c1247
X<                 shift 2>/dev/null
X---
X>                 shift
X1258c1258
X<                         shift 2>/dev/null
X---
X>                         shift
X1268c1268
X<                 shift 2>/dev/null
X---
X>                 shift
X1279c1279
X<                         shift 2>/dev/null
X---
X>                         shift
X1289c1289
X<                 shift 2>/dev/null
X---
X>                 shift
X1300c1300
X<                         shift 2>/dev/null
X---
X>                         shift
X1310c1310
X<                 shift 2>/dev/null
X---
X>                 shift
X1321c1321
X<                         shift 2>/dev/null
X---
X>                         shift
X1329c1329
X<             shift 2>/dev/null
X---
X>             shift
X1332c1332
X<                 test "$1" != "@@" && from=$1 && shift 2>/dev/null
X---
X>                 test "$1" != "@@" && from=$1 && shift
X1338c1338
X<             shift 2>/dev/null
X---
X>             shift
X1341c1341
X<                 test "$1" != "@@" && destination=$1 && shift 2>/dev/null
X---
X>                 test "$1" != "@@" && destination=$1 && shift
X1346c1346
X<             shift 2>/dev/null
X---
X>             shift
X1349c1349
X<                 test "$1" != "@@" && with=$1 && shift 2>/dev/null
X---
X>                 test "$1" != "@@" && with=$1 && shift
X1354c1354
X<             shift 2>/dev/null
X---
X>             shift
X1357c1357
X<                 test "$1" != "@@" && via=$1 && shift 2>/dev/null
X---
X>                 test "$1" != "@@" && via=$1 && shift
X1364c1364
X<             shift 2>/dev/null;;
X---
X>             shift;;
X1380c1380
X<             shift 2>/dev/null
X---
X>             shift
X1519,1520c1519,1520
X< action=$1; shift 2>/dev/null; argument=$1; shift 2>/dev/null; from=$1; shift 2>/dev/null; destination=$1
X< shift 2>/dev/null; with=$1; shift 2>/dev/null; via=$1
X---
X> action=$1; shift; argument=$1; shift; from=$1; shift; destination=$1
X> shift; with=$1; shift; via=$1
X1696c1696
X<         shift 2>/dev/null; shift 2>/dev/null;;
X---
X>         shift; shift;;
X1702c1702
X< shift 2>/dev/null
X---
X> shift
X
SHAR_EOF
$TOUCH -am 0918103990 ptc.7000.a &&
chmod 0644 ptc.7000.a ||
echo "restore of ptc.7000.a failed"
set `wc -c ptc.7000.a`;Wc_c=$1
if test "$Wc_c" != "3442"; then
    echo original size 3442, current size $Wc_c
fi
echo "End of part 2, continue with part 3"
exit 0