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