venta@i2ack.sublink.org (Paolo Ventafridda) (10/06/90)
Posting-number: Volume 15, Issue 12 Submitted-by: venta@i2ack.sublink.org (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 (marlor@gear.sublink.org) 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 (lele@idea.sublink.org) 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. (palmer@univaq.sublink.org) 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 (ehg@research.att.com), 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 (marlor@gear.sublink.org), 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 venta@i2ack.sublink.org 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 venta@i2ack.sublink.org. 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: palmer@univaq.sublink.org 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 venta@i2ack.sublink.org 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=palmer@univaq.sublink.org X--- X> POSTMASTER=venta@otello.sublink.org 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