home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume41 / mailagent / patch05 < prev    next >
Encoding:
Text File  |  1994-01-31  |  44.7 KB  |  1,655 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v41i124:  mailagent - Flexible mail filtering and processing package, v3.0, Patch05
  4. Message-ID: <1994Feb1.065357.15004@sparky.sterling.com>
  5. X-Md4-Signature: 3a43d4203487479c3e7d9d8bd5f61109
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Tue, 1 Feb 1994 06:53:57 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 41, Issue 124
  13. Archive-name: mailagent/patch05
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #6.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 5
  21. Priority: LOW
  22. Subject: updated Configure with newer metaconfig
  23. Subject: Configure now knows about agent-users list
  24. Subject: updated Credits file
  25. Subject: now only try to include <sys/fcntl.h> when hope is lost
  26. Subject: filter will now put itself in daemon state while waiting
  27. Subject: typo fix in a comment
  28. Subject: new -F option to force procesing on filtered messages
  29. Subject: documents new tag feature for UNIQUE and RECORD
  30. Subject: documents new -F option
  31. Subject: random typo fixes
  32. Subject: restored ability to use Cc: and Bcc: in message files
  33. Subject: now understands new -F option to force processing
  34. Subject: added tags to UNIQUE and RECORD commands
  35. Subject: history can now handle distinct tags on messages
  36. Subject: added new tests for UNIQUE and RECORD tags
  37. Subject: ensure header-added recipients looked for in messages
  38. Subject: added tests for tag support
  39. Subject: created
  40. Subject: updated by metaconfig
  41. Subject: one new file
  42. Date: Wed Jan 26 10:36:52 MET 1994
  43. From: Raphael Manfredi <ram@acri.fr>
  44.  
  45. Description:
  46.     Updated Configure with newer metaconfig. It now knows about
  47.     the agent-users list and will offer the user to subscribe
  48.     or unsubscribe from it.
  49.  
  50.     Updated Credits file and thanks to Harald Koch
  51.     <chk@enfm.utcc.utoronto.ca> for suggesting that filter
  52.     should put itself in daemon state while waiting. That allows
  53.     processes to see EOF on pipes. See comment in agent/filter/io.c.
  54.  
  55.     New -F option to force procesing on filtered messages, at the
  56.     request of Shigeya Suzuki <shigeya@foretune.co.jp>. This allows
  57.     you to post-process already filtered mail.
  58.  
  59.     Restored ability to use Cc: and Bcc: in message files. This
  60.     documented feature was lost when I suppressed invocation to
  61.     sendmail -t for sending message. Since now the mailer can be
  62.     configured from within ~/.mailagent, the burden of doing this
  63.     falls on mailagent's shoulders.
  64.  
  65.     Regression tests now explicitely check for the above problem,
  66.     hence ensuring failure if this documented feature is broken
  67.     again at some later time...
  68.  
  69.     Added tags to UNIQUE and RECORD commands, again at the
  70.     request of Shigeya Suzuki <shigeya@foretune.co.jp>. Message
  71.     history can now handle distinct tags on messages
  72.  
  73.     Added the necessary regression tests for -F and those new
  74.     tags in UNIQUE and RECORD, along with the documentation that
  75.     comes with those new features.
  76.  
  77.  
  78. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  79.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  80.     If you don't have the patch program, apply the following by hand,
  81.     or get patch (version 2.0, latest patchlevel).
  82.  
  83.     After patching:
  84.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #6 FIRST ***
  85.  
  86.     If patch indicates that patchlevel is the wrong version, you may need
  87.     to apply one or more previous patches, or the patch may already
  88.     have been applied.  See the patchlevel.h file to find out what has or
  89.     has not been applied.  In any event, don't continue with the patch.
  90.  
  91.     If you are missing previous patches they can be obtained from me:
  92.  
  93.         Raphael Manfredi <ram@acri.fr>
  94.  
  95.     If you send a mail message of the following form it will greatly speed
  96.     processing:
  97.  
  98.         Subject: Command
  99.         @SH mailpatch PATH mailagent 3.0 LIST
  100.                ^ note the c
  101.  
  102.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  103.     or in bang notation from some well-known host, and LIST is the number
  104.     of one or more patches you need, separated by spaces, commas, and/or
  105.     hyphens.  Saying 35- says everything from 35 to the end.
  106.  
  107.     To get some more detailed instructions, send me the following mail:
  108.  
  109.         Subject: Command
  110.         @SH mailhelp PATH
  111.  
  112.  
  113. Index: patchlevel.h
  114. Prereq: 4
  115. 4c4
  116. < #define PATCHLEVEL 4
  117. ---
  118. > #define PATCHLEVEL 5
  119.  
  120. Index: Configure
  121. Prereq: 3.0.1.2
  122. *** Configure.old    Wed Jan 26 10:36:31 1994
  123. --- Configure    Wed Jan 26 10:36:33 1994
  124. ***************
  125. *** 18,26 ****
  126.   # archive site. Check with Archie if you don't know where that can be.)
  127.   #
  128.   
  129. ! # $Id: Configure,v 3.0.1.2 1993/12/15 09:02:26 ram Exp $
  130.   #
  131. ! # Generated on Wed Dec 15 09:55:57 MET 1993 [metaconfig 3.0 PL15]
  132.   
  133.   cat >/tmp/c1$$ <<EOF
  134.   ARGGGHHHH!!!!!
  135. --- 18,26 ----
  136.   # archive site. Check with Archie if you don't know where that can be.)
  137.   #
  138.   
  139. ! # $Id: Configure,v 3.0.1.3 1994/01/26 09:24:20 ram Exp $
  140.   #
  141. ! # Generated on Mon Jan 24 17:53:52 MET 1994 [metaconfig 3.0 PL22]
  142.   
  143.   cat >/tmp/c1$$ <<EOF
  144.   ARGGGHHHH!!!!!
  145. ***************
  146. *** 176,181 ****
  147. --- 176,182 ----
  148.   ldflags=''
  149.   lkflags=''
  150.   optimize=''
  151. + cf_email=''
  152.   cf_by=''
  153.   cf_time=''
  154.   contains=''
  155. ***************
  156. *** 194,199 ****
  157. --- 195,204 ----
  158.   d_open3=''
  159.   d_portable=''
  160.   d_rename=''
  161. + d_setpgid=''
  162. + d_bsdpgrp=''
  163. + d_setpgrp=''
  164. + d_setsid=''
  165.   d_index=''
  166.   d_strchr=''
  167.   d_strerrm=''
  168. ***************
  169. *** 202,207 ****
  170. --- 207,213 ----
  171.   d_syserrlst=''
  172.   d_time=''
  173.   timetype=''
  174. + d_uwait3=''
  175.   d_uwait=''
  176.   d_vfork=''
  177.   d_voidsig=''
  178. ***************
  179. *** 212,218 ****
  180. --- 218,231 ----
  181.   i_string=''
  182.   strings=''
  183.   i_sysfile=''
  184. + d_voidtty=''
  185. + i_bsdioctl=''
  186. + i_sysioctl=''
  187. + i_syssockio=''
  188.   i_syswait=''
  189. + i_sgtty=''
  190. + i_termio=''
  191. + i_termios=''
  192.   i_systime=''
  193.   i_systimek=''
  194.   i_time=''
  195. ***************
  196. *** 247,252 ****
  197. --- 260,269 ----
  198.   phostname=''
  199.   c=''
  200.   n=''
  201. + d_berknames=''
  202. + d_passnames=''
  203. + d_usgnames=''
  204. + nametype=''
  205.   groupcat=''
  206.   hostcat=''
  207.   passcat=''
  208. ***************
  209. *** 417,423 ****
  210.       -s) shift; silent=true;;
  211.       -E) shift; alldone=exit;;
  212.       -S) shift; extractsh=true;;
  213. !     -V) echo "Configure generated by metaconfig 3.0 PL15." >&2
  214.           exit 0;;
  215.       --) break;;
  216.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  217. --- 434,440 ----
  218.       -s) shift; silent=true;;
  219.       -E) shift; alldone=exit;;
  220.       -S) shift; extractsh=true;;
  221. !     -V) echo "Configure generated by metaconfig 3.0 PL22." >&2
  222.           exit 0;;
  223.       --) break;;
  224.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  225. ***************
  226. *** 1001,1006 ****
  227. --- 1018,1025 ----
  228.   case "$config_sh" in
  229.   '')
  230.   myuname=`( ($uname -a) 2>/dev/null || hostname) 2>&1`
  231. + myuname=`echo $myuname | $sed -e 's/^[^=]*=//' | \
  232. +     tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  233.   dflt=n
  234.   if test "$fastread" = yes; then
  235.       dflt=y
  236. ***************
  237. *** 1018,1024 ****
  238.   hint=default
  239.   if test -f ../config.sh; then
  240.       echo " "
  241. !     rp="I see a config.sh file.  Did Configure make it on THIS system?"
  242.       . ./myread
  243.       case "$ans" in
  244.       n*|N*) echo "OK, I'll ignore it.";;
  245. --- 1037,1043 ----
  246.   hint=default
  247.   if test -f ../config.sh; then
  248.       echo " "
  249. !     rp="I see a config.sh file.  Shall I use it to set the defaults?"
  250.       . ./myread
  251.       case "$ans" in
  252.       n*|N*) echo "OK, I'll ignore it.";;
  253. ***************
  254. *** 2207,2212 ****
  255. --- 2226,2284 ----
  256.   set bcopy d_bcopy
  257.   eval $inlibc
  258.   
  259. + : function used to set $1 to $val
  260. + setvar='var=$1; eval "was=\$$1"; td=$define; tu=$undef;
  261. + case "$val$was" in
  262. + $define$undef) . whoa; eval "$var=\$td";;
  263. + $undef$define) . whoa; eval "$var=\$tu";;
  264. + *) eval "$var=$val";;
  265. + esac'
  266. + 
  267. + : see if setpgrp exists
  268. + set setpgrp d_setpgrp
  269. + eval $inlibc
  270. + 
  271. + : see which flavor of setpgrp is in use
  272. + case "$d_setpgrp" in
  273. + "$define")
  274. +     echo " "
  275. +     $cat >set.c <<EOP
  276. + main()
  277. + {
  278. +     if (getuid() == 0) {
  279. +         printf("(I see you are running Configure as super-user...)\n");
  280. +         setuid(1);
  281. +     }
  282. +     if (-1 == setpgrp(1, 1))
  283. +         exit(1);
  284. +     exit(0);
  285. + }
  286. + EOP
  287. +     if $cc $ccflags -o set set.c $libs >/dev/null 2>&1; then
  288. +         ./set 2>/dev/null
  289. +         case $? in
  290. +         0) echo "You have to use setpgrp() instead of setpgrp(pid, pgrp)." >&4
  291. +             val="$undef";;
  292. +         *) echo "You have to use setpgrp(pid, pgrp) instead of setpgrp()." >&4
  293. +             val="$define";;
  294. +         esac
  295. +     else
  296. +         if usg; then
  297. +             xxx="USG one, i.e. you use setpgrp()."
  298. +             val="$undef"
  299. +         else
  300. +             xxx="BSD one, i.e. you use setpgrp(pid, pgrp)."
  301. +             val="$define"
  302. +         fi
  303. +         echo "Assuming your setpgrp is a $xxx" >&4
  304. +     fi
  305. +     ;;
  306. + *) val="$undef";;
  307. + esac
  308. + set d_bsdpgrp
  309. + eval $setvar
  310. + $rm -f set set.c
  311. + 
  312.   : see if we have to deal with yellow pages, now NIS.
  313.   if $test -d /usr/etc/yp || $test -d /etc/yp; then
  314.       if $test -f /usr/etc/nibindd; then
  315. ***************
  316. *** 2213,2218 ****
  317. --- 2285,2306 ----
  318.           echo " "
  319.           echo "I'm fairly confident you're on a NeXT."
  320.           echo " "
  321. +         rp='Do you get the passwd file via NetInfo?'
  322. +         dflt=y
  323. +         case "$passcat" in
  324. +         nidump*) ;;
  325. +         '') ;;
  326. +         *) dflt=n;;
  327. +         esac
  328. +         . ./myread
  329. +         case "$ans" in
  330. +         y*) passcat='nidump passwd .'
  331. +             ;;
  332. +         *)    echo "You told me, so don't blame me."
  333. +             passcat='cat /etc/passwd'
  334. +             ;;
  335. +         esac
  336. +         echo " "
  337.           rp='Do you get the hosts file via NetInfo?'
  338.           dflt=y
  339.           case "$hostcat" in
  340. ***************
  341. *** 2226,2231 ****
  342. --- 2314,2342 ----
  343.           *) hostcat='cat /etc/hosts';;
  344.           esac
  345.       fi
  346. +     case "$passcat" in
  347. +     nidump*) ;;
  348. +     *)
  349. +         case "$passcat" in
  350. +         *ypcat*) dflt=y;;
  351. +         '') if $contains '^\+' /etc/passwd >/dev/null 2>&1; then
  352. +                 dflt=y
  353. +             else
  354. +                 dflt=n
  355. +             fi;;
  356. +         *) dflt=n;;
  357. +         esac
  358. +         echo " "
  359. +         rp='Are you getting the passwd file via yellow pages?'
  360. +         . ./myread
  361. +         case "$ans" in
  362. +         y*) passcat='ypcat passwd'
  363. +             ;;
  364. +         *)    passcat='cat /etc/passwd'
  365. +             ;;
  366. +         esac
  367. +         ;;
  368. +     esac
  369.       case "$hostcat" in
  370.       nidump*) ;;
  371.       *)
  372. ***************
  373. *** 2502,2515 ****
  374.   '') d_phostname="$undef";;
  375.   esac
  376.   
  377. - : function used to set $1 to $val
  378. - setvar='var=$1; eval "was=\$$1"; td=$define; tu=$undef;
  379. - case "$val$was" in
  380. - $define$undef) . whoa; eval "$var=\$td";;
  381. - $undef$define) . whoa; eval "$var=\$tu";;
  382. - *) eval "$var=$val";;
  383. - esac'
  384. - 
  385.   : see how we invoke the C preprocessor
  386.   echo " "
  387.   echo "Now, how can we feed standard input to your C preprocessor..." >&4
  388. --- 2613,2618 ----
  389. ***************
  390. *** 2823,2828 ****
  391. --- 2926,2939 ----
  392.   set rename d_rename
  393.   eval $inlibc
  394.   
  395. + : see if setpgid exists
  396. + set setpgid d_setpgid
  397. + eval $inlibc
  398. + 
  399. + : see if setsid exists
  400. + set setsid d_setsid
  401. + eval $inlibc
  402. + 
  403.   : see if strerror and/or sys_errlist[] exist
  404.   echo " "
  405.   if set strerror val -f d_strerror; eval $csym; $val; then
  406. ***************
  407. *** 2869,2883 ****
  408.   
  409.   : see if union wait is available
  410.   echo " "
  411. ! if $contains 'union.*wait.*{' `./findhdr sys/wait.h` >/dev/null 2>&1 ; then
  412. !     echo "Looks like we have to use 'union wait' pointer for wait()." >&4
  413.       val="$define"
  414.   else
  415. !     echo "Your wait() should be happy with a plain 'int' pointer." >&4
  416.       val="$undef"
  417.   fi
  418.   set d_uwait
  419.   eval $setvar
  420.   
  421.   : backward compatibility for d_hvfork
  422.   if test X$d_hvfork != X; then
  423. --- 2980,3020 ----
  424.   
  425.   : see if union wait is available
  426.   echo " "
  427. ! set X $cppflags
  428. ! shift
  429. ! flags=''
  430. ! also=''
  431. ! for f in $*; do
  432. !     case "$f" in
  433. !     *NO_PROTO*) ;;
  434. !     *) flags="$flags $f";;
  435. !     esac
  436. ! done
  437. ! $cat `./findhdr sys/wait.h` /dev/null | \
  438. !     $cppstdin $flags $cppminus >wait.out 2>/dev/null
  439. ! if $contains 'union.*wait.*{' wait.out >/dev/null 2>&1 ; then
  440. !     echo "Looks like your <sys/wait.h> knows about 'union wait'..." >&4
  441.       val="$define"
  442. +     also='also '
  443. +     if $contains 'extern.*wait[     ]*([     ]*int' wait.out >/dev/null 2>&1
  444. +     then
  445. +         echo "But wait() seems to expect an 'int' pointer (POSIX way)." >&4
  446. +         val="$undef"
  447. +         also=''
  448. +     elif $contains 'extern.*wait[     ]*([     ]*union' wait.out >/dev/null 2>&1
  449. +     then
  450. +         echo "And indeed wait() expects an 'union wait' pointer (BSD way)." >&4
  451. +     else
  452. +         echo "So we'll use that for wait()." >&4
  453. +     fi
  454.   else
  455. !     echo "No trace of 'union wait' in <sys/wait.h>..." >&4
  456.       val="$undef"
  457. +     echo "Your wait() should be happy with a plain 'int' pointer." >&4
  458.   fi
  459.   set d_uwait
  460.   eval $setvar
  461. + $rm -f wait.out
  462.   
  463.   : backward compatibility for d_hvfork
  464.   if test X$d_hvfork != X; then
  465. ***************
  466. *** 2888,2893 ****
  467. --- 3025,3182 ----
  468.   set vfork d_vfork
  469.   eval $inlibc
  470.   
  471. + : get C preprocessor symbols handy
  472. + echo " "
  473. + echo $attrlist | $tr ' ' '\012' >Cppsym.know
  474. + $cat <<EOSS >Cppsym
  475. + $startsh
  476. + case "\$1" in
  477. + -l) list=true
  478. +     shift
  479. +     ;;
  480. + esac
  481. + unknown=''
  482. + case "\$list\$#" in
  483. + 1|2)
  484. +     for sym do
  485. +         if $contains "^\$1$" Cppsym.true >/dev/null 2>&1; then
  486. +             exit 0
  487. +         elif $contains "^\$1$" Cppsym.know >/dev/null 2>&1; then
  488. +             :
  489. +         else
  490. +             unknown="\$unknown \$sym"
  491. +         fi
  492. +     done
  493. +     set X \$unknown
  494. +     shift
  495. +     ;;
  496. + esac
  497. + case \$# in
  498. + 0) exit 1;;
  499. + esac
  500. + echo \$* | $tr ' ' '\012' | $sed -e 's/\(.*\)/\\
  501. + #ifdef \1\\
  502. + exit 0; _ _ _ _\1\\     \1\\
  503. + #endif\\
  504. + /' >Cppsym\$\$
  505. + echo "exit 1; _ _ _" >>Cppsym\$\$
  506. + $cppstdin $cppminus <Cppsym\$\$ | $grep '^exit [01]; _ _'  >Cppsym2\$\$
  507. + case "\$list" in
  508. + true) $awk 'NF > 5 {print substr(\$6,2,100)}' <Cppsym2\$\$ ;;
  509. + *)
  510. +     sh Cppsym2\$\$
  511. +     status=\$?
  512. +     ;;
  513. + esac
  514. + $rm -f Cppsym\$\$ Cppsym2\$\$
  515. + exit \$status
  516. + EOSS
  517. + chmod +x Cppsym
  518. + $eunicefix Cppsym
  519. + echo "Your C preprocessor defines the following symbols:"
  520. + Cppsym -l $attrlist >Cppsym.true
  521. + $cat Cppsym.true
  522. + 
  523. + : see if this is a termio system
  524. + val="$undef"
  525. + val2="$undef"
  526. + val3="$undef"
  527. + if $test `./findhdr termios.h`; then
  528. +     set tcsetattr i_termios
  529. +     eval $inlibc
  530. +     val3="$i_termios"
  531. + fi
  532. + echo " "
  533. + case "$val3" in
  534. + "$define") echo "You have POSIX termios.h... good!" >&4;;
  535. + *) if Cppsym pyr; then
  536. +         case "`/bin/universe`" in
  537. +         ucb) if $test `./findhdr sgtty.h`; then
  538. +                 val2="$define"
  539. +                 echo "<sgtty.h> found." >&4
  540. +             else
  541. +                 echo "System is pyramid with BSD universe."
  542. +                 echo "<sgtty.h> not found--you could have problems." >&4
  543. +             fi;;
  544. +         *) if $test `./findhdr termio.h`; then
  545. +                 val="$define"
  546. +                 echo "<termio.h> found." >&4
  547. +             else
  548. +                 echo "System is pyramid with USG universe."
  549. +                 echo "<termio.h> not found--you could have problems." >&4
  550. +             fi;;
  551. +         esac
  552. +     elif usg; then
  553. +         if $test `./findhdr termio.h`; then
  554. +             echo "<termio.h> found." >&4
  555. +             val="$define"
  556. +         elif $test `./findhdr sgtty.h`; then
  557. +             echo "<sgtty.h> found." >&4
  558. +             val2="$define"
  559. +         else
  560. + echo "Neither <termio.h> nor <sgtty.h> found--you could have problems." >&4
  561. +         fi
  562. +     else
  563. +         if $test `./findhdr sgtty.h`; then
  564. +             echo "<sgtty.h> found." >&4
  565. +             val2="$define"
  566. +         elif $test `./findhdr termio.h`; then
  567. +             echo "<termio.h> found." >&4
  568. +             val="$define"
  569. +         else
  570. + echo "Neither <sgtty.h> nor <termio.h> found--you could have problems." >&4
  571. +         fi
  572. +     fi;;
  573. + esac
  574. + set i_termio; eval $setvar
  575. + val=$val2; set i_sgtty; eval $setvar
  576. + val=$val3; set i_termios; eval $setvar
  577. + 
  578. + : see if ioctl defs are in sgtty/termio or sys/ioctl
  579. + echo " "
  580. + if $test `./findhdr sys/ioctl.h`; then
  581. +     val="$define"
  582. +     echo "<sys/ioctl.h> found." >&4
  583. + else
  584. +     val="$undef"
  585. +     $test $i_termio = "$define" && xxx="termio.h"
  586. +     $test $i_termios = "$define" && xxx="termios.h"
  587. +     $test $i_sgtty = "$define" && xxx="sgtty.h"
  588. + echo "No <sys/ioctl.h> found, assuming ioctl args are defined in <$xxx>." >&4
  589. + fi
  590. + set i_sysioctl
  591. + eval $setvar
  592. + 
  593. + : check how to void tty association
  594. + echo " "
  595. + case "$i_sysioctl" in
  596. + "$define") xxx='sys/ioctl.h';;
  597. + esac
  598. + $cat > tcio.c <<EOM
  599. + #include <sys/types.h>    /* Just in case */
  600. + #include <$xxx>
  601. + 
  602. + main()
  603. + {
  604. + #ifdef TIOCNOTTY
  605. +     exit(0);
  606. + #else
  607. +     exit(1);
  608. + #endif
  609. + }
  610. + EOM
  611. + if ($cc -o tcio tcio.c && ./tcio) >/dev/null 2>&1; then
  612. +     val="$define"
  613. +     echo "TIOCNOTTY found in <$xxx>." >&4
  614. +     echo "Using ioctl() call on /dev/tty to void tty association." >&4
  615. + else
  616. +     val="$undef"
  617. +     echo "Closing standard file descriptors should void tty association." >&4
  618. + fi
  619. + set d_voidtty
  620. + eval $setvar
  621. + $rm -f tcio tcio.? core
  622. + 
  623.   : preserve RCS keywords in files with variable substitution, grrr
  624.   Header='$Header'
  625.   Id='$Id'
  626. ***************
  627. *** 3036,3042 ****
  628.   
  629.   $package has manual pages available in source form.
  630.   EOM
  631. ! case "$nroff" in
  632.   nroff)
  633.       echo "However, you don't have nroff, so they're probably useless to you."
  634.       case "$mansrc" in
  635. --- 3325,3331 ----
  636.   
  637.   $package has manual pages available in source form.
  638.   EOM
  639. ! case "$_nroff" in
  640.   nroff)
  641.       echo "However, you don't have nroff, so they're probably useless to you."
  642.       case "$mansrc" in
  643. ***************
  644. *** 3228,3238 ****
  645.   : determine the name of a reasonable mailer
  646.   case "$mailer" in
  647.   '')
  648. !     if $test -f "$sendmail"; then
  649. !         dflt="$sendmail"
  650. !     elif $test -f "$smail"; then
  651. !         dflt="$smail"
  652. !     elif $test -f "$rmail"; then
  653.           dflt="$rmail"
  654.       elif $test -f /bin/mail; then
  655.           dflt=/bin/mail
  656. --- 3517,3527 ----
  657.   : determine the name of a reasonable mailer
  658.   case "$mailer" in
  659.   '')
  660. !     if $test -f "$_sendmail"; then
  661. !         dflt="$_sendmail"
  662. !     elif $test -f "$_smail"; then
  663. !         dflt="$_smail"
  664. !     elif $test -f "$_rmail"; then
  665.           dflt="$rmail"
  666.       elif $test -f /bin/mail; then
  667.           dflt=/bin/mail
  668. ***************
  669. *** 3580,3637 ****
  670.   eval $setvar
  671.   $rm -f prototype*
  672.   
  673. - : get C preprocessor symbols handy
  674. - echo " "
  675. - echo $attrlist | $tr ' ' '\012' >Cppsym.know
  676. - $cat <<EOSS >Cppsym
  677. - $startsh
  678. - case "\$1" in
  679. - -l) list=true
  680. -     shift
  681. -     ;;
  682. - esac
  683. - unknown=''
  684. - case "\$list\$#" in
  685. - 1|2)
  686. -     for sym do
  687. -         if $contains "^\$1$" Cppsym.true >/dev/null 2>&1; then
  688. -             exit 0
  689. -         elif $contains "^\$1$" Cppsym.know >/dev/null 2>&1; then
  690. -             :
  691. -         else
  692. -             unknown="\$unknown \$sym"
  693. -         fi
  694. -     done
  695. -     set X \$unknown
  696. -     shift
  697. -     ;;
  698. - esac
  699. - case \$# in
  700. - 0) exit 1;;
  701. - esac
  702. - echo \$* | $tr ' ' '\012' | $sed -e 's/\(.*\)/\\
  703. - #ifdef \1\\
  704. - exit 0; _ _ _ _\1\\     \1\\
  705. - #endif\\
  706. - /' >Cppsym\$\$
  707. - echo "exit 1; _ _ _" >>Cppsym\$\$
  708. - $cppstdin $cppminus <Cppsym\$\$ | $grep '^exit [01]; _ _'  >Cppsym2\$\$
  709. - case "\$list" in
  710. - true) $awk 'NF > 5 {print substr(\$6,2,100)}' <Cppsym2\$\$ ;;
  711. - *)
  712. -     sh Cppsym2\$\$
  713. -     status=\$?
  714. -     ;;
  715. - esac
  716. - $rm -f Cppsym\$\$ Cppsym2\$\$
  717. - exit \$status
  718. - EOSS
  719. - chmod +x Cppsym
  720. - $eunicefix Cppsym
  721. - echo "Your C preprocessor defines the following symbols:"
  722. - Cppsym -l $attrlist >Cppsym.true
  723. - $cat Cppsym.true
  724. - 
  725.   : see how many register declarations we want to use
  726.   case "$registers" in
  727.   '')
  728. --- 3869,3874 ----
  729. ***************
  730. *** 4159,4164 ****
  731. --- 4396,4590 ----
  732.       ;;
  733.   esac
  734.   
  735. + : find out how to find out full name
  736. + case "$d_berknames" in
  737. + "$define")
  738. +     dflt=y;;
  739. + "$undef")
  740. +     dflt=n;;
  741. + *)
  742. +     if bsd; then
  743. +         dflt=y
  744. +     elif xenix; then
  745. +         dflt=y
  746. +     else
  747. +         dflt=n
  748. +     fi
  749. +     ;;
  750. + esac
  751. + $cat <<'EOM'
  752. + 
  753. + Does your /etc/passwd file keep full names in Berkeley/V7 format (name first
  754. + thing after ':' in GCOS field)?  In that case, a typical entry in the password
  755. + file looks like this:
  756. + 
  757. +     guest:**paswword**:10:100:Mister Guest User:/usr/users:/bin/sh
  758. +                               ^^^^^^^^^^^^^^^^^
  759. + EOM
  760. + rp="Berkeley/V7 format for full name in /etc/password?"
  761. + . ./myread
  762. + case "$ans" in
  763. + y*) d_passnames="$define"
  764. +     d_berknames="$define"
  765. +     d_usgnames="$undef"
  766. +     nametype=bsd
  767. +     ;;
  768. + *)
  769. +     case "$d_usgnames" in
  770. +     "$define") dflt=y;;
  771. +     "$undef") dflt=n;;
  772. +     *)
  773. +         if usg; then
  774. +             dflt=y
  775. +         else
  776. +             dflt=n
  777. +         fi
  778. +         ;;
  779. +     esac
  780. + $cat <<'EOM'
  781. + 
  782. + Does your passwd file keep full names in USG format (name sandwiched between a
  783. + '-' and a '(')?  In that case, a typical entry in the password file looks like
  784. + this:
  785. + 
  786. +     guest:**paswword**:10:100:000-Mister Guest User(000):/usr/users:/bin/sh
  787. +                                   ^^^^^^^^^^^^^^^^^
  788. + EOM
  789. +     rp="USG format for full name in /etc/passwd?"
  790. +     . ./myread
  791. +     case "$ans" in
  792. +     n*) echo "Full name will be taken from ~/.fullname"
  793. +         d_passnames="$undef"
  794. +         d_berknames="$undef"
  795. +         d_usgnames="$undef"
  796. +         nametype=other
  797. +         ;;
  798. +     *)
  799. +         d_passnames="$define"
  800. +         d_berknames="$undef"
  801. +         d_usgnames="$define"
  802. +         nametype=usg
  803. +         ;;
  804. +     esac;;
  805. + esac
  806. + 
  807. + : figure out their full name
  808. + case "$NAME" in
  809. + '') case "$nametype" in
  810. +     other)
  811. +         fn=`./filexp ~/.fullname`
  812. +         xxx=usg
  813. +         $test -f $fn && xxx=other
  814. +         ;;
  815. +     *)
  816. +         xxx="$nametype"
  817. +         ;;
  818. +     esac
  819. + 
  820. +     case "$xxx" in
  821. +     bsd)
  822. +         cf_name=`$passcat | grep "^$cf_by:" | \
  823. +             sed -e 's/^[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/\1/'`
  824. +         ;;
  825. +     usg)
  826. +         cf_name=`$passcat | grep "^$cf_by:" | \
  827. +             sed -e 's/^[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/\1/' \
  828. +             -e 's/[^-]*-\(.*\)(.*)/\1/'`
  829. +         ;;
  830. +     *)
  831. +         cf_name=`$cat $fn`
  832. +         ;;
  833. +     esac
  834. +     ;;
  835. + *)
  836. +     cf_name="$NAME"
  837. +     ;;
  838. + esac
  839. + echo " "
  840. + echo "Pleased to meet you, $cf_name."
  841. + 
  842. + $cat <<EOM
  843. + 
  844. + I need to get your e-mail address in Internet format if possible, i.e.
  845. + something like user@host.domain. Please answer accurately since I have
  846. + no easy means to double check it. The default value provided below
  847. + is most probably close to the reality but may not be valid from outside
  848. + your organization...
  849. + 
  850. + EOM
  851. + cont=x
  852. + while test "$cont"; do
  853. +     case "$cf_email" in
  854. +     '') dflt="$cf_by@$myhostname$mydomain";;
  855. +     *) dflt="$cf_email";;
  856. +     esac
  857. +     rp='What is your e-mail address?'
  858. +     . ./myread
  859. +     cf_email="$ans"
  860. +     case "$cf_email" in
  861. +     *@*.*) cont='' ;;
  862. +     *)
  863. +         rp='Address does not look like an Internet one.  Use it anyway?'
  864. +         case "$fastread" in
  865. +         yes) dflt=y ;;
  866. +         *) dflt=n ;;
  867. +         esac
  868. +         . ./myread
  869. +         case "$ans" in
  870. +         y*) cont='' ;;
  871. +         *) echo " " ;;
  872. +         esac
  873. +         ;;
  874. +     esac
  875. + done
  876. + 
  877. + : offer to join the mailing list
  878. + list_request='majordomo@foretune.co.jp'
  879. + list_sub="subscribe agent-users $cf_email"
  880. + list_unsub="unsubscribe agent-users $cf_email"
  881. + list_name="agent-users"
  882. + $cat <<EOM
  883. + 
  884. + There is a mailing list for discussion about $package and related issues.
  885. + This is the preferred place to ask questions about the program and discuss
  886. + modifications and additions with the author and other users.  If you are able
  887. + to send mail to the Internet, you are encouraged to subscribe.  You need only
  888. + ever subscribe once, and you can unsubscribe automatically at any time in the
  889. + future.  If you have already subscribed and you wish to unsubscribe now, you
  890. + may do so by answering "unsubscribe".  Answer "subscribe" to subscribe to the
  891. + list.
  892. + 
  893. + EOM
  894. + rp="Subscribe to or unsubscribe from the $list_name mailing list?"
  895. + dflt=neither
  896. + . ./myread
  897. + case "$ans" in
  898. + [sS]*)    $cat <<EOM
  899. + 
  900. + You will be sent a message from the list server to let you know when your
  901. + subscription has been successful and telling you how to submit articles and
  902. + how to unsubscribe again when necessary. You may also unsubscribe by running
  903. + this script again and asking it to do so for you.
  904. + 
  905. + EOM
  906. +     echo "Sending mail to subscribe you to the $list_name list..." >&4
  907. +     $mailer $list_request <<EOM >/dev/null 2>&1
  908. + Precedence: junk
  909. + To: $list_request
  910. + 
  911. + $list_sub
  912. + EOM
  913. +     ;;
  914. + [uU]*)    echo "Sending mail to unsubscribe you from the $list_name list..." >&4
  915. +     $mailer $list_request <<EOM >/dev/null 2>&1
  916. + Precedence: junk
  917. + To: $list_request
  918. + 
  919. + $list_unsub
  920. + EOM
  921. +     ;;
  922. + esac
  923. + 
  924.   : end of configuration questions
  925.   echo " "
  926.   echo "End of configuration questions."
  927. ***************
  928. *** 4292,4297 ****
  929. --- 4718,4724 ----
  930.   ldflags='$ldflags'
  931.   lkflags='$lkflags'
  932.   optimize='$optimize'
  933. + cf_email='$cf_email'
  934.   cf_by='$cf_by'
  935.   cf_time='$cf_time'
  936.   contains='$contains'
  937. ***************
  938. *** 4310,4315 ****
  939. --- 4737,4746 ----
  940.   d_open3='$d_open3'
  941.   d_portable='$d_portable'
  942.   d_rename='$d_rename'
  943. + d_setpgid='$d_setpgid'
  944. + d_bsdpgrp='$d_bsdpgrp'
  945. + d_setpgrp='$d_setpgrp'
  946. + d_setsid='$d_setsid'
  947.   d_index='$d_index'
  948.   d_strchr='$d_strchr'
  949.   d_strerrm='$d_strerrm'
  950. ***************
  951. *** 4318,4323 ****
  952. --- 4749,4755 ----
  953.   d_syserrlst='$d_syserrlst'
  954.   d_time='$d_time'
  955.   timetype='$timetype'
  956. + d_uwait3='$d_uwait3'
  957.   d_uwait='$d_uwait'
  958.   d_vfork='$d_vfork'
  959.   d_voidsig='$d_voidsig'
  960. ***************
  961. *** 4328,4334 ****
  962. --- 4760,4773 ----
  963.   i_string='$i_string'
  964.   strings='$strings'
  965.   i_sysfile='$i_sysfile'
  966. + d_voidtty='$d_voidtty'
  967. + i_bsdioctl='$i_bsdioctl'
  968. + i_sysioctl='$i_sysioctl'
  969. + i_syssockio='$i_syssockio'
  970.   i_syswait='$i_syswait'
  971. + i_sgtty='$i_sgtty'
  972. + i_termio='$i_termio'
  973. + i_termios='$i_termios'
  974.   i_systime='$i_systime'
  975.   i_systimek='$i_systimek'
  976.   i_time='$i_time'
  977. ***************
  978. *** 4363,4368 ****
  979. --- 4802,4811 ----
  980.   phostname='$phostname'
  981.   c='$c'
  982.   n='$n'
  983. + d_berknames='$d_berknames'
  984. + d_passnames='$d_passnames'
  985. + d_usgnames='$d_usgnames'
  986. + nametype='$nametype'
  987.   groupcat='$groupcat'
  988.   hostcat='$hostcat'
  989.   passcat='$passcat'
  990.  
  991. Index: agent/man/mailagent.SH
  992. Prereq: 3.0.1.1
  993. *** agent/man/mailagent.SH.old    Wed Jan 26 10:36:39 1994
  994. --- agent/man/mailagent.SH    Wed Jan 26 10:36:40 1994
  995. ***************
  996. *** 20,26 ****
  997.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  998.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  999.   '''
  1000. ! ''' $Id: mailagent.SH,v 3.0.1.1 1993/12/15 09:03:44 ram Exp $
  1001.   '''
  1002.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  1003.   '''  
  1004. --- 20,26 ----
  1005.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  1006.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  1007.   '''
  1008. ! ''' $Id: mailagent.SH,v 3.0.1.2 1994/01/26 09:29:24 ram Exp $
  1009.   '''
  1010.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  1011.   '''  
  1012. ***************
  1013. *** 31,36 ****
  1014. --- 31,41 ----
  1015.   '''  of the source tree for mailagent 3.0.
  1016.   '''
  1017.   ''' $Log: mailagent.SH,v $
  1018. + ''' Revision 3.0.1.2  1994/01/26  09:29:24  ram
  1019. + ''' patch5: documents new tag feature for UNIQUE and RECORD
  1020. + ''' patch5: documents new -F option
  1021. + ''' patch5: random typo fixes
  1022. + '''
  1023.   ''' Revision 3.0.1.1  1993/12/15  09:03:44  ram
  1024.   ''' patch3: typo and minor fixes
  1025.   '''
  1026. ***************
  1027. *** 610,615 ****
  1028. --- 615,627 ----
  1029.   was issued), extract all its messages into the queue and process them as if
  1030.   they were freshly arrived from the mail delivery subsystem.
  1031.   .TP
  1032. + .B \-F
  1033. + Force processing on already seen messages. Usually, \fImailagent\fR enters
  1034. + the special \fI_SEEN_\fR mode when it detects an \fIX-Filter:\fR line issued
  1035. + by itself, but this option will have it continue as usual (although vacation
  1036. + messages are disabled). Use this option when post-processing mail already
  1037. + filtered.
  1038. + .TP
  1039.   .B \-h
  1040.   Print out a usage message on the standard error and exit.
  1041.   .TP
  1042. ***************
  1043. *** 1451,1457 ****
  1044.   mail will remain in the queue until another mail arrives.
  1045.   (Fails when mail cannot be queued)
  1046.   .TP
  1047. ! RECORD [-acr] [\fImode\fR]
  1048.   Record message in the history and enters mode _SEEN_ if the message was
  1049.   already present there. If the message is recorded for the first time, processing
  1050.   continues normally. Otherwise a REJECT is performed. This behavior may be
  1051. --- 1463,1469 ----
  1052.   mail will remain in the queue until another mail arrives.
  1053.   (Fails when mail cannot be queued)
  1054.   .TP
  1055. ! RECORD [-acr] [\fImode\fR] [\fI(tag-list)\fR]
  1056.   Record message in the history and enters mode _SEEN_ if the message was
  1057.   already present there. If the message is recorded for the first time, processing
  1058.   continues normally. Otherwise a REJECT is performed. This behavior may be
  1059. ***************
  1060. *** 1458,1463 ****
  1061. --- 1470,1479 ----
  1062.   somewhat modified by using some options. See UNIQUE for a complete description
  1063.   of the options and arguments. Naturally, when a \fImode\fR is specified, that
  1064.   overrides the default _SEEN_.
  1065. + When a \fItag-list\fR (comma-separated list of names) is specified, the message
  1066. + is only recorded and checked againsts all those tags, but only them. Not
  1067. + specifying any tag list means any occurence, whether it is tagged or not.
  1068. + See paragraph \fBUsing Tags in Record and Unique\fR for more information.
  1069.   (Returns a failure status if mail was already recorded)
  1070.   .TP
  1071.   REJECT [-tf] [\fImode\fR]
  1072. ***************
  1073. *** 1580,1586 ****
  1074.   lowercase. See also ASSIGN and SUBST.
  1075.   (Fails if error in \fItranslation\fR)
  1076.   .TP
  1077. ! UNIQUE [-acr] [\fImode\fR]
  1078.   Record message in the history and tag message as saved if it was
  1079.   already present there. If the message is recorded for the first time, processing
  1080.   continues normally. Otherwise a REJECT is performed. If \fB\-r\fR was used,
  1081. --- 1596,1602 ----
  1082.   lowercase. See also ASSIGN and SUBST.
  1083.   (Fails if error in \fItranslation\fR)
  1084.   .TP
  1085. ! UNIQUE [-acr] [\fImode\fR] [\fI(tag-list)\fR]
  1086.   Record message in the history and tag message as saved if it was
  1087.   already present there. If the message is recorded for the first time, processing
  1088.   continues normally. Otherwise a REJECT is performed. If \fB\-r\fR was used,
  1089. ***************
  1090. *** 1592,1598 ****
  1091.   UNIQUE returns a failure status if the message was already recorded.
  1092.   If an optional \fImode\fR argument is given, then the automaton will enter that
  1093.   mode if the mail was previously in the database.
  1094. ! See also RECORD. (Fails if mail was already recorded)
  1095.   .TP
  1096.   VACATION \fIon/off\fR
  1097.   Allow or disallow a vacation message. When vacation mode is turned on via the
  1098. --- 1608,1616 ----
  1099.   UNIQUE returns a failure status if the message was already recorded.
  1100.   If an optional \fImode\fR argument is given, then the automaton will enter that
  1101.   mode if the mail was previously in the database.
  1102. ! See also RECORD, and the paragraph entitled \fBUsing Tags in Record and
  1103. ! Unique\fR for more information about the \fItag-list\fR.
  1104. ! (Fails if mail was already recorded)
  1105.   .TP
  1106.   VACATION \fIon/off\fR
  1107.   Allow or disallow a vacation message. When vacation mode is turned on via the
  1108. ***************
  1109. *** 2112,2117 ****
  1110. --- 2130,2185 ----
  1111.   \fIHash/m/e\fR (where \fIHash\fR is the name of your hashing directory, which
  1112.   is the \fIhash\fR parameter in the configuration file).
  1113.   '''
  1114. + .SS "Using Tags in Record and Unique"
  1115. + .PP
  1116. + Both the RECORD and UNIQUE commands let you specify a comma-separated tag list
  1117. + between '(' and ')'. For each tag present in the list, there is a separate
  1118. + entry in the database associated with the message ID. When the message is
  1119. + recorded for at least one of the tags, the command "fails". Not specifying
  1120. + any tags means looking for any occurence of that message ID, whether it is
  1121. + tagged or not.
  1122. + .PP
  1123. + This is very useful when receiving mail cross-posted to distinct mailing lists
  1124. + and you want to save one instance of the message in each folder, but still
  1125. + guard against duplicates. You may say:
  1126. + .Ex
  1127. + To Cc: unix-wizards    {
  1128. +     UNIQUE (wizards); REJECT -f;
  1129. +     SAVE wizards;
  1130. +     REJECT;
  1131. + };
  1132. + To Cc: majordomo-users    {
  1133. +     UNIQUE (majordomo); REJECT -f;
  1134. +     SAVE majordomo;
  1135. +     REJECT;
  1136. + };
  1137. + .Ef
  1138. + and only one instance of the message will end up in each folder. When you
  1139. + have folders with conflicting interests, you might use a tag list, instead
  1140. + of a single tag. For instance, assuming you wish to keep a single copy for
  1141. + messages cross-posted to both \fIdist-users\fR and \fIagent-users\fR, but
  1142. + have a separate copy if also cross-posted to \fImajordomo-users\fR, then say:
  1143. + .Ex
  1144. + To Cc: majordomo-users    {
  1145. +     UNIQUE (majordomo); REJECT -f;
  1146. +     SAVE majordomo;
  1147. +     REJECT;
  1148. + };
  1149. + To Cc: dist-users {
  1150. +     UNIQUE (dist, agent); REJECT -f;
  1151. +     SAVE dist-users;
  1152. +     REJECT;
  1153. + };
  1154. + To Cc: agent-users {
  1155. +     UNIQUE (dist, agent); REJECT -f;
  1156. +     SAVE dist-users;
  1157. +     REJECT;
  1158. + };
  1159. + .Ef
  1160. + If you have some rule using UNIQUE without any
  1161. + tags, it will match when at least one instance of the message has been
  1162. + recorded, no matter what tag (if any at all) was used in the first place.
  1163. + '''
  1164.   .SS "Specifying A Period"
  1165.   .PP
  1166.   The period parameter of the ONCE commands or the \fIvacperiod\fR parameter
  1167. ***************
  1168. *** 2663,2669 ****
  1169.   .TP
  1170.   .I &header'valid(line)
  1171.   Returns a boolean status, indicating if all the lines given so far to this
  1172. ! function since the last &header'reset are part of a valid RFC822 header.
  1173.   The function understands the first From line which is part of UNIX mails.
  1174.   At any time, the variable \fI\$header'maybe\fR may be checked to see if
  1175.   so far we have found at least one essential mail header field.
  1176. --- 2731,2737 ----
  1177.   .TP
  1178.   .I &header'valid(line)
  1179.   Returns a boolean status, indicating if all the lines given so far to this
  1180. ! function since the last \fI&header'reset\fR are part of a valid RFC822 header.
  1181.   The function understands the first From line which is part of UNIX mails.
  1182.   At any time, the variable \fI\$header'maybe\fR may be checked to see if
  1183.   so far we have found at least one essential mail header field.
  1184.  
  1185. Index: config_h.SH
  1186. Prereq: 3.0
  1187. *** config_h.SH.old    Wed Jan 26 10:36:49 1994
  1188. --- config_h.SH    Wed Jan 26 10:36:49 1994
  1189. ***************
  1190. *** 25,31 ****
  1191.    * that running config.h.SH again will wipe out any changes you've made.
  1192.    * For a more permanent change edit config.sh and rerun config.h.SH.
  1193.    *
  1194. !  * \$Id: config_h.SH,v 3.0 1993/11/29 13:50:28 ram Exp $
  1195.    */
  1196.   
  1197.   /* Configuration time: $cf_time
  1198. --- 25,31 ----
  1199.    * that running config.h.SH again will wipe out any changes you've made.
  1200.    * For a more permanent change edit config.sh and rerun config.h.SH.
  1201.    *
  1202. !  * \$Id: config_h.SH,v 3.0.1.1 1994/01/26 09:36:20 ram Exp $
  1203.    */
  1204.   
  1205.   /* Configuration time: $cf_time
  1206. ***************
  1207. *** 70,75 ****
  1208. --- 70,99 ----
  1209.    */
  1210.   #$d_rename HAS_RENAME    /**/
  1211.   
  1212. + /* HAS_SETPGID:
  1213. +  *    This symbol, if defined, indicates that the setpgid routine is
  1214. +  *    available to set process group ID.
  1215. +  */
  1216. + #$d_setpgid HAS_SETPGID    /**/
  1217. + 
  1218. + /* HAS_SETPGRP:
  1219. +  *    This symbol, if defined, indicates that the setpgrp routine is
  1220. +  *    available to set the current process group.
  1221. +  */
  1222. + /* USE_BSDPGRP:
  1223. +  *    This symbol, if defined, indicates that the BSD notion of process
  1224. +  *    group is to be used. For instance, you have to say setpgrp(pid, pgrp)
  1225. +  *    instead of the USG setpgrp().
  1226. +  */
  1227. + #$d_setpgrp HAS_SETPGRP        /**/
  1228. + #$d_bsdpgrp USE_BSDPGRP        /**/
  1229. + 
  1230. + /* HAS_SETSID:
  1231. +  *    This symbol, if defined, indicates that the setsid routine is
  1232. +  *    available to set the process group ID.
  1233. +  */
  1234. + #$d_setsid HAS_SETSID    /**/
  1235. + 
  1236.   /* HAS_INDEX:
  1237.    *    This symbol is defined to indicate that the index()/rindex()
  1238.    *    functions are available for string searching.
  1239. ***************
  1240. *** 78,84 ****
  1241.   
  1242.   /* HAS_STRERROR:
  1243.    *    This symbol, if defined, indicates that the strerror routine is
  1244. !  *    available to translate error numbers to strings.
  1245.    */
  1246.   /* HAS_SYS_ERRLIST:
  1247.    *    This symbol, if defined, indicates that the sys_errlist array is
  1248. --- 102,109 ----
  1249.   
  1250.   /* HAS_STRERROR:
  1251.    *    This symbol, if defined, indicates that the strerror routine is
  1252. !  *    available to translate error numbers to strings. See the writeup
  1253. !  *    of strerror() in this file before you try to define your own.
  1254.    */
  1255.   /* HAS_SYS_ERRLIST:
  1256.    *    This symbol, if defined, indicates that the sys_errlist array is
  1257. ***************
  1258. *** 145,150 ****
  1259. --- 170,188 ----
  1260.    */
  1261.   #$i_sysfile I_SYS_FILE        /**/
  1262.   
  1263. + /* I_SYS_IOCTL:
  1264. +  *    This symbol, if defined, indicates that <sys/ioctl.h> exists and should
  1265. +  *    be included. Otherwise, include <sgtty.h> or <termio.h>.
  1266. +  */
  1267. + /* USE_TIOCNOTTY:
  1268. +  *    This symbol, if defined indicate to the C program that the ioctl()
  1269. +  *    call with TIOCNOTTY should be used to void tty association.
  1270. +  *    Otherwise (on USG probably), it is enough to close the standard file
  1271. +  *    decriptors and do a setpgrp().
  1272. +  */
  1273. + #$i_sysioctl    I_SYS_IOCTL        /**/
  1274. + #$d_voidtty USE_TIOCNOTTY    /**/
  1275. + 
  1276.   /* I_SYS_WAIT:
  1277.    *    This symbol, if defined, indicates to the C program that it should
  1278.    *    include <sys/wait.h>.
  1279. ***************
  1280. *** 198,242 ****
  1281.    *    If defined, this macro indicates that the C compiler can handle
  1282.    *    function prototypes.
  1283.    */
  1284. - /* DOTS:
  1285. -  *    This macro is used to specify the ... in function prototypes which
  1286. -  *    have arbitrary additional arguments.
  1287. -  */
  1288. - /* NXT_ARG:
  1289. -  *    This macro is used to separate arguments in the declared argument list.
  1290. -  */
  1291. - /* P_FUNC:
  1292. -  *    This macro is used to declare "private" (static) functions.
  1293. -  *    It takes three arguments: the function type and name, a parenthesized
  1294. -  *    traditional (comma separated) argument list, and the declared argument
  1295. -  *    list (in which arguments are separated with NXT_ARG, and additional
  1296. -  *    arbitrary arguments are specified with DOTS).  For example:
  1297. -  *
  1298. -  *        P_FUNC(int foo, (bar, baz), int bar NXT_ARG char *baz[])
  1299. -  */
  1300. - /* P_FUNC_VOID:
  1301. -  *    This macro is used to declare "private" (static) functions that have
  1302. -  *    no arguments.  The macro takes one argument: the function type and name.
  1303. -  *    For example:
  1304. -  *
  1305. -  *        P_FUNC_VOID(int subr)
  1306. -  */
  1307. - /* V_FUNC:
  1308. -  *    This macro is used to declare "public" (non-static) functions.
  1309. -  *    It takes three arguments: the function type and name, a parenthesized
  1310. -  *    traditional (comma separated) argument list, and the declared argument
  1311. -  *    list (in which arguments are separated with NXT_ARG, and additional
  1312. -  *    arbitrary arguments are specified with DOTS).  For example:
  1313. -  *
  1314. -  *        V_FUNC(int main, (argc, argv), int argc NXT_ARG char *argv[])
  1315. -  */
  1316. - /* V_FUNC_VOID:
  1317. -  *    This macro is used to declare "public" (non-static) functions that have
  1318. -  *    no arguments.  The macro takes one argument: the function type and name.
  1319. -  *    For example:
  1320. -  *
  1321. -  *        V_FUNC_VOID(int fork)
  1322. -  */
  1323.   /* _:
  1324.    *    This macro is used to declare function parameters for folks who want
  1325.    *    to make declarations with prototypes using a different style than
  1326. --- 236,241 ----
  1327. ***************
  1328. *** 246,265 ****
  1329.    */
  1330.   #$prototype    CAN_PROTOTYPE    /**/
  1331.   #ifdef CAN_PROTOTYPE
  1332. - #define    NXT_ARG ,
  1333. - #define    DOTS , ...
  1334. - #define    V_FUNC(name, arglist, args)name(args)
  1335. - #define    P_FUNC(name, arglist, args)static name(args)
  1336. - #define    V_FUNC_VOID(name)name(void)
  1337. - #define    P_FUNC_VOID(name)static name(void)
  1338.   #define    _(args) args
  1339.   #else
  1340. - #define    NXT_ARG ;
  1341. - #define    DOTS
  1342. - #define    V_FUNC(name, arglist, args)name arglist args;
  1343. - #define    P_FUNC(name, arglist, args)static name arglist args;
  1344. - #define    V_FUNC_VOID(name)name()
  1345. - #define    P_FUNC_VOID(name)static name()
  1346.   #define    _(args) ()
  1347.   #endif
  1348.   
  1349. --- 245,252 ----
  1350.  
  1351. Index: agent/filter/io.c
  1352. Prereq: 3.0
  1353. *** agent/filter/io.c.old    Wed Jan 26 10:36:35 1994
  1354. --- agent/filter/io.c    Wed Jan 26 10:36:35 1994
  1355. ***************
  1356. *** 11,17 ****
  1357.   */
  1358.   
  1359.   /*
  1360. !  * $Id: io.c,v 3.0 1993/11/29 13:48:10 ram Exp $
  1361.    *
  1362.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1363.    *  
  1364. --- 11,17 ----
  1365.   */
  1366.   
  1367.   /*
  1368. !  * $Id: io.c,v 3.0.1.1 1994/01/26 09:27:13 ram Exp $
  1369.    *
  1370.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1371.    *  
  1372. ***************
  1373. *** 22,27 ****
  1374. --- 22,31 ----
  1375.    *  of the source tree for mailagent 3.0.
  1376.    *
  1377.    * $Log: io.c,v $
  1378. +  * Revision 3.0.1.1  1994/01/26  09:27:13  ram
  1379. +  * patch5: now only try to include <sys/fcntl.h> when hope is lost
  1380. +  * patch5: filter will now put itself in daemon state while waiting
  1381. +  *
  1382.    * Revision 3.0  1993/11/29  13:48:10  ram
  1383.    * Baseline for mailagent 3.0 netwide release.
  1384.    *
  1385. ***************
  1386. *** 46,63 ****
  1387.   
  1388.   #ifdef I_FCNTL
  1389.   #include <fcntl.h>
  1390. - #else
  1391. - #include <sys/fcntl.h>
  1392.   #endif
  1393.   #ifdef I_SYS_FILE
  1394.   #include <sys/file.h>
  1395.   #endif
  1396.   
  1397.   #ifdef I_STRING
  1398.   #include <string.h>
  1399.   #else
  1400.   #include <strings.h>
  1401.   #endif
  1402.   #include "confmagic.h"
  1403.   
  1404.   #define BUFSIZE        1024            /* Amount of bytes read in a single call */
  1405. --- 50,76 ----
  1406.   
  1407.   #ifdef I_FCNTL
  1408.   #include <fcntl.h>
  1409.   #endif
  1410.   #ifdef I_SYS_FILE
  1411.   #include <sys/file.h>
  1412.   #endif
  1413.   
  1414. + #ifndef I_FCNTL
  1415. + #ifndef I_SYS_FILE
  1416. + #include <sys/fcntl.h>    /* Try this one in last resort */
  1417. + #endif
  1418. + #endif
  1419. + 
  1420.   #ifdef I_STRING
  1421.   #include <string.h>
  1422.   #else
  1423.   #include <strings.h>
  1424.   #endif
  1425. + 
  1426. + #ifdef I_SYS_IOCTL
  1427. + #include <sys/ioctl.h>
  1428. + #endif
  1429. + 
  1430.   #include "confmagic.h"
  1431.   
  1432.   #define BUFSIZE        1024            /* Amount of bytes read in a single call */
  1433. ***************
  1434. *** 73,78 ****
  1435. --- 86,92 ----
  1436.   private void queue_mail();        /* Queue mail for delayed processing */
  1437.   private char *write_file();        /* Write mail on disk */
  1438.   private char *save_file();        /* Emergency saving into a file */
  1439. + private void goto_daemon();        /* Disassociate process from tty */
  1440.   
  1441.   private char *mail = (char *) 0;    /* Where mail is stored */
  1442.   private int len;                    /* Mail length in bytes */
  1443. ***************
  1444. *** 302,307 ****
  1445. --- 316,323 ----
  1446.               exit(EX_OK);    /* Exiting will also release sendmail process */
  1447.           } else if (pid != 0)
  1448.               exit(EX_OK);    /* Release waiting sendmail */
  1449. +         else
  1450. +             goto_daemon();    /* Remaining child is to disassociate from tty */
  1451.       }
  1452.   
  1453.       /* Now hopefully we detached ourselves from sendmail, which thinks the mail
  1454. ***************
  1455. *** 569,574 ****
  1456. --- 585,629 ----
  1457.       return (char *) 0;
  1458.   }
  1459.   
  1460. + private void goto_daemon()
  1461. + {
  1462. +     /* Make sure filter process goes into daemon state by releasing its
  1463. +      * control terminal and becoming the leader of a new process group
  1464. +      * or session.
  1465. +      *
  1466. +      * Harald Koch <chk@enfm.utcc.utoronto.ca> reported that this was
  1467. +      * needed when filter is invoked by zmailer's transport process.
  1468. +      * Otherwise the father waiting for his children does not get to see
  1469. +      * the EOF on the pipe, hanging forever.
  1470. +      */
  1471. + 
  1472. +     int fd;
  1473. + 
  1474. + #ifdef USE_TIOCNOTTY
  1475. +     /*
  1476. +      * Errors from this open are discarded, since it is quite possible
  1477. +      * filter be launched without a controling tty, for instance when
  1478. +      * called via a daemon process like sendmail... :-)
  1479. +      */
  1480. +     if ((fd = open("/dev/tty", 2)) >= 0) {
  1481. +         if (-1 == ioctl(fd, TIOCNOTTY, (char *) 0)) {
  1482. +             add_log(1, "SYSERR ioctl: %m (%e)");
  1483. +             add_log(6, "WARNING could not release tty control");
  1484. +         }
  1485. +         (void) close(fd);
  1486. +     }
  1487. + #endif
  1488. + 
  1489. +     (void) close(0);
  1490. +     (void) close(1);
  1491. +     (void) close(2);
  1492. + 
  1493. +     if (-1 == setsid()) {
  1494. +         add_log(1, "SYSERR setsid: %m (%e)");
  1495. +         add_log(6, "WARNING did not become session leader");
  1496. +     }
  1497. + }
  1498. + 
  1499.   #ifndef HAS_RENAME
  1500.   public int rename(from, to)
  1501.   char *from;                /* Original name */
  1502. ***************
  1503. *** 581,586 ****
  1504. --- 636,677 ----
  1505.           return -1;
  1506.   
  1507.       return 0;
  1508. + }
  1509. + #endif
  1510. + 
  1511. + #ifndef HAS_SETSID
  1512. + public int setsid()
  1513. + {
  1514. +     /* Set the process group ID and create a new session for the process.
  1515. +      * This is a pale imitation of the setsid() system call. Actually, we
  1516. +      * go into a lot more trouble here than is really needed...
  1517. +      */
  1518. + 
  1519. +     int error = 0;
  1520. + 
  1521. + #ifdef HAS_SETPGID
  1522. +     /*
  1523. +      * setpgid() supersedes setpgrp() in OSF/1.
  1524. +      */
  1525. +     error = setpgid(0 ,getpid());
  1526. + #else
  1527. + #ifdef HAS_SETPGRP
  1528. +     /*
  1529. +      * Good old way to get a process group leader.
  1530. +      */
  1531. + #ifdef USE_BSDPGRP
  1532. +     error = setpgrp(0 ,getpid());    /* bsd way */
  1533. + #else
  1534. +     error = setpgrp();                /* usg way */
  1535. + #endif
  1536. + #endif
  1537. + #endif
  1538. + 
  1539. +     /*
  1540. +      * When none of the above is defined, do nothing.
  1541. +      */
  1542. + 
  1543. +     return error;
  1544.   }
  1545.   #endif
  1546.   
  1547.  
  1548. Index: agent/pl/filter.pl
  1549. Prereq: 3.0
  1550. *** agent/pl/filter.pl.old    Wed Jan 26 10:36:44 1994
  1551. --- agent/pl/filter.pl    Wed Jan 26 10:36:44 1994
  1552. ***************
  1553. *** 1,4 ****
  1554. ! ;# $Id: filter.pl,v 3.0 1993/11/29 13:48:46 ram Exp $
  1555.   ;#
  1556.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1557.   ;#  
  1558. --- 1,4 ----
  1559. ! ;# $Id: filter.pl,v 3.0.1.1 1994/01/26 09:31:43 ram Exp $
  1560.   ;#
  1561.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1562.   ;#  
  1563. ***************
  1564. *** 9,14 ****
  1565. --- 9,17 ----
  1566.   ;#  of the source tree for mailagent 3.0.
  1567.   ;#
  1568.   ;# $Log: filter.pl,v $
  1569. + ;# Revision 3.0.1.1  1994/01/26  09:31:43  ram
  1570. + ;# patch5: added tags to UNIQUE and RECORD commands
  1571. + ;#
  1572.   ;# Revision 3.0  1993/11/29  13:48:46  ram
  1573.   ;# Baseline for mailagent 3.0 netwide release.
  1574.   ;#
  1575. ***************
  1576. *** 203,216 ****
  1577.   # Run the RECORD command
  1578.   sub run_record {
  1579.       local($option, $mode) = $cmd =~ m|^\w+\s+(-\w)?\s*(\w+)?|;
  1580.       local($failed) = 0;
  1581. !     if (&history_record) {        # Message already seen
  1582.           $wmode = '_SEEN_';        # Enter special mode ($wmode from analyze_mail)
  1583.           &add_log("NOTICE entering seen mode") if $loglvl > 5;
  1584.           &alter_execution($option, $mode);
  1585.           $failed = 1;            # Make sure it "fails"
  1586.       }
  1587. !     &add_log("RECORDED [$mfile]") if $loglvl > 4;
  1588.       $failed;
  1589.   }
  1590.   
  1591. --- 206,221 ----
  1592.   # Run the RECORD command
  1593.   sub run_record {
  1594.       local($option, $mode) = $cmd =~ m|^\w+\s+(-\w)?\s*(\w+)?|;
  1595. +     local($tags) = $cmd =~ m|\(([^()]*)\)|;
  1596.       local($failed) = 0;
  1597. !     if (&history_tag($tags)) {    # Message already seen
  1598.           $wmode = '_SEEN_';        # Enter special mode ($wmode from analyze_mail)
  1599.           &add_log("NOTICE entering seen mode") if $loglvl > 5;
  1600.           &alter_execution($option, $mode);
  1601.           $failed = 1;            # Make sure it "fails"
  1602.       }
  1603. !     local($tagmsg) = $tags ne '' ? " ($tags)" : '';
  1604. !     &add_log("RECORDED [$mfile]" . $tagmsg) if $loglvl > 4;
  1605.       $failed;
  1606.   }
  1607.   
  1608. ***************
  1609. *** 217,230 ****
  1610.   # Run the UNIQUE command
  1611.   sub run_unique {
  1612.       local($option, $mode) = $cmd =~ m|^\w+\s+(-\w)?\s*(\w+)?|;
  1613.       local($failed) = 0;
  1614. !     if (&history_record) {        # Message already seen
  1615.           &add_log("NOTICE message tagged as saved") if $loglvl > 5;
  1616.           $ever_saved = 1;        # In effect, runs a DELETE
  1617.           &alter_execution($option, $mode);
  1618.           $failed = 1;            # Make sure it "fails"
  1619.       }
  1620. !     &add_log("UNIQUE [$mfile]") if $loglvl > 4;
  1621.       $failed;
  1622.   }
  1623.   
  1624. --- 222,237 ----
  1625.   # Run the UNIQUE command
  1626.   sub run_unique {
  1627.       local($option, $mode) = $cmd =~ m|^\w+\s+(-\w)?\s*(\w+)?|;
  1628. +     local($tags) = $cmd =~ m|\(([^()]*)\)|;
  1629.       local($failed) = 0;
  1630. !     if (&history_tag($tags)) {    # Message already seen
  1631.           &add_log("NOTICE message tagged as saved") if $loglvl > 5;
  1632.           $ever_saved = 1;        # In effect, runs a DELETE
  1633.           &alter_execution($option, $mode);
  1634.           $failed = 1;            # Make sure it "fails"
  1635.       }
  1636. !     local($tagmsg) = $tags ne '' ? " ($tags)" : '';
  1637. !     &add_log("UNIQUE [$mfile]" . $tagmsg) if $loglvl > 4;
  1638.       $failed;
  1639.   }
  1640.   
  1641. ***************
  1642. *** 630,635 ****
  1643. --- 637,643 ----
  1644.       local($log_message);                # Log message to be issued
  1645.       unless ($failed) {
  1646.           local($file) = $folder;            # Work on a copy to detect leading dir
  1647. +         $folddir =~ s/(\W)/\\$1/g;        # Escape possible meta-characters
  1648.           $file =~ s|^$folddir/||;        # Preceded by folder directory?
  1649.           if ($file =~ s/^\+//) {
  1650.               $log_message = "MH folder $file";
  1651.  
  1652. *** End of Patch 5 ***
  1653.  
  1654. exit 0 # Just in case...
  1655.