home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2852 / patch-3b < prev    next >
Encoding:
Text File  |  1991-02-24  |  6.3 KB  |  172 lines
  1. 2c2
  2. < RNAVERS="RNALIB 2.2 [beta-3b]"
  3. ---
  4. > RNAVERS="RNALIB 2.2 [beta-1]"
  5. 315,320d314
  6. < # You may choose to limit rna activities within certain time limits
  7. < # for a single host in order to avoid  requests being shipped during
  8. < # daytime, when connection is more expensive.
  9. < # If you don't care about 'timelimits', leave it blank.
  10. < TIME_LIMITS=
  11. < #
  12. 356,357c350
  13. < export CREDIT SPLIT MIN_SPLIT MAX_SPLIT DEF_SPLIT MAIL_LIMIT CONFDATA
  14. < export TIME_LIMITS
  15. ---
  16. > export CREDIT SPLIT MIN_SPLIT MAX_SPLIT DEF_SPLIT MAIL_LIMIT 
  17. 371c364
  18. <     chown $LOGNAME $TMPDIR; chgrp mail $TMPDIR
  19. ---
  20. >     chown rnalib $TMPDIR; chgrp mail $TMPDIR
  21. 402c395
  22. <     chown $LOGNAME $CONVDIR; chgrp mail $CONVDIR
  23. ---
  24. >     chown rnalib $CONVDIR; chgrp mail $CONVDIR
  25. 404c397
  26. <     chown $LOGNAME $SPLITDIR; chgrp mail $SPLITDIR
  27. ---
  28. >     chown rnalib $SPLITDIR; chgrp mail $SPLITDIR
  29. 410c403
  30. <     UUCP_DESTIN=""; FCPRTIPE=""; REAL_TIME=""; TIME=""
  31. ---
  32. >     UUCP_DESTIN=""; FCPRTIPE=""
  33. 479,497d471
  34. < ### DEBUG2 13/2/91 Paolo
  35. < Get_Commands() {
  36. < # $1 = file to examine
  37. < # returns: lines containing commands. 
  38. < # %%FIX%%
  39. < # Some mailers, like Smail 3.1, or sendmail, may add funny sequences like
  40. < # /\@@/\ inside the headers THEY add to the mail passing by. This is bad!
  41. < # RNALIB would think these lines are actually commands sent by the
  42. < # original sender, while they are only junk added by a mailer somewhere!!
  43. < # We'll try to skip as much as possible junk headers probably added by
  44. < # intermediate host's mailers. You don't have to do anything special here,
  45. < # i just wanted to be sure that you knew about this kind of problems.
  46. < # A user can fix problems on HIS host with HIS mailer, he cannot fix something
  47. < # done by another host on HIS mail! 
  48. < #
  49. < grep '@@' $1 | grep -v "Received:" | grep -v "Message-Id:" | grep -v "From:"
  50. < 
  51. < }
  52. < 
  53. 1356,1367d1329
  54. < Check_Time()
  55. < # $1 = path/user to check
  56. < # returns: null if unknown path; otherwise current time limits
  57. < {
  58. < tl_origin=$1
  59. < set ""
  60. < set -f `grep -v '#' $TIME_LIMITS`
  61. < while [ "$1" != "" ]; do
  62. <     tl_path=$1; tl_start=$2; tl_stop=$3; shift; shift; shift
  63. <      test -n "`echo $tl_origin | grep $tl_path`" && break
  64. < done
  65. < }
  66. 1369d1330
  67. < 
  68. 1808,1813d1768
  69. < Copyrights_Msg() {
  70. <     echo "\n\
  71. < Currently running $RNAVERS MAIL SERVER\n\
  72. < Public domain software  written by  Paolo Ventafridda and  Marco Lorenzini\n\
  73. < venta@i2ack.sublink.org & marlor@gear.sublink.org - Sublink Network, ITALY\n\n"
  74. < }
  75. 1816,1837c1771,1777
  76. < echo "\nINTERNAL CONFIGURATION TABLE\n----------------------------"
  77. < test -n "$CONFDATA" && echo "Configured: $CONFDATA \c"
  78. < test -n $DEBUG && echo "[DEBUG MODE]\c"
  79. < echo "\nBinary handlers (\"with\"-type): \c"
  80. < test -n "$UUENCODE" && echo "uuencode \c"
  81. < test -n "$BTOA" && echo "btoa \c"
  82. < test -n "$COMPRESS" && echo "compress \c"
  83. < test -n "$LHARC" && echo "lharc \c"
  84. < test -n "$ZOO" && echo "zoo \c"
  85. < test -n "$TAR" && echo "tar \c"
  86. < echo "\nBinary layers   (\"via\"-type) : \c"
  87. < test -n "$UUSEND" && echo "uusend \c"
  88. < test -n "$UUCP" && echo "uucp [sending inside \"$PUBDIR\"]"
  89. < echo "Max. file names length: $MAXLENGTH chars."
  90. < echo "File libraries are \c" ; test -z "$LIBIND" && echo "NOT \c"; echo "in use."
  91. < echo "Mailing lists (listserv) are \c" ; test -z "$LSTIND" && echo "NOT \c"; echo "in use."
  92. < echo "Help subsystem is \c"; test -z "$HELPDIR" && echo "NOT \c" ; echo "available."
  93. < echo "Splitting of files into smaller parts is \c"; test -z "$SPLIT" && echo "NOT \c"; echo "available."
  94. < test -n "$SPLIT" && {
  95. <     echo "   Minimum split size allowed: $MIN_SPLIT Kbytes"
  96. <     echo "   Maximum split size allowed: $MAX_SPLIT Kbytes"
  97. <     echo "   Default split size : $DEF_SPLIT Kbytes"
  98. ---
  99. >     echo "\n\
  100. > RNALIB MAIL SERVER RELEASE 2.2 Revision A (beta)- Feb 1991 , Public Domain SW\n\
  101. > Developed by  Paolo Ventafridda and Marco Lorenzini,  Sublink Network,  ITALY\n\
  102. > (venta@i2ack.sublink.org and marlor@gear.sublink.org) (c) 1989,1990,1991\n\n"
  103. > test -r $RNADIR/release && grep -v '#' $RNADIR/release
  104. > test -r $RNADIR/release || echo "== No system configuration available =="
  105. > echo
  106. 1839,1855d1778
  107. < echo "Maximum single email size: $MAIL_LIMIT Kbytes (priority limit)"
  108. < test -z "$PATHSIZE" && echo "Pathsizing is disabled; unlimited credits to everybody."
  109. < test -n "$PATHSIZE" && {
  110. <     echo "Pathsizing is enabled; \c"
  111. <     test -z "$CREDIT" && echo "unlimited credits to everybody, by default."
  112. <     test -n "$CREDIT" && {
  113. <         case $CREDIT in
  114. <             0)
  115. <                 echo "new users need authorization." ;;
  116. <             *)
  117. <                 echo "new users have a $CREDIT bytes credit." ;;
  118. <         esac
  119. <     }
  120. < }
  121. < echo "Execution time limit is \c"; test -z "$TIME_LIMITS" && echo "NOT \c" ; echo "in use."
  122. < echo 
  123. < }
  124. 1907,1911c1830
  125. < ### DEBUG2 13/2/91 Paolo
  126. < ### Some systems do not have 'head'. We just use it here, and we can
  127. < ### use sed, instead.
  128. < ### OLD: set `head -1 $MBOX_CUT`; UUCP_SENDER=$2
  129. < set `sed 1q $MBOX_CUT`; UUCP_SENDER=$2
  130. ---
  131. > set `head -1 $MBOX_CUT`; UUCP_SENDER=$2
  132. 1969c1888
  133. <     touch $RNADIR/pending; echo "`cat $MBOX_CUT`\n\n" >>$RNADIR/pending
  134. ---
  135. >     touch $RNADIR/pending; echo "`cat $MBOX_CUT`\n" >>$RNADIR/pending
  136. 1979,1983c1898
  137. < ### DEBUG2 13/2/91 Paolo
  138. < ### I changed the following line
  139. < ###    grep '@@' $MBOX_CUT >$CMDS
  140. < ### using a new function, Get_Commands; see that for details.
  141. < Get_Commands $MBOX_CUT >$CMDS
  142. ---
  143. > grep '@@' $MBOX_CUT >$CMDS
  144. 2415,2437d2329
  145. < # If TIME_LIMITS is activated, look for limits.
  146. < test -n "$TIME_LIMITS" && {
  147. <     if [ "$destination" != "DEFAULT" ]; then
  148. <         UUCP_DESTIN=$destination
  149. <         Check_Time $UUCP_DESTIN
  150. <         test $DEBUG && test "$tl_path" = "$tl_origin" && echo "External destination time limits: $tl_start-$tl_stop"
  151. <     else
  152. <         Check_Time $UUCP_SENDER
  153. <         test $DEBUG && test "$tl_path" = "$tl_origin" && echo "Default destination time limits: $tl_start-$tl_stop"
  154. <     fi
  155. < if [ "$tl_path" = "$tl_origin" ]; then
  156. <     set ""
  157. <     set - `date`; REAL_TIME=$4
  158. <     set - `echo $REAL_TIME | sed -e "s/:/ :/"`; TIME=$1
  159. <     if [ "$TIME" -lt "$tl_start" ] || [ "$TIME" -gt "$tl_stop" ]; then
  160. <     touch $RNADIR/pending; echo "`cat $MBOX_CUT`\n\n" >>$RNADIR/pending
  161. <     test $DEBUG && echo "Time limits exceeded, holding message as pending job"
  162. <     echo "HOLDON $ARPA_SENDER (TIME LIMITS)" >>$LOGFILE
  163. <     return
  164. <     fi
  165. < fi
  166. < }
  167. < 
  168. 2923,2925d2814
  169. <     Copyrights_Msg >>$OUTFILE
  170. <     test -r $RNADIR/release && grep -v '#' $RNADIR/release >>$OUTFILE
  171. <     test -r $RNADIR/release || echo "== No host description available ==" >>$OUTFILE
  172.