home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sources / misc / 4166 < prev    next >
Encoding:
Text File  |  1992-12-12  |  17.5 KB  |  606 lines
  1. Newsgroups: comp.sources.misc
  2. Path: sparky!kent
  3. From: ram@eiffel.com (Raphael Manfredi)
  4. Subject:  v34i026:  mailagent - Rule Based Mail Filtering, Patch14
  5. Message-ID: <1992Dec13.022430.243@sparky.imd.sterling.com>
  6. Followup-To: comp.sources.d
  7. X-Md4-Signature: df91a91cac0f46022c035ec461e17658
  8. Sender: kent@sparky.imd.sterling.com (Kent Landfield)
  9. Organization: Interactive Software Engineering, Santa Barbara CA
  10. References: <1992Dec13.022249.29882@sparky.imd.sterling.com>
  11. Date: Sun, 13 Dec 1992 02:24:30 GMT
  12. Approved: kent@sparky.imd.sterling.com
  13. Lines: 591
  14.  
  15. Submitted-by: ram@eiffel.com (Raphael Manfredi)
  16. Posting-number: Volume 34, Issue 26
  17. Archive-name: mailagent/patch14
  18. Environment: Perl, Sendmail, UNIX
  19. Patch-To: mailagent: Volume 33, Issue 93-109
  20.  
  21. [The latest patch for mailagent version 2.9 is #14.]
  22.  
  23. System: mailagent version 2.9
  24. Patch #: 14
  25. Priority: MEDIUM
  26. Subject: patch #13, continued
  27. Date: Tue Dec  1 10:14:37 PST 1992
  28. From: Raphael Manfredi <ram@eiffel.com>
  29.  
  30. Description:
  31.     See patch #13.
  32.  
  33.  
  34. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  35.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  36.     If you don't have the patch program, apply the following by hand,
  37.     or get patch (version 2.0, latest patchlevel).
  38.  
  39.     After patching:
  40.         Configure -d
  41.         make
  42.         make install
  43.         make install.man
  44.  
  45.     If patch indicates that patchlevel is the wrong version, you may need
  46.     to apply one or more previous patches, or the patch may already
  47.     have been applied.  See the patchlevel.h file to find out what has or
  48.     has not been applied.  In any event, don't continue with the patch.
  49.  
  50.     If you are missing previous patches they can be obtained from me:
  51.  
  52.         Raphael Manfredi <ram@eiffel.com>
  53.  
  54.     If you send a mail message of the following form it will greatly speed
  55.     processing:
  56.  
  57.         Subject: Command
  58.         @SH mailpatch PATH mailagent 2.9 LIST
  59.                ^ note the c
  60.  
  61.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  62.     or in bang notation from some well-known host, and LIST is the number
  63.     of one or more patches you need, separated by spaces, commas, and/or
  64.     hyphens.  Saying 35- says everything from 35 to the end.
  65.  
  66.     To get some more detailed instructions, send me the following mail:
  67.  
  68.         Subject: Command
  69.         @SH mailhelp PATH
  70.  
  71.  
  72. Index: patchlevel.h
  73. Prereq: 13
  74. 4c4
  75. < #define PATCHLEVEL 13
  76. ---
  77. > #define PATCHLEVEL 14
  78.  
  79. Index: agent/test/cmd/strip.t
  80. *** agent/test/cmd/strip.t.old    Tue Dec  1 09:48:39 1992
  81. --- agent/test/cmd/strip.t    Tue Dec  1 09:48:40 1992
  82. ***************
  83. *** 2,7 ****
  84. --- 2,14 ----
  85.   do '../pl/cmd.pl';
  86.   unlink 'ok', 'no_resync';
  87.   
  88. + open(LIST, '>header-list') || print "17\n";
  89. + print LIST <<EOL;
  90. + Unusual-Header
  91. + X-Long*
  92. + EOL
  93. + close LIST;
  94. + 
  95.   &add_header('X-Tag: strip');
  96.   &add_header('X-Long-Line: this is a long line and has a continuation');
  97.   &add_header('  right below it with a MARK token');
  98. ***************
  99. *** 9,14 ****
  100. --- 16,22 ----
  101.   &add_header('X-Kept-Line: this is a long line and has a continuation');
  102.   &add_header('  right below it with another mark TOKEN');
  103.   &add_header('  and another with the mark TOKEN');
  104. + &add_header('unusual-header: None');
  105.   `$cmd`;
  106.   $? == 0 || print "1\n";
  107.   -f "$user" && print "2\n";        # Mail saved...
  108. ***************
  109. *** 20,29 ****
  110.   &check_log('^Subject:', 8);
  111.   ¬_log('^X-None:', 9);
  112.   ¬_log('MARK', 10);            # Continuation line must have been stripped too
  113. ! ¬_log('X-Long-Line:', 11);    # As well as its parent
  114.   &check_log('TOKEN', 12) == 2 || print "13\n";        # This one has been kept
  115. ! &check_log('X-Kept-Line:', 14);
  116.   -f 'no_resync' || print "15\n";    # Ensure header not disturbed
  117.   
  118. ! unlink 'ok', 'no_resync', 'mail';
  119.   print "0\n";
  120. --- 28,39 ----
  121.   &check_log('^Subject:', 8);
  122.   ¬_log('^X-None:', 9);
  123.   ¬_log('MARK', 10);            # Continuation line must have been stripped too
  124. ! ¬_log('^X-Long-Line:', 11);    # As well as its parent
  125.   &check_log('TOKEN', 12) == 2 || print "13\n";        # This one has been kept
  126. ! &check_log('^X-Kept-Line:', 14);
  127. ! ¬_log('^unusual-header:', 16);
  128.   -f 'no_resync' || print "15\n";    # Ensure header not disturbed
  129.   
  130. ! # Last: 17
  131. ! unlink 'ok', 'no_resync', 'mail', 'header-list';
  132.   print "0\n";
  133.  
  134. Index: agent/test/cmd/keep.t
  135. *** agent/test/cmd/keep.t.old    Tue Dec  1 09:48:37 1992
  136. --- agent/test/cmd/keep.t    Tue Dec  1 09:48:38 1992
  137. ***************
  138. *** 2,7 ****
  139. --- 2,16 ----
  140.   do '../pl/cmd.pl';
  141.   unlink 'ok', 'no_resync';
  142.   
  143. + open(LIST, '>header-list') || print "17\n";
  144. + print LIST <<EOL;
  145. + To
  146. + Subject
  147. + U*
  148. + X*
  149. + EOL
  150. + close LIST;
  151. + 
  152.   &add_header('X-Tag: keep');
  153.   &add_header('X-Long-Line: this is a long line and has a continuation');
  154.   &add_header('  right below it with a MARK token');
  155. ***************
  156. *** 9,14 ****
  157. --- 18,24 ----
  158.   &add_header('X-Removed-Line: this is a long line and has a continuation');
  159.   &add_header('  right below it with another mark TOKEN');
  160.   &add_header('  and another with the mark TOKEN');
  161. + &add_header('unusual-header: None');
  162.   `$cmd`;
  163.   $? == 0 || print "1\n";
  164.   -f "$user" && print "2\n";        # Mail saved...
  165. ***************
  166. *** 20,29 ****
  167.   &check_log('^Subject:', 8);
  168.   ¬_log('^X-None:', 9);
  169.   &check_log('MARK', 10) == 2 || print "11\n";        # Continuation line kept
  170. ! &check_log('X-Long-Line:', 12);    # So is the parent field
  171. ! ¬_log('X-Removed-Line:', 13);
  172.   ¬_log('TOKEN', 14);            # This continuation was removed
  173.   -f 'no_resync' || print "15\n";    # Ensure header not disturbed
  174.   
  175. ! unlink 'ok', 'no_resync', 'mail';
  176.   print "0\n";
  177. --- 30,41 ----
  178.   &check_log('^Subject:', 8);
  179.   ¬_log('^X-None:', 9);
  180.   &check_log('MARK', 10) == 2 || print "11\n";        # Continuation line kept
  181. ! &check_log('^X-Long-Line:', 12);    # So is the parent field
  182. ! ¬_log('^X-Removed-Line:', 13);
  183.   ¬_log('TOKEN', 14);            # This continuation was removed
  184. + &check_log('^unusual-header:', 16);
  185.   -f 'no_resync' || print "15\n";    # Ensure header not disturbed
  186.   
  187. ! # Last: 17
  188. ! unlink 'ok', 'no_resync', 'mail', 'header-list';
  189.   print "0\n";
  190.  
  191. Index: agent/pl/stats.pl
  192. Prereq: 2.9.1.1
  193. *** agent/pl/stats.pl.old    Tue Dec  1 09:48:31 1992
  194. --- agent/pl/stats.pl    Tue Dec  1 09:48:32 1992
  195. ***************
  196. *** 1,4 ****
  197. ! ;# $Id: stats.pl,v 2.9.1.1 92/08/26 13:18:36 ram Exp $
  198.   ;#
  199.   ;#  Copyright (c) 1992, Raphael Manfredi
  200.   ;#
  201. --- 1,4 ----
  202. ! ;# $Id: stats.pl,v 2.9.1.2 92/12/01 09:43:32 ram Exp $
  203.   ;#
  204.   ;#  Copyright (c) 1992, Raphael Manfredi
  205.   ;#
  206. ***************
  207. *** 6,11 ****
  208. --- 6,14 ----
  209.   ;#  Licence as specified in the README file that comes with dist.
  210.   ;#
  211.   ;# $Log:    stats.pl,v $
  212. + ;# Revision 2.9.1.2  92/12/01  09:43:32  ram
  213. + ;# patch13: read statistics lines one at a time to limit memory usage
  214. + ;# 
  215.   ;# Revision 2.9.1.1  92/08/26  13:18:36  ram
  216.   ;# patch8: added statistics suppression code
  217.   ;# 
  218. ***************
  219. *** 211,217 ****
  220.       # not enough space on the device, we won't be able to append the whole
  221.       # backup file, but then we have to discard previously saved statistics
  222.       # anyway...
  223. !     local($status) = print STATS <OLD>;
  224.       close OLD;
  225.       close STATS;
  226.       if ($status) {                        # Print ran ok
  227. --- 214,225 ----
  228.       # not enough space on the device, we won't be able to append the whole
  229.       # backup file, but then we have to discard previously saved statistics
  230.       # anyway...
  231. !     # Note: 'print STATS <OLD>' would cause an excessive memory consumption
  232. !     # given that a statistics file can be several hundred Kbytes long.
  233. !     local($status) = 1;                    # Printing status
  234. !     while (<OLD>) {
  235. !         $status &= (print STATS);        # Status remains to 1 while successful
  236. !     }
  237.       close OLD;
  238.       close STATS;
  239.       if ($status) {                        # Print ran ok
  240.  
  241. Index: agent/pl/analyze.pl
  242. Prereq: 2.9.1.4
  243. *** agent/pl/analyze.pl.old    Tue Dec  1 09:48:04 1992
  244. --- agent/pl/analyze.pl    Tue Dec  1 09:48:04 1992
  245. ***************
  246. *** 1,4 ****
  247. ! ;# $Id: analyze.pl,v 2.9.1.4 92/11/01 15:45:26 ram Exp $
  248.   ;#
  249.   ;#  Copyright (c) 1992, Raphael Manfredi
  250.   ;#
  251. --- 1,4 ----
  252. ! ;# $Id: analyze.pl,v 2.9.1.5 92/12/01 09:18:49 ram Exp $
  253.   ;#
  254.   ;#  Copyright (c) 1992, Raphael Manfredi
  255.   ;#
  256. ***************
  257. *** 6,11 ****
  258. --- 6,14 ----
  259.   ;#  Licence as specified in the README file that comes with dist.
  260.   ;#
  261.   ;# $Log:    analyze.pl,v $
  262. + ;# Revision 2.9.1.5  92/12/01  09:18:49  ram
  263. + ;# patch13: fixed mode selection pattern (no brace allowed)
  264. + ;# 
  265.   ;# Revision 2.9.1.4  92/11/01  15:45:26  ram
  266.   ;# patch11: added some blank lines for easier reading
  267.   ;# 
  268. ***************
  269. *** 141,147 ****
  270.           undef %Matched;                            # Reset matching patterns
  271.           undef %Inverted;                        # Reset negated patterns
  272.           $rules = $_;                            # Work on a copy
  273. !         $rules =~ s/^(.*){// && ($mode = $1);        # First word is the mode
  274.           $rules =~ s/\s*(.*)}// && ($action = $1);    # Followed by action
  275.           $mode =~ s/\s*$//;                            # Remove trailing spaces
  276.           $rules =~ s/^\s+//;                        # Remove leading spaces
  277. --- 144,150 ----
  278.           undef %Matched;                            # Reset matching patterns
  279.           undef %Inverted;                        # Reset negated patterns
  280.           $rules = $_;                            # Work on a copy
  281. !         $rules =~ s/^([^{]*){// && ($mode = $1);    # First word is the mode
  282.           $rules =~ s/\s*(.*)}// && ($action = $1);    # Followed by action
  283.           $mode =~ s/\s*$//;                            # Remove trailing spaces
  284.           $rules =~ s/^\s+//;                        # Remove leading spaces
  285.  
  286. Index: agent/filter/main.c
  287. Prereq: 2.9.1.1
  288. *** agent/filter/main.c.old    Tue Dec  1 09:47:43 1992
  289. --- agent/filter/main.c    Tue Dec  1 09:47:43 1992
  290. ***************
  291. *** 11,17 ****
  292.   */
  293.   
  294.   /*
  295. !  * $Id: main.c,v 2.9.1.1 92/08/12 21:30:38 ram Exp $
  296.    *
  297.    *  Copyright (c) 1992, Raphael Manfredi
  298.    *
  299. --- 11,17 ----
  300.   */
  301.   
  302.   /*
  303. !  * $Id: main.c,v 2.9.1.2 92/12/01 09:12:53 ram Exp $
  304.    *
  305.    *  Copyright (c) 1992, Raphael Manfredi
  306.    *
  307. ***************
  308. *** 19,24 ****
  309. --- 19,27 ----
  310.    *  Licence as specified in the README file that comes with dist.
  311.    *
  312.    * $Log:    main.c,v $
  313. +  * Revision 2.9.1.2  92/12/01  09:12:53  ram
  314. +  * patch13: filter now also complains when using -t in setgid mode
  315. +  * 
  316.    * Revision 2.9.1.1  92/08/12  21:30:38  ram
  317.    * patch6: option -t disallowed when running setuid (security hole)
  318.    * 
  319. ***************
  320. *** 85,92 ****
  321.        * filter program.
  322.        */
  323.       if (argc > 1 && 0 == strcmp(argv[1], "-t")) {
  324. !         if (uid != euid) {
  325. !             fprintf(stderr, "filter: no option allowed when setuid\n");
  326.               exit(1);
  327.           }
  328.           env_home();                        /* Get HOME form environment */
  329. --- 88,96 ----
  330.        * filter program.
  331.        */
  332.       if (argc > 1 && 0 == strcmp(argv[1], "-t")) {
  333. !         if (uid != euid || gid != egid) {
  334. !             fprintf(stderr, "filter: no option allowed when set%s\n",
  335. !                 uid != euid ? "uid" : "gid");
  336.               exit(1);
  337.           }
  338.           env_home();                        /* Get HOME form environment */
  339.  
  340. Index: Configure
  341. Prereq: 2.9
  342. *** Configure.old    Tue Dec  1 09:47:35 1992
  343. --- Configure    Tue Dec  1 09:47:36 1992
  344. ***************
  345. *** 16,22 ****
  346.   # Write to ram@eiffel.com (Raphael Manfredi) and I will send you the
  347.   # latest revision of the dist package, which includes metaconfig.)
  348.   
  349. ! # $Id: Configure,v 2.9 92/07/14 16:46:52 ram Exp $
  350.   #
  351.   # Generated on Tue Jul 14 19:38:33 PDT 1992 [metaconfig 2.8 PL13]
  352.   
  353. --- 16,22 ----
  354.   # Write to ram@eiffel.com (Raphael Manfredi) and I will send you the
  355.   # latest revision of the dist package, which includes metaconfig.)
  356.   
  357. ! # $Id: Configure,v 2.9.1.1 92/12/01 09:09:08 ram Exp $
  358.   #
  359.   # Generated on Tue Jul 14 19:38:33 PDT 1992 [metaconfig 2.8 PL13]
  360.   
  361. ***************
  362. *** 2004,2010 ****
  363.   
  364.   : see if union wait is available
  365.   echo " "
  366. ! if $contains 'int.*w_status;' $usrinc/sys/wait.h >/dev/null 2>&1 ; then
  367.       echo "Looks like we have to use 'union wait' pointer for wait()."
  368.       val="$define"
  369.   else
  370. --- 2004,2010 ----
  371.   
  372.   : see if union wait is available
  373.   echo " "
  374. ! if $contains 'union.*wait.*{' $usrinc/sys/wait.h >/dev/null 2>&1 ; then
  375.       echo "Looks like we have to use 'union wait' pointer for wait()."
  376.       val="$define"
  377.   else
  378.  
  379. Index: MANIFEST
  380. *** MANIFEST.old    Tue Dec  1 09:48:42 1992
  381. --- MANIFEST    Tue Dec  1 09:48:43 1992
  382. ***************
  383. *** 86,91 ****
  384. --- 86,93 ----
  385.   agent/pl/header.pl         Header-related routines
  386.   agent/pl/history.pl        Perl library to implement history mechanism
  387.   agent/pl/hook.pl           Mail hook wrapping functions
  388. + agent/pl/hostname.pl       Perl library to compute hostname
  389. + agent/pl/include.pl        Processing of "include file" requests
  390.   agent/pl/interface.pl      Perl interface with filter commands
  391.   agent/pl/jobnum.pl         Perl library to compute a job number
  392.   agent/pl/lexical.pl        Perl library for lexical analysis
  393. ***************
  394. *** 100,105 ****
  395. --- 102,108 ----
  396.   agent/pl/parse.pl          Perl library to parse a mail message
  397.   agent/pl/period.pl         Perl library to compute periods
  398.   agent/pl/plsave.pl         Perl library to handle the plsave cache file
  399. + agent/pl/plural.pl         Perl library to pluralize words
  400.   agent/pl/pqueue.pl         Processing the queued mails
  401.   agent/pl/queue_mail.pl     Queuing mails
  402.   agent/pl/rangeargs.pl      Perl library to expand a list of patches
  403.  
  404. Index: agent/pl/context.pl
  405. Prereq: 2.9
  406. *** agent/pl/context.pl.old    Tue Dec  1 09:48:06 1992
  407. --- agent/pl/context.pl    Tue Dec  1 09:48:07 1992
  408. ***************
  409. *** 1,4 ****
  410. ! ;# $Id: context.pl,v 2.9 92/07/14 16:49:43 ram Exp $
  411.   ;#
  412.   ;#  Copyright (c) 1992, Raphael Manfredi
  413.   ;#
  414. --- 1,4 ----
  415. ! ;# $Id: context.pl,v 2.9.1.1 92/12/01 09:19:38 ram Exp $
  416.   ;#
  417.   ;#  Copyright (c) 1992, Raphael Manfredi
  418.   ;#
  419. ***************
  420. *** 6,11 ****
  421. --- 6,14 ----
  422.   ;#  Licence as specified in the README file that comes with dist.
  423.   ;#
  424.   ;# $Log:    context.pl,v $
  425. + ;# Revision 2.9.1.1  92/12/01  09:19:38  ram
  426. + ;# patch13: remove context file lock when excessively old
  427. + ;# 
  428.   ;# Revision 2.9  92/07/14  16:49:43  ram
  429.   ;# 3.0 beta baseline.
  430.   ;# 
  431. ***************
  432. *** 63,68 ****
  433. --- 66,72 ----
  434.   sub save {
  435.       require 'ctime.pl';
  436.       local($existed) = -f $cf'context;
  437. +     &'checklock($cf'context);                # Ensure no eternal locking
  438.       &'acs_rqst($cf'context) if $existed;    # Lock existing file
  439.       unless (open(CONTEXT, ">$cf'context")) {
  440.           &'add_log("ERROR cannot overwrite context file: $!") if $'loglvl > 1;
  441.  
  442. Index: agent/pl/plural.pl
  443. *** agent/pl/plural.pl.old    Tue Dec  1 09:48:23 1992
  444. --- agent/pl/plural.pl    Tue Dec  1 09:48:24 1992
  445. ***************
  446. *** 0 ****
  447. --- 1,28 ----
  448. + ;# $Id: plural.pl,v 2.9.1.1 92/12/01 09:26:44 ram Exp $
  449. + ;#
  450. + ;#  Copyright (c) 1992, Raphael Manfredi
  451. + ;#
  452. + ;#  You may redistribute only under the terms of the GNU General Public
  453. + ;#  Licence as specified in the README file that comes with dist.
  454. + ;#
  455. + ;# $Log:    plural.pl,v $
  456. + ;# Revision 2.9.1.1  92/12/01  09:26:44  ram
  457. + ;# patch13: created
  458. + ;# 
  459. + ;# 
  460. + # Pluralize names -- Adapted from a routine posted by Tom Christiansen in
  461. + # comp.lang.perl on June 20th, 1992.
  462. + sub plural {
  463. +     local($_, $n) = @_;        # Word and amount (plural if not specified)
  464. +     $n = 2 if $n eq '';        # Pluralize word by default
  465. +     if ($n != 1) {            # 0 something is plural
  466. +         if ($_ eq 'was') {
  467. +             $_ = 'were';
  468. +         } else {
  469. +             s/y$/ies/   || s/s$/ses/  || s/([cs]h)$/$1es/ ||
  470. +             s/sis$/ses/ || s/ium$/ia/ || s/$/s/;
  471. +         }
  472. +     }
  473. +     "$_";            # How to write $n times the original $_
  474. + }
  475. + 
  476.  
  477. Index: agent/pl/hostname.pl
  478. *** agent/pl/hostname.pl.old    Tue Dec  1 09:48:09 1992
  479. --- agent/pl/hostname.pl    Tue Dec  1 09:48:09 1992
  480. ***************
  481. *** 0 ****
  482. --- 1,29 ----
  483. + ;# $Id: hostname.pl,v 2.9.1.1 92/12/01 09:20:23 ram Exp $
  484. + ;#
  485. + ;#  Copyright (c) 1992, Raphael Manfredi
  486. + ;#
  487. + ;#  You may redistribute only under the terms of the GNU General Public
  488. + ;#  Licence as specified in the README file that comes with dist.
  489. + ;#
  490. + ;# $Log:    hostname.pl,v $
  491. + ;# Revision 2.9.1.1  92/12/01  09:20:23  ram
  492. + ;# patch13: created
  493. + ;# 
  494. + ;# 
  495. + # Return only the hostname portion of the host name (no domain name)
  496. + sub myhostname {
  497. +     local($_) = &hostname;
  498. +     s/^([^.]*)\..*/$1/;            # Trim down domain name
  499. +     $_;
  500. + }
  501. + 
  502. + # Compute hostname once and for all and cache its value (since we have to fork
  503. + # to get it).
  504. + sub hostname {
  505. +     unless ($cache'hostname) {
  506. +         chop($cache'hostname = `$phostname`);
  507. +         $cache'hostname =~ tr/A-Z/a-z/;            # Cannonicalize to lower case
  508. +     }
  509. +     $cache'hostname;
  510. + }
  511. + 
  512.  
  513. Index: agent/filter/parser.c
  514. Prereq: 2.9.1.2
  515. *** agent/filter/parser.c.old    Tue Dec  1 09:47:45 1992
  516. --- agent/filter/parser.c    Tue Dec  1 09:47:46 1992
  517. ***************
  518. *** 11,17 ****
  519.   */
  520.   
  521.   /*
  522. !  * $Id: parser.c,v 2.9.1.2 92/11/01 15:42:10 ram Exp $
  523.    *
  524.    *  Copyright (c) 1992, Raphael Manfredi
  525.    *
  526. --- 11,17 ----
  527.   */
  528.   
  529.   /*
  530. !  * $Id: parser.c,v 2.9.1.3 92/12/01 09:13:21 ram Exp $
  531.    *
  532.    *  Copyright (c) 1992, Raphael Manfredi
  533.    *
  534. ***************
  535. *** 19,24 ****
  536. --- 19,27 ----
  537.    *  Licence as specified in the README file that comes with dist.
  538.    *
  539.    * $Log:    parser.c,v $
  540. +  * Revision 2.9.1.3  92/12/01  09:13:21  ram
  541. +  * patch13: removed spurious inclusion of <sys/types.h>
  542. +  * 
  543.    * Revision 2.9.1.2  92/11/01  15:42:10  ram
  544.    * patch11: forgot inclusion of <sys/types.h> for possible pid_t
  545.    * 
  546. ***************
  547. *** 41,47 ****
  548.   #include <stdio.h>
  549.   #include <ctype.h>
  550.   #include <pwd.h>
  551. - #include <sys/types.h>
  552.   #include <sys/stat.h>
  553.   
  554.   #ifdef I_STRING
  555. --- 44,49 ----
  556.  
  557. Index: agent/test/actions
  558. *** agent/test/actions.old    Tue Dec  1 09:48:34 1992
  559. --- agent/test/actions    Tue Dec  1 09:48:35 1992
  560. ***************
  561. *** 66,74 ****
  562.   
  563.   X-Tag: /keep/
  564.   {
  565. !     KEEP From: To Subject X-None X-Long-Line;
  566. !     KEEP To Subject X-Long-Line From X-None;
  567. !     KEEP X-Long-Line: X-None: To: Subject: From:;
  568.       SAVE ok;
  569.       REJECT;
  570.   }
  571. --- 66,75 ----
  572.   
  573.   X-Tag: /keep/
  574.   {
  575. !     KEEP From: To Subject X-None X-Long-* U*;
  576. !     KEEP To Subject X-Long-* From X-None U*;
  577. !     KEEP X-Long-*: Unu*-Head* X-None: To: Subject: From:;
  578. !     KEEP "header-list" From;
  579.       SAVE ok;
  580.       REJECT;
  581.   }
  582. ***************
  583. *** 165,172 ****
  584.   
  585.   X-Tag: /strip/
  586.   {
  587. !     STRIP X-Long-Line: X-None: Received:;
  588. !     STRIP Received X-Long-Line;
  589.       SAVE ok;
  590.       REJECT;
  591.   }
  592. --- 166,174 ----
  593.   
  594.   X-Tag: /strip/
  595.   {
  596. !     STRIP X-N* Received:;
  597. !     STRIP Received;
  598. !     STRIP X-N* "header-list";
  599.       SAVE ok;
  600.       REJECT;
  601.   }
  602.  
  603. *** End of Patch 14 ***
  604.  
  605. exit 0 # Just in case...
  606.