home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume41 / mailagnt / patch03 < prev    next >
Encoding:
Text File  |  1993-12-19  |  23.8 KB  |  845 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v41i047:  mailagent - Flexible mail filtering and processing package, v3.0, Patch03
  4. Message-ID: <1993Dec19.214021.4700@sparky.sterling.com>
  5. X-Md4-Signature: 47afdb59d1e777a82a1f6613c695d705
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Sun, 19 Dec 1993 21:40:21 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 41, Issue 47
  13. Archive-name: mailagent/patch03
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #3.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 3
  21. Priority: LOW
  22. Subject: updated Configure with new metaconfig
  23. Subject: now mentions that at least perl 4.0 PL36 is required
  24. Subject: typo and minor fixes
  25. Subject: log mesages were not emitted correctly
  26. Subject: now force . into PATH for msend/nsend
  27. Subject: extra closing single quote removed (was there since 2.9 PL0)
  28. Subject: now make sure that filter.lock has correct timestamp
  29. Date: Wed Dec 15 10:07:10 MET 1993
  30. From: Raphael Manfredi <ram@acri.fr>
  31.  
  32. Description:
  33.     README file now mentions that at least perl 4.0 PL36 is required,
  34.     otherwise some tests in the regression test suite will hang or
  35.     fail mysteriously...
  36.  
  37.     Fixed typo and minor bugs in manual page.
  38.  
  39.     Log mesages were not emitted correctly when saving to an MH
  40.     folder and an error occurred.
  41.  
  42.     The TEST wrapper now forces . into PATH for msend/nsend
  43.     (for tests like cmd/message or cmd/post).
  44.  
  45.     Extra closing single quote removed in the agent/test/action
  46.     rule file (was there since 2.9 PL0). Congratulations to
  47.     Shigeya Suzuki <shigeya@foretune.co.jp> who spotted it!
  48.  
  49.     Now make sure that filter.lock has correct timestamp by
  50.     removing it and recreating a new one (basic/filter test).
  51.  
  52.  
  53. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  54.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  55.     If you don't have the patch program, apply the following by hand,
  56.     or get patch (version 2.0, latest patchlevel).
  57.  
  58.     After patching:
  59.         Configure -ders
  60.         make depend
  61.         make
  62.         make install
  63.         make install.man
  64.  
  65.     If patch indicates that patchlevel is the wrong version, you may need
  66.     to apply one or more previous patches, or the patch may already
  67.     have been applied.  See the patchlevel.h file to find out what has or
  68.     has not been applied.  In any event, don't continue with the patch.
  69.  
  70.     If you are missing previous patches they can be obtained from me:
  71.  
  72.         Raphael Manfredi <ram@acri.fr>
  73.  
  74.     If you send a mail message of the following form it will greatly speed
  75.     processing:
  76.  
  77.         Subject: Command
  78.         @SH mailpatch PATH mailagent 3.0 LIST
  79.                ^ note the c
  80.  
  81.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  82.     or in bang notation from some well-known host, and LIST is the number
  83.     of one or more patches you need, separated by spaces, commas, and/or
  84.     hyphens.  Saying 35- says everything from 35 to the end.
  85.  
  86.     To get some more detailed instructions, send me the following mail:
  87.  
  88.         Subject: Command
  89.         @SH mailhelp PATH
  90.  
  91.  
  92. Index: patchlevel.h
  93. Prereq: 2
  94. 4c4
  95. < #define PATCHLEVEL 2
  96. ---
  97. > #define PATCHLEVEL 3
  98.  
  99. Index: Configure
  100. Prereq: 3.0.1.1
  101. *** Configure.old    Wed Dec 15 10:06:59 1993
  102. --- Configure    Wed Dec 15 10:07:00 1993
  103. ***************
  104. *** 18,26 ****
  105.   # archive site. Check with Archie if you don't know where that can be.)
  106.   #
  107.   
  108. ! # $Id: Configure,v 3.0.1.1 1993/11/29 16:43:28 ram Exp $
  109.   #
  110. ! # Generated on Mon Nov 29 17:39:26 MET 1993 [metaconfig 3.0 PL14]
  111.   
  112.   cat >/tmp/c1$$ <<EOF
  113.   ARGGGHHHH!!!!!
  114. --- 18,26 ----
  115.   # archive site. Check with Archie if you don't know where that can be.)
  116.   #
  117.   
  118. ! # $Id: Configure,v 3.0.1.2 1993/12/15 09:02:26 ram Exp $
  119.   #
  120. ! # Generated on Wed Dec 15 09:55:57 MET 1993 [metaconfig 3.0 PL15]
  121.   
  122.   cat >/tmp/c1$$ <<EOF
  123.   ARGGGHHHH!!!!!
  124. ***************
  125. *** 52,57 ****
  126. --- 52,58 ----
  127.   PATH=$PATH:'/sys5.3/bin:/sys5.3/usr/bin:/bsd4.3/bin:/bsd4.3/usr/ucb'
  128.   PATH=$PATH:'/bsd4.3/usr/bin:/usr/bsd:/bsd43/bin:/usr/ccs/bin'
  129.   PATH=$PATH:'/etc:/usr/lib:/usr/ucblib:/lib:/usr/ccs/lib'
  130. + PATH=$PATH:'/sbin:/usr/sbin:/usr/libexec'
  131.   export PATH
  132.   
  133.   if test ! -t 0; then
  134. ***************
  135. *** 178,184 ****
  136. --- 179,187 ----
  137.   cf_by=''
  138.   cf_time=''
  139.   contains=''
  140. + cpplast=''
  141.   cppminus=''
  142. + cpprun=''
  143.   cppstdin=''
  144.   d_bcopy=''
  145.   d_flock=''
  146. ***************
  147. *** 414,420 ****
  148.       -s) shift; silent=true;;
  149.       -E) shift; alldone=exit;;
  150.       -S) shift; extractsh=true;;
  151. !     -V) echo "Configure generated by metaconfig 3.0 PL14." >&2
  152.           exit 0;;
  153.       --) break;;
  154.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  155. --- 417,423 ----
  156.       -s) shift; silent=true;;
  157.       -E) shift; alldone=exit;;
  158.       -S) shift; extractsh=true;;
  159. !     -V) echo "Configure generated by metaconfig 3.0 PL15." >&2
  160.           exit 0;;
  161.       --) break;;
  162.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  163. ***************
  164. *** 489,495 ****
  165.   fi
  166.   
  167.   : list of known cpp symbols
  168. ! attrlist="__alpha DGUX M_I186 M_I286 M_I386 M_I8086 M_XENIX UTS __DGUX__"
  169.   attrlist="$attrlist _AIX __STDC__ __m88k__ ansi bsd4_2 gcos gimpel"
  170.   attrlist="$attrlist hp9000s300 hp9000s400 hp9000s500 hp9000s700"
  171.   attrlist="$attrlist hp9000s800 hpux"
  172. --- 492,499 ----
  173.   fi
  174.   
  175.   : list of known cpp symbols
  176. ! attrlist="__alpha __bsdi__ BSD_NET2 DGUX M_I186 M_I286 M_I386"
  177. ! attrlist="$attrlist M_I8086 M_XENIX UTS __DGUX__"
  178.   attrlist="$attrlist _AIX __STDC__ __m88k__ ansi bsd4_2 gcos gimpel"
  179.   attrlist="$attrlist hp9000s300 hp9000s400 hp9000s500 hp9000s700"
  180.   attrlist="$attrlist hp9000s800 hpux"
  181. ***************
  182. *** 1078,1084 ****
  183.   case "$ans" in
  184.       y*) d_portable="$define"
  185.       for file in $loclist $trylist; do
  186. !         eval $file="\$_$file"
  187.       done
  188.       ;;
  189.       *)  d_portable="$undef" ;;
  190. --- 1082,1088 ----
  191.   case "$ans" in
  192.       y*) d_portable="$define"
  193.       for file in $loclist $trylist; do
  194. !         eval $file="\$file"
  195.       done
  196.       ;;
  197.       *)  d_portable="$undef" ;;
  198. ***************
  199. *** 2518,2583 ****
  200.   echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
  201.   chmod 755 cppstdin
  202.   wrapper=`pwd`/cppstdin
  203.   cd UU
  204.   if $test "X$cppstdin" != "X" && \
  205.       $cppstdin $cppminus <testcpp.c >testcpp.out 2>&1 && \
  206. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  207.       echo "You used to use $cppstdin $cppminus so we'll use that again."
  208. ! elif $test "$cc" = gcc && \
  209. !     (echo "Using gcc, eh?  We'll try to force gcc -E using a wrapper..."; \
  210. !     $wrapper <testcpp.c >testcpp.out 2>&1; \
  211. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1) ; then
  212. !     echo "Yup, we can."
  213. !     cppstdin="$wrapper"
  214. !     cppminus='';
  215.   elif echo 'Maybe "'"$cc"' -E" will work...'; \
  216.       $cc -E <testcpp.c >testcpp.out 2>&1; \
  217.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  218.       echo "Yup, it does."
  219. !     cppstdin="$cc -E"
  220. !     cppminus='';
  221.   elif echo 'Nope...maybe "'"$cc"' -E -" will work...'; \
  222.       $cc -E - <testcpp.c >testcpp.out 2>&1; \
  223.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  224.       echo "Yup, it does."
  225. !     cppstdin="$cc -E"
  226. !     cppminus='-';
  227. ! elif echo 'No such luck, maybe "'$cpp'" will work...'; \
  228. !     $cpp <testcpp.c >testcpp.out 2>&1; \
  229. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  230. !     echo "It works!"
  231. !     cppstdin="$cpp"
  232. !     cppminus='';
  233. ! elif echo 'Nixed again...maybe "'$cpp' -" will work...'; \
  234. !     $cpp - <testcpp.c >testcpp.out 2>&1; \
  235. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  236. !     echo "Hooray, it works!  I was beginning to wonder."
  237. !     cppstdin="$cpp"
  238. !     cppminus='-';
  239.   elif echo 'Nope...maybe "'"$cc"' -P" will work...'; \
  240.       $cc -P <testcpp.c >testcpp.out 2>&1; \
  241.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  242.       echo "Yipee, that works!"
  243. !     cppstdin="$cc -P"
  244. !     cppminus='';
  245.   elif echo 'Nope...maybe "'"$cc"' -P -" will work...'; \
  246.       $cc -P - <testcpp.c >testcpp.out 2>&1; \
  247.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  248.       echo "At long last!"
  249. !     cppstdin="$cc -P"
  250. !     cppminus='-';
  251.   elif echo 'Uh-uh.  Time to get fancy.  Trying a wrapper...'; \
  252.       $wrapper <testcpp.c >testcpp.out 2>&1; \
  253.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  254. !     cppstdin="$wrapper"
  255. !     cppminus=''
  256.       echo "Eureka!"
  257.   else
  258.       dflt=''
  259.       rp="No dice.  I can't find a C preprocessor.  Name one:"
  260.       . ./myread
  261. !     cppstdin="$ans"
  262. !     $cppstdin <testcpp.c >testcpp.out 2>&1
  263.       if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  264.           echo "OK, that will do." >&4
  265.       else
  266. --- 2522,2608 ----
  267.   echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
  268.   chmod 755 cppstdin
  269.   wrapper=`pwd`/cppstdin
  270. + ok='false'
  271.   cd UU
  272. + 
  273.   if $test "X$cppstdin" != "X" && \
  274.       $cppstdin $cppminus <testcpp.c >testcpp.out 2>&1 && \
  275. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
  276. ! then
  277.       echo "You used to use $cppstdin $cppminus so we'll use that again."
  278. !     case "$cpprun" in
  279. !     '') echo "But let's see if we can live without a wrapper..." ;;
  280. !     *)
  281. !         if $cpprun $cpplast <testcpp.c >testcpp.out 2>&1 && \
  282. !             $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
  283. !         then
  284. !             echo "(And we'll use $cpprun $cpplast to preprocess directly.)"
  285. !             ok='true'
  286. !         else
  287. !             echo "(However, $cpprun $cpplast does not work, let's see...)"
  288. !         fi
  289. !         ;;
  290. !     esac
  291. ! else
  292. !     case "$cppstdin" in
  293. !     '') ;;
  294. !     *)
  295. !         echo "Good old $cppstdin $cppminus does not seem to be of any help..."
  296. !         ;;
  297. !     esac
  298. ! fi
  299. ! 
  300. ! if $ok; then
  301. !     : nothing
  302.   elif echo 'Maybe "'"$cc"' -E" will work...'; \
  303.       $cc -E <testcpp.c >testcpp.out 2>&1; \
  304.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  305.       echo "Yup, it does."
  306. !     x_cpp="$cc -E"
  307. !     x_minus='';
  308.   elif echo 'Nope...maybe "'"$cc"' -E -" will work...'; \
  309.       $cc -E - <testcpp.c >testcpp.out 2>&1; \
  310.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  311.       echo "Yup, it does."
  312. !     x_cpp="$cc -E"
  313. !     x_minus='-';
  314.   elif echo 'Nope...maybe "'"$cc"' -P" will work...'; \
  315.       $cc -P <testcpp.c >testcpp.out 2>&1; \
  316.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  317.       echo "Yipee, that works!"
  318. !     x_cpp="$cc -P"
  319. !     x_minus='';
  320.   elif echo 'Nope...maybe "'"$cc"' -P -" will work...'; \
  321.       $cc -P - <testcpp.c >testcpp.out 2>&1; \
  322.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  323.       echo "At long last!"
  324. !     x_cpp="$cc -P"
  325. !     x_minus='-';
  326. ! elif echo 'No such luck, maybe "'$cpp'" will work...'; \
  327. !     $cpp <testcpp.c >testcpp.out 2>&1; \
  328. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  329. !     echo "It works!"
  330. !     x_cpp="$cpp"
  331. !     x_minus='';
  332. ! elif echo 'Nixed again...maybe "'$cpp' -" will work...'; \
  333. !     $cpp - <testcpp.c >testcpp.out 2>&1; \
  334. !     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  335. !     echo "Hooray, it works!  I was beginning to wonder."
  336. !     x_cpp="$cpp"
  337. !     x_minus='-';
  338.   elif echo 'Uh-uh.  Time to get fancy.  Trying a wrapper...'; \
  339.       $wrapper <testcpp.c >testcpp.out 2>&1; \
  340.       $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  341. !     x_cpp="$wrapper"
  342. !     x_minus=''
  343.       echo "Eureka!"
  344.   else
  345.       dflt=''
  346.       rp="No dice.  I can't find a C preprocessor.  Name one:"
  347.       . ./myread
  348. !     x_cpp="$ans"
  349. !     x_minus=''
  350. !     $x_cpp <testcpp.c >testcpp.out 2>&1
  351.       if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  352.           echo "OK, that will do." >&4
  353.       else
  354. ***************
  355. *** 2585,2590 ****
  356. --- 2610,2647 ----
  357.           exit 1
  358.       fi
  359.   fi
  360. + 
  361. + case "$ok" in
  362. + false)
  363. +     cppstdin="$x_cpp"
  364. +     cppminus="$x_minus"
  365. +     cpprun="$x_cpp"
  366. +     cpplast="$x_minus"
  367. +     set X $x_cpp
  368. +     shift
  369. +     case "$1" in
  370. +     "$cpp")
  371. +         echo "Perhaps can we force $cc -E using a wrapper..."
  372. +         if $wrapper <testcpp.c >testcpp.out 2>&1; \
  373. +             $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
  374. +         then
  375. +             echo "Yup, we can."
  376. +             cppstdin="$wrapper"
  377. +             cppminus='';
  378. +         else
  379. +             echo "Nope, we'll have to live without it..."
  380. +         fi
  381. +         ;;
  382. +     esac
  383. +     case "$cpprun" in
  384. +     "$wrapper")
  385. +         cpprun=''
  386. +         cpplast=''
  387. +         ;;
  388. +     esac
  389. +     ;;
  390. + esac
  391. + 
  392.   case "$cppstdin" in
  393.   "$wrapper") ;;
  394.   *) $rm -f $wrapper;;
  395. ***************
  396. *** 3158,3164 ****
  397.   
  398.   : determine where mail is spooled
  399.   case "$maildir" in
  400. ! '') dflt=`./loc . /usr/spool/mail /usr/spool/mail /usr/mail`;;
  401.   *) dflt="$maildir";;
  402.   esac
  403.   echo " "
  404. --- 3215,3221 ----
  405.   
  406.   : determine where mail is spooled
  407.   case "$maildir" in
  408. ! '') dflt=`./loc . /usr/spool/mail /usr/spool/mail /usr/mail /var/mail`;;
  409.   *) dflt="$maildir";;
  410.   esac
  411.   echo " "
  412. ***************
  413. *** 3201,3207 ****
  414.   : determine where mail is spooled
  415.   case "$mailfile" in
  416.   '')
  417. !     dflt=`./loc . XXX /usr/spool/mail /usr/mail`
  418.       case "$dflt" in
  419.       XXX) dflt='%~/mailbox';;
  420.       *) dflt="$dflt/%L";;
  421. --- 3258,3264 ----
  422.   : determine where mail is spooled
  423.   case "$mailfile" in
  424.   '')
  425. !     dflt=`./loc . XXX /usr/spool/mail /usr/mail /var/mail`
  426.       case "$dflt" in
  427.       XXX) dflt='%~/mailbox';;
  428.       *) dflt="$dflt/%L";;
  429. ***************
  430. *** 3265,3270 ****
  431. --- 3322,3328 ----
  432.   do
  433.       $cpp -M -I. $cppflags \$flags \$srcfile 2>/dev/null
  434.   done
  435. + exit 0
  436.   EOM
  437.       mkdep=$toplev/mkdep
  438.       chmod +x $mkdep
  439. ***************
  440. *** 3288,3293 ****
  441. --- 3346,3352 ----
  442.   do
  443.       $cc -MM -I. $cppflags \$flags \$srcfile 2>/dev/null
  444.   done
  445. + exit 0
  446.   EOM
  447.       mkdep=$toplev/mkdep
  448.       chmod +x $mkdep
  449. ***************
  450. *** 3322,3327 ****
  451. --- 3381,3387 ----
  452.           -e 's|: *$|: '\$srcfile'|' | \\
  453.       $grep -v '^#' | $sort | $uniq
  454.   done
  455. + exit 0
  456.   EOS
  457.       mkdep=$toplev/mkdep
  458.       chmod +x $mkdep
  459. ***************
  460. *** 3383,3388 ****
  461. --- 3443,3449 ----
  462.       IFS=' '
  463.       $rm -f /tmp/mkdep\$\$
  464.   done
  465. + exit 0
  466.   EOS
  467.           mkdep=$toplev/mkdep
  468.           chmod +x $mkdep
  469. ***************
  470. *** 4234,4240 ****
  471. --- 4295,4303 ----
  472.   cf_by='$cf_by'
  473.   cf_time='$cf_time'
  474.   contains='$contains'
  475. + cpplast='$cpplast'
  476.   cppminus='$cppminus'
  477. + cpprun='$cpprun'
  478.   cppstdin='$cppstdin'
  479.   d_bcopy='$d_bcopy'
  480.   d_flock='$d_flock'
  481.  
  482. Index: agent/man/mailagent.SH
  483. Prereq: 3.0
  484. *** agent/man/mailagent.SH.old    Wed Dec 15 10:07:04 1993
  485. --- agent/man/mailagent.SH    Wed Dec 15 10:07:05 1993
  486. ***************
  487. *** 20,26 ****
  488.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  489.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  490.   '''
  491. ! ''' $Id: mailagent.SH,v 3.0 1993/11/29 13:48:27 ram Exp $
  492.   '''
  493.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  494.   '''  
  495. --- 20,26 ----
  496.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  497.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  498.   '''
  499. ! ''' $Id: mailagent.SH,v 3.0.1.1 1993/12/15 09:03:44 ram Exp $
  500.   '''
  501.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  502.   '''  
  503. ***************
  504. *** 31,36 ****
  505. --- 31,39 ----
  506.   '''  of the source tree for mailagent 3.0.
  507.   '''
  508.   ''' $Log: mailagent.SH,v $
  509. + ''' Revision 3.0.1.1  1993/12/15  09:03:44  ram
  510. + ''' patch3: typo and minor fixes
  511. + '''
  512.   ''' Revision 3.0  1993/11/29  13:48:27  ram
  513.   ''' Baseline for mailagent 3.0 netwide release.
  514.   '''
  515. ***************
  516. *** 1975,1981 ****
  517.   .I new(name, value, type)
  518.   Replace or create a %-(name) macro. For instance:
  519.   .Ex
  520. ! new('foo', "$mailhook'header{'X-Foo'}", 'EXPR');
  521.   .Ef
  522.   would create a new macro \fIfoo\fR that would expand into the value of
  523.   an hypothetical \fIX-Foo\fR header.
  524. --- 1978,1984 ----
  525.   .I new(name, value, type)
  526.   Replace or create a %-(name) macro. For instance:
  527.   .Ex
  528. ! new('foo', "\$mailhook'header{'X-Foo'}", 'EXPR');
  529.   .Ef
  530.   would create a new macro \fIfoo\fR that would expand into the value of
  531.   an hypothetical \fIX-Foo\fR header.
  532. ***************
  533. *** 3275,3281 ****
  534.   with the \fIroot\fR power can do virtually anything with the server, so be
  535.   careful. Let's assume you choose \fIroot-pass\fR as a password.
  536.   .PP
  537. ! Edit \fIpasswd\fR (defined in your \fI~/.mailagent\fR and add the following
  538.   line:
  539.   .Ex
  540.   root:<root-pass>:
  541. --- 3278,3284 ----
  542.   with the \fIroot\fR power can do virtually anything with the server, so be
  543.   careful. Let's assume you choose \fIroot-pass\fR as a password.
  544.   .PP
  545. ! Edit \fIpasswd\fR (defined in your \fI~/.mailagent\fR) and add the following
  546.   line:
  547.   .Ex
  548.   root:<root-pass>:
  549. ***************
  550. *** 3291,3305 ****
  551.   .PP
  552.   You are almost done. Now simply issue the following command:
  553.   .Ex
  554.   From: \fIyour e-mail address\fR
  555.   
  556.   power root root-pass
  557.   password root root-pass
  558.   .Ef
  559. ! and feed that to:
  560. ! .Ex
  561. ! mailagent -i -e 'SERVER -t'
  562. ! .Ef
  563.   The side effect of re-instantiating your password will be to crypt it in
  564.   the \fIpasswd\fR file, so that anybody looking at that file cannot guess
  565.   your \fIroot\fR password, hopefully.
  566. --- 3294,3315 ----
  567.   .PP
  568.   You are almost done. Now simply issue the following command:
  569.   .Ex
  570. + mailagent -i -e 'SERVER -t'
  571. + .Ef
  572. + and feed its standard input with:
  573. + .Ex
  574. + From \fIyour e-mail address\fR
  575.   From: \fIyour e-mail address\fR
  576.   
  577.   power root root-pass
  578.   password root root-pass
  579. + ^D
  580.   .Ef
  581. ! Note that the first \fIFrom\fR line is mandatory here, since it's the
  582. ! envelope on which authentication is based. Since we're feeding mailagent
  583. ! with an handcrafted message, we must provide a valid envelope or the
  584. ! server will not switch into trusted mode...
  585. ! .PP
  586.   The side effect of re-instantiating your password will be to crypt it in
  587.   the \fIpasswd\fR file, so that anybody looking at that file cannot guess
  588.   your \fIroot\fR password, hopefully.
  589.  
  590. Index: agent/pl/mh.pl
  591. Prereq: 3.0
  592. *** agent/pl/mh.pl.old    Wed Dec 15 10:07:06 1993
  593. --- agent/pl/mh.pl    Wed Dec 15 10:07:07 1993
  594. ***************
  595. *** 1,4 ****
  596. ! ;# $Id: mh.pl,v 3.0 1993/11/29 13:49:02 ram Exp $
  597.   ;#
  598.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  599.   ;#  
  600. --- 1,4 ----
  601. ! ;# $Id: mh.pl,v 3.0.1.1 1993/12/15 09:04:12 ram Exp $
  602.   ;#
  603.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  604.   ;#  
  605. ***************
  606. *** 9,14 ****
  607. --- 9,17 ----
  608.   ;#  of the source tree for mailagent 3.0.
  609.   ;#
  610.   ;# $Log: mh.pl,v $
  611. + ;# Revision 3.0.1.1  1993/12/15  09:04:12  ram
  612. + ;# patch3: log mesages were not emitted correctly
  613. + ;#
  614.   ;# Revision 3.0  1993/11/29  13:49:02  ram
  615.   ;# Baseline for mailagent 3.0 netwide release.
  616.   ;#
  617. ***************
  618. *** 75,81 ****
  619.       local($size) = -s $name;
  620.   
  621.       &'add_log("ERROR $name has $size bytes (should have $amount)")
  622. !         if $size != $amount && $loglvl;
  623.   
  624.       $failed = 1 if $size != $amount;
  625.   
  626. --- 78,84 ----
  627.       local($size) = -s $name;
  628.   
  629.       &'add_log("ERROR $name has $size bytes (should have $amount)")
  630. !         if $size != $amount && $'loglvl;
  631.   
  632.       $failed = 1 if $size != $amount;
  633.   
  634. ***************
  635. *** 154,160 ****
  636.   
  637.       # Now sort in ascending order and get highest number
  638.       @dir = sort { $a <=> $b; } @dir;
  639. !     local($highest) = pop(@dir);
  640.   
  641.       # Now create new message before unlocking the directory. Use appending
  642.       # instead of plain creation in case our lock was not honoured for some
  643. --- 157,163 ----
  644.   
  645.       # Now sort in ascending order and get highest number
  646.       @dir = sort { $a <=> $b; } @dir;
  647. !     local($highest) = pop(@dir) || 0;        # Ensure numeric default value
  648.   
  649.       # Now create new message before unlocking the directory. Use appending
  650.       # instead of plain creation in case our lock was not honoured for some
  651. ***************
  652. *** 162,168 ****
  653.       $highest++;
  654.       local($new) = "$dir/$msg_prefix$highest";
  655.       unless (open(NEW, ">>$new")) {
  656. !         &'add_log("ERROR cannot create $msg: $!") if $'loglvl > 1;
  657.           $new = 0;    # Signal no creation (directory still locked)
  658.       } else {
  659.           close NEW;    # File is now created
  660. --- 165,171 ----
  661.       $highest++;
  662.       local($new) = "$dir/$msg_prefix$highest";
  663.       unless (open(NEW, ">>$new")) {
  664. !         &'add_log("ERROR cannot create $new: $!") if $'loglvl > 1;
  665.           $new = 0;    # Signal no creation (directory still locked)
  666.       } else {
  667.           close NEW;    # File is now created
  668.  
  669. Index: agent/test/basic/filter.t
  670. Prereq: 3.0
  671. *** agent/test/basic/filter.t.old    Wed Dec 15 10:07:09 1993
  672. --- agent/test/basic/filter.t    Wed Dec 15 10:07:09 1993
  673. ***************
  674. *** 1,6 ****
  675.   # Make sure filter queues messages correctly
  676.   
  677. ! # $Id: filter.t,v 3.0 1993/11/29 13:49:24 ram Exp $
  678.   #
  679.   #  Copyright (c) 1990-1993, Raphael Manfredi
  680.   #  
  681. --- 1,6 ----
  682.   # Make sure filter queues messages correctly
  683.   
  684. ! # $Id: filter.t,v 3.0.1.1 1993/12/15 09:05:53 ram Exp $
  685.   #
  686.   #  Copyright (c) 1990-1993, Raphael Manfredi
  687.   #  
  688. ***************
  689. *** 11,16 ****
  690. --- 11,19 ----
  691.   #  of the source tree for mailagent 3.0.
  692.   #
  693.   # $Log: filter.t,v $
  694. + # Revision 3.0.1.1  1993/12/15  09:05:53  ram
  695. + # patch3: now make sure that filter.lock has correct timestamp
  696. + #
  697.   # Revision 3.0  1993/11/29  13:49:24  ram
  698.   # Baseline for mailagent 3.0 netwide release.
  699.   #
  700. ***************
  701. *** 55,63 ****
  702.   $file = <queue/qm*>;
  703.   -f "$file" || print "13\n";    # Must have been left in queue
  704.   unlink "$file", 'agentlog';
  705.   # Make sure file is correctly queued when another filter is running
  706. ! `cp /dev/null filter.lock`;
  707.   $? == 0 || print "14\n";
  708.   open(FILTER, "|$filter -t >/dev/null 2>&1") || print "15\n";
  709.   print FILTER <<EOF;
  710.   Dummy mail
  711. --- 58,69 ----
  712.   $file = <queue/qm*>;
  713.   -f "$file" || print "13\n";    # Must have been left in queue
  714.   unlink "$file", 'agentlog';
  715. + 
  716.   # Make sure file is correctly queued when another filter is running
  717. ! unlink 'filter.lock';        # In case an old one remains
  718. ! `cp /dev/null filter.lock`;    # Make sure we have a new fresh one
  719.   $? == 0 || print "14\n";
  720. + 
  721.   open(FILTER, "|$filter -t >/dev/null 2>&1") || print "15\n";
  722.   print FILTER <<EOF;
  723.   Dummy mail
  724.  
  725. Index: agent/test/TEST
  726. Prereq: 3.0
  727. *** agent/test/TEST.old    Wed Dec 15 10:07:07 1993
  728. --- agent/test/TEST    Wed Dec 15 10:07:07 1993
  729. ***************
  730. *** 2,8 ****
  731.       eval 'exec perl -S $0 "$@"'
  732.           if $running_under_some_shell;
  733.   
  734. ! # $Id: TEST,v 3.0 1993/11/29 13:49:22 ram Exp $
  735.   #
  736.   #  Copyright (c) 1990-1993, Raphael Manfredi
  737.   #  
  738. --- 2,8 ----
  739.       eval 'exec perl -S $0 "$@"'
  740.           if $running_under_some_shell;
  741.   
  742. ! # $Id: TEST,v 3.0.1.1 1993/12/15 09:04:45 ram Exp $
  743.   #
  744.   #  Copyright (c) 1990-1993, Raphael Manfredi
  745.   #  
  746. ***************
  747. *** 13,18 ****
  748. --- 13,21 ----
  749.   #  of the source tree for mailagent 3.0.
  750.   #
  751.   # $Log: TEST,v $
  752. + # Revision 3.0.1.1  1993/12/15  09:04:45  ram
  753. + # patch3: now force . into PATH for msend/nsend
  754. + #
  755.   # Revision 3.0  1993/11/29  13:49:22  ram
  756.   # Baseline for mailagent 3.0 netwide release.
  757.   #
  758. ***************
  759. *** 36,42 ****
  760.   $mailagent = 'mailagent';            # Default program (dataloaded version)
  761.   $mailagent = 'magent' if $opt_n;    # Use non-dataloaded version
  762.   $ENV{'MAILAGENT'} = $mailagent;
  763. ! $ENV{'PATH'} = "$pwd/..:" . $ENV{'PATH'};
  764.   
  765.   -f "../$mailagent" && -x _ || die "No $mailagent.\n";
  766.   -f '../filter/filter' && -x _ || die "No filter.\n";
  767. --- 39,45 ----
  768.   $mailagent = 'mailagent';            # Default program (dataloaded version)
  769.   $mailagent = 'magent' if $opt_n;    # Use non-dataloaded version
  770.   $ENV{'MAILAGENT'} = $mailagent;
  771. ! $ENV{'PATH'} = "$pwd/..:.:" . $ENV{'PATH'};
  772.   
  773.   -f "../$mailagent" && -x _ || die "No $mailagent.\n";
  774.   -f '../filter/filter' && -x _ || die "No filter.\n";
  775.  
  776. Index: agent/test/actions
  777. Prereq: 3.0
  778. *** agent/test/actions.old    Wed Dec 15 10:07:08 1993
  779. --- agent/test/actions    Wed Dec 15 10:07:08 1993
  780. ***************
  781. *** 2,8 ****
  782.   # Mailagent rules for action regression tests
  783.   #
  784.   
  785. ! # $Id: actions,v 3.0 1993/11/29 13:49:23 ram Exp $
  786.   #
  787.   #  Copyright (c) 1990-1993, Raphael Manfredi
  788.   #  
  789. --- 2,8 ----
  790.   # Mailagent rules for action regression tests
  791.   #
  792.   
  793. ! # $Id: actions,v 3.0.1.1 1993/12/15 09:05:21 ram Exp $
  794.   #
  795.   #  Copyright (c) 1990-1993, Raphael Manfredi
  796.   #  
  797. ***************
  798. *** 13,18 ****
  799. --- 13,21 ----
  800.   #  of the source tree for mailagent 3.0.
  801.   #
  802.   # $Log: actions,v $
  803. + # Revision 3.0.1.1  1993/12/15  09:05:21  ram
  804. + # patch3: extra closing single quote removed (was there since 2.9 PL0)
  805. + #
  806.   # Revision 3.0  1993/11/29  13:49:23  ram
  807.   # Baseline for mailagent 3.0 netwide release.
  808.   #
  809. ***************
  810. *** 48,54 ****
  811.       ASSIGN other try;
  812.       ASSIGN final '%#other.2';
  813.       ASSIGN :ram 1 + 2;
  814. !     RUN /bin/echo '%#ram,%#other,%#final' > output';
  815.   }
  816.   
  817.   X-Tag: /assign #2/
  818. --- 51,57 ----
  819.       ASSIGN other try;
  820.       ASSIGN final '%#other.2';
  821.       ASSIGN :ram 1 + 2;
  822. !     RUN /bin/echo '%#ram,%#other,%#final' > output;
  823.   }
  824.   
  825.   X-Tag: /assign #2/
  826.  
  827. Index: README
  828. *** README.old    Wed Dec 15 10:07:02 1993
  829. --- README    Wed Dec 15 10:07:02 1993
  830. ***************
  831. *** 13,18 ****
  832. --- 13,20 ----
  833.       Artistic License for more details.
  834.   ------------------------------------------------------------------------
  835.   
  836. + This version of mailagent requires you to have at least perl 4.0 PL36.
  837. + 
  838.   Please read all the directions below before you proceed any further, and
  839.   then follow them carefully.
  840.   
  841.  
  842. *** End of Patch 3 ***
  843.  
  844. exit 0 # Just in case...
  845.