home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume7 / rna < prev    next >
Text File  |  1989-07-21  |  19KB  |  635 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v07i092: RNA
  3. From: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  4. Reply-To: venta@i2ack.UUCP (Paolo Ventafridda)
  5.  
  6. Posting-number: Volume 7, Issue 92
  7. Submitted-by: venta@i2ack.UUCP (Paolo Ventafridda)
  8. Archive-name: rna
  9.  
  10. :
  11. # This is a shell archive, meaning:
  12. # 1. Remove everything above the : line.
  13. # 2. Save the resulting text in a file.
  14. # 3. Execute the file with /bin/sh (not csh) to create:
  15. #    README
  16. #    version
  17. #    RNA
  18. # This archive created: Wed Jul 12 14:21:18 1989
  19. export PATH; PATH=/bin:/usr/bin:$PATH
  20. if test -f 'README'
  21. then
  22.     echo shar: "will not over-write existing file 'README'"
  23. else
  24. cat << \SHAR_EOF > 'README'
  25.  
  26.                             Remote Network Archive
  27.                             ----------------------
  28.  
  29.  
  30.          Hey,  don't  do  it,  don't go installing  RNA  without  first
  31.          reading these few lines!  Lemme explain what RNA was made for,
  32.          and  what  rna won't do.  It won't take long, so forget  about
  33.          the keyboard for a while and read this tiny manual.
  34.          GIVE ME A CHANCE!  Thank you.
  35.  
  36.                                Paolo Ventafridda
  37.  
  38.  
  39.          WHAT IS RNA
  40.          -----------
  41.          Suppose  that  your system has some software (any  kind)  that
  42.          other  people  on the network sometimes request, and  you  are
  43.          becoming  crazy on uucp transfers, and mail such "please could
  44.          you send me file xxx thx" etc.  Rna will allow your neighbours
  45.          to help themselves using simple mail commands such as "send me
  46.          file  xxx " just like if they were asking YOU.  All files will
  47.          travel  through  ANY network like mail, not like  UUCP;   this
  48.          means  that also BITNET, DECNET, FIDOnet users will be able to
  49.          help themselves without bothering you anymore!
  50.  
  51.          There's  a  program  around called NETLIB, developed  by  AT&T
  52.          research centers, which already does this thing, and also very
  53.          well;   it's  powerful, but also complicated to  install,  and
  54.          anyway has bigger docs than rna ;-)
  55.  
  56.          If  you  don't need all of that power, and you want  something
  57.          really  easy  to install and to mantain,and eventually  remove
  58.          ;-(  than have a look at rna.  There are two good reasons  for
  59.          trying it:
  60.          1- it works fine
  61.          2- it's free.
  62.  
  63.          FEATURES
  64.          --------
  65.          -  Handles  commands  such  as  "  please  send  tetris.Z   to
  66.          bob@usixth  "  , it doesn't care of where these  commands  are
  67.          placed  inside  your mail, even the Subject will do.  You  can
  68.          put multiple commands inside the same message.
  69.        
  70.          -  If  file  does not exist, or is not readable,  it  gives  a
  71.          response about it.
  72.  
  73.          -  If requested file is not ascii, it will uuencode it  before
  74.          shipping.
  75.         
  76.          -  Index is available with " send index to ..  " :  index is a
  77.          ls of your public directory, automatically done on request, so
  78.          you  don't  need to spend time on your archive.  If you  want,
  79.          create  a "index" file in pubdir, containing full descriptions
  80.          of your (some) files.  This list will be appended to the "ls".
  81.         
  82.          - Help is available with "send help to ...".  This is a trick:
  83.          help is a common file like others.  But don't tell it around.
  84.          
  85.          -  Attention  please:  rna does not recognize in this  version
  86.          the  address  of the sender, in fact you have to specify  "to:
  87.          ..".   This might cause some problems to someone.  Trust  your
  88.          neighbours,  or  install  netlib!  Anyway, if  someone  enjoys
  89.          sending big files to enemies through your rna, a copy of their
  90.          letters will still be in your log.
  91.  
  92.          WHAT? A SHELL SCRIPT?
  93.          ---------------------
  94.          What's  wrong, John, never seen a shell script?  Well, rna  IS
  95.          written  in standard Bourne Shell.  People thinks that only  C
  96.          programs  can  do  useful  things;  well, i  think  that  Real
  97.          Programmers don't use C, if they can do it in Shell.
  98.          Now,  RNA  is NOT meant to run full time, but only once  every
  99.          while,  launched by cron, just to see if there's something  to
  100.          do.  So speed is not important, not at all!
  101.  
  102.          INSTALLATION  
  103.          ------------
  104.          You  need a dedicated directory for the rna package.  In  this
  105.          directory  rna  will keep its logs and its files.   rna  takes
  106.          only  a  couple  of  temporary files, the rest  is  done  with
  107.          variables.
  108.  
  109.          You need a directory which will contain your "public" software
  110.          (PUBDIR).   RNA  in  this  version   only  allows  ONE  public
  111.          directory, and all files are taken there.
  112.  
  113.          You  may  put inside PUBDIR a file named "help";   that's  the
  114.          file  that  will be sent to your guests whenever they ask  for
  115.          it.  If there's no help, RNA will say "no help available" (you
  116.          bet it).
  117.  
  118.          You  may put inside PUBDIR a file named "index";  when someone
  119.          asks  for  an index, RNA does an ls -log , greps out  eventual
  120.          "index" and "help" files, and appends -if existing- this file.
  121.          Usually   it  should  contain   full  descriptions  of  files,
  122.          warnings, greetings or whatever.
  123.  
  124.          You  need a dummy login entry for the mail, say "rnalib",  and
  125.          put an alias like " netlib rnalib " ;-) _
  126.          Guests  should send mail to this login, whose mailbox will  be
  127.          checked by RNA.  Don't use root or other system accounts.
  128.  
  129.          Last  but  not least, go in /usr/lib/cron/crontabs and put  an
  130.          entry  for executing RNA, say once every hour, or once a  day.
  131.          RNA  starts,  check  if there's mail for it,  and  if  there's
  132.          nothing waiting it exits.  No CPU load.
  133.  
  134.          For  permissions:   RNA  wants  to be  owner  of  its  working
  135.          directory  (of course), owner of it's own mail (of course) and
  136.          able  to  go in usr/mail (/usr/spool/mail..) to cp and  remove
  137.          pending messages .  RNA needs also PUBDIR to be readable.
  138.  
  139.          To  configure  RNA edit the program itself:  at the  beginning
  140.          there's everything you need, and a comment for every variable,
  141.          so it's really easy and would make this doc useless.
  142.  
  143.      Addendum: have a look at getmail() procedure: it set permissions
  144.      as on my system, you may need to fit your own mail setup.
  145.  
  146.          ACCOUNTING
  147.          ----------
  148.          RNA  keeps a log of its actions ( file "xxx" sent to "yyy"  ),
  149.          and  also  keep a copy of all mails, so that you'll always  be
  150.          able to go and see what happened.
  151.  
  152.          If  you want a "debug" view of what RNA does, set DEBUG inside
  153.          configuration:   debug  occurs  as stdout,  and  won't  affect
  154.          default log file.
  155.  
  156.          SYNTAX
  157.          ------ 
  158.          RNA  detects  command  lines  by grepping  out  "@@"  headers.
  159.          Allowed syntax is in the form of:
  160.  
  161.                 @@ [please] action argument [to] address
  162.  
  163.          where  [please]  and  [to] (also To, to:, etc.)  don't  count;
  164.          action  is  only  "send"  (or   SEND  etc.),  and  address  is
  165.          recognized in three forms:
  166.  
  167.                 - UUCP address, containing a "!"
  168.                 - ARPA address, containing a "@"
  169.                 - local address
  170.  
  171.          UUCP  and  ARPA are checked to be made of at least  two  words
  172.          (host  and  user..).   In this case address is  validated  and
  173.          passed to your mailer (its business then).
  174.          Wildcards  are  not  allowed.   Security  is  accomplished  by
  175.          looking for "/" and similar chars.
  176.          
  177.          ARCHIVING
  178.          ---------
  179.          RNA  recognizes non-ascii files by looking at file names.   By
  180.          default any file whose name contains:
  181.  
  182.                 *.Z*
  183.                 *.z*
  184.                 *.tar*
  185.                 *.cpio*
  186.                 or NO "." at all
  187.  
  188.          will  be  considered  non-ascii, and though  uuencoded  before
  189.          mailing.   Any  file with other suffixes, such as .src,  .any,
  190.          .doc  etc.  will be left as-it-is.  Remember that a file  like
  191.          "tetris",  with  no dots, will be uuencoded.  If you  want  to
  192.          change this behaviour, change the source, it's easy.
  193.  
  194.          COPYRIGHTS, AUTHOR'S NOTES ETC.ETC.
  195.          -----------------------------------
  196.          
  197.          This  is  of course freeware, so i don't ask money for it  and
  198.          you can't ask money TO me for any trouble it may cause you.
  199.  
  200.          This  software  may be freely distributed provided  you  don't
  201.          make  money  out of it.  This means that EUNET sites  are  not
  202.          allowed to use it without explicit request to myself.
  203.  
  204.          For a free EUropean CONnection
  205.  
  206.                 Paolo Ventafridda, July 1989
  207.  
  208.          venta@altger.UUCP  ({..}!altos86!altger!venta)
  209.          venta@i2ack.UUCP   (sublink/subnet/s.u.n.: EUcon networks only)
  210.      {...}!ddsw1!deejay!i2ack!venta   (USENET)
  211.      desperation: pyramid!tmpmbx!deejay!i2ack!venta
  212.  
  213.          Don't send through mcvax/unido/i2unix since i am blacklisted,
  214.          like all of the rest of EUcon.
  215.  
  216.  
  217. SHAR_EOF
  218. fi
  219. if test -f 'version'
  220. then
  221.     echo shar: "will not over-write existing file 'version'"
  222. else
  223. cat << \SHAR_EOF > 'version'
  224. Version 1.0 july 1989
  225.  
  226. If there's some feedback, i can easily add multiple public directories
  227. ( send file from dir to user@host )
  228. directory password protection
  229. ( send file from dir to user@host password= abcdefg )
  230. and finally sender address.
  231.  
  232. SHAR_EOF
  233. fi
  234. if test -f 'RNA'
  235. then
  236.     echo shar: "will not over-write existing file 'RNA'"
  237. else
  238. cat << \SHAR_EOF > 'RNA'
  239. :
  240. # Remote Network Archive  version 1.0
  241. # by venta@i2ack.UUCP (EUcon)
  242. #
  243. # Before doing anything, Read the manual!
  244. # 
  245. # ---------------------------------------------
  246. # setup these DEFines , and you are ready to go
  247. # ---------------------------------------------
  248. # Archive directory: this is were your archived files are stored.
  249. # All the stuff in/out going is merely taken here. Don't choose
  250. # other system dirs such as uucppublic.
  251. PUBDIR=/usr/spool/uucppublic/rna
  252. # 
  253. # System directory: this is a dedicated directory for rna. System
  254. # files, log, and garbage will be put here. This directory will not
  255. # be public, and should be closed to others but root.
  256. WORKDIR=/usr/local/src/sendnews
  257. #
  258. # The login used as rna entry: tipically a dummy login, just to allow
  259. # mail spooling. Usually stuff like 'fserver', 'netserv', 'netlib' etc.
  260. LOGNAME=rnalib
  261. #
  262. # The local postmaster, i.e. the person which will eventually solve
  263. # remote users problems. 
  264. # If you don't know what a Postmaster is, you are probably in the
  265. # wrong place. Put 'root' and go on, this is only a reference.
  266. POSTMASTER=root
  267. #
  268. # The mail file for LOGNAME, complete path. Usually:
  269. # /usr/spool/mail/$LOGNAME  on Xenix systems
  270. # /usr/mail/$LOGNAME  on Unix System V and BSD .
  271. MAIL=/usr/spool/mail/$LOGNAME
  272. #
  273. # The name of your machine, as of 'uname -n' or similar.. Hey, dont put
  274. # another one, use the correct local machine name. Don't cheat.
  275. UNAME=i2ack
  276. #
  277. # Name of the file containing all of rna logs, status etc. 
  278. # also called "accounting"..
  279. LOGFILE=$WORKDIR/log
  280. #
  281. # Name of the file which is going to keep record of ALL incoming mails.
  282. # Sort of archive, needs to be cleaned up sometimes.
  283. MAILFILE=$WORKDIR/mail
  284. #
  285. # Debugging would occur on stdout, NOT on logfile
  286. # 1=debug (try it for fun once), nodebug= leave a SPACE, dont put a 0
  287. DEBUG=
  288. #
  289. # some progs never in the same place... please tell where they are
  290. MAILER=/bin/mail
  291. ENCODE=/usr/local/bin/uuencode
  292. #
  293. # --- internal variables ---
  294. TMP=$WORKDIR/tmp
  295. CMDS=$WORKDIR/tmpcmds
  296. CMDLOG=$WORKDIR/commlog
  297.  
  298. # -------------------- some procedures... ----
  299. quit() {
  300.     acc "shutdown requested"
  301.     exit
  302. }
  303.  
  304. acc() {
  305.     echo "`date '+%d.%m.%y - %H:%M:%S` : $@" >>$LOGFILE
  306.     test $DEBUG && echo "$@"
  307. }
  308.  
  309. getmail() {
  310.    rm $TMP 2>/dev/null
  311.    mv $MAIL $TMP
  312.    touch $MAIL; chown $LOGNAME $MAIL; chgrp mail $MAIL; chmod 620 $MAIL
  313.    touch $MAILFILE; echo "`cat $TMP`\n===\n" >>$MAILFILE 
  314.     }
  315.  
  316. clrfiles() {
  317.     rm -f $CMDLOG 2>/dev/null; touch $CMDLOG
  318.     rm -f $CMDS 2>/dev/null
  319. }    
  320.  
  321.  
  322.  
  323. parse() {
  324.  
  325. # some pre-parsing for naughty characters..
  326. grep @@ $TMP | sed 's/\*/ERR/g' >$CMDS
  327.  
  328. if test -s $CMDS; then
  329.     set `wc -l $CMDS`; cmds=$1
  330.     acc "mail contains $cmds command line(s)"
  331.  
  332. test $DEBUG && echo "start parsing"
  333.     strings="`cat $CMDS`"
  334.     set -f $strings
  335. test $DEBUG && echo "$# words"
  336. #
  337. # main parse loop
  338. #
  339. error=0; position=0; action=""; argument=""; destination=""
  340. #
  341. while [ "$1" != "" ]
  342. do
  343. test $DEBUG && echo "parsing: $1"
  344.     case $1 in
  345.         @@) 
  346.         test $DEBUG &&    echo restart found
  347.             action=""; argument=""; position=0; destination=""
  348.             shift;;
  349.  
  350.         ERR)    
  351.             ( acc "parser: wildcards error" )
  352.             error=1;;
  353.  
  354.         [sS][eE][nN][dD]|[sS][eE][nN][Dd]:)
  355.             test $DEBUG && echo send detected
  356.             if test $position -eq 0 
  357.             then
  358.                 action=send; position=1;
  359.                 shift
  360.                 if test -z "$1" 
  361.                 then
  362.                     error=1;
  363.  test $DEBUG && echo "eof while arg in send"
  364.                 else
  365.                     argument=$1; position=2
  366.                     shift
  367.                 fi
  368.             else
  369.             error=1; 
  370. test $DEBUG && echo send is in wrong position
  371.             fi;;
  372.             
  373.  
  374.         [tT][Oo]|[tT][oO]:)    
  375.     test $DEBUG && echo to detected
  376.             if test $position -eq 2 
  377.             then
  378.                 shift
  379.             else
  380. test $DEBUG && echo to is in wrong position
  381.                 error=1
  382.             fi;;
  383.  
  384.         *[Pp]lease*)
  385.     test $DEBUG &&    echo please detected
  386.                 if test $position -eq 0 -o $position -eq 2
  387.             then
  388.                 shift
  389.         test $DEBUG &&    echo please shifted
  390.             else
  391.             test $DEBUG && echo error please
  392.                 error=1
  393.             fi;;
  394.                 
  395.  
  396.         *)
  397.             if test $position -eq 2
  398.             then
  399.                 destination=$1; position=3
  400.                 shift
  401.             else
  402.             test $DEBUG &&    echo unknown
  403.                 error=1
  404.             fi;;
  405.     esac            
  406.  
  407. if test $error -gt 0
  408. then
  409. test $DEBUG && echo recovering error
  410.     while [ "$1" != "@@" ]
  411.     do
  412.     test -z "$1" && test $DEBUG && echo eof detected while recovering error
  413.         test -z "$1" && break
  414.         shift
  415.     done
  416.     error=0
  417. test $DEBUG &&    echo end rewind
  418. fi
  419.     test $DEBUG && echo action=$action argument=$argument dest=$destination
  420.  
  421. if test $position -eq 3
  422. then
  423.     ( acc "parser: $action ($argument) to: ($destination)" )
  424.     echo $action $argument $destination >>$CMDLOG
  425.     
  426.     position=0; argument=""; destination="";
  427. fi
  428.         
  429.  
  430. # end while
  431. done
  432. test $DEBUG && echo EOF
  433. else
  434. acc "parser: no command lines found"
  435. fi
  436.  
  437. }    
  438.  
  439. interp() {
  440.  
  441. if test -s $CMDLOG; then
  442.     set `wc -l $CMDLOG`; cmds=$1
  443.     ( acc "interpreter: found $cmds command line(s)" )
  444.  
  445.  
  446. strings="`cat $CMDLOG`"
  447. set -f $strings
  448. test $DEBUG && echo "$# words"
  449. #
  450. # main loop
  451. #
  452. while [ "$1" != "" ]
  453. do
  454. test $DEBUG && echo "parsing: $1"
  455. #
  456. action=""; argument=""; destination=""
  457. case $1 in
  458.  
  459.     help)
  460.         action=send
  461.         shift; shift
  462.         argument=help
  463.         destination=$1;;
  464.  
  465.     send)    
  466.         action=send
  467.         shift; argument=$1
  468.         shift; destination=$1;;
  469.  
  470.      *)
  471.         ( acc "interpreter error: token $1" )
  472.         shift; shift;;
  473.  
  474. esac
  475.  
  476. test $DEBUG && echo "ACTION=$action, ARG=$argument, DEST=$destination"
  477.  
  478. # first we parse destination: if it's illegal, we dont waste
  479. # time parsing the argument
  480. if test `echo $destination | grep @` 
  481. then
  482. test $DEBUG && echo arpa address
  483.     if [ `echo $destination | sed 's/@/ /g' | wc -w` -eq 2 ]; then 
  484.         destype=ARPA
  485.         test $DEBUG && echo valid arpa address 
  486.     else
  487.         ( acc "interpreter: wrong arpa address \"$destination\" " )
  488.         destination=UNKNOWN
  489.     fi 
  490. elif test `echo $destination | grep !`
  491. then
  492. echo UUCP address
  493.     if [ `echo $destination | sed 's/!/ /g' | wc -w` -ge 2 ]; then
  494.         test $DEBUG && echo valid uucp address 
  495.         destype=UUCP
  496.     else
  497.         ( acc "interpreter: wrong uucp address \"$destination\" " )
  498.         destination=UNKNOWN
  499.     fi
  500. else
  501.     test $DEBUG && echo local delivery
  502.     destype=LOCAL
  503. fi
  504.  
  505. test $DEBUG && echo "status: dest=$destination , arg=$argument , destype=$destype"
  506.  
  507. if test $destination != "UNKNOWN"; then
  508. # now we check if argument is valid
  509.     test $DEBUG && echo destination OK
  510.         if test "$argument" = "ERR"; then
  511.         test $DEBUG && echo ERR detected in argument
  512.     errarg="argument field contains wild characters"
  513.         argument=ERROR
  514.     elif test `echo $argument | grep /`; then
  515.         test $DEBUG && echo ILLEGAL ARG
  516.         errarg="\"$argument\" is not a valid argument"
  517.         ( acc "interpreter: $errarg denied to $destination" )
  518.         argument=ERROR
  519.     elif test -r $PUBDIR/$argument; then
  520.         test $DEBUG && echo FILE $argument is ok
  521.         ( acc "mailer: sending $argument to $destination" )
  522.         errarg=NONE
  523.     elif test "$argument" = "index"; then
  524.    test $DEBUG && echo this is an index request but no verbose index available
  525.         argument=index
  526.     else
  527. test $DEBUG && echo nonexistent $argument
  528.         errarg="\"$argument\" is not available"
  529.         ( acc "interpreter: $errarg for $destination" )
  530.         argument=ERROR
  531.     fi
  532.  
  533. # now we ship the stuff . 
  534.  
  535. ( echo "Subject: RNA mail from $UNAME"; echo
  536.   echo ""
  537.   echo "This is the RNA output for a request destinated to you."
  538.   echo "Binary files have been uuencoded to an ASCII format."
  539.   echo 
  540.   if test "$errarg" != "NONE"; then
  541.     echo "Error: $errarg"
  542.  
  543.   echo
  544.   echo "For more details on this RNA delivery please mail ${POSTMASTER}@${UNAME}."
  545.   echo "If you need help on the RNA remote commands and usage, send mail"
  546.   echo "to ${LOGNAME}@$UNAME containing: @@ send help to yourname@yourhost"
  547.   echo 
  548.  
  549.   else
  550.  
  551.   echo "RNA request:  $action \"$argument\" to: \"$destination\" ($destype)"
  552.   echo
  553.   if test "$argument" = "index"; then
  554.     echo; echo "List of available files at $UNAME :"; echo
  555.     ( set `ls -l $PUBDIR | wc -l`; 
  556.     ls -log $PUBDIR | tail -`expr $1 - 1` | grep -v help | grep -v index )
  557.     
  558.     if test -r $PUBDIR/$argument; then
  559.         echo; cat $PUBDIR/$argument
  560.     fi
  561.   elif test "$argument" = "help"; then
  562.     echo; 
  563.     if test -r $PUBDIR/$argument; then
  564.         echo; cat $PUBDIR/$argument
  565.     else
  566.         echo "Sorry no help available"
  567.         ( acc "no help file in public directory" )
  568.     fi
  569.  else    
  570.     # some rules for detecting non-ascii data. 
  571.     ready=""
  572.     if test `echo $argument | grep '\.Z'` ; then
  573.         noready="compressed file"
  574.     elif test `echo $argument | grep '\.z'`; then
  575.         noready="crypted file"
  576.     elif test `echo $argument | grep '\.tar'`; then
  577.         noready="tar file"
  578.     elif test `echo $argument | grep '\.cpio'`; then
  579.         noready="cpio file"
  580.     elif test ! "`echo $argument | grep '\.'`"; then
  581.         noready="program file"
  582.     else
  583.     noready="ascii file"
  584.     ready=OK
  585.     fi 
  586.  
  587. echo "( $noready )"
  588. echo
  589.   echo "+------ cut start of $argument ----------------------------------+"
  590.   if test $ready ; then
  591.       cat $PUBDIR/$argument
  592.   else
  593.     $ENCODE $PUBDIR/$argument $argument
  594.     ( acc "encoding $noready" )
  595.   fi
  596.   echo "+------  cut end of $argument  ----------------------------------+"
  597.   echo;
  598.   fi
  599.   fi
  600.  ) | $MAILER $destination
  601.  # 
  602.  
  603. fi    
  604.             
  605. shift
  606.  
  607. # end while
  608. done
  609. #echo EOF
  610. else
  611. ( acc "interpreter: no valid commands found" )
  612. fi
  613.  
  614.  
  615. }
  616.  
  617. # -----------------------------------
  618. #            main program
  619. # -----------------------------------
  620. touch $LOGFILE
  621.     test -r $WORKDIR/shutdown && quit
  622.     test -s $MAIL && ( acc "found mail";
  623.          clrfiles; getmail; 
  624.          parse; interp )
  625.  
  626. # end of RNA
  627. SHAR_EOF
  628. fi
  629. exit 0
  630. #    End of shell archive
  631. --
  632. Paolo Ventafridda, Milano -Italy _ Sublink (EUcon): venta@i2ack.UUCP  ****
  633. ****  The SUBLINK Foundation     _ +39-2-4035289 (300-2400 MNP4, 9600 PEP)
  634. .                  For a free EUropean CONnection                        .
  635.