[comp.sources.d] RNALIB 2.0 archive server/ Revision B and patch for SCO-UNIX

venta@otello.sublink.org (Paolo Ventafridda) (10/23/90)

A major bug was found inside RNALIB 2.0 distributed inside sources.misc
on october 6th 1990. The bug affects 'pathsizing' while rna is executed
by cron and not manually; whoever is using RNALIB with the option for
pathsizing activated, should patch the program by changing line 728
in the original RNA source from

< 		ed - $PATHSIZE >/dev/null <<OoPs
to
> 		ed - pathsize >/dev/null <<OoPs

Users of SCO-UNIX should also apply the following patch in order to let
MMDF work quietly. In the following shar file you find both patches;
the first is 'upgrading' your rna 2.0 revA to revision B. The second
is good for scoxers only (sco unix users!).
We are working on the 2.1 version which will be somehow compatible
with the 'french' bitnet list server. It also already supports
lharc,zoo and tar compress formats.
Greets, Paolo
p.s.
i'm posting from otello since my home system 'i2ack' had a very bad
(final?) crash on motherboard, disk controller, memory expansion.
The serial board works, though. You can do thousands of things
with a serial board ;-)


#!/bin/sh
# This is a shell archive (shar 3.24)
# made 10/22/1990 19:07 UTC by venta@otello
# Source directory /usr/local/src/RNA/2_0P1
#
# existing files WILL be overwritten
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#    615 -rw------- ptc.2_0.revB
#   1386 -rw-r--r-- ptc.SCOux.a
#
if touch 2>&1 | fgrep '[-amc]' > /dev/null
 then TOUCH=touch
 else TOUCH=true
fi
# ============= ptc.2_0.revB ==============
echo "x - extracting ptc.2_0.revB (Text)"
sed 's/^X//' << 'SHAR_EOF' > ptc.2_0.revB &&
X1c1
X< # @(#)RNA 2.0 [Revision B]  22 Oct 1990
X---
X> # @(#)RNA 2.0 [revision A]  18 Sep 1990
X728c728
X< 		ed - $PATHSIZE >/dev/null <<OoPs
X---
X> 		ed - pathsize >/dev/null <<OoPs
X772c772
X< X-Mailer: RNALIB 2.0 [Rev.B]\n\
X---
X> X-Mailer: RNALIB 2.0 [Rev.A]\n\
X1006c1006
X< X-Mailer: RNALIB 2.0 [Rev.B]\n\
X---
X> X-Mailer: RNALIB 2.0 [Rev.A]\n\
X1040c1040
X< X-Mailer: RNALIB 2.0 [Rev.B]\n\
X---
X> X-Mailer: RNALIB 2.0 [Rev.A]\n\
X1056c1056
X< X-Mailer: RNALIB 2.0 [Rev.B]\n\
X---
X> X-Mailer: RNALIB 2.0 [Rev.A]\n\
X1779c1779
X< # RNALIB 2.0 Revision B - END OF CONFIGURATION
X---
X> # RNALIB 2.0 Revision A - END OF CONFIGURATION
SHAR_EOF
$TOUCH -am 1022185890 ptc.2_0.revB &&
chmod 0600 ptc.2_0.revB ||
echo "restore of ptc.2_0.revB failed"
set `wc -c ptc.2_0.revB`;Wc_c=$1
if test "$Wc_c" != "615"; then
	echo original size 615, current size $Wc_c
fi
# ============= ptc.SCOux.a ==============
echo "x - extracting ptc.SCOux.a (Text)"
sed 's/^X//' << 'SHAR_EOF' > ptc.SCOux.a &&
X555a556
X> Subject: WARNING, file name too long for RNA compress\n\n\
X559c560
X< 	                      Your friendly RNALIB DAEMON\n" | $MAILER -s"WARNING, file name too long for RNA compress" $POSTMASTER
X---
X> 	                      Your friendly RNALIB DAEMON\n" | $MAILER $POSTMASTER 
X684c685
X< cat $OUTFILE | $MAILER -s$spedresult $UUCP_SENDER
X---
X> cat $OUTFILE | $MAILER $UUCP_SENDER
X769c770
X< spedresult="RNA answer: `Reference_Cmd`"
X---
X> spedresult=`Reference_Cmd`
X772a774
X> Subject: RNA answer: $spedresult"
X1004a1007
X> Subject: RNA is out of service on $UNAME\n\n\
X1037a1041
X> Subject: your path is out of RNA credits\n\n\
X1052a1057
X> Subject: Please subscribe for rnalib service\n\n\
X1075c1080
X< 	echo "Priority: all\n
X---
X> 	echo "Priority: all\nSubject: RNA delivery rejected\n\n\
X1079c1084
X< `cat $MBOX_CUT`\n\n   Your friendly RNALIB DAEMON" | $MAILER -s"RNA delivery rejected" $POSTMASTER
X---
X> `cat $MBOX_CUT`\n\n   Your friendly RNALIB DAEMON" | $MAILER $POSTMASTER
X1135,1136c1140
X< 
X< 	Pending_Msg | $MAILER -s"RNA is out of service on $UNAME" $UUCP_SENDER
X---
X> 	Pending_Msg | $MAILER $UUCP_SENDER
X1423c1427
X< 			SubScribe_Msg | $MAILER -s"Please subscribe for rnalib service" $UUCP_SENDER
X---
X> 			SubScribe_Msg | $MAILER $UUCP_SENDER
X1429c1433
X< 		NoCredit_Msg | $MAILER -s"your path is out of RNA credits" $UUCP_SENDER
X---
X> 		NoCredit_Msg | $MAILER $UUCP_SENDER
SHAR_EOF
$TOUCH -am 0925210990 ptc.SCOux.a &&
chmod 0644 ptc.SCOux.a ||
echo "restore of ptc.SCOux.a failed"
set `wc -c ptc.SCOux.a`;Wc_c=$1
if test "$Wc_c" != "1386"; then
	echo original size 1386, current size $Wc_c
fi
exit 0
-- 
Paolo Ventafridda     -*-     INTERNET: venta@otello.sublink.org
TELEMATIX MILANO - Via C.Gomes 10, 20124 Milano -  +39-2-6706012