v15i013: RNALIB_20/part03
Paolo Ventafridda
venta at i2ack.sublink.org
Sat Oct 6 10:08:41 AEST 1990
Posting-number: Volume 15, Issue 13
Submitted-by: venta at i2ack.sublink.org (Paolo Ventafridda)
Archive-name: rnalib2/part03
#!/bin/sh
# This is part 03 of RNALIB_20
if touch 2>&1 | fgrep '[-amc]' > /dev/null
then TOUCH=touch
else TOUCH=true
fi
# ============= RNA ==============
echo "x - extracting RNA (Text)"
sed 's/^X//' << 'SHAR_EOF' > RNA &&
X# @(#)RNA 2.0 [revision A] 18 Sep 1990
X#
X# = WELCOME TO RNALIB CONFIGURATION =
X# ------------------------------------------------------------------------
X# Your attention please: we strongly suggest that you read carefully
X# every comment in the following lines. This configuration comes together
X# with necessary documents, step by step. Skip comments at your own
X# risk: you may not understand the Operator's Guide later on!
X# We all hate reading long docs. This is not long, it's just the minimum
X# you need to know about the program. Consider these comments as
X# part of the operator's manual. They are *not by any means 'optionals'.
X# ------------------------------------------------------------------------
X#
X# PATH: rna looks for 'sed', 'head' and other usual unix utilities inside
X# this path definition. Put here your usual paths, like..
XPATH=/bin:/usr/bin:/usr/local/bin:/etc:/usr/local/etc:.
X#
X# Administrator's directory: this is a dedicated directory for rna. System
X# files such as mail log, accounting etc. will be put here.
X# This directory will not be public, and should be closed to others
X# but rnalib owner. This directory will not contain garbage.
X# You can put the home directory of LOGNAME (see forward).
X# RNADIR=/usr/rnalib
XRNADIR=/usr/rnalib
X#
X# Temporary directory: garbage stuff is going to be put here.
X# You might choose a subdirectory of RNADIR; do not choose /tmp, you might
X# get problems later on. Use a dedicated directory owned by rna.
X# This folder is not going to take much space anyway.
XTMPDIR=$RNADIR/tmp
X#
X# Temporary directory: IF you allow file compression, outgoing stuff will
X# be put here and then compressed before ship. You might choose the same
X# place of TMPDIR. USE a dedicated directory, do not use /tmp.
XCONVDIR=$RNADIR/convert
X#
X# The login used as rna entry: tipically 'rnalib'. Create this entry inside
X# /etc/passwd. Home directory is not really important: the only needed thing is
X# that this user has to execute RNA and will receive query and rejected mail.
X# You'll get more info on how to create this user inside OPER.GUIDE .
X# By now, just pick up a name. Users will mail this name to access your
X# libraries. But they could use aliases as well. Don't worry now.
X#
XLOGNAME=rnalib
X#
X# The name of your machine, as of 'uname -n' or similar.. Hey, dont put
X# another one, use the correct local machine name. Don't cheat.
X# If you are under some domain include it. Ex: i2ack.SUBLINK.ORG
X#
X#UNAME=host.domain
XUNAME=i2ack.sublink.ORG
X#
X# The local postmaster, i.e. the person which will eventually solve
X# remote user's problems.
X# If you don't know what a Postmaster is, you are probably in the
X# wrong place. Put 'root@$UNAME' and go on, this is only a reference.
X# Remember to include username AND host (+ domain, if any), for instance
X# venta at i2ack.SUBLINK.ORG . Postmaster need not to be on the same machine
X# were RNALIB is placed! Just think of local networks...
X#POSTMASTER=boss at host.domain
XPOSTMASTER=venta at i2ack.sublink.org
X#
X# When (IF) 'compress 'is used to ship files, their names are extended with
X# a '.Z'. If your UNIX is a System V, maximum file name lenght is 14; if you
X# are on BSD, it's 256; if you are on a Olivetti LSX it's 128 etc.
X# Subtract 2 from your maximum file name lenght and fill the following
X# variable: for instance, if you have max 14 characters names, put (14-2)=12.
XMAXLENGTH=12
X#
X# The mail file for LOGNAME, complete path. Usually:
X# /usr/spool/mail/$LOGNAME on Xenix systems and SCO unix
X# /usr/mail/$LOGNAME on Unix System V and BSD .
XMAILBOX=/usr/mail/$LOGNAME
X#
X# Name of the file containing all of rna logs, status etc.
X# also called "accounting"..
X# Be tidy! Keep it inside RNADIR.
XLOGFILE=$RNADIR/account
X#
X# Name of the file which is going to keep record of ALL incoming mails
X# (NOT the rejected mails...that would be stupid!). You may use this
X# file as a normal mail folder for programs like 'ELM'. Remember to
X# clear it out once every while ;-)
X# Be tidy! Keep it inside RNADIR.
XMAIL_LOG=$RNADIR/mail
X#
X# Name of the public directory for transfers using 'uucp' or 'uusend'.
X# We suggest a '~' (which leads to /usr/spool/uucppublic) as default;
X# if you are going to change this, remember that remote sites need this
X# path to be writable, or your files will be rejected!
X# Do also consider that some UUCP emulators - such as UFgate or Waffle -
X# do *not recognize "/usr/spool/uucppublic", but *accept "~".
XPUBDIR=~
X#
X# Debugging would occure on stdout, NOT on LOGFILE.
X# 1=debug (try it for fun), nodebug= leave it EMPTY, dont put a 0
X# Debug is for interactive usage only. Do not set debug mode for daemon task.
XDEBUG=1
X#
X# Some progs never in the same place... please tell me: where is the mailer?
X# I mean the one you would use as 'mail user' to send mail to user.
X# Ususally /bin/mail, though on some systems you could try /bin/rmail.
X# Since RNA adds its own Subject line, be sure the mailer does not ask for it!
X# If RNA messages comes without a Subject this is the reason..
XMAILER=/bin/mail
X#
X# Where is 'uuencode'? I assume you have this utility. If you don't have this
X# utility you are not likely to ship binary files via mail.
X#
XUUENCODE=/usr/local/bin/uuencode
X#
X# Where is 'btoa'? If you don't have it, leave it EMPTY (nothing after the = )
X# Btoa is better than uuencode: it saves some 15% space. You don't really
X# need it for RNA, but if you happen to have btoa put it here. Default encoding
X# still will be the good-old uuencode. Beware: i am referring to the second
X# version of btoa, the one that does not need 'atob' to convert back.
X# Still this version is compatible with the old release, BUT syntax to use
X# is quite different. If you have an old version of btoa, no problem: find
X# the RNA procedure called 'Convert_File()'; there's a 'case' inside, and
X# a notice about this matter.
XBTOA=/usr/local/bin/btoa
X#
X# Where is 'compress'? If you don't have it, leave it EMPTY
X# (nothing after the =). It sounds pretty strange to me an empty declaration
X# here, since the whole world nowdays has compress. Ask for GNU-compress!
XCOMPRESS=/usr/local/bin/compress
X#
X# Where do you keep 'uucp', the usual command?
X# I know everybody has one. If you don't want files travelling over
X# the network with 'uucp' then omit the declaration: files will be
X# travelling in ascii format via normal e-mail.
X# Caution: read Operator's Guide chapter 'Transmission layers'!
XUUCP=/usr/bin/uucp
X#
X# Where is 'uusend'? If you don't have it, leave it EMPTY (nothing after
X# the = ). This is a common utility which replaces 'uuto' and 'uucp' on
X# some old (V7) uucp based systems.
X# Caution: read Operator's Guide chapter 'Transmission layers'!
XUUSEND=/usr/local/bin/uusend
X#
X# Where is 'file'? As you should know, this is a Berkeley utility now
X# commonly distributed with almost *every serious unix system.
X# 'file' examines a specified file and gives informations about it.
X# Since RNA has to figure out by itself whether or not requested files
X# are ASCII or BINARY, we definitively *need* the berklish 'file'.
X# So know, com'on..
XBKFILE=/bin/file
X#
X# Where is 'strings' ? we use it just a couple of times, to grep out
X# blank lines from 'pathsize' (you'll learn about it later on).
X# This command is pretty standard, however my 3B2 with Unix 3.2 is
X# missing it (*sic)! I wrote a small 'strings.c' which you might
X# compile and use in case there's no 'strings' on your system.
XSTRINGS=/usr/local/bin/strings
X#
X# This is important (;-)). RNA needs an index file containing libraries'
X# names along with their real paths. Since you are installing RNA for
X# something, i assume you HAVE at least one 'library', don't you?
X# With RNA distribution comes a file named 'libindex' which contains
X# some more docs about its structure. "libindex" is my suggested name for..
X# [ NOTE: inside OPER.GUIDE we always refer to this suggested name. ]
XLIBIND=$RNADIR/libindex
X#
X# This file contains names/paths which are not allowed to use RNA.
X# With RNA distribution comes a file named 'black' which contains some
X# more docs about its structure. "black" is my suggested name for..
X# [ NOTE: inside OPER.GUIDE we always refer to this suggested name. ]
XBLACKLIST=$RNADIR/black
X#
X# This file contains names/paths which are authorized to forward RNA requests
X# for others, i.e.: send files to other people. Normally RNA sends back to
X# the original user/system who sent the mail.
X# With RNA distribution comes a file named 'white' which contains some
X# more docs about its structure. "white" is my suggested name for..
X# [ NOTE: inside OPER.GUIDE we always refer to this suggested name. ]
XWHITELIST=$RNADIR/white
X#
X# If something goes wrong with the mail, RNA will receive back its stuff
X# from somewhere. Of course this is a dangerous situation, so RNA will
X# recognize and skip this mail. A copy will be put inside..
X# [ NOTE: inside OPER.GUIDE we always refer to this suggested name. ]
XREJECTED=$RNADIR/rejected
X#
X#
X# You may choose to limit rna activities within certain paths to
X# a definite amount of bytes transmitted. For instance, you would
X# like to keep an host under control: if that host asks for more than
X# -say- 300.000 bytes, any further request should be denied. This is
X# called 'pathsizing'. RNA will check that any request coming from somewhere
X# has 'credits' before accepting its query; afterwards, its credits will be
X# updated. Following variable contains the name of the file which is going
X# to keep paths&credits notes.
X# If you don't care about 'pathsizing', leave it blank.
X# [ NOTE: inside OPER.GUIDE we always refer to this suggested name. ]
XPATHSIZE=$RNADIR/pathsize
X#
X# (Needed only if you chose pathsizing above)
X# If a path is not appearing inside pathsize, by default a no-limit credit
X# is given. You may want RNA to automatically add any new path to its
X# pathsize, with a default credit given. So...
X# Put a 0 if you want that new sites ask to be registered before being
X# authorized to use your RNA service. Any new path will be notified
X# that a membership is required in order to use your service.
X# Put a size in bytes -say 200000 (do not put any fullstops!)- as default
X# credit limit for any new path. 'pathsize' will be updated with
X# this new path and this number.
X# Leave it BLANK if you don't want to limit new paths. This way only paths
X# already included inside 'pathsize' will be affected by pathsizing.
X# More info inside RNA Operator's Guide, chapter 'Pathsizing'.
XCREDIT=300000
X#
X# You are done. No more variables to configure. You need to check for
X# RNADIR TMPDIR CONVDIR and (if not '~') PUBDIR existance; remind!
X# NOW search forward for ' %%FIX%% ' : these are entry points for
X# possible configuration-dependent problems. Do check every %%FIX%%
X# and be sure everything is ok. The last %%FIX%% has some more
X# informations for you. Do carefully follow %%FIX%% (again) until
X# the last one (it tell's you that you got to the final fix, don't
X# worry). Happy 'tuning'!
X#
X# ==============================================================
X#
X# Internal tmp files.
X# -------------------
XMBOX_COPY=$TMPDIR/tmp
XMBOX_CUT=$TMPDIR/cut
XCMDS=$TMPDIR/tmpcmds
XCMDLOG=$TMPDIR/commlog
XPOINTERS=$TMPDIR/punt
XERRSTAT=$TMPDIR/err
XOUTFILE=$TMPDIR/outfile
XUUCP_ADDRESS=$TMPDIR/address
X# -------------------- some procedures... ----
X
X# %%FIX%%
XGetMail() {
X# This function does three things; 1st) moves rnalib mailbox into
X# a temporary file. 2nd) creates back a new empty rnalib mailbox
X# 3rd) archives the temporary files inside another mailbox file.
X# You might need to fix JUST the 2ND thing..
X rm $MBOX_COPY 2>/dev/null
X mv $MAILBOX $MBOX_COPY
X# .. here it is: we CREATE BACK THE ORIGINAL MAILBOX, for instance
X# /usr/spool/mail/rnalib or /usr/mail/rnalib or whatever.
X# A simple 'touch $MAILBOX' could do; HOWEVER be *very *sure that
X# the new mailbox has the right owner/group permissions once created.
X# This is all you need: a regular empty folder, just like a normal one.
X# Here are some suggestions:
X# '>$MAILBOX' (easy to start with)
X# 'touch $MAILBOX; chown $LOGNAME $MAILBOX; chgrp mail $MAILBOX;
X# chmod 620 $MAILBOX' etc. Watch out for that 620, you might need
X# to change it; just an example!
X# Don't panic and carefully fix the following line:
X#
X touch $MAILBOX; chown $LOGNAME $MAILBOX; chgrp mail $MAILBOX; chmod 666 $MAILBOX
X#
X# That's all. Leave the rest as-it-is. Go on for the next fix..
X touch $MAIL_LOG; echo "`cat $MBOX_COPY`\n" >>$MAIL_LOG
X}
X
XStartup() {
X touch $LOGFILE
X message=1
X}
X
XClrTmpFiles() {
X rm -f $CMDLOG 2>/dev/null; touch $CMDLOG
X rm -f $ERRSTAT 2>/dev/null; touch $ERRSTAT
X rm -f $CMDS 2>/dev/null
X rm -f $CONVDIR/*.Z 2>/dev/null
X rm -f $UUCP_ADDRESS 2>/dev/null; touch $UUCP_ADDRESS
X rm -f $OUTFILE 2>/dev/null; touch $OUTFILE
X ARPA_SENDER=""; UUCP_SENDER=""; REQUEST_DATE=""; UUCP_HOST=""
X UUCP_DESTIN=""
X}
X
XCutMail() {
XNotTheFirst=0
Xrm -f $POINTERS 2>/dev/null; touch $POINTERS
X
Xgrep -n '^From ' $MBOX_COPY | PrintSumm
Xset `cat $MBOX_COPY | wc -l`; echo $1 >>$POINTERS
X}
X
XPrintSumm()
X{
X IFSorg=$IFS
X while read Linea
X do
X IFS=$IFSorg
X set $Linea
X
X# %%FIX%%
X# This is a VERY IMPORTANT FIX- watch out!
X# Question: how many fields has the very first 'From' line of a
X# mail message on YOUR system?
X# To answer, do a shell escape from your editor NOW and mail yourself
X# a message. Then edit your mailbox, and examine the first From, the
X# one WITHOUT colons. Here's mine, for instance:
X# From deejay!gear!marlor Wed Feb 21 12:32:44 1990
X# 1 2 3 4 5 6 7
X# So i know my mailer adds a 7-field From header.
X# Your mailer could add a timezone as well, and you would get 8 fields.
X# RNA does not trust by default any (apparently) valid header.
X# We extract the beginning of a mail inside our mailbox looking for
X# a 'From '(note the space) standing on a 7 (or whatever) fields line.
X# [ELM 2.2 just looks for a From with a space and more than 2 fields]
X# Replace the following number with the one you need:
X
X if [ $# = 7 ]
X then
X IFS=":$IFSorg"
X set $Linea
X NumDiLinea=$1
X if [ $NotTheFirst != 0 ]
X then
X echo "`expr $NumDiLinea - 2`" >>$POINTERS
X fi
X echo "$NumDiLinea \c" >>$POINTERS
X NotTheFirst=1
X fi
X done
X
X IFS=$IFSorg
X}
X
XCut_Address() {
X echo "$UUCP_SENDER" >> $UUCP_ADDRESS
Xif [ "$destination" != "DEFAULT" ]; then
X set `sed -e "s/@/@ /" $UUCP_ADDRESS`; UUCP_HOST=$2"!"
Xelse
X set `sed -e "s/[A-Za-z0-9]*$//g" $UUCP_ADDRESS`; UUCP_HOST=$1
Xfi
X}
X
XGetMessage() {
X set `sed -n "$1 l" $POINTERS`
X sed -n "$1,$2 l" $MBOX_COPY >$MBOX_CUT
X}
X
XGetDir()
X# this function gets a library name and returns its related path.
X# If library does not exist, nothing is returned. An argument is
X# expected. Lines containing " # " in $LIBIND are simply skipped.
X{
Xsearch=$1
Xset -f `grep -v '^#' $LIBIND`
Xwhile [ "$1" != "" ]
Xdo
X test "$1" = "$search" && shift && echo $1 && break
X shift
Xdone
X}
X
X
XStripPermAndLink()
X{
X while read line
X do
X set -- $line
X echo "$3\t$4,$5\t$6\t$7"
X done
X}
X
X
XFileType()
X# Arg: file_path (full)
X# Returns: null if file is ASCII-TEXT; output of "file" command if not.
X{
Xfilename=$1; IFSorg=$IFS
XIFS=":"; set `echo "dummy"; $BKFILE $filename | grep -v text`; IFS=$IFSorg
Xtest -n "$2" && echo $2
X}
X
X
X
XGetFile()
X# Parameters: static $argument $from
X# Returns: path_to_file; null if file does not exist
X{
XGFpath=`GetDir $from`
Xif [ "$GFpath" != "" ]; then
X test -r $GFpath/$argument && echo $GFpath/$argument
Xfi
X}
X
XListLib()
X# Parameters: library
X{
XLLlib=$1
XLLpath=`GetDir $LLlib`
Xecho "\nList of files inside \c"
X
Xif [ "$LLlib" = "DEFAULT" ]; then
X echo "RNA system library:";
Xelse
X echo "\"$LLlib\" library:\n"
Xfi
X
Xif [ "$LLpath" = "" ]
Xthen
X NoLibrary_Msg
Xelse
X ls -got $LLpath | StripPermAndLink
Xfi
X}
X
XFindFile()
X# Parameters: characters to match in searched file
X# Returns: matching libraries and files, if any
X{
XFFchars=$1; FFmatch=
Xecho "\nREQUEST: search for file names containing <$FFchars>."
Xecho " Look inside all available libraries, and\n\
X try both lower/upper case combinations.\n"
Xecho "=====================================================\n"
Xset -f `grep -v '#' $LIBIND`
Xwhile [ "$1" != "" ]
Xdo
X FFlib=$1; FFpath=$2;
X# %%FIX%%
X# On Unix V.3.2 (?) like the one from SCO, the 3B2 etc., grep's family
X# commands follow Posix. Posix suppressed '-y' and added '-i'.
X# Jesus, all we want is a non-case sensitive grep! If you run sco-xenix 386,
X# 'grep -y' should work. If you are on SCO-unix, 'fgrep -y' will.
X# Generally, 'fgrep -i' is a good chance (3B2 Unix 3.2)
X# Have a look at your grep/fgrep and pick up the right one. Change the
X# following line, if needed..................++++++++
X ls -got $FFpath | StripPermAndLink | fgrep -i $FFchars && {
X echo "\nfound inside library: \"$FFlib\""
X echo "\n=====================================================\n"
X FFmatch=ok
X }
X shift; shift
Xdone
Xtest -z "$FFmatch" && {
X echo "\tNo matching files found - sorry"
X echo "\n=====================================================\n"
X }
X
X}
X
XCut_Ls()
X# %%FIX%%
X# We need to grep out of 'ls -log' the bytes number. Since the output
X# of that 'ls' is: -rwxr-xr-x 1 33275 Feb 8 12:25 RNA
X# we use 'cut' (a common text utility) to pick up the right field.
X# On my system it came out from the 15th to 23th characters. Check yours too,
X# and find the right "-cn-n" (n=number) which extracts bytes. Good luck.
X# (Don't panic: on sco xenix386, sco unix, olivetti lsx, hp-ux and at&t 3b2
X# the 15-23 was fine. Probably it's ok for your site also)
X#
X{
Xcut -c15-23
X}
X
XGetCat()
X{
Xlibr=$1
Xif [ "`GetDir $libr`" = "" ]; then
X NoLibrary_Msg
Xelse
X file="`GetDir $libr`/INDEX"
X test -r $file && echo "\n`cat $file`" || echo "\n\
XNo index available for \"$1\" library, sorry.\n\
XHere comes a list of contents..."
Xfi
X}
X
XBlackList()
X# Gets internal uucp-from path and checks if it's blacklisted.
X# Returns: blacklist matching, or nothing at all.
X{
Xset -f `grep -v '#' $BLACKLIST`
Xwhile [ "$1" != "" ]
Xdo
X test -n "`echo $UUCP_SENDER | grep $1`" && {
X echo "<$1> is matched inside <$UUCP_SENDER>" && break; }
X shift
Xdone
X}
X
XToCheck()
X# checks if sender is authorized to use "To" or not.
X# returns a string if it's ok, nothing if not.
X{
Xset -f `grep -v '#' $WHITELIST`
X#while test -n "$1"
Xwhile [ "$1" != "" ]
Xdo
X test -n "`echo $UUCP_SENDER | grep $1`" && {
X echo "<$1> is matched inside <$UUCP_SENDER>" && break; }
X shift
Xdone
X}
X
XWith_Type()
X{
Xencode_type="none"; compress_type="none"
Xcase $with in
X compr|Compr|COMPR|\
X compress|COMPRESS|Compress)
X encode_type="uuencode"
X compress_type="compress"
X ;;
X
X compr-btoa|Compr-Btoa|COMPR-BTOA|\
X compress-btoa|COMPRESS-BTOA|\
X Compress-Btoa)
X encode_type="btoa"
X compress_type="compress"
X ;;
X
X compr-uuenc|Compr-Uuenc|COMPR-UUENC|\
X compress-uuencode|COMPRESS-UUENCODE|\
X compress-encode|COMPRESS-ENCODE|\
X Compress-Uuencode|Compress-Encode)
X encode_type="uuencode"
X compress_type="compress"
X ;;
X
X DEFAULT|UUENCODE|ENCODE|\
X uuencode|encode|ascii|\
X Uuencode|Encode|ASCII)
X encode_type="uuencode"
X compress_type="none"
X ;;
X
X BTOA|btoa|Btoa)
X encode_type="btoa"
X compress_type="none"
X ;;
X
X# %%FIX%%
X# The sender used a strange "with" field; a default behaviour
X# follows. Put 'reject' as encode_type if you do not want any mailing
X# whenever there's an invalid 'with'.
X# Currently this error is ignored (with a warning) and the stuff is
X# shipped all the same using uuencode.
X# This is just to let you know you can do it. No need to touch it
X# for a normal usage.
X
X *)
X encode_type="uuencode"
X compress_type="none"
X WithError_Msg >>$OUTFILE
X NeedHelp_Msg >>$OUTFILE
X ;;
Xesac
X
Xif [ "$compress_type" != "none" ]; then
Xset `echo $argument | wc -c`; length=`expr $1 - 1`
X if [ "$length" -gt "$MAXLENGTH" ]; then
X NoSuffix_Msg >> $OUTFILE
X echo "\
XSubject: WARNING, file name too long for RNA compress\n\n\
X Please rename file: \"$fname\" if possible.\n\
X Its name is longer than \"$MAXLENGTH\" characters and\n\
X RNA users can't ask for \"$COMPRESS\" shippings.\n\n\
X Your friendly RNALIB DAEMON\n" | $MAILER $POSTMASTER
X return
X else
X FCPRNAME=$CONVDIR/$argument".Z"
X argument=$argument".Z"
X fi
X# Check if 'compress' is available.
X test $COMPRESS || { NoCompr_Msg >> $OUTFILE; return; } && $COMPRESS -c $fname > $FCPRNAME
X test -s $FCPRNAME || { Already_Msg >> $OUTFILE; return; } && fname=$FCPRNAME
X Compr_Msg >>$OUTFILE
Xfi
X
X}
X
XConvert_File()
X{
Xftype=""; ftype="`FileType $fname`"
X
Xif [ "$viasped" != "NO_MAIL" ]; then
X
X# Did the sender request a special "with" for a simple ASCII file?
X# If so, we reject his request and ship the file as-it-is.
Xtest $with != "DEFAULT" && test "$ftype" = "" && NoNeed_Msg >>$OUTFILE
X
Xif [ "$ftype" = "" ]; then
Xencode_type="none"
Xfi
X
X# If user asked for btoa encoding, see if btoa is available.
X# If btoa is not available we WON'T use uuencode; i suppose the sender had
X# some reasons to choose btoa...
Xif [ "$encode_type" = "btoa" ]; then
X test $BTOA || { NoBtoa_Msg >>$OUTFILE; return; } && Convert_Msg >>$OUTFILE
Xfi
X# The following 'fi' refers to 'viasped != no_mail'.
Xfi
X
Xtest "$encode_type" = "uuencode" && test "$viasped" != "NO_MAIL" && Convert_Msg >>$OUTFILE
X
X# We are about to ship the stuff; let's see if the destination address is
X# different from the sender. If so, it's an authorized "external request"
X# and we want to notify the destination about it.
X# Beware of 'reject' encode_type: we want to be sure that the stuff is sent
X# to the external destination only, in this case. Error announcements HAVE
X# to go to the original sender (what a mess!).
Xif [ "$encode_type" != "reject" ]; then
X if [ "$destination" != "DEFAULT" ]; then
X echo "\n\
XNote: this is an external request forwarded by $ARPA_SENDER for you.\n\
X Original mail path is: <$UUCP_SENDER> .\n\
X " >>$OUTFILE
X fi
Xfi
X
Xtest "$viasped" != "NO_MAIL" &&
X echo "\n-rnalib---------------------- cut here for \"$argument\" ------------" >>$OUTFILE
X
Xcase $encode_type in
X
X# syntax: uuencode path/file internal_filename
X uuencode)
X if [ "$viasped" = "NO_MAIL" ]; then
X NoConv_Msg >> $OUTFILE
X else
X $UUENCODE $fname $argument >>$OUTFILE
X fi ;;
X
X# %%FIX%%
X# Syntax: btoa path/file -- warning: using old versions of btoa requires
X# 'cat $fname | btoa >>$OUTFILE' or something like. Get the new release!
X btoa)
X if [ "$viasped" = "NO_MAIL" ]; then
X NoConv_Msg >> $OUTFILE
X else
X $BTOA $fname >>$OUTFILE
X fi ;;
X
X# encode_type equals "none" only if file is not binary, or if it
X# going to be shipped with uusend or uucp (if available)
X none)
X if [ "$viasped" = "NO_MAIL" ]; then
X NoConv_Msg >> $OUTFILE
X else
X cat $fname >>$OUTFILE
X fi ;;
X
X# Configuration choice: if $with is not a valid argument don't ship
X# the binary encoding with "uuencode"; notify the sender, though.
X reject) echo "\nPlease re-submit your request with proper parameter\n" >>$OUTFILE;;
X
X *) echo "\nRNA INTERNAL ERROR inside procedure Convert_File\n" >>$OUTFILE
X echo "WARNING: convert internal error (notified to operator)" >>$LOGFILE
X test $DEBUG && echo "Internal error: encode_type=$encode_type";;
X
Xesac
X
Xtest "$viasped" != "NO_MAIL" &&
X echo "\n-rnalib----------------------- end of file \"$argument\" ------------" >>$OUTFILE
X
X# Be *very sure we are not shipping errors to an external destination!
Xif [ "$encode_type" != "reject" ]; then
X if [ "$destination" != "DEFAULT" ]; then
X
X# change destination...and good luck for delivery!
X
X UUCP_SENDER=$destination
X ARPA_SENDER=$destination
X fi
X echo "Sent < $argument from $from - via $via > to $ARPA_SENDER" >>$LOGFILE
Xfi
X
X}
X
X
XMail_File()
X{
Xtest $DEBUG && echo "Now mailing: $UUCP_SENDER"
XSignature >>$OUTFILE
X# %%FIX%%
X# If you trust or need domain addressing, then change $UUCP_SENDER
X# with $ARPA_SENDER. Think about this twice; let the bang routing
X# unless you *know *what *you *are *doing.
X# This won't work with external destinations, of course.
X# If mail header did not contain an rfc822 arpa address then
X# don't worry: arpa_sender will just be a copy of uucp_sender.
Xcat $OUTFILE | $MAILER $UUCP_SENDER
X# We need to grep out of 'ls -log' the bytes number.
Xset `ls -log $OUTFILE | Cut_Ls`
Xecho "Reply of $1 bytes sent to: $UUCP_SENDER" >>$LOGFILE
X#
Xtest -n "$PATHSIZE" && Bill $OUTFILE
Xrm -f $OUTFILE 2>/dev/null; touch $OUTFILE
X}
X
X
XCheck_PathSize()
X# $1 = path/user to check
X# returns: null if unknown path; otherwise current credit size.
X{
Xps_origin=$1
X# Warning: file 'pathsize' in this version of RNA needs a dummy line
X# like ' user 0 ' or 'user at host 0' for the *very *first user update.
X# In other words, if you are applying pathsizing, your 'pathsize'
X# has to contain a first line to work on. Pathsize cannot be empty!
X# Technically, what happens is that shell gets angry since it
X# cannot shift 'ps_credit'. This will be fixed in future versions.
Xset -f `grep -v '#' $PATHSIZE`
Xwhile [ "$1" != "" ]; do
X ps_path=$1; ps_credit=$2; shift; shift
X test -n "`echo $ps_origin | grep $ps_path`" && echo $ps_credit && break
Xdone
X}
X
X
XAdd_PathSize()
X# It's named 'Add', but really it subtracts sizes!
X# $1 = path/user to update; $2 = umount to subtract
X{
Xps_origin=$1; ps_size=$2;
X# strip comments, as usual
Xset -f `grep -v '#' $PATHSIZE`
Xwhile [ "$1" != "" ]; do
X ps_path=$1; ps_credit=$2; shift; shift
X# Is this path matching the one we are checking?
X test -n "`echo $ps_origin | grep $ps_path`" && {
X# Yep. Let's calculate the new credit, and...
X ps_size=`expr $ps_credit - $ps_size`
X# ..update the pathsize database. Ugly 'ed' script!
X ed - pathsize >/dev/null <<OoPs
X /$ps_path.*$ps_credit/
X s/\(.*\) \(.*\)/\1 $ps_size/
X w
X q
XOoPs
X# All done; get back!
X return
X }
Xdone
X# This path does not exist inside our pathsize database. Uhm..
X# If CREDIT is defined, we add the new path to our database. We assume
X# that CREDIT is not '0': a previous check on this value would have
X# rejected any request and we wouldn't be here. So either 'credit' has
X# a value different from zero, or it is not defined at all. Trust me!
Xtest -n "$CREDIT" && {
X ps_size=`expr $CREDIT - $ps_size`
X echo "$ps_origin $ps_size" >>$PATHSIZE
X }
X}
X
XBill() {
X
Xif [ "$credit" != "UNLIMITED" ]; then
X
X# bill destination of $1 lenght
X ( set `ls -log $1 | Cut_Ls`
X Add_PathSize $UUCP_SENDER $1
X )
Xfi
X}
X
X
X#
X# RNA 2.0 MESSAGES - Warning: change at your own risk!
X#
X
XHeaders_Msg()
X{
X# DON'T CHANGE the 'X-Mailer' line by *any means. Future versions of
X# RNA will talk to each other (sort-of networking!) and will need
X# to know exactly which version is on the other side.
Xspedresult=`Reference_Cmd`
Xecho "\
XX-Mailer: RNALIB 2.0 [Rev.A]\n\
XX-Sender: $ARPA_SENDER\n\
XSubject: RNA answer: $spedresult"
X
Xtest -s $RNADIR/notice && cat $RNADIR/notice
X}
X
XNoHuman_Msg()
X{
Xecho "\
XThis message has been generated by a program. To talk to a human,\n\
Xsend mail to $POSTMASTER. Special requests of details on\n\
XRNA delivers may be submitted to this address only."
X}
X
XExample_Msg()
X{
Xecho "\
XHere are some example requests, in case syntax is the problem:\n\
X\n\
X @@ help\n\
X @@ index\n\
X @@ index {library}\n\
X @@ list {library}\n\
X @@ find {filename}\n\
X @@ credits\n\
X @@ send {file} from {library}\n\
X @@ send {file} from {library} with {compress-uuencode}\n\
X @@ send {file} from {library} with {btoa} via {uucp}\n\
X @@ send {file} from {library} with {uuencode} via {uusend}\n\
Xetc.etc."
X}
X
XNeedHelp_Msg()
X{
Xecho "\
XIf you need help on RNA commands syntax, a doc file is available\n\
Xhere. You might get it by mailing $LOGNAME@$UNAME , with either\n\
Xmessage body or Subject containing: @@ help."
X}
X
XNoFile_Msg()
X# $1=LIBRARY $2=FILE-NAME
X{
Xif [ "$1" != "DEFAULT" ]; then
X echo "\n\
XSorry, no such file was found. Recheck library contents.\n\
XTo do that, use the RNAlib command: @@ list $1\n\
XFor a verbose description of files use: @@ index $1"
Xelse
X echo "\
XSorry no such file was found inside RNALIB system directory.\n\
XPlease recheck library contents with : @@ list\n\
XFor a list of available libraries and description of \n\
Xavailable system files try: @@ index "
Xfi
Xecho "\n\
XYou may also scan the whole library system looking for a particular\n\
Xfile-name or part of it; use: @@ find {chars}. Example: @@ find doc\n\
Xwould list all available files whose names contain \"doc\". \n\
XIf you insist on this file-name, then try: @@ find $2 \n\
XIf all of this doesn't explain the problem, send a complaint\n\
Xto postmaster here: $POSTMASTER"
X}
X
XNoLibrary_Msg()
X{
Xecho "\
XSorry, this library does not exist! Recheck the general index.\n\
XTo do that, try the RNA command: @@ index \n\
XIf that doesn't explain the problem, send a complaint\n\
Xto: $POSTMASTER"
X}
X
XCantAccess_Msg()
X{
Xecho "\
XSorry, i could not read \"$argument\" inside selected library : \n\
Xthere might be local problems with fileystem permissions here.\n\
XTry contacting the postmaster for some explanations."
X}
X
XYourMail_Msg()
X{
Xecho "\nYour mail, as received here, was...\n\
X--------------------------------------------"
Xcat -v $MBOX_CUT
Xecho "\n--------------------------------------------"
X}
X
XSyntax_Msg()
X{
Xecho "\
XSorry, the RNAlib program could not understand your request.\n"
XNeedHelp_Msg
Xecho; Example_Msg; echo; YourMail_Msg
X}
X
XBadChars_Msg()
X{
Xecho "\
XYour request included shell magic characters inside $1 command line(s).\n\
XSuch characters like \*, | , / , dots etc. are PROHIBITED for security\n\
Xreasons: the whole message has been discarded for this reason."
X}
X
XNoCommands_Msg()
X{
Xecho "\
XRNAlib could not find any command-lines inside your mail-request.\n"
XNeedHelp_Msg
Xecho; Example_Msg; echo; YourMail_Msg
X}
X
XNoTo_Msg()
X{
Xecho "\
XSorry, you are not authorized to use the \"TO\" field inside RNA requests.\n\
XSpecial permissions should be submitted to $POSTMASTER, along with\n\
Xsome good reasons for such capability."
X}
X
XBlackListed_Msg()
X{
Xecho "\
XSorry, you cannot forward RNALIB-requests here: your site is off-limits.\n\
XThere's also a chance that your site is placed on a blacklisted path,\n\
Xand though rejected; it could also be that your address and/or name\n\
Xjust looks exactly as a blacklisted one."
X}
X
XDeliver_Msg()
X{
Xecho "\
XThis is the RNALIB output for a request destinated to you.\n\
XEnquiry was sent on $REQUEST_DATE by <$ARPA_SENDER>."
X}
X
X
XReference_Cmd()
X{
Xtest -z "$action" && echo "problems." && exit
Xecho "\"$action\c"
Xtest "$argument" != "DEFAULT" && echo " $argument\c"
Xtest "$from" != "DEFAULT" && echo " [from] $from\c"
Xtest "$destination" != "DEFAULT" && echo " [to] $destination\c"
Xtest "$with" != "DEFAULT" && echo " [with] $with\c"
Xtest "$via" != "DEFAULT" && echo " [via] $via\c"
Xecho "\"\n"
X}
X
XReference_Msg()
X{
Xecho "Command referenced: `Reference_Cmd`"
X}
X
XConvert_Msg()
X{
Xecho "\
XThis file appears to be a $ftype:\n\
Xit has been transformed into an ASCII-format using \"$encode_type\".\n\
X"
X}
X
XNoNeed_Msg()
X{
Xecho "\
XField \"with\" ignored: file is already ASCII-text."
X}
X
XNoSuffix_Msg()
X{
Xecho "\
XWARNING: requested file \"$fname\"\n\
X has NOT been compressed since its longer than \"$MAXLENGHT\"\n\
X characters permitted by \"$COMPRESS\". The problem has been\n\
X notified to $POSTMASTER here. Sorry for the inconvenience.\n\
X"
X}
X
XNoConv_Msg()
X{
Xecho "\
XField \"with\" ignored: file hasn't been converted since\n\
Xit comes via \"$via\".\n\
X"
X}
X
XCompr_Msg()
X{
Xecho "\
XThis file has been converted with utility \"$COMPRESS\"\n\
XYou need to convert it back with something like \"uncompress\"\n\
Xor \"compress -d\".\n\
X"
X}
X
XShip_Msg()
X{
Xecho "\
XFile requested for \"$ARPA_SENDER\" and destinated to \"$UUCP_HOST\"\n\
Xis coming inside your system public directory via \"$via\".\n\
XCheck it out! It should already be there.\n\
X"
X}
X
XNoCompr_Msg()
X{
Xecho "\
XWARNING: \"compress\" is not available here!\n\
XYour file has been sent without any compression. Sorry.\n\
X"
X}
X
XAlready_Msg()
X{
Xecho "\n\
XThis file hasn't been compressed since it ALREADY was compressed!\n\
XAny file whose name terminates with a \".Z\" is compressed: take care!\n\
XYou can get a list of file names inside a specific library\n\
Xwith RNA command \"list library\".\n\
X"
X}
X
XViaError_Msg()
X{
Xecho "\
XWarning! Field \"with\" ignored: <$with> is not a valid identifier.\n\
XThis file has been sent via normal \"e-mail\".\n\
X"
X}
X
XPending_Msg() {
Xecho "\
XX-Mailer: RNALIB 2.0 [Rev.A]\n\
XSubject: RNA is out of service on $UNAME\n\n\
XHello. RNALIB on $UNAME is temporarily out of service.\n\
XYour request of $REQUEST_DATE has been queued and will be processed\n\
Xas soon as the service is resumed.\n\n\
X`cat $RNADIR/hold`\n\n
X`Signature`"
X}
X
XWithError_Msg()
X{
Xecho "\
XWarning! Field \"with\" ignored: <$with> is not a valid identifier.\n\
XThis file has been transformed into an ASCII-format using \"uuencode\"."
X}
X
XNoBtoa_Msg()
X{
Xecho "\n\
XWARNING: \"btoa\" translation is not available here!\n\
XPlease re-submit your request without further \"with\" field;\n\
Xnon-ascii files will be treated with \"uuencode\"."
X}
X
XSignature()
X{
Xecho "\n\
X--\n\
X|RNALIB|SERVER| | running at: \"$UNAME\"\n\
X|rnalib|server| | postmaster: $POSTMASTER"
X}
X
XNoCredit_Msg() {
X echo "\
XX-Mailer: RNALIB 2.0 [Rev.A]\n\
XSubject: your path is out of RNA credits\n\n\
XThe mail path you are coming from has exceeded its transmission's limits.\n\
XIn order to keep network trafic under control, we fix a credit size for\n\
Xcertain paths: currently your site results to be out of credits.\n\
XYou may ask $POSTMASTER for a credit reset; until then, all\n\
Xrnalib queries from your path are ignored.\n\
XYou may in the future ask rnalib which is the current credit size which\n\
Xapplies to your path, using: \"@@ credits\".\n"
XYourMail_Msg
XNoHuman_Msg
XSignature
X}
X
XSubScribe_Msg() {
X echo "\
XX-Mailer: RNALIB 2.0 [Rev.A]\n\
XSubject: Please subscribe for rnalib service\n\n\
XHello.\n\
XRNALIB service here on $UNAME requires a subscription to the \n\
Xauthorized user's list.\n\
XPlease mail $POSTMASTER asking for registration before any further query.\n\
X Thank You\n"
XYourMail_Msg
XNoHuman_Msg
XSignature
X}
X
X# End of messages-
X
Xparse() {
Xecho "\n`date '+%d.%m.%y - %H:%M:%S'`" >>$LOGFILE
Xtest $DEBUG && echo "Parsing message.."
X# Watch out for rejected mails! Don't waste time..
X
Xrejected=""; grep "X-Mailer: RNALIB" $MBOX_CUT >/dev/null && rejected=1;
Xif [ "$rejected" = "1" ]; then
X test $DEBUG && echo "Skip this mail: it was rejected from remote"
X echo "\n`cat $MBOX_CUT`" >>$REJECTED
X
X echo "Priority: all\nSubject: RNA delivery rejected\n\n\
XAn RNA delivery was rejected from remote. A copy of the following\n\
Xdiagnostic has been archived inside $REJECTED as usual.\n\
XHere comes the stuff i received....\n\n\
X`cat $MBOX_CUT`\n\n Your friendly RNALIB DAEMON" | $MAILER $POSTMASTER
X
X return
Xfi
X
X# get the first From path for a (un)trustable bang-reply ;-)
Xset `head -1 $MBOX_CUT`; UUCP_SENDER=$2
Xecho "Request received from: $UUCP_SENDER" >>$LOGFILE
X# get the ARPA address of the sender. A real hack upon rfc822..
Xset `wc -l $MBOX_CUT`; end=$1; rline=2
Xuntil [ "$rline" = "$end" ]
Xdo
X rrline=`sed -n "$rline l" $MBOX_CUT`
X test -z "$rrline" && rline=$end && break
X set -f $rrline
X if [ "$1" = "From:" ]; then
X# Here we are, trying to fit the (in)famous rfc822.
X# Rule of dumb: if only one field, it's it.
X if [ "$#" = "2" ]; then
X ARPA_SENDER=$2
X# Retry: if one of the fields contains "<>", it's it.
X# We just check for the open '<'; we won't consider
X# drunk mailers. We also assume that <address> is the
X# last field on the line.
X elif [ "`echo $@ | grep '<'" != "" ]; then
X IFSorg=$IFS; IFS="<>"
X set $@; ARPA_SENDER=$2;
X elif [ "`echo $@ | grep '('" != "" ]; then
X# Back on: if one of the fields contains "()", the other
X# is the good one. We assume that (Full Name) is the last
X# field on the line.
X IFSorg=$IFS; IFS="( )"
X set $@; ARPA_SENDER=$2
X fi
X# If this is not enough, you'll have to find out yourself
X# the way to get arpa-addresses on your site. Send a copy of
X# the object header to me, so that i'll add that
X# specification for the next rna release.
X IFS=$IFSorg
X fi
X test "$1" = "Date:" && REQUEST_DATE="$2 $3 $4"
X rline=`expr $rline + 1`
Xdone
Xtest -z "$ARPA_SENDER" && ARPA_SENDER=$UUCP_SENDER
Xtest -z "$REQUEST_DATE" && REQUEST_DATE="(unknown date)"
X
Xtest $DEBUG && echo "UUCP incoming address: $UUCP_SENDER"
Xtest $DEBUG && echo "ARPA incoming address: $ARPA_SENDER"
Xtest $DEBUG && echo "date of original mail: $REQUEST_DATE"
X
X# Now we know everything we need about our incoming message.
X# Let's see if the rna service is on hold for some reason...
Xtest -r $RNADIR/hold && {
X# ..yep. We touch and fill 'pending'. An empty 'pending' should *never
X# exist. Rna at startup would claim there are pending jobs.
X touch $RNADIR/pending; echo "`cat $MBOX_CUT`\n" >>$RNADIR/pending
X Pending_Msg | $MAILER $UUCP_SENDER
X return
X}
X
X
X# get command lines from the message (if any)
Xgrep '@@' $MBOX_CUT >$CMDS
X
X# Some pre-parsing for naughty characters.. If security problems are
X# detected inside command lines belonging to the same message, the WHOLE
X# message is rejected. We never know what these hackers can try nowadays ;-)
X# BEWARE: what we do is searching with egrep for these characters:
X# * | ? " . / '
X# I gave up trying to grep also: ` and \ (egrep gives errors).
X# Using these characters, though, gives no results from the "hacker's point
X# of view". So the stuff should be quite secure right now.
X# %%FIX%%
X# We use 'egrep' here. If you don't have a 'egrep' try using the normal
X# 'grep' with some hacks. The aim is to fit the 'if' condition whenever
X# magic characters are detected inside command lines.
X# If you can't come to anything working, then replace the following line
X# with 'error=0' and watch out for enemies on the net!
Xerror=`egrep -c "\*|\||\?|\"|/|\'" $CMDS`
Xif [ "$error" != "0" ]; then
X test $DEBUG && echo "WARNING: security problems, mail rejected"
X echo "SECURITY problems with $ARPA_SENDER" >>$LOGFILE
X BadChars_Msg $error >$ERRSTAT
X# We need this so the interpreter will stop arguing about external dest.
X destination=DEFAULT
X return
Xfi
X
Xif test -s $CMDS; then
X set `wc -l $CMDS`; cmds=$1
X test $DEBUG && echo "this message contains $cmds command line(s)"
X echo "Found $cmds command line(s)" >>$LOGFILE
X strings="`cat $CMDS`"
X set -f $strings
X#
X# This is the MAIN PARSE loop
X#
Xerror=0; position=0; action=""; argument=""; destination="DEFAULT"; from="";
Xwith=""; via=""
X#
Xwhile [ "$1" != "" ]
Xdo
X case $1 in
X @@)
X test $DEBUG && echo "restart of command line"
X if test $position -gt 0
X then
X echo $action $argument $from $destination $with $via >>$CMDLOG
X fi
X action=""; argument=""; from="DEFAULT"; destination="DEFAULT"
X with="DEFAULT"; via="DEFAULT"; position=0
X shift;;
X
X [sS][eE][nN][dD])
X test $DEBUG && echo "found \"send\""
X if test $position -eq 0
X then
X action=send
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X
X [lL][iI][sS][tT])
X test $DEBUG && echo "found \"list\""
X if test $position -eq 0
X then
X action=list
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X
X [iI][nN][dD][eE][xX])
X test $DEBUG && echo "found \"index\""
X if test $position -eq 0
X then
X action=index
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X [fF][iI][nN][dD])
X test $DEBUG && echo "found \"find\""
X if test $position -eq 0
X then
X action=find
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X [hH][eE][lL][pP]|hilfe|HILFE|aiuto|AIUTO|aled|ALED)
X test $DEBUG && echo "found \"help\""
X if test $position -eq 0
X then
X action=help
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X [cC]redits|[cC]redit)
X test $DEBUG && echo "found \"credits\""
X if test $position -eq 0
X then
X action=credits
X shift
X if test -z "$1"
X then
X argument="DEFAULT"
X position=1
X else
X if [ "$1" = "@@" ]; then
X argument="DEFAULT"
X position=1
X else
X argument=$1; position=1
X shift
X fi
X fi
X fi;;
X
X
X [fF][rR][oO][mM]|inside|[iI][nN])
X test $DEBUG && echo "found \"from\""
X shift
X if test "$1"
X then
X test "$1" != "@@" && from=$1 && shift
X fi;;
X
X
X to|To:)
X test $DEBUG && echo "found \"to\""
X shift
X if test "$1"
X then
X test "$1" != "@@" && destination=$1 && shift
X fi;;
X
X with|With|using|USING)
X test $DEBUG && echo "found \"with\""
X shift
X if test "$1"
X then
X test "$1" != "@@" && with=$1 && shift
X fi;;
X
X [vV][iI][aA]|over|OVER|through|THROUGH)
X test $DEBUG && echo "found \"via\""
X shift
X if test "$1"
X then
X test "$1" != "@@" && via=$1 && shift
X fi;;
X
X# These words are skipped if found before a @@ or after
X# a valid argument shift.
X *[Pp]lease*|hello|do|[Ss]ubject:|[Aa]ction:)
X test $DEBUG && echo "junk \"$1\" skipped"
X shift;;
X
X *)
X test $DEBUG && echo "unknown command: \"$1\""
X echo "\nParser error: unknown command \"$1\"" >>$ERRSTAT
X error=1
X ;;
X esac
X
X if test $error -gt 0
X then
X test $DEBUG && echo "looking for a new command line"
X while [ "$1" != "@@" ]
X do
X test -z "$1" && test $DEBUG && echo "no more command lines in this message"
X test -z "$1" && break
X shift
X done
X error=0; position=0
X test $DEBUG && echo "found a new command line"
X fi
X
X
X# end while
Xdone
X
Xif test $position -gt 0
Xthen
X echo $action $argument $from $destination $with $via>>$CMDLOG
Xfi
X
X# these three lines refer to the test $CMDS at the beginning of parse()
X
Xelse
Xdestination=DEFAULT
Xtest $DEBUG && echo "this message does not contain any command line"
Xfi
X
X}
X
Xinterp() {
X
X# If pathsizing is activated, look for credits..
Xtest -n "$PATHSIZE" && {
X if [ "$STRINGS" != "" ]; then
X $STRINGS $PATHSIZE > $TMPDIR/pathstr
X cat $TMPDIR/pathstr > $PATHSIZE
X fi
X if [ "$destination" != "DEFAULT" ]; then
X UUCP_DESTIN=$destination
X credit="`Check_PathSize $UUCP_DESTIN`"
X else
X credit="`Check_PathSize $UUCP_SENDER`"
X fi
X if [ "$credit" = "UNLIMITED" ]; then
X test $DEBUG && echo "Your path: has no limits!"
X echo "Your path: has no limits!" >> $LOGFILE
X else
X if [ "$credit" = "" ]; then
X# Unknown path inside pathsize:
X if [ "$CREDIT" = "0" ]; then
X# New paths need to subscribe!
X test $DEBUG && echo "New path: needs to subscribe!"
X echo "New path: needs to subscribe!" >> $LOGFILE
X SubScribe_Msg | $MAILER $UUCP_SENDER
X rejected=1
X fi
X elif [ "$credit" -le "0" ]; then
X rejected=1
X echo "No more credits for this account" >> $LOGFILE
X NoCredit_Msg | $MAILER $UUCP_SENDER
X fi
X fi
X}
X
Xtest $DEBUG && echo "Interpreter: \c"
X
Xif [ "$rejected" = "1" ]; then
X test $DEBUG && echo "Remote rejected or no-credits path: skipping."
X echo "Message from $ARPA_SENDER discarded" >>$LOGFILE
X return;
Xfi
X
Xtest -s $RNADIR/hold && {
X test $DEBUG && echo "holding message as pending job"
X echo "Holding message from $ARPA_SENDER" >>$LOGFILE
X return;
X}
X
X# First we check if the sender is blacklisted.
Xif [ "`BlackList`" != "" ]; then
X test $DEBUG && echo "origin is blacklisted!\nDiagnostic: `BlackList`"
X echo "Origin is Blacklisted: $ARPA_SENDER" >>$LOGFILE
X Headers_Msg >>$OUTFILE
X Deliver_Msg >>$OUTFILE
X echo "\nWARNING, BLACKLIST PROBLEMS!\n`BlackList`\n" >>$OUTFILE
X BlackListed_Msg >>$OUTFILE
X YourMail_Msg >>$OUTFILE
X NoHuman_Msg >>$OUTFILE
X Mail_File
X# I'm done with this message; next one, please..
X return
Xfi
X
X# Then we check if the sender used "to" field with authorization
Xif [ "$destination" != "DEFAULT" ]; then
X test $DEBUG && echo "external destination for <$destination>\nChecking for privileges...\c"
X if test -z "`ToCheck`"; then
X test $DEBUG && echo "NO privileges. Request denied!"
X echo "External request denied: $ARPA_SENDER" >>$LOGFILE
X Headers_Msg >>$OUTFILE
X Deliver_Msg >>$OUTFILE
X echo "\nWARNING: no privilege for external destinations\n" >>$OUTFILE
X NoTo_Msg >>$OUTFILE
X YourMail_Msg >>$OUTFILE
X NoHuman_Msg >>$OUTFILE
X Mail_File
X# I'm done with this message; next one, please..
X return
X fi
Xtest $DEBUG && echo "OK, origin is authorized!\nDiagnostic: `ToCheck`"
Xecho "External Request OK: $ARPA_SENDER" >>$LOGFILE
Xfi
X
X# And now we check if the parser reported errors..
Xif test -s $ERRSTAT; then
X test $DEBUG && echo "errors were detected by the parser.\nNotify origin and skip this message."
X echo "Parser rejects: $ARPA_SENDER" >>$LOGFILE
X Headers_Msg >>$OUTFILE
X Deliver_Msg >>$OUTFILE
X cat $ERRSTAT >>$OUTFILE
X Syntax_Msg >>$OUTFILE
X NoHuman_Msg >>$OUTFILE
X Mail_File
X# I'm done with this message; next one, please..
X return
Xfi
X
X# Work for us?
Xif test -s $CMDLOG; then
X set `wc -l $CMDLOG`; cmds=$1
X test $DEBUG && echo "working on $cmds valid request(s)"
X echo "Found $cmds valid request(s)" >>$LOGFILE
X# following two lines are very important
Xstrings="`cat $CMDLOG`"
Xset -f $strings
Xaction=""; argument=""; destination=""; via=""; with=""; tok=""
X#
X# * INTERPRETER LOOP *
X# we parse standard 6-fields command lines whose fields are
X# <action> <argument> <from-lib> <destination> <with> <via>
X#
Xwhile [ "$1" != "" ]
Xdo
X
Xaction=$1; shift; argument=$1; shift; from=$1; shift; destination=$1
Xshift; with=$1; shift; via=$1
X
Xrm -f $OUTFILE 2>/dev/null
X# the following bracket starts the restricted environment of the interpreter:
X# since we are using a streamed handling of a "cat", we *need to be sure that
X# no procedure is executed within the same environment; so status variables
X# won't change and RNA won't loose control of its job. Basically, the main
X# effect of such lack is a message like "RNA: cannot shift" . Which takes
X# RNA to forget about any command line - and any subsequent mail - aside the
X# very first one of the very first income mail.
X(
Xtest $DEBUG && Reference_Msg
XHeaders_Msg >$OUTFILE
X
Xcase $action in
X
Xsend)
X Deliver_Msg >>$OUTFILE
X if [ "$argument" = "DEFAULT" ]; then
X test $DEBUG && echo "Missing argument for \"send\""
X echo "\nERROR: command \"send\" requires an argument!\n" >>$OUTFILE
X Syntax_Msg >>$OUTFILE
X NoHuman_Msg >>$OUTFILE
X Mail_File
X# I'm done with this message; next one, please..
X return
X fi
X Reference_Msg >>$OUTFILE
X# Let's see if library and file do really exist
X fname=""; fname="`GetFile $argument $from`"
X if [ "$fname" != "" ]; then
X
X# If we are here, file/lib exists , "to" is ok
X# (if there's one), so we may try to ship the stuff.
X# We need to know HOW, first!
X
X# Check the field "via". Sorry for the bad indentation. We all need
X# 160 columns monitors nowadays ;-)
X
Xcase $via in
X
Xuusend|UUSEND|Uusend)
X With_Type
X viasped="NO_MAIL"
X Convert_File
X Cut_Address
X Ship_Msg >> $OUTFILE
X test $DEBUG && echo "Now sending file with uusend to :$UUCP_HOST"
X echo "File sent: $argument via $via to: $UUCP_SENDER">>$LOGFILE
X# if you don't want to 'bill' uusend shippings, comment next line
X test -n "$PATHSIZE" && Bill $fname
X $UUSEND -r -f -m 666 $fname $UUCP_HOST$PUBDIR"/"$argument ;;
X
Xuucp|UUCP|Uucp)
X With_Type
X viasped="NO_MAIL"
X Convert_File
X Cut_Address
X Ship_Msg >> $OUTFILE
X test $DEBUG && echo "Now send file using uucp to :$UUCP_HOST"
X echo "File sent: $argument via $via to: $UUCP_SENDER">>$LOGFILE
X# if you don't want to 'bill' uucp shippings, comment next line
X test -n "$PATHSIZE" && Bill $fname
X $UUCP -r -C $fname $UUCP_HOST$PUBDIR"/"$argument ;;
X
XDEFAULT|default|mail|\
XMAIL|Mail|email|EMAIL|E-Mail|\
Xe-mail|E-MAIL)
X test $DEBUG && echo "Now send file using e-mail to :$UUCP_SENDER"
X With_Type
X viasped=""
X Convert_File
X echo "File sent: $argument via $via to: $UUCP_SENDER">>$LOGFILE
X ;;
X
X*)
X via="DEFAULT"
X With_Type
X viasped=""
X Convert_File
X ViaError_Msg >> $OUTFILE
X test $DEBUG && echo "Now send file using e-mail to :$UUCP_SENDER"
X echo "File sent: $argument via $via to: $UUCP_SENDER">>$LOGFILE
X
Xesac
X
X
X else
X# Something wrong with object file, Scotland Yards investigates..
X if [ "`GetDir $from`" = "" ]; then
X test $DEBUG && echo "Nonexistent library: \"$from\""
X echo "NO library found: $from" >>$LOGFILE
X NoLibrary_Msg >>$OUTFILE
X elif [ "`GetFile $argument $from`" = "" ]; then
X test $DEBUG && echo "Nonexistent file: \"$argument\" inside library \"$from\""
X echo "NO file found: $argument" >>$LOGFILE
X NoFile_Msg $from $argument >>$OUTFILE
X else
X CantAccess_Msg >>$OUTFILE
X echo "CANT ACCESS $argument from $from" >>$LOGFILE
X test $DEBUG && echo "WARNING: cannot open \"`GetFile $argument $from`\""
X fi
X fi
X Mail_File ;;
X
Xlist) Deliver_Msg >>$OUTFILE
X Reference_Msg >>$OUTFILE
X ListLib $argument >>$OUTFILE
X echo "\nPLEASE use command \"index\" to get more details\n\
X on library: $argument">>$OUTFILE
X echo "Command executed: list $argument : $ARPA_SENDER" >>$LOGFILE
X Mail_File ;;
X
Xindex) Deliver_Msg >>$OUTFILE
X Reference_Msg >>$OUTFILE
X GetCat $argument >>$OUTFILE
X ListLib $argument >>$OUTFILE
X echo "Command executed: index and list $argument : $ARPA_SENDER" >>$LOGFILE
X Mail_File ;;
X
Xcredits) Deliver_Msg >>$OUTFILE
X Reference_Msg >>$OUTFILE
X if test -n "$PATHSIZE" ; then
X credit="`Check_PathSize $UUCP_SENDER`"
X if [ "$credit" = "" ]; then
X if [ "$CREDIT" != "0" ]; then
X echo "\nYou are a new user; credits: $CREDIT (bytes)\n" >>$OUTFILE
X echo "(This request will be billed as well, normally about 800 bytes)\n" >>$OUTFILE
X fi
X else
X if [ "$credit" = "UNLIMITED" ]; then
X echo "\nYour path has no limitations.\n" >>$OUTFILE
X else
X echo "\nCredits remaining: $credit out of $CREDIT (bytes)\n" >>$OUTFILE
X echo "(This request will be billed as well, normally about 800 bytes)\n"
X fi
X fi
X else
X echo "\nPathsizing not running here. No limits!\n" >>$OUTFILE
X fi
Xecho "Command executed: credits for $UUCP_SENDER" >> $LOGFILE
X Mail_File ;;
X
X
Xfind) Deliver_Msg >>$OUTFILE
X Reference_Msg >>$OUTFILE
X if [ "$argument" = "DEFAULT" ]; then
X test $DEBUG && echo "Missing argument for \"find\""
X echo "\nERROR: command \"find\" needs a valid argument!\n" >>$OUTFILE
X NeedHelp_Msg >>$OUTFILE
X NoHuman_Msg >>$OUTFILE
X else
X echo "Command executed: find $argument : $ARPA_SENDER" >>$LOGFILE
X FindFile $argument >>$OUTFILE
X fi
X Mail_File ;;
Xhelp) Deliver_Msg >>$OUTFILE
X Reference_Msg >>$OUTFILE
X if [ "$argument" != "DEFAULT" ]; then
X echo "\n\
XHELP is not available for \"$argument\": try a simple @@ help" >>$OUTFILE
X else
X argument="HELP"; from="DEFAULT";
X hname=""; hname="`GetFile $argument $from`"
X if [ "$hname" != "" ]; then
X cat $hname >>$OUTFILE
X echo "Command executed: help : $ARPA_SENDER" >>$LOGFILE
X else
X echo "WARNING: NO HELP for $ARPA_SENDER" >>$LOGFILE
X echo "\n\
XCannot open help file inside RNA system directory - sorry" >>$OUTFILE
X fi
X Mail_File
X fi ;;
X *) test $DEBUG && echo "WARNING: interpreter error with token $1"
X echo "WARNING: interp error token $1" >>$LOGFILE
X shift; shift;;
X
Xesac
X# the following bracket close the restricted environment of the interpreter
X)
X# recycle next command line (if any)
Xshift
X# end while, recycle
Xdone
Xelse
X# CMDLOG empty: no commands found inside current message
X test $DEBUG && echo "no commands found, notify origin."
X echo "Current message is empty : $ARPA_SENDER" >>$LOGFILE
X Headers_Msg >>$OUTFILE
X Deliver_Msg >>$OUTFILE
X echo "" >>$OUTFILE
X NoCommands_Msg >>$OUTFILE
X Mail_File
Xfi
X}
X# End of interpreter
X
X# -----------------------------------
X# main program
X# -----------------------------------
X
Xtest -n "$PATHSIZE" && {
X test -r $PATHSIZE || {
X test $DEBUG && echo "ERROR: cannot open $PATHSIZE"
X exit
X }
X}
X
X# Are we out of service?
Xtest -r $RNADIR/hold || {
X# No. Check if we just came out of 'holding' state: in this case we
X# might have a 'pending' file with old jobs to process.
X test -r $RNADIR/pending && {
X# That's it: old requests.. We append them to our current
X# mailbox. New ones are stored before these, i know.
X# It makes little sense to spend time reordering...
X cat $RNADIR/pending >>$MAILBOX
X# %%FIX%%
X# check out that every mail is separated by a null line, in the previous
X# cat. Normally, it should. Well, if not, add it.
X rm $RNADIR/pending
X }
X}
X
Xtest -s $MAILBOX && {
XStartup
XGetMail
XCutMail
Xset `wc -l $POINTERS`
Xtest $DEBUG && echo "New mail found: $1 message(s)"
Xecho "\n FOUND $1 MESSAGE(S)" >>$LOGFILE
Xuntil [ "$message" -gt "$1" ]
Xdo
X test $DEBUG && echo "Now working on message n.$message"
X ( ClrTmpFiles
X GetMessage $message
X parse
X interp )
X test $DEBUG && echo "message n.$message is over"
X message=`expr $message + 1`
Xdone
Xtest $DEBUG && echo "RNA SESSION COMPLETED SUCCESSFULLY"
X}
X
X
X# End of RNA
X# %%FIX%%
X# Congratulations, you got to the end of RNAlib configuration. If you
X# followed indications now you have a working copy of RNA 2.0.
X# Before attempting to execute, however, remember you need to create at
X# least an index file (libindex) for libraries.
X# In order to make RNA run faster and better, we need to cut off all
X# comments from the original configured version. So i strongly recommend
X# you make your configuration and modifications on a COMPLETE version of
X# RNA, but RUN ALWAYS an extracted rna called 'XRNA'. How do you get
X# XRNA out of your RNA? Easy: run 'MAKE_RNA'.
X# Every time you need to change something inside RNA, edit RNA and then
X# re-run MAKE_RNA. -- Paolo
X#
X# RNALIB 2.0 Revision A - END OF CONFIGURATION
SHAR_EOF
$TOUCH -am 0918180790 RNA &&
chmod 0644 RNA ||
echo "restore of RNA failed"
set `wc -c RNA`;Wc_c=$1
if test "$Wc_c" != "53931"; then
echo original size 53931, current size $Wc_c
fi
exit 0
More information about the Comp.sources.misc
mailing list