home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume41 / mailagent / patch06 < prev    next >
Encoding:
Text File  |  1994-01-31  |  29.2 KB  |  981 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v41i125:  mailagent - Flexible mail filtering and processing package, v3.0, Patch06
  4. Message-ID: <1994Feb1.065417.15086@sparky.sterling.com>
  5. X-Md4-Signature: 51bd12485543b3bdc520e524b44c158a
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Tue, 1 Feb 1994 06:54:17 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 41, Issue 125
  13. Archive-name: mailagent/patch06
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #6.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 6
  21. Priority: LOW
  22. Subject: patch #5, continued
  23. Date: Wed Jan 26 10:46:48 MET 1994
  24. From: Raphael Manfredi <ram@acri.fr>
  25.  
  26. Description:
  27.     See patch #5.
  28.  
  29.  
  30. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  31.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  32.     If you don't have the patch program, apply the following by hand,
  33.     or get patch (version 2.0, latest patchlevel).
  34.  
  35.     After patching:
  36.         Configure -ders
  37.         make depend
  38.         make
  39.         make install
  40.         make install.man
  41.  
  42.     If patch indicates that patchlevel is the wrong version, you may need
  43.     to apply one or more previous patches, or the patch may already
  44.     have been applied.  See the patchlevel.h file to find out what has or
  45.     has not been applied.  In any event, don't continue with the patch.
  46.  
  47.     If you are missing previous patches they can be obtained from me:
  48.  
  49.         Raphael Manfredi <ram@acri.fr>
  50.  
  51.     If you send a mail message of the following form it will greatly speed
  52.     processing:
  53.  
  54.         Subject: Command
  55.         @SH mailpatch PATH mailagent 3.0 LIST
  56.                ^ note the c
  57.  
  58.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  59.     or in bang notation from some well-known host, and LIST is the number
  60.     of one or more patches you need, separated by spaces, commas, and/or
  61.     hyphens.  Saying 35- says everything from 35 to the end.
  62.  
  63.     To get some more detailed instructions, send me the following mail:
  64.  
  65.         Subject: Command
  66.         @SH mailhelp PATH
  67.  
  68.  
  69. Index: patchlevel.h
  70. Prereq: 5
  71. 4c4
  72. < #define PATCHLEVEL 5
  73. ---
  74. > #define PATCHLEVEL 6
  75.  
  76. Index: agent/pl/actions.pl
  77. Prereq: 3.0
  78. *** agent/pl/actions.pl.old    Wed Jan 26 10:36:42 1994
  79. --- agent/pl/actions.pl    Wed Jan 26 10:36:42 1994
  80. ***************
  81. *** 1,4 ****
  82. ! ;# $Id: actions.pl,v 3.0 1993/11/29 13:48:33 ram Exp $
  83.   ;#
  84.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  85.   ;#  
  86. --- 1,4 ----
  87. ! ;# $Id: actions.pl,v 3.0.1.1 1994/01/26 09:30:03 ram Exp $
  88.   ;#
  89.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  90.   ;#  
  91. ***************
  92. *** 9,14 ****
  93. --- 9,17 ----
  94.   ;#  of the source tree for mailagent 3.0.
  95.   ;#
  96.   ;# $Log: actions.pl,v $
  97. + ;# Revision 3.0.1.1  1994/01/26  09:30:03  ram
  98. + ;# patch5: restored ability to use Cc: and Bcc: in message files
  99. + ;#
  100.   ;# Revision 3.0  1993/11/29  13:48:33  ram
  101.   ;# Baseline for mailagent 3.0 netwide release.
  102.   ;#
  103. ***************
  104. *** 394,404 ****
  105.           &add_log("ERROR cannot open message $msg") if $loglvl > 0;
  106.           return 1;
  107.       }
  108. -     unless (open(MAILER,"|$cf'sendmail $cf'mailopt $recipients")) {
  109. -         &add_log("ERROR cannot run $cf'sendmail to send message: $!")
  110. -             if $loglvl;
  111. -         return 1;
  112. -     }
  113.   
  114.       # Construction of value for the %T macro
  115.       local($macro_T);            # Default value of macro %T is overwritten
  116. --- 397,402 ----
  117. ***************
  118. *** 420,439 ****
  119.       # overwritten with the one found in the file.
  120.       if (&header_found($msg)) {    # Top of message is a header
  121.           local(@newhead);        # New header is constructed here
  122.           local($field);
  123.           while (<MSG>) {            # Read the header then
  124.               last if /^$/;        # End of header
  125.               chop;
  126.               push(@newhead, $_);
  127. !             if (/^([\w\-]+):/) {
  128.                   $field = $1;
  129.                   @head = grep(!/^$field:/, @head);    # Field is overwritten
  130.               }
  131.           }
  132.           foreach (@newhead) {
  133.               push(@head, $_);
  134.           }
  135.       }
  136.       push(@head, $FILTER);        # Avoid loops: replying to ourselves or whatever
  137.       foreach $line (@head) {
  138.           ¯os_subst(*line);    # In-place macro substitutions
  139. --- 418,478 ----
  140.       # overwritten with the one found in the file.
  141.       if (&header_found($msg)) {    # Top of message is a header
  142.           local(@newhead);        # New header is constructed here
  143. +         local($cc) = '';        # Carbon copy recipients
  144. +         local($collect) = 0;    # True when collecting recipients
  145.           local($field);
  146. +         local($_);
  147.           while (<MSG>) {            # Read the header then
  148.               last if /^$/;        # End of header
  149.               chop;
  150.               push(@newhead, $_);
  151. !             if (/^([\w\-]+):(.*)/) {
  152.                   $field = $1;
  153. +                 $_ = $2;
  154.                   @head = grep(!/^$field:/, @head);    # Field is overwritten
  155. + 
  156. +                 # The following used to be done directly by sendmail -t.
  157. +                 # However, mailagent does not make use of that option any
  158. +                 # longer since $cf'sendmail might not be sendmail and the
  159. +                 # mailer used might therefore not understand this -t option.
  160. + 
  161. +                 $collect = ($field =~ /^b?cc$/i);
  162. +                 $cc .= ¯os_subst(*_) if $collect;
  163. +             } else {
  164. +                 $cc .= ¯os_subst(*_) if $collect;    # Continuation lines
  165.               }
  166.           }
  167.           foreach (@newhead) {
  168.               push(@head, $_);
  169.           }
  170. + 
  171. +         # Now update the recipient line by parsing $cc and extracting the
  172. +         # e-mail addresses, discarding the comments. Note that this code
  173. +         # will fail if ',' is used in address comments.
  174. + 
  175. +         local(@addr) = split(/,/, $cc);
  176. +         foreach $addr (@addr) {
  177. +             $recipients .= ' ' . (&parse_address($addr))[0];
  178. +         }
  179.       }
  180. + 
  181. +     # Remove duplicate e-mail addresses in the recipient list. Again,
  182. +     # mailagent used to rely on sendmail to do this, but we can't assume
  183. +     # any user-defined mailer will do it.
  184. +     local(%seen);
  185. +     foreach $addr (split(' ', $recipients)) {
  186. +         $seen{$addr}++;
  187. +     }
  188. +     $recipients = join(' ', sort keys %seen);
  189. +     undef %seen;
  190. + 
  191. +     unless (open(MAILER,"|$cf'sendmail $cf'mailopt $recipients")) {
  192. +         &add_log("ERROR cannot run $cf'sendmail to send message: $!")
  193. +             if $loglvl;
  194. +         close MSG;
  195. +         return 1;
  196. +     }
  197. + 
  198.       push(@head, $FILTER);        # Avoid loops: replying to ourselves or whatever
  199.       foreach $line (@head) {
  200.           ¯os_subst(*line);    # In-place macro substitutions
  201.  
  202. Index: agent/pl/history.pl
  203. Prereq: 3.0
  204. *** agent/pl/history.pl.old    Wed Jan 26 10:36:45 1994
  205. --- agent/pl/history.pl    Wed Jan 26 10:36:45 1994
  206. ***************
  207. *** 1,4 ****
  208. ! ;# $Id: history.pl,v 3.0 1993/11/29 13:48:50 ram Exp $
  209.   ;#
  210.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  211.   ;#  
  212. --- 1,4 ----
  213. ! ;# $Id: history.pl,v 3.0.1.1 1994/01/26 09:32:54 ram Exp $
  214.   ;#
  215.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  216.   ;#  
  217. ***************
  218. *** 9,14 ****
  219. --- 9,17 ----
  220.   ;#  of the source tree for mailagent 3.0.
  221.   ;#
  222.   ;# $Log: history.pl,v $
  223. + ;# Revision 3.0.1.1  1994/01/26  09:32:54  ram
  224. + ;# patch5: history can now handle distinct tags on messages
  225. + ;#
  226.   ;# Revision 3.0  1993/11/29  13:48:50  ram
  227.   ;# Baseline for mailagent 3.0 netwide release.
  228.   ;#
  229. ***************
  230. *** 20,26 ****
  231.   # Record the message ID of the current message and return 0 if the
  232.   # message was recorded for the first time or if there is no valid message ID.
  233.   # Return 1 if the message was already recorded, and hence was already seen.
  234. ! sub history_record {
  235.       local($msg_id) = $Header{'Message-Id'};        # Message-ID header
  236.   
  237.       # If there is no message ID, use the concatenation of date + from fields.
  238. --- 23,32 ----
  239.   # Record the message ID of the current message and return 0 if the
  240.   # message was recorded for the first time or if there is no valid message ID.
  241.   # Return 1 if the message was already recorded, and hence was already seen.
  242. ! # If tags are provided (string list of words, separated by commas), then
  243. ! # information is only fetched/recorded for those tags.
  244. ! sub history_tag {
  245. !     local($tags) = @_;
  246.       local($msg_id) = $Header{'Message-Id'};        # Message-ID header
  247.   
  248.       # If there is no message ID, use the concatenation of date + from fields.
  249. ***************
  250. *** 48,60 ****
  251.           return 0;                    # Cannot record message if invalid ID
  252.       }
  253.   
  254. !     local($time, $line) = &dbr'info($host, 'HISTORY', $stamp);
  255. !     return 0 if $time == -1;                # An error occurred
  256. !     if ($time > 0) {                        # Message already recorded
  257. !         &add_log("history duplicate <$msg_id>") if $loglvl > 6;
  258. !         return 1;
  259.       }
  260. !     &dbr'update($host, 'HISTORY', 0, $stamp);    # Record message (appending)
  261. !     0;            # First time ever seen
  262.   }
  263.   
  264. --- 54,95 ----
  265.           return 0;                    # Cannot record message if invalid ID
  266.       }
  267.   
  268. !     # Compute a tag array. If no tag given, insert a null tag so that we
  269. !     # enter the loop below anyway.
  270. ! 
  271. !     $tags =~ s/\s+//g;
  272. !     local(@tags) = split(/,+/, $tags);
  273. !     push(@tags, '') unless @tags;
  274. ! 
  275. !     # Now loop for each tag given. We record the message ID stamp followed
  276. !     # by a tab, then the tag between <>. If no tag is given, we look for any
  277. !     # occurence.
  278. ! 
  279. !     local($time, $line);            # Time stamp, line number of DBR entry
  280. !     local(@regexp);                    # DBR regular expression lookup
  281. !     local($seen) = 0;                # Assume new instance
  282. !     
  283. !     foreach $tag (@tags) {
  284. !         @regexp = ($stamp);
  285. !         push(@regexp, "<$tag>") if $tag ne '';
  286. !         ($time, $line) = &dbr'info($host, 'HISTORY', @regexp);
  287. !         if ($time == -1) {            # An error occurred
  288. !             &add_log("ERROR while dbr-looking for '@regexp'") if $loglvl > 1;
  289. !             next;
  290. !         }
  291. !         if ($time > 0) {            # Message already recorded
  292. !             local($tagmsg) = $tag eq '' ? '' : " ($tag)";
  293. !             &add_log("history duplicate <$msg_id>" . $tagmsg) if $loglvl > 6;
  294. !             $seen++;
  295. !         } else {                    # Record message (appending)
  296. !             &dbr'update($host, 'HISTORY', 0, @regexp);
  297. !         }
  298.       }
  299. !     return $seen;                    # Return seen status
  300. ! }
  301. ! 
  302. ! # Obsolete -- will be removed in next release
  303. ! sub history_record {
  304. !     &history_tag();
  305.   }
  306.   
  307.  
  308. Index: agent/test/actions
  309. Prereq: 3.0.1.2
  310. *** agent/test/actions.old    Wed Jan 26 10:36:45 1994
  311. --- agent/test/actions    Wed Jan 26 10:36:46 1994
  312. ***************
  313. *** 2,8 ****
  314.   # Mailagent rules for action regression tests
  315.   #
  316.   
  317. ! # $Id: actions,v 3.0.1.2 1993/12/17 08:13:20 ram Exp $
  318.   #
  319.   #  Copyright (c) 1990-1993, Raphael Manfredi
  320.   #  
  321. --- 2,8 ----
  322.   # Mailagent rules for action regression tests
  323.   #
  324.   
  325. ! # $Id: actions,v 3.0.1.3 1994/01/26 09:35:08 ram Exp $
  326.   #
  327.   #  Copyright (c) 1990-1993, Raphael Manfredi
  328.   #  
  329. ***************
  330. *** 13,18 ****
  331. --- 13,22 ----
  332.   #  of the source tree for mailagent 3.0.
  333.   #
  334.   # $Log: actions,v $
  335. + # Revision 3.0.1.3  1994/01/26  09:35:08  ram
  336. + # patch5: added new tests for UNIQUE and RECORD tags
  337. + # patch5: ensure header-added recipients looked for in messages
  338. + #
  339.   # Revision 3.0.1.2  1993/12/17  08:13:20  ram
  340.   # patch4: one spurious single quote still remained after patch3
  341.   #
  342. ***************
  343. *** 111,117 ****
  344.   }
  345.   X-Tag: /keep/, To: ram        { SAVE no_resync };
  346.   
  347. ! X-Tag: /message/            { MESSAGE msg; DELETE };
  348.   
  349.   X-Tag: /macro/
  350.   {
  351. --- 115,122 ----
  352.   }
  353.   X-Tag: /keep/, To: ram        { SAVE no_resync };
  354.   
  355. ! X-Tag: /message 1/            { MESSAGE msg; DELETE };
  356. ! X-Tag: /message 2/            { MESSAGE msg.2; DELETE };
  357.   
  358.   X-Tag: /macro/
  359.   {
  360. ***************
  361. *** 130,135 ****
  362. --- 135,141 ----
  363.   
  364.   X-Tag: /notify 1/            { NOTIFY msg nobody; DELETE };
  365.   X-Tag: /notify 2/            { NOTIFY msg "list"; DELETE };
  366. + X-Tag: /notify 3/            { NOTIFY msg.2 some@random.ctry %u; DELETE };
  367.   
  368.   X-Tag: /once/
  369.   {
  370. ***************
  371. *** 172,177 ****
  372. --- 178,190 ----
  373.   X-Tag: /record #3/                { RECORD -a; SAVE %u.1 };
  374.   X-Tag: /record #4/                { RECORD -c; REJECT -f RECORD; SAVE %u.1 };
  375.   <RECORD> X-Tag: /record #4/        { SAVE %u.2 };
  376. + <RECORD_CATCH> X-Tag: /record/    { DELETE };
  377. + X-Tag: /record #5/                { RECORD (tag1,tag2); SAVE %u.1; REJECT };
  378. + X-Tag: /record #5/                { RECORD INITIAL (tag2); SAVE %u.2; REJECT };
  379. + X-Tag: /record #5/                { RECORD -r RECORD_CATCH; SAVE %u.3 };
  380. + X-Tag: /record #6/                { RECORD (tag); SAVE %u.1; REJECT };
  381. + X-Tag: /record #6/                { RECORD (other); SAVE %u.2; REJECT };
  382. + X-Tag: /record #6/                { RECORD -r RECORD_CATCH; SAVE %u.3 };
  383.   
  384.   X-Tag: /require/        { REJECT REQUIRE; };
  385.   <REQUIRE>                { REQUIRE non_existent; REJECT -f; SAVE never };
  386. ***************
  387. *** 272,277 ****
  388. --- 285,296 ----
  389.   X-Tag: /unique #3/                { UNIQUE -a; SAVE %u.1 };
  390.   X-Tag: /unique #4/                { UNIQUE -c; REJECT -f UNIQUE; SAVE %u.1 };
  391.   <UNIQUE> X-Tag: /unique #4/        { SAVE %u.2 };
  392. + X-Tag: /unique #5/            { UNIQUE -a (tag1,tag2); SAVE %u.1; REJECT };
  393. + X-Tag: /unique #5/            { UNIQUE (tag2); REJECT -f; SAVE %u.2; REJECT };
  394. + X-Tag: /unique #5/            { UNIQUE -a; SAVE %u.3 };
  395. + X-Tag: /unique #6/            { UNIQUE (tag); REJECT -f; SAVE %u.1; REJECT };
  396. + X-Tag: /unique #6/            { UNIQUE (other); REJECT -f; SAVE %u.2; REJECT };
  397. + X-Tag: /unique #6/            { UNIQUE -a; SAVE %u.3 };
  398.   
  399.   X-Tag: /write #1/    { WRITE mbox };
  400.   X-Tag: /write #2/    { WRITE path/another/third/mbox };
  401.  
  402. Index: agent/test/cmd/message.t
  403. Prereq: 3.0
  404. *** agent/test/cmd/message.t.old    Wed Jan 26 10:36:46 1994
  405. --- agent/test/cmd/message.t    Wed Jan 26 10:36:46 1994
  406. ***************
  407. *** 1,6 ****
  408.   # Test MESSAGE command
  409.   
  410. ! # $Id: message.t,v 3.0 1993/11/29 13:49:34 ram Exp $
  411.   #
  412.   #  Copyright (c) 1990-1993, Raphael Manfredi
  413.   #  
  414. --- 1,6 ----
  415.   # Test MESSAGE command
  416.   
  417. ! # $Id: message.t,v 3.0.1.1 1994/01/26 09:35:22 ram Exp $
  418.   #
  419.   #  Copyright (c) 1990-1993, Raphael Manfredi
  420.   #  
  421. ***************
  422. *** 11,16 ****
  423. --- 11,19 ----
  424.   #  of the source tree for mailagent 3.0.
  425.   #
  426.   # $Log: message.t,v $
  427. + # Revision 3.0.1.1  1994/01/26  09:35:22  ram
  428. + # patch5: ensure header-added recipients looked for in messages
  429. + #
  430.   # Revision 3.0  1993/11/29  13:49:34  ram
  431.   # Baseline for mailagent 3.0 netwide release.
  432.   #
  433. ***************
  434. *** 21,41 ****
  435.   open(MSG, '>msg') || print "1\n";
  436.   print MSG <<EOM;
  437.   Organization: Public Domain Software, Earth, Milkway.
  438.   
  439.   Sent by %n.
  440.   EOM
  441.   close MSG;
  442.   
  443. ! &add_header('X-Tag: message');
  444.   `$cmd`;
  445.   $? == 0 || print "2\n";
  446.   -f "$user" && print "3\n";        # Mail not saved
  447.   &get_log(4, 'send.mail');
  448. ! &check_log('^$', 5) == 1 || print "6\n";
  449.   &check_log('^Subject: Re: melting', 7) == 1 || print "8\n";
  450.   &check_log('^Recipients: compilers-request@iecc', 9) == 1 || print "10\n";
  451.   &check_log('^Sent by compilers-request.$', 11) == 1 || print "12\n";
  452.   
  453.   &clear_mta;
  454. ! unlink 'mail', 'msg';
  455.   print "0\n";
  456. --- 24,68 ----
  457.   open(MSG, '>msg') || print "1\n";
  458.   print MSG <<EOM;
  459.   Organization: Public Domain Software, Earth, Milkway.
  460. + Above line was not a header, since no space before this line.
  461.   
  462.   Sent by %n.
  463.   EOM
  464.   close MSG;
  465.   
  466. ! open(MSG, '>msg.2') || print "13\n";
  467. ! print MSG <<EOM;
  468. ! Cc: some@random.ctry, %u
  469. ! Organization: Public Domain Software, Earth, Milkway.
  470. ! 
  471. ! Body of message.
  472. ! EOM
  473. ! close MSG;
  474. ! 
  475. ! &add_header('X-Tag: message 1');
  476.   `$cmd`;
  477.   $? == 0 || print "2\n";
  478.   -f "$user" && print "3\n";        # Mail not saved
  479.   &get_log(4, 'send.mail');
  480. ! &check_log('^$', 5) == 2 || print "6\n";
  481.   &check_log('^Subject: Re: melting', 7) == 1 || print "8\n";
  482.   &check_log('^Recipients: compilers-request@iecc', 9) == 1 || print "10\n";
  483.   &check_log('^Sent by compilers-request.$', 11) == 1 || print "12\n";
  484. + unlink 'send.mail', $user;
  485.   
  486. + &replace_header('X-Tag: message 2');
  487. + `$cmd`;
  488. + $? == 0 || print "14\n";
  489. + -f "$user" && print "15\n";        # Mail not saved
  490. + &get_log(16, 'send.mail');
  491. + &check_log('^$', 17) == 1 || print "18\n";
  492. + &check_log('^Subject: Re: melting', 19) == 1 || print "20\n";
  493. + $recipients = join(' ', sort split(' ',
  494. +     "compilers-request@iecc.cambridge.ma.us some@random.ctry $user"));
  495. + &check_log("^Recipients: $recipients", 21) == 1 || print "22\n";
  496. + &check_log("^Cc: some@random.ctry, $user", 23) == 1 || print "24\n";
  497. + 
  498.   &clear_mta;
  499. ! unlink 'mail', 'msg', 'msg.2', $user;
  500. ! # Last is 24
  501.   print "0\n";
  502.  
  503. Index: agent/magent.SH
  504. Prereq: 3.0
  505. *** agent/magent.SH.old    Wed Jan 26 10:36:37 1994
  506. --- agent/magent.SH    Wed Jan 26 10:36:37 1994
  507. ***************
  508. *** 24,30 ****
  509.   # via the filter. Mine looks like this:
  510.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  511.   
  512. ! # $Id: magent.SH,v 3.0 1993/11/29 13:48:22 ram Exp $
  513.   #
  514.   #  Copyright (c) 1990-1993, Raphael Manfredi
  515.   #  
  516. --- 24,30 ----
  517.   # via the filter. Mine looks like this:
  518.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  519.   
  520. ! # $Id: magent.SH,v 3.0.1.1 1994/01/26 09:27:56 ram Exp $
  521.   #
  522.   #  Copyright (c) 1990-1993, Raphael Manfredi
  523.   #  
  524. ***************
  525. *** 35,40 ****
  526. --- 35,43 ----
  527.   #  of the source tree for mailagent 3.0.
  528.   #
  529.   # $Log: magent.SH,v $
  530. + # Revision 3.0.1.1  1994/01/26  09:27:56  ram
  531. + # patch5: new -F option to force procesing on filtered messages
  532. + #
  533.   # Revision 3.0  1993/11/29  13:48:22  ram
  534.   # Baseline for mailagent 3.0 netwide release.
  535.   #
  536. ***************
  537. *** 158,163 ****
  538. --- 161,169 ----
  539.       elsif ($_ eq '-t') {    # Track rule matches on stdout
  540.           ++$track_all;
  541.       }
  542. +     elsif ($_ eq '-F') {    # Force processing, even if already seen
  543. +         ++$force_seen;
  544. +     }
  545.       elsif ($_ eq '-L') {    # Specify new logging level
  546.           $log_level = int(shift);
  547.       }
  548. ***************
  549. *** 319,330 ****
  550.   # Print usage and exit
  551.   sub usage {
  552.       print STDERR <<EOF;
  553. ! Usage: $prog_name [-dhilqtV] [-s{umary}] [-f file] [-e rules] [-c config]
  554.          [-L level] [-r file] [-o def] [mailfile]
  555.     -c : specify alternate configuration file.
  556.     -d : dump filter rules (special).
  557.     -e : enter rules to be applied.
  558.     -f : get messages from UNIX-style mailbox file.
  559.     -h : print this help message and exits.
  560.     -i : interactive usage -- print log messages on stderr.
  561.     -l : list message queue (special).
  562. --- 325,337 ----
  563.   # Print usage and exit
  564.   sub usage {
  565.       print STDERR <<EOF;
  566. ! Usage: $prog_name [-dFhilqtV] [-s{umary}] [-f file] [-e rules] [-c config]
  567.          [-L level] [-r file] [-o def] [mailfile]
  568.     -c : specify alternate configuration file.
  569.     -d : dump filter rules (special).
  570.     -e : enter rules to be applied.
  571.     -f : get messages from UNIX-style mailbox file.
  572. +   -F : force processing on already filtered messages.
  573.     -h : print this help message and exits.
  574.     -i : interactive usage -- print log messages on stderr.
  575.     -l : list message queue (special).
  576.  
  577. Index: agent/test/cmd/notify.t
  578. Prereq: 3.0
  579. *** agent/test/cmd/notify.t.old    Wed Jan 26 10:36:47 1994
  580. --- agent/test/cmd/notify.t    Wed Jan 26 10:36:47 1994
  581. ***************
  582. *** 1,6 ****
  583.   # Test NOTIFY command
  584.   
  585. ! # $Id: notify.t,v 3.0 1993/11/29 13:49:36 ram Exp $
  586.   #
  587.   #  Copyright (c) 1990-1993, Raphael Manfredi
  588.   #  
  589. --- 1,6 ----
  590.   # Test NOTIFY command
  591.   
  592. ! # $Id: notify.t,v 3.0.1.1 1994/01/26 09:35:34 ram Exp $
  593.   #
  594.   #  Copyright (c) 1990-1993, Raphael Manfredi
  595.   #  
  596. ***************
  597. *** 11,16 ****
  598. --- 11,19 ----
  599.   #  of the source tree for mailagent 3.0.
  600.   #
  601.   # $Log: notify.t,v $
  602. + # Revision 3.0.1.1  1994/01/26  09:35:34  ram
  603. + # patch5: ensure header-added recipients looked for in messages
  604. + #
  605.   # Revision 3.0  1993/11/29  13:49:36  ram
  606.   # Baseline for mailagent 3.0 netwide release.
  607.   #
  608. ***************
  609. *** 26,31 ****
  610. --- 29,43 ----
  611.   EOM
  612.   close MSG;
  613.   
  614. + open(MSG, '>msg.2') || print "21\n";
  615. + print MSG <<EOM;
  616. + Cc: someone@random, %u
  617. + Organization: Public Domain Software, Earth, Milkway.
  618. + 
  619. + Message body.
  620. + EOM
  621. + close MSG;
  622. + 
  623.   &add_header('X-Tag: notify 1');
  624.   `$cmd`;
  625.   $? == 0 || print "2\n";
  626. ***************
  627. *** 53,59 ****
  628.   &get_log(16, 'send.mail');
  629.   &check_log('^To: first, second, third$', 17) == 1 || print "18\n";
  630.   &check_log('^Recipients: first second third$', 19) == 1 || print "20\n";
  631.   
  632.   &clear_mta;
  633. ! unlink 'mail', 'list', 'msg';
  634.   print "0\n";
  635. --- 65,85 ----
  636.   &get_log(16, 'send.mail');
  637.   &check_log('^To: first, second, third$', 17) == 1 || print "18\n";
  638.   &check_log('^Recipients: first second third$', 19) == 1 || print "20\n";
  639. + unlink 'send.mail', $user;
  640.   
  641. + &replace_header('X-Tag: notify 3');
  642. + `$cmd`;
  643. + $? == 0 || print "22\n";
  644. + -f "$user" && print "23\n";        # Mail not saved
  645. + &get_log(24, 'send.mail');
  646. + &check_log('^$', 25) == 1 || print "26\n";
  647. + &check_log('^Subject: Re: melting', 27) == 1 || print "28\n";
  648. + $recipients = join(' ', sort split(' ',
  649. +     "someone@random some@random.ctry $user"));
  650. + &check_log("^Recipients: $recipients", 29) == 1 || print "30\n";
  651. + &check_log("^Cc: someone@random, $user", 31) == 1 || print "32\n";
  652. + 
  653.   &clear_mta;
  654. ! unlink 'mail', 'list', 'msg', 'msg.2', $user;
  655. ! # Last is 32
  656.   print "0\n";
  657.  
  658. Index: agent/test/cmd/record.t
  659. Prereq: 3.0
  660. *** agent/test/cmd/record.t.old    Wed Jan 26 10:36:47 1994
  661. --- agent/test/cmd/record.t    Wed Jan 26 10:36:47 1994
  662. ***************
  663. *** 1,6 ****
  664.   # The RECORD command
  665.   
  666. ! # $Id: record.t,v 3.0 1993/11/29 13:49:42 ram Exp $
  667.   #
  668.   #  Copyright (c) 1990-1993, Raphael Manfredi
  669.   #  
  670. --- 1,6 ----
  671.   # The RECORD command
  672.   
  673. ! # $Id: record.t,v 3.0.1.1 1994/01/26 09:35:57 ram Exp $
  674.   #
  675.   #  Copyright (c) 1990-1993, Raphael Manfredi
  676.   #  
  677. ***************
  678. *** 11,16 ****
  679. --- 11,19 ----
  680.   #  of the source tree for mailagent 3.0.
  681.   #
  682.   # $Log: record.t,v $
  683. + # Revision 3.0.1.1  1994/01/26  09:35:57  ram
  684. + # patch5: added tests for tag support
  685. + #
  686.   # Revision 3.0  1993/11/29  13:49:42  ram
  687.   # Baseline for mailagent 3.0 netwide release.
  688.   #
  689. ***************
  690. *** 55,60 ****
  691. --- 58,88 ----
  692.   -f "$user.1" && print "16\n";    # We rejected
  693.   -f "$user.2" || print "17\n";    # Must be there (saved in mode RECORD)
  694.   -f "$user" && print "18\n";
  695. + unlink "$user.1", "$user.2", $user;
  696. + 
  697. + &replace_header('X-Tag: record #5');
  698. + `$cmd`;
  699. + $? == 0 || print "19\n";
  700. + -f "$user.1" || print "20\n";    # First time with both tags tag1 and tag2
  701. + -f "$user.2" && print "21\n";    # Can't be there (tag2 already recorded)
  702. + -f "$user.3" && print "22\n";    # Can't be there (already recorded previously)
  703. + -f "$user" && print "23\n";
  704. + &get_log(24, 'dbr/i/e');
  705. + &check_log('<tag2>$', 25) == 1 || print "26\n";
  706. + &check_log('<tag1>$', 27) == 1 || print "28\n";
  707. + &check_log('cambridge', 29) == 3 || print "30\n";
  708. + unlink "$user.1", "$user.2", "$user.3", $user;
  709. + 
  710. + &replace_header('X-Tag: record #6');
  711. + `rm -rf dbr` if -d 'dbr';
  712. + `$cmd`;
  713. + $? == 0 || print "31\n";
  714. + -f "$user.1" || print "32\n";    # First time with tag 'tag'
  715. + -f "$user.2" || print "33\n";    # Tag 'other' distinct from 'tag'
  716. + -f "$user.3" && print "34\n";    # Sorry, already recorded
  717. + -f "$user" && print "35\n";
  718. + &get_log(36, 'dbr/i/e');
  719. + &check_log('cambridge', 37) == 2 || print "38\n";
  720.   
  721.   `rm -rf dbr` if -d 'dbr';
  722.   unlink "$user", "$user.1", "$user.2", "$user.3", 'mail';
  723.  
  724. Index: agent/test/cmd/unique.t
  725. Prereq: 3.0
  726. *** agent/test/cmd/unique.t.old    Wed Jan 26 10:36:48 1994
  727. --- agent/test/cmd/unique.t    Wed Jan 26 10:36:48 1994
  728. ***************
  729. *** 1,6 ****
  730.   # The UNIQUE command
  731.   
  732. ! # $Id: unique.t,v 3.0 1993/11/29 13:49:53 ram Exp $
  733.   #
  734.   #  Copyright (c) 1990-1993, Raphael Manfredi
  735.   #  
  736. --- 1,6 ----
  737.   # The UNIQUE command
  738.   
  739. ! # $Id: unique.t,v 3.0.1.1 1994/01/26 09:36:02 ram Exp $
  740.   #
  741.   #  Copyright (c) 1990-1993, Raphael Manfredi
  742.   #  
  743. ***************
  744. *** 11,16 ****
  745. --- 11,19 ----
  746.   #  of the source tree for mailagent 3.0.
  747.   #
  748.   # $Log: unique.t,v $
  749. + # Revision 3.0.1.1  1994/01/26  09:36:02  ram
  750. + # patch5: added tests for tag support
  751. + #
  752.   # Revision 3.0  1993/11/29  13:49:53  ram
  753.   # Baseline for mailagent 3.0 netwide release.
  754.   #
  755. ***************
  756. *** 55,60 ****
  757. --- 58,88 ----
  758.   -f "$user.1" && print "16\n";    # We rejected
  759.   -f "$user.2" || print "17\n";    # Must be there (saved in mode UNIQUE)
  760.   -f "$user" && print "18\n";
  761. + unlink "$user.1", "$user.2", $user;
  762. + 
  763. + &replace_header('X-Tag: unique #5');
  764. + `$cmd`;
  765. + $? == 0 || print "19\n";
  766. + -f "$user.1" || print "20\n";    # First time with both tags tag1 and tag2
  767. + -f "$user.2" && print "21\n";    # Can't be there (tag2 already recorded)
  768. + -f "$user.3" && print "22\n";    # Can't be there (already recorded previously)
  769. + -f "$user" && print "23\n";
  770. + &get_log(24, 'dbr/i/e');
  771. + &check_log('<tag2>$', 25) == 1 || print "26\n";
  772. + &check_log('<tag1>$', 27) == 1 || print "28\n";
  773. + &check_log('cambridge', 29) == 3 || print "30\n";
  774. + unlink "$user.1", "$user.2", "$user.3", $user;
  775. + 
  776. + &replace_header('X-Tag: unique #6');
  777. + `rm -rf dbr` if -d 'dbr';
  778. + `$cmd`;
  779. + $? == 0 || print "31\n";
  780. + -f "$user.1" || print "32\n";    # First time with tag 'tag'
  781. + -f "$user.2" || print "33\n";    # Tag 'other' distinct from 'tag'
  782. + -f "$user.3" && print "34\n";    # Sorry, already recorded
  783. + -f "$user" && print "35\n";
  784. + &get_log(36, 'dbr/i/e');
  785. + &check_log('cambridge', 37) == 2 || print "38\n";
  786.   
  787.   `rm -rf dbr` if -d 'dbr';
  788.   unlink "$user", "$user.1", "$user.2", "$user.3", 'mail';
  789.  
  790. Index: agent/test/option/F.t
  791. *** agent/test/option/F.t.old    Wed Jan 26 10:36:49 1994
  792. --- agent/test/option/F.t    Wed Jan 26 10:36:49 1994
  793. ***************
  794. *** 0 ****
  795. --- 1,48 ----
  796. + # -F : force processing on seen mail
  797. + 
  798. + # $Id: F.t,v 3.0.1.1 1994/01/26 09:36:08 ram Exp $
  799. + #
  800. + #  Copyright (c) 1990-1993, Raphael Manfredi
  801. + #  
  802. + #  You may redistribute only under the terms of the Artistic License,
  803. + #  as specified in the README file that comes with the distribution.
  804. + #  You may reuse parts of this distribution only within the terms of
  805. + #  that same Artistic License; a copy of which may be found at the root
  806. + #  of the source tree for mailagent 3.0.
  807. + #
  808. + # $Log: F.t,v $
  809. + # Revision 3.0.1.1  1994/01/26  09:36:08  ram
  810. + # patch5: created
  811. + #
  812. + 
  813. + do '../pl/init.pl';
  814. + do '../pl/logfile.pl';
  815. + chdir '../out';
  816. + $user = $ENV{'USER'};    # Don't want to include ../pl/filter.pl
  817. + unlink 'folder', 'again', $user;
  818. + 
  819. + system "$mailagent -e '{SAVE ~/folder}' -f ../mail >/dev/null 2>&1";
  820. + $? == 0 || print "1\n";
  821. + -f $user && print "2\n";
  822. + ($old_size = -s 'folder') || print "3\n";
  823. + &get_log(4, 'folder');
  824. + &check_log('^X-Filter:', 5) == 1 || print "6\n";
  825. + 
  826. + system "$mailagent -e '{SAVE ~/folder}' -f ./folder >/dev/null 2>&1";
  827. + $? == 0 || print "7\n";
  828. + -f $user || print "8\n";
  829. + ($old_size == -s 'folder') || print "9\n";
  830. + ($old_size == -s $user) || print "10\n";
  831. + &get_log(11, $user);
  832. + &check_log('^X-Filter:', 12) == 1 || print "13\n";
  833. + 
  834. + # Now here comes the -F check, now that we know everything works fine
  835. + unlink $user;
  836. + system "$mailagent -F -e '{SAVE ~/again}' -f ./folder >/dev/null 2>&1";
  837. + $? == 0 || print "14\n";
  838. + -f $user && print "15\n";
  839. + -s 'again' || print "16\n";
  840. + &get_log(17, 'again');
  841. + &check_log('^X-Filter:', 18) == 1 || print "19\n";
  842. + 
  843. + print "0\n";
  844.  
  845. Index: agent/pl/analyze.pl
  846. Prereq: 3.0
  847. *** agent/pl/analyze.pl.old    Wed Jan 26 10:36:43 1994
  848. --- agent/pl/analyze.pl    Wed Jan 26 10:36:43 1994
  849. ***************
  850. *** 1,4 ****
  851. ! ;# $Id: analyze.pl,v 3.0 1993/11/29 13:48:35 ram Exp $
  852.   ;#
  853.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  854.   ;#  
  855. --- 1,4 ----
  856. ! ;# $Id: analyze.pl,v 3.0.1.1 1994/01/26 09:30:23 ram Exp $
  857.   ;#
  858.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  859.   ;#  
  860. ***************
  861. *** 9,14 ****
  862. --- 9,17 ----
  863.   ;#  of the source tree for mailagent 3.0.
  864.   ;#
  865.   ;# $Log: analyze.pl,v $
  866. + ;# Revision 3.0.1.1  1994/01/26  09:30:23  ram
  867. + ;# patch5: now understands new -F option to force processing
  868. + ;#
  869.   ;# Revision 3.0  1993/11/29  13:48:35  ram
  870.   ;# Baseline for mailagent 3.0 netwide release.
  871.   ;#
  872. ***************
  873. *** 84,92 ****
  874.               }
  875.           }
  876.           if ($done) {            # We already processed that message
  877. !             &add_log("NOTICE already filtered, entering seen mode")
  878. !                 if $loglvl > 5;
  879. !             $mode = '_SEEN_';    # This is a special mode
  880.               $ever_seen = 1;        # This will prevent vacation messages
  881.               &s_seen;            # Update statistics
  882.           }
  883. --- 87,100 ----
  884.               }
  885.           }
  886.           if ($done) {            # We already processed that message
  887. !             if ($force_seen) {    # They used the -F option
  888. !                 &add_log("NOTICE already filtered, processing anyway")
  889. !                     if $loglvl > 5;
  890. !             } else {
  891. !                 &add_log("NOTICE already filtered, entering seen mode")
  892. !                     if $loglvl > 5;
  893. !                 $mode = '_SEEN_';    # This is a special mode
  894. !             }
  895.               $ever_seen = 1;        # This will prevent vacation messages
  896.               &s_seen;            # Update statistics
  897.           }
  898.  
  899. Index: agent/filter/parser.c
  900. Prereq: 3.0
  901. *** agent/filter/parser.c.old    Wed Jan 26 10:36:36 1994
  902. --- agent/filter/parser.c    Wed Jan 26 10:36:36 1994
  903. ***************
  904. *** 11,17 ****
  905.   */
  906.   
  907.   /*
  908. !  * $Id: parser.c,v 3.0 1993/11/29 13:48:18 ram Exp $
  909.    *
  910.    *  Copyright (c) 1990-1993, Raphael Manfredi
  911.    *  
  912. --- 11,17 ----
  913.   */
  914.   
  915.   /*
  916. !  * $Id: parser.c,v 3.0.1.1 1994/01/26 09:27:37 ram Exp $
  917.    *
  918.    *  Copyright (c) 1990-1993, Raphael Manfredi
  919.    *  
  920. ***************
  921. *** 22,27 ****
  922. --- 22,30 ----
  923.    *  of the source tree for mailagent 3.0.
  924.    *
  925.    * $Log: parser.c,v $
  926. +  * Revision 3.0.1.1  1994/01/26  09:27:37  ram
  927. +  * patch5: typo fix in a comment
  928. +  *
  929.    * Revision 3.0  1993/11/29  13:48:18  ram
  930.    * Baseline for mailagent 3.0 netwide release.
  931.    *
  932. ***************
  933. *** 189,195 ****
  934.   private void check_perm(file)
  935.   char *file;
  936.   {
  937. !     /* Check basic permissions on the specified file. If cannot be world
  938.        * writable and must be owned by the user. If the file specified does not
  939.        * exist, no error is reported however.
  940.        */
  941. --- 192,198 ----
  942.   private void check_perm(file)
  943.   char *file;
  944.   {
  945. !     /* Check basic permissions on the specified file. It cannot be world
  946.        * writable and must be owned by the user. If the file specified does not
  947.        * exist, no error is reported however.
  948.        */
  949.  
  950. Index: MANIFEST
  951. *** MANIFEST.old    Wed Jan 26 10:36:50 1994
  952. --- MANIFEST    Wed Jan 26 10:36:50 1994
  953. ***************
  954. *** 228,233 ****
  955. --- 228,234 ----
  956.   agent/test/misc/newcmd.t       Filter command extension tests
  957.   agent/test/misc/usrmac.t       User-defined macros checks
  958.   agent/test/option/             Tests the options to the mailagent program
  959. + agent/test/option/F.t          Test -F option
  960.   agent/test/option/L.t          Test -L option
  961.   agent/test/option/V.t          Test -V option
  962.   agent/test/option/c.t          Test -c option
  963.  
  964. Index: Credits
  965. *** Credits.old    Wed Jan 26 10:36:34 1994
  966. --- Credits    Wed Jan 26 10:36:34 1994
  967. ***************
  968. *** 89,94 ****
  969. --- 89,95 ----
  970.       Jim McCoy <mccoy@ccwf.cc.utexas.edu>
  971.       John Plate <plate@infotek.dk>
  972.       Jost Krieger <x920031@rubb.rz.ruhr-uni-bochum.de>
  973. +     Harald Koch <chk@enfm.utcc.utoronto.ca>
  974.       Keith Pyle <keith@ibmoto.com>
  975.       Keith Rose <rose@ultryx.com>
  976.       Kent Landfield <kent@imd.sterling.com>
  977.  
  978. *** End of Patch 6 ***
  979.  
  980. exit 0 # Just in case...
  981.