home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume42 / mailagent / patch07 next >
Encoding:
Internet Message Format  |  1994-05-06  |  37.6 KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v42i071:  mailagent - Flexible mail filtering and processing package, v3.0, Patch07
  4. Date: 6 May 1994 13:45:23 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2qe383$t1s@sparky.sterling.com>
  9. X-Md4-Signature: 3d83d9cfd7bc03d0d9ffa63e9d88efa1
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 42, Issue 71
  13. Archive-name: mailagent/patch07
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #7.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 7
  21. Priority: MEDIUM
  22. Subject: removed a duplicate address in credit list
  23. Subject: also extract system error messages from logfile
  24. Subject: added new 'fromesc' config variable for From line escapes
  25. Subject: removed incorrect sanity check for zcat (void when portable)
  26. Subject: documented new 'fromesc' config variable
  27. Subject: forgot to insert the new -F option in the synopsis line
  28. Subject: here and there fixes
  29. Subject: global fix for From line escapes to make them configurable
  30. Subject: fixed selector combination logic and added some debug logs
  31. Subject: made sure new variable 'fromesc' has a meaningful default
  32. Subject: now also understands @domain:user@other addresses
  33. Subject: more accurate for group name parsing
  34. Subject: added locking protections when updating rule cache
  35. Subject: check bug reported by Andy Seaborne <afs@hplb.hpl.hp.com>
  36. Subject: added commented 'fromesc' new variable
  37. Subject: now make sure From line escaping is correctly removed
  38. Subject: added three additional tests after a bug was found
  39. Subject: added three more tests in filter/group
  40. Subject: make sure unkit directory is not hidden by leading dot
  41. Date: Mon Apr 25 17:26:57 MET DST 1994
  42. From: Raphael Manfredi <ram@acri.fr>
  43.  
  44. Description:
  45.     Removed a duplicate address in credit list.
  46.  
  47.     Make sure the chkagent.sh script also extract system error
  48.     messages from logfile (this script is intended to be run
  49.     by cron every night).
  50.  
  51.     Added new 'fromesc' config variable for From line escapes. By
  52.     setting this variable to OFF, mailagent will stop escaping the
  53.     potentially dangerous From_ lines in your messages by prepending
  54.     a '>' in front. If you don't add it to your ~/.mailagent, it
  55.     will default to ON.
  56.  
  57.     Removed incorrect sanity check for zcat (void when portable)
  58.     in the mailpatch script. When Configure told it to be portable,
  59.     the $zcat variable is not holding the full path name...
  60.  
  61.     Documented new 'fromesc' config variable in manual page and
  62.     added the new -F option in the synopsis line (miss reported
  63.     by Shigeya Suzuki <shigeya@foretune.co.jp>.
  64.  
  65.     Fixed selector combination logic and added some debug logs.
  66.     I found a bug in it, and therefore I added three more tests
  67.     in the regression test suite to make sure they never reappear
  68.     again...
  69.  
  70.     RFC-822 parser now also understands @domain:user@other addresses,
  71.     which makes it possible to select on the user login name...
  72.     Also made more accurate for group name parsing.
  73.  
  74.     Added locking protections when updating rule cache. Since the -r
  75.     option may update the cache and no global mailagent locking is
  76.     performed in that case, it was mandatory to fix it. Otherwise,
  77.     the rule cache could have got corrupted in some way, resulting
  78.     in incorrect filtering.
  79.  
  80.     Check bug reported by Andy Seaborne <afs@hplb.hpl.hp.com>. The
  81.     From_ line escaping was not done properly. Sorry.
  82.  
  83.     Make sure unkit directory is not hidden by leading dot. The UNKIT
  84.     command under the misc/ directory was updated to avoid the creation
  85.     of an hidden archive (created from subject when someone runs a
  86.     'kit ./file'.
  87.  
  88.  
  89. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  90.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  91.     If you don't have the patch program, apply the following by hand,
  92.     or get patch (version 2.0, latest patchlevel).
  93.  
  94.     After patching:
  95.         Configure -ders
  96.         make depend
  97.         make
  98.         make install
  99.         make install.man
  100.  
  101.     If patch indicates that patchlevel is the wrong version, you may need
  102.     to apply one or more previous patches, or the patch may already
  103.     have been applied.  See the patchlevel.h file to find out what has or
  104.     has not been applied.  In any event, don't continue with the patch.
  105.  
  106.     If you are missing previous patches they can be obtained from me:
  107.  
  108.         Raphael Manfredi <ram@acri.fr>
  109.  
  110.     If you send a mail message of the following form it will greatly speed
  111.     processing:
  112.  
  113.         Subject: Command
  114.         @SH mailpatch PATH mailagent 3.0 LIST
  115.                ^ note the c
  116.  
  117.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  118.     or in bang notation from some well-known host, and LIST is the number
  119.     of one or more patches you need, separated by spaces, commas, and/or
  120.     hyphens.  Saying 35- says everything from 35 to the end.
  121.  
  122.     To get some more detailed instructions, send me the following mail:
  123.  
  124.         Subject: Command
  125.         @SH mailhelp PATH
  126.  
  127.  
  128. Index: patchlevel.h
  129. Prereq: 6
  130. 4c4
  131. < #define PATCHLEVEL 6
  132. ---
  133. > #define PATCHLEVEL 7
  134.  
  135. Index: agent/pl/actions.pl
  136. Prereq: 3.0.1.1
  137. *** agent/pl/actions.pl.old    Mon Apr 25 17:26:46 1994
  138. --- agent/pl/actions.pl    Mon Apr 25 17:26:46 1994
  139. ***************
  140. *** 1,4 ****
  141. ! ;# $Id: actions.pl,v 3.0.1.1 1994/01/26 09:30:03 ram Exp $
  142.   ;#
  143.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  144.   ;#  
  145. --- 1,4 ----
  146. ! ;# $Id: actions.pl,v 3.0.1.2 1994/04/25 15:16:53 ram Exp $
  147.   ;#
  148.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  149.   ;#  
  150. ***************
  151. *** 9,14 ****
  152. --- 9,18 ----
  153.   ;#  of the source tree for mailagent 3.0.
  154.   ;#
  155.   ;# $Log: actions.pl,v $
  156. + ;# Revision 3.0.1.2  1994/04/25  15:16:53  ram
  157. + ;# patch7: here and there fixes
  158. + ;# patch7: global fix for From line escapes to make them configurable
  159. + ;#
  160.   ;# Revision 3.0.1.1  1994/01/26  09:30:03  ram
  161.   ;# patch5: restored ability to use Cc: and Bcc: in message files
  162.   ;#
  163. ***************
  164. *** 886,899 ****
  165.           open(STDIN, "<&READ");                # Redirect stdin to pipe
  166.           close READ if $input == $NO_INPUT;    # Close stdin if needed
  167.           unless (open(STDOUT, ">$trace")) {    # Where output goes
  168. !             &add_log("WARNING couldn't create $trace") if $loglvl > 5;
  169.               if ($feedback == $FEEDBACK) {    # Need trace if feedback
  170.                   kill 'SIGPIPE', $ppid;        # Parent still waiting
  171.                   exit 1;
  172.               }
  173.           }
  174.           open(STDERR, ">&STDOUT");            # Make it follow pipe
  175. !         exec "$program";                    # Run the program now
  176.           &add_log("ERROR couldn't exec '$program': $!") if $loglvl > 1;
  177.           kill 'SIGPIPE', $ppid;                # Parent still waiting
  178.           exit 1;
  179. --- 890,903 ----
  180.           open(STDIN, "<&READ");                # Redirect stdin to pipe
  181.           close READ if $input == $NO_INPUT;    # Close stdin if needed
  182.           unless (open(STDOUT, ">$trace")) {    # Where output goes
  183. !             &add_log("WARNING couldn't create $trace: $!") if $loglvl > 5;
  184.               if ($feedback == $FEEDBACK) {    # Need trace if feedback
  185.                   kill 'SIGPIPE', $ppid;        # Parent still waiting
  186.                   exit 1;
  187.               }
  188.           }
  189.           open(STDERR, ">&STDOUT");            # Make it follow pipe
  190. !         exec $program;                        # Run the program now
  191.           &add_log("ERROR couldn't exec '$program': $!") if $loglvl > 1;
  192.           kill 'SIGPIPE', $ppid;                # Parent still waiting
  193.           exit 1;
  194. ***************
  195. *** 1002,1010 ****
  196.       }
  197.       local($temp) = ' ' x 2000;            # Temporary storage (pre-extended)
  198.       $temp = '';
  199.       if ($input == $BODY_INPUT) {        # We have to feed back the body only
  200.           while (<TRACE>) {
  201. !             s/^From\s/>From$1/;            # Protect potentially dangerous lines
  202.               $temp .= $_;
  203.           }
  204.       } else {
  205. --- 1006,1017 ----
  206.       }
  207.       local($temp) = ' ' x 2000;            # Temporary storage (pre-extended)
  208.       $temp = '';
  209. +     local($last_was_nl) = 1;            # True when previous line was blank
  210.       if ($input == $BODY_INPUT) {        # We have to feed back the body only
  211.           while (<TRACE>) {
  212. !             # Protect potentially dangerous lines
  213. !             s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  214. !             $last_was_nl = /^$/;
  215.               $temp .= $_;
  216.           }
  217.       } else {
  218. ***************
  219. *** 1014,1020 ****
  220.               if (1../^$/) {
  221.                   $head .= $_ unless /^$/;
  222.               } else {
  223. !                 s/^From\s/>From$1/;        # Protect potentially dangerous lines
  224.                   $temp .= $_;
  225.               }
  226.           }
  227. --- 1021,1029 ----
  228.               if (1../^$/) {
  229.                   $head .= $_ unless /^$/;
  230.               } else {
  231. !                 # Protect potentially dangerous lines
  232. !                 s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  233. !                 $last_was_nl = /^$/;
  234.                   $temp .= $_;
  235.               }
  236.           }
  237. ***************
  238. *** 1369,1375 ****
  239.       # escape all potentially dangerous From lines.
  240.       local($last_was_space);
  241.       foreach (@array) {
  242. !         s/^From\s+(\S+)/>From $1/ if $last_was_space;
  243.           s/^- -/-/;                    # This is the EB escape in RFC-934
  244.           $last_was_space = /^$/;        # From is dangerous after blank line
  245.       }
  246. --- 1378,1385 ----
  247.       # escape all potentially dangerous From lines.
  248.       local($last_was_space);
  249.       foreach (@array) {
  250. !         # Protect potentially dangerous lines
  251. !         s/^From\s+(\S+)/>From $1/ if $last_was_space && $cf'fromesc =~ /on/i;
  252.           s/^- -/-/;                    # This is the EB escape in RFC-934
  253.           $last_was_space = /^$/;        # From is dangerous after blank line
  254.       }
  255.  
  256. Index: agent/pl/rules.pl
  257. Prereq: 3.0
  258. *** agent/pl/rules.pl.old    Mon Apr 25 17:26:50 1994
  259. --- agent/pl/rules.pl    Mon Apr 25 17:26:51 1994
  260. ***************
  261. *** 1,4 ****
  262. ! ;# $Id: rules.pl,v 3.0 1993/11/29 13:49:14 ram Exp $
  263.   ;#
  264.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  265.   ;#  
  266. --- 1,4 ----
  267. ! ;# $Id: rules.pl,v 3.0.1.1 1994/04/25 15:23:03 ram Exp $
  268.   ;#
  269.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  270.   ;#  
  271. ***************
  272. *** 9,14 ****
  273. --- 9,17 ----
  274.   ;#  of the source tree for mailagent 3.0.
  275.   ;#
  276.   ;# $Log: rules.pl,v $
  277. + ;# Revision 3.0.1.1  1994/04/25  15:23:03  ram
  278. + ;# patch7: added locking protections when updating rule cache
  279. + ;#
  280.   ;# Revision 3.0  1993/11/29  13:49:14  ram
  281.   ;# Baseline for mailagent 3.0 netwide release.
  282.   ;#
  283. ***************
  284. *** 290,295 ****
  285. --- 293,302 ----
  286.   sub write_cache {
  287.       return 0 unless defined $cf'rulecache;
  288.       local(*CACHE);                    # File handle used to write the cache
  289. +     if (0 != &'acs_rqst($cf'rulecache)) {
  290. +         &'add_log("NOTICE unable to write-lock $cf'rulecache") if $'loglvl > 6;
  291. +         return 0;                    # Cannot write
  292. +     }
  293.       unless (open(CACHE, ">$cf'rulecache")) {
  294.           &'add_log("ERROR cannot create rule cache $cf'rulecache: $!")
  295.               if $'loglvl;
  296. ***************
  297. *** 303,311 ****
  298.       &write_fd(CACHE) || $error++;        # Write rules
  299.       &writevar_fd(CACHE) || $error++;    # And XENV variables
  300.       close(CACHE) || $error++;
  301.       if ($error) {
  302. -         &'add_log("WARNING could not cache rules") if $'loglvl > 5;
  303.           unlink $cf'rulecache;
  304.           return 0;
  305.       }
  306.       1;    # Success
  307. --- 310,319 ----
  308.       &write_fd(CACHE) || $error++;        # Write rules
  309.       &writevar_fd(CACHE) || $error++;    # And XENV variables
  310.       close(CACHE) || $error++;
  311. +     &'free_file($cf'rulecache);        # Unlock cache
  312.       if ($error) {
  313.           unlink $cf'rulecache;
  314. +         &'add_log("WARNING could not cache rules") if $'loglvl > 5;
  315.           return 0;
  316.       }
  317.       1;    # Success
  318. ***************
  319. *** 313,322 ****
  320. --- 321,336 ----
  321.   
  322.   # Read cached rules into @Rules and %Rules and returns 1 if done, 0 when
  323.   # the cache may not be read for whatever reason (e.g. out of date).
  324. + # Since the '-r' option may also need to cache rules and no mailagent lock
  325. + # is taken in that case, we need to lock the rule file before accessing it.
  326.   sub read_cache {
  327.       return 0 unless &cache_ok;
  328.       local(*CACHE);                    # File handle used to read the cache
  329.       local($_);
  330. +     if (0 != &'acs_rqst($cf'rulecache)) {
  331. +         &'add_log("NOTICE unable to read-lock $cf'rulecache") if $'loglvl > 6;
  332. +         return 0;                    # Cannot read
  333. +     }
  334.       open(CACHE, $cf'rulecache) || return 0;    # Cannot open, assume out of date
  335.       $_ = <CACHE>;                    # Disregard top line
  336.       while (<CACHE>) {                # First read the @Rules
  337. ***************
  338. *** 336,341 ****
  339. --- 350,356 ----
  340.           s/^\s*(\w+)\s*=\s*// && ($'XENV{$1} = $_);
  341.       }
  342.       close CACHE;
  343. +     &'free_file($cf'rulecache);        # Unlock cache
  344.       1;    # Success
  345.   }
  346.   
  347.  
  348. Index: agent/pl/analyze.pl
  349. Prereq: 3.0.1.1
  350. *** agent/pl/analyze.pl.old    Mon Apr 25 17:26:47 1994
  351. --- agent/pl/analyze.pl    Mon Apr 25 17:26:47 1994
  352. ***************
  353. *** 1,4 ****
  354. ! ;# $Id: analyze.pl,v 3.0.1.1 1994/01/26 09:30:23 ram Exp $
  355.   ;#
  356.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  357.   ;#  
  358. --- 1,4 ----
  359. ! ;# $Id: analyze.pl,v 3.0.1.2 1994/04/25 15:17:24 ram Exp $
  360.   ;#
  361.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  362.   ;#  
  363. ***************
  364. *** 9,14 ****
  365. --- 9,17 ----
  366.   ;#  of the source tree for mailagent 3.0.
  367.   ;#
  368.   ;# $Log: analyze.pl,v $
  369. + ;# Revision 3.0.1.2  1994/04/25  15:17:24  ram
  370. + ;# patch7: fixed selector combination logic and added some debug logs
  371. + ;#
  372.   ;# Revision 3.0.1.1  1994/01/26  09:30:23  ram
  373.   ;# patch5: now understands new -F option to force processing
  374.   ;#
  375. ***************
  376. *** 245,251 ****
  377.                   # Here it is the OR which is guaranteed to be optimized. Do
  378.                   # not attempt the match if an identical selector already
  379.                   # matched sucessfully.
  380. !                 unless ($Matched{$selist}) {
  381.                       $Matched{$selist} = &match($selector, $pattern, $range);
  382.                   }
  383.               }
  384. --- 248,254 ----
  385.                   # Here it is the OR which is guaranteed to be optimized. Do
  386.                   # not attempt the match if an identical selector already
  387.                   # matched sucessfully.
  388. !                 unless (defined $Matched{$selist} && $Matched{$selist}) {
  389.                       $Matched{$selist} = &match($selector, $pattern, $range);
  390.                   }
  391.               }
  392. ***************
  393. *** 257,270 ****
  394.   
  395.           $matched = 1;                        # Assume everything matched
  396.           foreach $key (keys %Matched) {        # All entries must have matched
  397. !             $matched = 0 unless $Matched{$key};
  398.           }
  399.           if ($matched) {                        # If %Matched failed, all failed!
  400.               foreach $key (keys %Inverted) {    # Only one entry needs to match
  401. !                 $matched = 0 unless $Inverted{$key};
  402.                   last if $matched;
  403.               }
  404.           }
  405.   
  406.           if ($matched) {                        # Execute action if pattern matched
  407.               # Make sure the rule has not already been executed in that mode
  408. --- 260,281 ----
  409.   
  410.           $matched = 1;                        # Assume everything matched
  411.           foreach $key (keys %Matched) {        # All entries must have matched
  412. !             $matched = $Matched{$key} ? 1 : 0;
  413. !             &add_log("rule #$j: direct $key " . ($matched ? 'ok' : 'failed'))
  414. !                 if $loglvl > 19;
  415. !             last unless $matched;
  416.           }
  417.           if ($matched) {                        # If %Matched failed, all failed!
  418.               foreach $key (keys %Inverted) {    # Only one entry needs to match
  419. !                 $matched = $Inverted{$key} ? 1 : 0;
  420. !                 &add_log("rule #$j: neg $key " . ($matched ? 'ok' : 'failed'))
  421. !                     if $loglvl > 19;
  422.                   last if $matched;
  423.               }
  424.           }
  425. + 
  426. +         &add_log("matching summary rule #$j: " . ($matched ? 'ok' : 'failed'))
  427. +             if $loglvl > 17;
  428.   
  429.           if ($matched) {                        # Execute action if pattern matched
  430.               # Make sure the rule has not already been executed in that mode
  431.  
  432. Index: agent/man/mailagent.SH
  433. Prereq: 3.0.1.2
  434. *** agent/man/mailagent.SH.old    Mon Apr 25 17:26:43 1994
  435. --- agent/man/mailagent.SH    Mon Apr 25 17:26:44 1994
  436. ***************
  437. *** 20,26 ****
  438.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  439.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  440.   '''
  441. ! ''' $Id: mailagent.SH,v 3.0.1.2 1994/01/26 09:29:24 ram Exp $
  442.   '''
  443.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  444.   '''  
  445. --- 20,26 ----
  446.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  447.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  448.   '''
  449. ! ''' $Id: mailagent.SH,v 3.0.1.3 1994/04/25 15:15:56 ram Exp $
  450.   '''
  451.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  452.   '''  
  453. ***************
  454. *** 31,36 ****
  455. --- 31,40 ----
  456.   '''  of the source tree for mailagent 3.0.
  457.   '''
  458.   ''' $Log: mailagent.SH,v $
  459. + ''' Revision 3.0.1.3  1994/04/25  15:15:56  ram
  460. + ''' patch7: documented new 'fromesc' config variable
  461. + ''' patch7: forgot to insert the new -F option in the synopsis line
  462. + '''
  463.   ''' Revision 3.0.1.2  1994/01/26  09:29:24  ram
  464.   ''' patch5: documents new tag feature for UNIQUE and RECORD
  465.   ''' patch5: documents new -F option
  466. ***************
  467. *** 55,61 ****
  468.   .SH NAME
  469.   mailagent \- an automatic mail-processing tool
  470.   .SH SYNOPSIS
  471. ! \fBmailagent\fR [ \fB\-dhilqtV\fR ] [ \fB\-s{umary}\fR ] [ \fB\-f\fI file\fR ]
  472.   [ \fB\-e\fI rule\fR ] [ \fB\-c\fI config\fR ] [ \fB\-L\fI loglevel\fR ]
  473.   [ \fB\-r\fI rulefile\fR ] [ \fB\-o\fI override\fR ] [ \fImailfile\fR ]
  474.   .SH DESCRIPTION
  475. --- 59,65 ----
  476.   .SH NAME
  477.   mailagent \- an automatic mail-processing tool
  478.   .SH SYNOPSIS
  479. ! \fBmailagent\fR [ \fB\-dhilqtFV\fR ] [ \fB\-s{umary}\fR ] [ \fB\-f\fI file\fR ]
  480.   [ \fB\-e\fI rule\fR ] [ \fB\-c\fI config\fR ] [ \fB\-L\fI loglevel\fR ]
  481.   [ \fB\-r\fI rulefile\fR ] [ \fB\-o\fI override\fR ] [ \fImailfile\fR ]
  482.   .SH DESCRIPTION
  483. ***************
  484. *** 225,230 ****
  485. --- 229,239 ----
  486.   .I emergdir
  487.   Name of the directory which should be used for dumps, preferably. This is
  488.   optional. (suggested: ~/tmp/lost+mail)
  489. + .TP
  490. + .I fromesc
  491. + Whether or not \fImailagent\fR should escape potentially dangerous \fIFrom\fR
  492. + lines in mail messages. If you use MH or if your mail reader does not use
  493. + those lines to separate messages, then you may set it to OFF. (suggested: ON)
  494.   .TP
  495.   .I hash
  496.   The directory used for name hashing by the built-in database used by ONCE,
  497.  
  498. Index: agent/test/cmd/pass.t
  499. Prereq: 3.0
  500. *** agent/test/cmd/pass.t.old    Mon Apr 25 17:26:53 1994
  501. --- agent/test/cmd/pass.t    Mon Apr 25 17:26:53 1994
  502. ***************
  503. *** 1,6 ****
  504.   # The PASS command
  505.   
  506. ! # $Id: pass.t,v 3.0 1993/11/29 13:49:37 ram Exp $
  507.   #
  508.   #  Copyright (c) 1990-1993, Raphael Manfredi
  509.   #  
  510. --- 1,6 ----
  511.   # The PASS command
  512.   
  513. ! # $Id: pass.t,v 3.0.1.1 1994/04/25 15:25:22 ram Exp $
  514.   #
  515.   #  Copyright (c) 1990-1993, Raphael Manfredi
  516.   #  
  517. ***************
  518. *** 11,32 ****
  519.   #  of the source tree for mailagent 3.0.
  520.   #
  521.   # $Log: pass.t,v $
  522.   # Revision 3.0  1993/11/29  13:49:37  ram
  523.   # Baseline for mailagent 3.0 netwide release.
  524.   #
  525.   
  526. ! do '../pl/cmd.pl';
  527.   unlink 'output';
  528.   
  529.   &add_header('X-Tag: pass');
  530.   `$cmd`;
  531.   $? == 0 || print "1\n";
  532.   -f 'output' || print "2\n";        # Where mail is saved
  533.   `grep -v X-Filter: output > comp`;
  534.   $? == 0 || print "3\n";
  535.   `grep -v and mail > ok`;
  536. ! ((-s 'comp') - 1) == -s 'ok' || print "4\n";    # SAVE adds extra final new-line
  537.   -s 'comp' != -s 'output' || print "5\n";    # Casually check X-Filter was there
  538.   
  539.   unlink 'output', 'mail', 'ok', 'comp';
  540.   print "0\n";
  541. --- 11,42 ----
  542.   #  of the source tree for mailagent 3.0.
  543.   #
  544.   # $Log: pass.t,v $
  545. + # Revision 3.0.1.1  1994/04/25  15:25:22  ram
  546. + # patch7: now make sure From line escaping is correctly removed
  547. + #
  548.   # Revision 3.0  1993/11/29  13:49:37  ram
  549.   # Baseline for mailagent 3.0 netwide release.
  550.   #
  551.   
  552. ! do '../pl/misc.pl';
  553.   unlink 'output';
  554.   
  555.   &add_header('X-Tag: pass');
  556. + &add_option("-o 'fromesc: OFF'");
  557. + open(MAIL, '>>mail');
  558. + print MAIL "\n>From test bug reported by Andy Seaborne <afs@hplb.hpl.hp.com>\n";
  559. + close MAIL;
  560.   `$cmd`;
  561.   $? == 0 || print "1\n";
  562.   -f 'output' || print "2\n";        # Where mail is saved
  563.   `grep -v X-Filter: output > comp`;
  564.   $? == 0 || print "3\n";
  565.   `grep -v and mail > ok`;
  566. ! # SAVE adds extra final new-line, but the leading '>' from From is removed
  567. ! (-s 'comp') == -s 'ok' || print "4\n";
  568.   -s 'comp' != -s 'output' || print "5\n";    # Casually check X-Filter was there
  569. + &get_log(6, 'output');
  570. + &check_log('^From test bug', 7) == 1 || print "8\n";
  571.   
  572.   unlink 'output', 'mail', 'ok', 'comp';
  573.   print "0\n";
  574.  
  575. Index: agent/test/filter/group.t
  576. Prereq: 3.0
  577. *** agent/test/filter/group.t.old    Mon Apr 25 17:26:53 1994
  578. --- agent/test/filter/group.t    Mon Apr 25 17:26:53 1994
  579. ***************
  580. *** 1,6 ****
  581.   # Test grouping of selectors (mixing normal and inverted selections)
  582.   
  583. ! # $Id: group.t,v 3.0 1993/11/29 13:49:59 ram Exp $
  584.   #
  585.   #  Copyright (c) 1990-1993, Raphael Manfredi
  586.   #  
  587. --- 1,6 ----
  588.   # Test grouping of selectors (mixing normal and inverted selections)
  589.   
  590. ! # $Id: group.t,v 3.0.1.1 1994/04/25 15:25:47 ram Exp $
  591.   #
  592.   #  Copyright (c) 1990-1993, Raphael Manfredi
  593.   #  
  594. ***************
  595. *** 11,24 ****
  596.   #  of the source tree for mailagent 3.0.
  597.   #
  598.   # $Log: group.t,v $
  599.   # Revision 3.0  1993/11/29  13:49:59  ram
  600.   # Baseline for mailagent 3.0 netwide release.
  601.   #
  602.   
  603.   do '../pl/filter.pl';
  604. - unlink 'never', 'always', 'always.2', 'always.3';
  605.   
  606.   &add_header('X-Tag: group');
  607.   `$cmd`;
  608.   $? == 0 || print "1\n";
  609.   -f "$user" && print "2\n";        # Mail has been deleted
  610. --- 11,34 ----
  611.   #  of the source tree for mailagent 3.0.
  612.   #
  613.   # $Log: group.t,v $
  614. + # Revision 3.0.1.1  1994/04/25  15:25:47  ram
  615. + # patch7: added three additional tests after a bug was found
  616. + #
  617.   # Revision 3.0  1993/11/29  13:49:59  ram
  618.   # Baseline for mailagent 3.0 netwide release.
  619.   #
  620.   
  621.   do '../pl/filter.pl';
  622.   
  623. + sub cleanup {
  624. +     unlink 'never', 'never.2', 'always', 'always.2', 'always.3',
  625. +         'always.4', 'always.5';
  626. + }
  627. + 
  628. + &add_header('Cc: guy_1@acri.fr, guy_2@eiffel.com, guy_3@inria.fr');
  629.   &add_header('X-Tag: group');
  630. + &cleanup;
  631. + 
  632.   `$cmd`;
  633.   $? == 0 || print "1\n";
  634.   -f "$user" && print "2\n";        # Mail has been deleted
  635. ***************
  636. *** 26,31 ****
  637.   -f 'always' || print "4\n";        # This one must have matched
  638.   -f 'always.2' || print "5\n";
  639.   -f 'always.3' || print "6\n";
  640.   
  641. ! unlink 'never', 'always', 'always.2', 'always.3';
  642.   print "0\n";
  643. --- 36,44 ----
  644.   -f 'always' || print "4\n";        # This one must have matched
  645.   -f 'always.2' || print "5\n";
  646.   -f 'always.3' || print "6\n";
  647. + -f 'never.2' && print "7\n";
  648. + -f 'always.4' || print "8\n";
  649. + -f 'always.5' || print "9\n";
  650.   
  651. ! &cleanup;
  652.   print "0\n";
  653.  
  654. Index: agent/test/rules
  655. Prereq: 3.0
  656. *** agent/test/rules.old    Mon Apr 25 17:26:54 1994
  657. --- agent/test/rules    Mon Apr 25 17:26:54 1994
  658. ***************
  659. *** 2,8 ****
  660.   # Mailagent rules for filter regression tests
  661.   #
  662.   
  663. ! # $Id: rules,v 3.0 1993/11/29 13:50:27 ram Exp $
  664.   #
  665.   #  Copyright (c) 1990-1993, Raphael Manfredi
  666.   #  
  667. --- 2,8 ----
  668.   # Mailagent rules for filter regression tests
  669.   #
  670.   
  671. ! # $Id: rules,v 3.0.1.1 1994/04/25 15:26:12 ram Exp $
  672.   #
  673.   #  Copyright (c) 1990-1993, Raphael Manfredi
  674.   #  
  675. ***************
  676. *** 13,18 ****
  677. --- 13,21 ----
  678.   #  of the source tree for mailagent 3.0.
  679.   #
  680.   # $Log: rules,v $
  681. + # Revision 3.0.1.1  1994/04/25  15:26:12  ram
  682. + # patch7: added three more tests in filter/group
  683. + #
  684.   # Revision 3.0  1993/11/29  13:50:27  ram
  685.   # Baseline for mailagent 3.0 netwide release.
  686.   #
  687. ***************
  688. *** 97,103 ****
  689.   <GROUP> !To !From: ram    { SAVE never };
  690.   <GROUP> To !From: !ram    { SAVE never };
  691.   <GROUP> !To !From: ram,
  692. !     !Subject !From: ram        { SAVE never };
  693.   <GROUP> !To: root, ram        { SAVE never };
  694.   <GROUP> !F.*: /compiler/    { SAVE never };
  695.   <GROUP> !From: ram, !To: ram    { SAVE always; REJECT };
  696. --- 100,106 ----
  697.   <GROUP> !To !From: ram    { SAVE never };
  698.   <GROUP> To !From: !ram    { SAVE never };
  699.   <GROUP> !To !From: ram,
  700. !     !Subject !To: ram        { SAVE never };
  701.   <GROUP> !To: root, ram        { SAVE never };
  702.   <GROUP> !F.*: /compiler/    { SAVE never };
  703.   <GROUP> !From: ram, !To: ram    { SAVE always; REJECT };
  704. ***************
  705. *** 107,113 ****
  706.   <GROUP> From !Cc !To: /compiler/,
  707.       From !Cc !To: ram,
  708.       !From To Cc: /eiffel/,
  709. !     !From To Cc: !/ice/            { SAVE always.3 };
  710.   
  711.   # filter/case
  712.   X-Tag: case, Cc: root    { STRIP Cc; SAVE always };
  713. --- 110,119 ----
  714.   <GROUP> From !Cc !To: /compiler/,
  715.       From !Cc !To: ram,
  716.       !From To Cc: /eiffel/,
  717. !     !From To Cc: !/ice/            { SAVE always.3; REJECT };
  718. ! <GROUP> !To !Cc: guy_3            { SAVE never.2 };
  719. ! <GROUP> !To Cc: guy_3            { SAVE always.4; REJECT };
  720. ! <GROUP> !To: unknown, !Subject !From: ram    { SAVE always.5 };
  721.   
  722.   # filter/case
  723.   X-Tag: case, Cc: root    { STRIP Cc; SAVE always };
  724.  
  725. Index: agent/pl/rfc822.pl
  726. Prereq: 3.0
  727. *** agent/pl/rfc822.pl.old    Mon Apr 25 17:26:50 1994
  728. --- agent/pl/rfc822.pl    Mon Apr 25 17:26:50 1994
  729. ***************
  730. *** 1,4 ****
  731. ! ;# $Id: rfc822.pl,v 3.0 1993/11/29 13:49:13 ram Exp $
  732.   ;#
  733.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  734.   ;#  
  735. --- 1,4 ----
  736. ! ;# $Id: rfc822.pl,v 3.0.1.1 1994/04/25 15:22:39 ram Exp $
  737.   ;#
  738.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  739.   ;#  
  740. ***************
  741. *** 9,14 ****
  742. --- 9,18 ----
  743.   ;#  of the source tree for mailagent 3.0.
  744.   ;#
  745.   ;# $Log: rfc822.pl,v $
  746. + ;# Revision 3.0.1.1  1994/04/25  15:22:39  ram
  747. + ;# patch7: now also understands @domain:user@other addresses
  748. + ;# patch7: more accurate for group name parsing
  749. + ;#
  750.   ;# Revision 3.0  1993/11/29  13:49:13  ram
  751.   ;# Baseline for mailagent 3.0 netwide release.
  752.   ;#
  753. ***************
  754. *** 55,65 ****
  755.   
  756.   # Parses an internet address and returns the login name of the sender. When
  757.   # facing an RFC 822 group addressing (like To: group:;), it returns the group
  758. ! # name.
  759.   sub login_name {
  760.       local($_) = shift(@_);                # The internet address
  761. !     if (/^(\S+):;/) {                    # rfc-822-group:;
  762. !         &last_name($1);
  763.       } elsif (s/^"(\S+)"@\S+/$1/) {        # "user@domain"@other
  764.           &login_name($_);                # parse user@domain
  765.       } elsif (s/^(\S+)@\S+/$1/) {        # user@domain.name
  766. --- 59,75 ----
  767.   
  768.   # Parses an internet address and returns the login name of the sender. When
  769.   # facing an RFC 822 group addressing (like To: group:;), it returns the group
  770. ! # name when mailbox is not specified.
  771.   sub login_name {
  772.       local($_) = shift(@_);                # The internet address
  773. !     if (/^(\S+):(\S*);/) {                # rfc-822-group:mailbox;
  774. !         if ($2 eq '') {
  775. !             &last_name($1);                # empty mailbox name, use phrase
  776. !         } else {
  777. !             &login_name($2);            # mailbox name
  778. !         }
  779. !     } elsif (s/^@\S+://) {                # @domain:user@other
  780. !         &login_name($_);                # parse user@other
  781.       } elsif (s/^"(\S+)"@\S+/$1/) {        # "user@domain"@other
  782.           &login_name($_);                # parse user@domain
  783.       } elsif (s/^(\S+)@\S+/$1/) {        # user@domain.name
  784.  
  785. Index: agent/pl/matching.pl
  786. Prereq: 3.0
  787. *** agent/pl/matching.pl.old    Mon Apr 25 17:26:48 1994
  788. --- agent/pl/matching.pl    Mon Apr 25 17:26:48 1994
  789. ***************
  790. *** 1,4 ****
  791. ! ;# $Id: matching.pl,v 3.0 1993/11/29 13:49:00 ram Exp $
  792.   ;#
  793.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  794.   ;#  
  795. --- 1,4 ----
  796. ! ;# $Id: matching.pl,v 3.0.1.1 1994/04/25 15:17:49 ram Exp $
  797.   ;#
  798.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  799.   ;#  
  800. ***************
  801. *** 9,14 ****
  802. --- 9,17 ----
  803.   ;#  of the source tree for mailagent 3.0.
  804.   ;#
  805.   ;# $Log: matching.pl,v $
  806. + ;# Revision 3.0.1.1  1994/04/25  15:17:49  ram
  807. + ;# patch7: fixed selector combination logic and added some debug logs
  808. + ;#
  809.   ;# Revision 3.0  1993/11/29  13:49:00  ram
  810.   ;# Baseline for mailagent 3.0 netwide release.
  811.   ;#
  812. ***************
  813. *** 143,157 ****
  814.                   $match = &selector_match($select, $pattern, $range);
  815.               }
  816.               if ($not) {                                # Negated test
  817. !                 $invert = !$match if $invert;
  818. !                 $inverted = $invert if !$match;        # '!' tests AND'ed
  819.               } else {
  820.                   $matched = $match;                    # Normal tests OR'ed
  821.               }
  822.               last if $matched;        # Stop when matching status known
  823.           }
  824.       }
  825. !     $matched || $inverted;            # Return matching status
  826.   }
  827.   
  828.   # Attempt a pattern match on a set of selectors, and set the special macro %&
  829. --- 146,166 ----
  830.                   $match = &selector_match($select, $pattern, $range);
  831.               }
  832.               if ($not) {                                # Negated test
  833. !                 $invert = !$match if $invert;        # '!' tests AND'ed
  834. !                 $inverted = $invert;                # Meaningful from now on
  835.               } else {
  836.                   $matched = $match;                    # Normal tests OR'ed
  837.               }
  838.               last if $matched;        # Stop when matching status known
  839.           }
  840.       }
  841. !     $matched = $matched || $inverted;
  842. !     if ($loglvl > 19) {
  843. !         local($logmsg) = "applied '$pattern' on '$selector' ($range) was ";
  844. !         $logmsg .= $matched ? "true" : "false";
  845. !         &add_log($logmsg);
  846. !     }
  847. !     $matched;                        # Return matching status
  848.   }
  849.   
  850.   # Attempt a pattern match on a set of selectors, and set the special macro %&
  851.  
  852. Index: agent/mailpatch.SH
  853. Prereq: 3.0
  854. *** agent/mailpatch.SH.old    Mon Apr 25 17:26:41 1994
  855. --- agent/mailpatch.SH    Mon Apr 25 17:26:41 1994
  856. ***************
  857. *** 20,26 ****
  858.       eval "exec perl -S \$0 \$*"
  859.           if \$running_under_some_shell;
  860.   
  861. ! # $Id: mailpatch.SH,v 3.0 1993/11/29 13:48:25 ram Exp $
  862.   #
  863.   #  Copyright (c) 1990-1993, Raphael Manfredi
  864.   #  
  865. --- 20,26 ----
  866.       eval "exec perl -S \$0 \$*"
  867.           if \$running_under_some_shell;
  868.   
  869. ! # $Id: mailpatch.SH,v 3.0.1.1 1994/04/25 15:12:06 ram Exp $
  870.   #
  871.   #  Copyright (c) 1990-1993, Raphael Manfredi
  872.   #  
  873. ***************
  874. *** 31,36 ****
  875. --- 31,39 ----
  876.   #  of the source tree for mailagent 3.0.
  877.   #
  878.   # $Log: mailpatch.SH,v $
  879. + # Revision 3.0.1.1  1994/04/25  15:12:06  ram
  880. + # patch7: removed incorrect sanity check for zcat (void when portable)
  881. + #
  882.   # Revision 3.0  1993/11/29  13:48:25  ram
  883.   # Baseline for mailagent 3.0 netwide release.
  884.   #
  885. ***************
  886. *** 261,274 ****
  887.           $append = $cat;
  888.           $extent = '';
  889.       } elsif (-f "$patchfile.Z") {    # Compressed patch
  890. !         if ($zcat ne 'zcat') {        # Zcat found by Configure
  891. !             $append = $zcat;
  892. !             $extent = '.Z';
  893. !         } else {
  894. !             &add_log("ERROR no zcat to uncompress patch #$num ($system)")
  895. !                 if $loglvl > 1;
  896. !             next;
  897. !         }
  898.       } else {
  899.           &add_log("ERROR no patch #$num ($system)") if $loglvl > 1;
  900.           next;
  901. --- 264,271 ----
  902.           $append = $cat;
  903.           $extent = '';
  904.       } elsif (-f "$patchfile.Z") {    # Compressed patch
  905. !         $append = $zcat;
  906. !         $extent = '.Z';
  907.       } else {
  908.           &add_log("ERROR no patch #$num ($system)") if $loglvl > 1;
  909.           next;
  910. ***************
  911. *** 289,294 ****
  912. --- 286,298 ----
  913.   ";
  914.       close TMP;
  915.       system "$append <$patchfile$extent >>$tmp/$patchfile";
  916. +     if ($? && $loglvl > 1) {
  917. +         &add_log("ERROR can't uncompress patch #$num ($system)")
  918. +             if $append eq $zcat;
  919. +         &add_log("ERROR can't copy patch #$num ($system)")
  920. +             if $append eq $cat;
  921. +         next;
  922. +     }
  923.       &add_log("copied file $patchfile into $tmp") if $loglvl > 17;
  924.   }
  925.   
  926.  
  927. Index: agent/pl/parse.pl
  928. Prereq: 3.0
  929. *** agent/pl/parse.pl.old    Mon Apr 25 17:26:48 1994
  930. --- agent/pl/parse.pl    Mon Apr 25 17:26:48 1994
  931. ***************
  932. *** 1,4 ****
  933. ! ;# $Id: parse.pl,v 3.0 1993/11/29 13:49:05 ram Exp $
  934.   ;#
  935.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  936.   ;#  
  937. --- 1,4 ----
  938. ! ;# $Id: parse.pl,v 3.0.1.1 1994/04/25 15:18:14 ram Exp $
  939.   ;#
  940.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  941.   ;#  
  942. ***************
  943. *** 9,14 ****
  944. --- 9,17 ----
  945.   ;#  of the source tree for mailagent 3.0.
  946.   ;#
  947.   ;# $Log: parse.pl,v $
  948. + ;# Revision 3.0.1.1  1994/04/25  15:18:14  ram
  949. + ;# patch7: global fix for From line escapes to make them configurable
  950. + ;#
  951.   ;# Revision 3.0  1993/11/29  13:49:05  ram
  952.   ;# Baseline for mailagent 3.0 netwide release.
  953.   ;#
  954. ***************
  955. *** 89,95 ****
  956.               last if $head_only;        # Stop parsing if only header wanted
  957.               $lines++;                                # One more line in body
  958.               $length += length($_);                    # Update length of message
  959. !             s/^From(\s)/>From$1/ if $last_was_nl;    # Escape From keyword
  960.               $last_was_nl = /^$/;                    # Keep track of single '\n'
  961.               $Header{'Body'} .= $_;
  962.               chop;
  963. --- 92,99 ----
  964.               last if $head_only;        # Stop parsing if only header wanted
  965.               $lines++;                                # One more line in body
  966.               $length += length($_);                    # Update length of message
  967. !             # Protect potentially dangerous lines when asked to do so
  968. !             s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  969.               $last_was_nl = /^$/;                    # Keep track of single '\n'
  970.               $Header{'Body'} .= $_;
  971.               chop;
  972.  
  973. Index: agent/pl/read_conf.pl
  974. Prereq: 3.0
  975. *** agent/pl/read_conf.pl.old    Mon Apr 25 17:26:49 1994
  976. --- agent/pl/read_conf.pl    Mon Apr 25 17:26:49 1994
  977. ***************
  978. *** 1,4 ****
  979. ! ;# $Id: read_conf.pl,v 3.0 1993/11/29 13:49:12 ram Exp $
  980.   ;#
  981.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  982.   ;#  
  983. --- 1,4 ----
  984. ! ;# $Id: read_conf.pl,v 3.0.1.1 1994/04/25 15:21:34 ram Exp $
  985.   ;#
  986.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  987.   ;#  
  988. ***************
  989. *** 9,14 ****
  990. --- 9,17 ----
  991.   ;#  of the source tree for mailagent 3.0.
  992.   ;#
  993.   ;# $Log: read_conf.pl,v $
  994. + ;# Revision 3.0.1.1  1994/04/25  15:21:34  ram
  995. + ;# patch7: made sure new variable 'fromesc' has a meaningful default
  996. + ;#
  997.   ;# Revision 3.0  1993/11/29  13:49:12  ram
  998.   ;# Baseline for mailagent 3.0 netwide release.
  999.   ;#
  1000. ***************
  1001. *** 104,109 ****
  1002. --- 107,115 ----
  1003.       $sendmail = $'mailer if $sendmail eq '';    # No sendmail program specified
  1004.       $sendnews = $'inews if $sendnews eq '';        # No news posting program
  1005.       $mailopt = '-odq' if $mailopt eq '' && $sendmail =~ /sendmail/;
  1006. + 
  1007. +     # Backward compatibility -- RAM, 25/04/94
  1008. +     $fromesc = 'ON' unless defined $fromesc;    # If absent from ~/.mailagent
  1009.   
  1010.       # Update @INC perlib search path with the perlib variable. Paths not
  1011.       # starting by a '/' are supposed to be under the mailagent private lib
  1012.  
  1013. Index: agent/files/chkagent.sh
  1014. Prereq: 3.0
  1015. *** agent/files/chkagent.sh.old    Mon Apr 25 17:26:40 1994
  1016. --- agent/files/chkagent.sh    Mon Apr 25 17:26:40 1994
  1017. ***************
  1018. *** 1,6 ****
  1019.   #!/bin/sh
  1020.   #
  1021. ! # $Id: chkagent.sh,v 3.0 1993/11/29 13:47:49 ram Exp $
  1022.   #
  1023.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1024.   #  
  1025. --- 1,6 ----
  1026.   #!/bin/sh
  1027.   #
  1028. ! # $Id: chkagent.sh,v 3.0.1.1 1994/04/25 15:10:32 ram Exp $
  1029.   #
  1030.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1031.   #  
  1032. ***************
  1033. *** 11,22 ****
  1034.   #  of the source tree for mailagent 3.0.
  1035.   #
  1036.   # $Log: chkagent.sh,v $
  1037.   # Revision 3.0  1993/11/29  13:47:49  ram
  1038.   # Baseline for mailagent 3.0 netwide release.
  1039.   #
  1040.   
  1041.   # Make sure the mailagent is working well
  1042. ! lookat='ERROR|FAILED|WARNING|FATAL|DUMPED'
  1043.   
  1044.   trap "rm -f $report $output $todaylog $msg" 1 2 3 15
  1045.   
  1046. --- 11,25 ----
  1047.   #  of the source tree for mailagent 3.0.
  1048.   #
  1049.   # $Log: chkagent.sh,v $
  1050. + # Revision 3.0.1.1  1994/04/25  15:10:32  ram
  1051. + # patch7: also extract system error messages from logfile
  1052. + #
  1053.   # Revision 3.0  1993/11/29  13:47:49  ram
  1054.   # Baseline for mailagent 3.0 netwide release.
  1055.   #
  1056.   
  1057.   # Make sure the mailagent is working well
  1058. ! lookat='ERROR|FAILED|WARNING|FATAL|DUMPED|SYSERR'
  1059.   
  1060.   trap "rm -f $report $output $todaylog $msg" 1 2 3 15
  1061.   
  1062.  
  1063. Index: agent/files/mailagent.cf
  1064. Prereq: 3.0
  1065. *** agent/files/mailagent.cf.old    Mon Apr 25 17:26:40 1994
  1066. --- agent/files/mailagent.cf    Mon Apr 25 17:26:40 1994
  1067. ***************
  1068. *** 2,8 ****
  1069.   # Configuration file for mailagent
  1070.   #
  1071.   
  1072. ! # $Id: mailagent.cf,v 3.0 1993/11/29 13:48:02 ram Exp $
  1073.   #
  1074.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1075.   #  
  1076. --- 2,8 ----
  1077.   # Configuration file for mailagent
  1078.   #
  1079.   
  1080. ! # $Id: mailagent.cf,v 3.0.1.1 1994/04/25 15:11:03 ram Exp $
  1081.   #
  1082.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1083.   #  
  1084. ***************
  1085. *** 13,18 ****
  1086. --- 13,21 ----
  1087.   #  of the source tree for mailagent 3.0.
  1088.   #
  1089.   # $Log: mailagent.cf,v $
  1090. + # Revision 3.0.1.1  1994/04/25  15:11:03  ram
  1091. + # patch7: added new 'fromesc' config variable for From line escapes
  1092. + #
  1093.   # Revision 3.0  1993/11/29  13:48:02  ram
  1094.   # Baseline for mailagent 3.0 netwide release.
  1095.   #
  1096. ***************
  1097. *** 76,81 ****
  1098. --- 79,85 ----
  1099.   mailbox  : $user                # Mailbox file name (optional)
  1100.   mmdf     : OFF                    # Allow MMDF-style mailbox delivery
  1101.   mmdfbox  : OFF                    # Force new folders to MMDF format
  1102. + fromesc  : ON                    # Escape leading From into >From
  1103.   
  1104.   # MH-style folders
  1105.   mhprofile: ~/.mh_profile        # Name of the MH profile file (optional)
  1106.  
  1107. Index: agent/test/basic/config.t
  1108. Prereq: 3.0
  1109. *** agent/test/basic/config.t.old    Mon Apr 25 17:26:52 1994
  1110. --- agent/test/basic/config.t    Mon Apr 25 17:26:52 1994
  1111. ***************
  1112. *** 1,6 ****
  1113.   # This MUST be the first test ever run
  1114.   
  1115. ! # $Id: config.t,v 3.0 1993/11/29 13:49:23 ram Exp $
  1116.   #
  1117.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1118.   #  
  1119. --- 1,6 ----
  1120.   # This MUST be the first test ever run
  1121.   
  1122. ! # $Id: config.t,v 3.0.1.1 1994/04/25 15:24:33 ram Exp $
  1123.   #
  1124.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1125.   #  
  1126. ***************
  1127. *** 11,16 ****
  1128. --- 11,19 ----
  1129.   #  of the source tree for mailagent 3.0.
  1130.   #
  1131.   # $Log: config.t,v $
  1132. + # Revision 3.0.1.1  1994/04/25  15:24:33  ram
  1133. + # patch7: added commented 'fromesc' new variable
  1134. + #
  1135.   # Revision 3.0  1993/11/29  13:49:23  ram
  1136.   # Baseline for mailagent 3.0 netwide release.
  1137.   #
  1138. ***************
  1139. *** 49,54 ****
  1140. --- 52,58 ----
  1141.   rulecache: ~/.cache
  1142.   maildrop : $pwd            # Do not LEAVE messages in /usr/spool/mail
  1143.   mailbox  : \$user        # Use config variable, not current perl $user
  1144. + #fromesc  : ON            # Backward compatibility -- should be ON when absent
  1145.   hash     : dbr
  1146.   cleanlaps: 1M
  1147.   autoclean: OFF
  1148.  
  1149. Index: misc/unkit/unkit.pl
  1150. Prereq: 3.0
  1151. *** misc/unkit/unkit.pl.old    Mon Apr 25 17:26:55 1994
  1152. --- misc/unkit/unkit.pl    Mon Apr 25 17:26:56 1994
  1153. ***************
  1154. *** 1,4 ****
  1155. ! # $Id: unkit.pl,v 3.0 1993/11/29 13:50:34 ram Exp $
  1156.   #
  1157.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1158.   #  
  1159. --- 1,4 ----
  1160. ! # $Id: unkit.pl,v 3.0.1.1 1994/04/25 15:26:37 ram Exp $
  1161.   #
  1162.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1163.   #  
  1164. ***************
  1165. *** 9,14 ****
  1166. --- 9,17 ----
  1167.   #  of the source tree for mailagent 3.0.
  1168.   #
  1169.   # $Log: unkit.pl,v $
  1170. + # Revision 3.0.1.1  1994/04/25  15:26:37  ram
  1171. + # patch7: make sure unkit directory is not hidden by leading dot
  1172. + #
  1173.   # Revision 3.0  1993/11/29  13:50:34  ram
  1174.   # Baseline for mailagent 3.0 netwide release.
  1175.   #
  1176. ***************
  1177. *** 93,98 ****
  1178. --- 96,102 ----
  1179.       $name =~ s/\s+/./g;        # Escape all other spaces
  1180.       $name =~ s|/$||g;        # Remove trailing /
  1181.       $name =~ s|/|_|g;        # And transform all others into _
  1182. +     $name =~ s/^\.+//;        # Avoid hidden directories
  1183.       $name = substr($name, 0, 14) if length($name) > 14;
  1184.   
  1185.       $kitdir .= "/$name";    # Directory where unkit will proceed
  1186.  
  1187. Index: agent/test/actions
  1188. Prereq: 3.0.1.3
  1189. *** agent/test/actions.old    Mon Apr 25 17:26:51 1994
  1190. --- agent/test/actions    Mon Apr 25 17:26:51 1994
  1191. ***************
  1192. *** 2,8 ****
  1193.   # Mailagent rules for action regression tests
  1194.   #
  1195.   
  1196. ! # $Id: actions,v 3.0.1.3 1994/01/26 09:35:08 ram Exp $
  1197.   #
  1198.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1199.   #  
  1200. --- 2,8 ----
  1201.   # Mailagent rules for action regression tests
  1202.   #
  1203.   
  1204. ! # $Id: actions,v 3.0.1.4 1994/04/25 15:24:12 ram Exp $
  1205.   #
  1206.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1207.   #  
  1208. ***************
  1209. *** 13,18 ****
  1210. --- 13,21 ----
  1211.   #  of the source tree for mailagent 3.0.
  1212.   #
  1213.   # $Log: actions,v $
  1214. + # Revision 3.0.1.4  1994/04/25  15:24:12  ram
  1215. + # patch7: check bug reported by Andy Seaborne <afs@hplb.hpl.hp.com>
  1216. + #
  1217.   # Revision 3.0.1.3  1994/01/26  09:35:08  ram
  1218.   # patch5: added new tests for UNIQUE and RECORD tags
  1219.   # patch5: ensure header-added recipients looked for in messages
  1220. ***************
  1221. *** 148,153 ****
  1222. --- 151,157 ----
  1223.   X-Tag: /pass/
  1224.   {
  1225.       PASS grep -v and;
  1226. +     PASS perl -p -e 's/^\>From /From /';
  1227.       SAVE output;
  1228.   }
  1229.   
  1230.  
  1231. Index: Credits
  1232. *** Credits.old    Mon Apr 25 17:26:39 1994
  1233. --- Credits    Mon Apr 25 17:26:39 1994
  1234. ***************
  1235. *** 139,145 ****
  1236.       rsmith@proteus.arc.nasa.gov
  1237.       s090@brems.ii.uib.no
  1238.       sondeen@ISI.EDU
  1239. -     wschmidt@iao.fhg.de
  1240.   
  1241.   If I forgot your name, please let me know, and accept my apologies -- not
  1242.   necessarily in that order ;-).
  1243. --- 139,144 ----
  1244.  
  1245. *** End of Patch 7 ***
  1246.  
  1247. exit 0 # Just in case...
  1248.