home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume43 / mailagent / patch10 < prev    next >
Internet Message Format  |  1994-07-24  |  46KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v43i127:  mailagent - Flexible mail filtering and processing package, v3.0, Patch10
  4. Date: 24 Jul 1994 19:41:26 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <30v1nm$i4p@sparky.sterling.com>
  9. X-Md4-Signature: 8d110af6ec215184b4f7f975884744f1
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 43, Issue 127
  13. Archive-name: mailagent/patch10
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #11.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 10
  21. Priority: LOW
  22. Subject: patch #8, continued
  23. Date: Fri Jul 01 17:27:46 MET DST 1994
  24. From: Raphael Manfredi <ram@acri.fr>
  25.  
  26. Description:
  27.     See patch #8.
  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.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #11 FIRST ***
  37.  
  38.     If patch indicates that patchlevel is the wrong version, you may need
  39.     to apply one or more previous patches, or the patch may already
  40.     have been applied.  See the patchlevel.h file to find out what has or
  41.     has not been applied.  In any event, don't continue with the patch.
  42.  
  43.     If you are missing previous patches they can be obtained from me:
  44.  
  45.         Raphael Manfredi <ram@acri.fr>
  46.  
  47.     If you send a mail message of the following form it will greatly speed
  48.     processing:
  49.  
  50.         Subject: Command
  51.         @SH mailpatch PATH mailagent 3.0 LIST
  52.                ^ note the c
  53.  
  54.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  55.     or in bang notation from some well-known host, and LIST is the number
  56.     of one or more patches you need, separated by spaces, commas, and/or
  57.     hyphens.  Saying 35- says everything from 35 to the end.
  58.  
  59.     To get some more detailed instructions, send me the following mail:
  60.  
  61.         Subject: Command
  62.         @SH mailhelp PATH
  63.  
  64.  
  65. Index: patchlevel.h
  66. Prereq: 9
  67. 4c4
  68. < #define PATCHLEVEL 9
  69. ---
  70. > #define PATCHLEVEL 10
  71.  
  72. Index: agent/files/mailagent.cf
  73. Prereq: 3.0.1.1
  74. *** agent/files/mailagent.cf.old    Fri Jul  1 17:16:02 1994
  75. --- agent/files/mailagent.cf    Fri Jul  1 17:16:02 1994
  76. ***************
  77. *** 2,8 ****
  78.   # Configuration file for mailagent
  79.   #
  80.   
  81. ! # $Id: mailagent.cf,v 3.0.1.1 1994/04/25 15:11:03 ram Exp $
  82.   #
  83.   #  Copyright (c) 1990-1993, Raphael Manfredi
  84.   #  
  85. --- 2,8 ----
  86.   # Configuration file for mailagent
  87.   #
  88.   
  89. ! # $Id: mailagent.cf,v 3.0.1.2 1994/07/01 14:51:36 ram Exp $
  90.   #
  91.   #  Copyright (c) 1990-1993, Raphael Manfredi
  92.   #  
  93. ***************
  94. *** 13,18 ****
  95. --- 13,21 ----
  96.   #  of the source tree for mailagent 3.0.
  97.   #
  98.   # $Log: mailagent.cf,v $
  99. + # Revision 3.0.1.2  1994/07/01  14:51:36  ram
  100. + # patch8: eleven new config variables for better tuning
  101. + #
  102.   # Revision 3.0.1.1  1994/04/25  15:11:03  ram
  103.   # patch7: added new 'fromesc' config variable for From line escapes
  104.   #
  105. ***************
  106. *** 61,66 ****
  107. --- 64,70 ----
  108.   #
  109.   
  110.   # Define main configuration parameters
  111. + umask    : 077                    # Default umask
  112.   spool    : ~/var/mailagent        # Spool directory
  113.   queue    : $spool/queue            # Queue directory (must exist)
  114.   logdir   : ~/var/log            # Where logfile is stored
  115. ***************
  116. *** 80,94 ****
  117. --- 84,112 ----
  118.   mmdf     : OFF                    # Allow MMDF-style mailbox delivery
  119.   mmdfbox  : OFF                    # Force new folders to MMDF format
  120.   fromesc  : ON                    # Escape leading From into >From
  121. + fromall  : OFF                    # Escape all From, even within paragraph
  122.   
  123.   # MH-style folders
  124.   mhprofile: ~/.mh_profile        # Name of the MH profile file (optional)
  125.   msgprefix: .msg_prefix            # File containing message name prefix
  126.   
  127. + # Locking parameters
  128. + lockmax  : 20                    # Maximum number of locking attempts
  129. + lockdelay: 2                    # Amount of seconds between two lock attempts
  130. + lockhold : 3600                    # Amount of seconds before breaking lock
  131. + 
  132. + # Timeout parameters
  133. + queuewait: 60                    # Delay for filter before calling mailagent
  134. + queuehold: 1800                    # Amount of seconds queued mail remains skipped
  135. + queuelost: 86400                # Timeout before flagging old queued mail
  136. + runmax   : 3600                    # Timeout for RUN command and friends
  137. + 
  138.   # Optional parameters (for experts...)
  139.   #compress : ~/.compress            # Folder compression list
  140.   #newcmd   : $spool/newcmd        # Definition of new filtering commands
  141.   #perlib   : pl                    # Extended perl library search path
  142. + #tome     : also-me                # Alternate logins for me
  143. + #rulemac  : ON                    # Macro substitution in rule patterns
  144.   
  145.   # Database hashing directory (in $spool) and other controls
  146.   hash     : dbr                    # Hashing directory
  147.  
  148. Index: agent/pl/listqueue.pl
  149. Prereq: 3.0
  150. *** agent/pl/listqueue.pl.old    Fri Jul  1 17:16:19 1994
  151. --- agent/pl/listqueue.pl    Fri Jul  1 17:16:19 1994
  152. ***************
  153. *** 1,4 ****
  154. ! ;# $Id: listqueue.pl,v 3.0 1993/11/29 13:48:56 ram Exp $
  155.   ;#
  156.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  157.   ;#  
  158. --- 1,4 ----
  159. ! ;# $Id: listqueue.pl,v 3.0.1.1 1994/07/01 15:01:45 ram Exp $
  160.   ;#
  161.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  162.   ;#  
  163. ***************
  164. *** 9,14 ****
  165. --- 9,17 ----
  166.   ;#  of the source tree for mailagent 3.0.
  167.   ;#
  168.   ;# $Log: listqueue.pl,v $
  169. + ;# Revision 3.0.1.1  1994/07/01  15:01:45  ram
  170. + ;# patch8: now honours new queuehold and queuelost config variables
  171. + ;#
  172.   ;# Revision 3.0  1993/11/29  13:48:56  ram
  173.   ;# Baseline for mailagent 3.0 netwide release.
  174.   ;#
  175. ***************
  176. *** 112,121 ****
  177.           # is an emergency saving done by the filter.
  178.           $file =~ s/^mbox\.// && ($status = 'Backup');
  179.           $file =~ s/^$cf'user\.// && ($status = 'Backup');
  180. !         if ($file =~ /^qm/ && (time - $mtime) < 1800) {
  181.               # Queue mails starting with 'qm' have been queued by the filter
  182.               # program. To avoid race conditions, those mails are skipped for
  183. !             # half an hour (cf to pqueue subroutine).
  184.               $status = 'Skipped' unless $status;        # Filter queued mail
  185.           } else {
  186.               # Processing of mail allowed (mailagent -q would flush it)
  187. --- 115,124 ----
  188.           # is an emergency saving done by the filter.
  189.           $file =~ s/^mbox\.// && ($status = 'Backup');
  190.           $file =~ s/^$cf'user\.// && ($status = 'Backup');
  191. !         if ($file =~ /^qm/ && (time - $mtime) < $cf'queuehold) {
  192.               # Queue mails starting with 'qm' have been queued by the filter
  193.               # program. To avoid race conditions, those mails are skipped for
  194. !             # some time (cf to pqueue subroutine).
  195.               $status = 'Skipped' unless $status;        # Filter queued mail
  196.           } else {
  197.               # Processing of mail allowed (mailagent -q would flush it)
  198. ***************
  199. *** 127,133 ****
  200.           $queued = 'Now' if (time - $mtime) < 60;
  201.           $star = '';
  202.           $star = '*' if $directory ne $cf'queue;    # Spot out-of-queue mails
  203. !         if ((time - $mtime) > 86400) {            # Also spot old mails
  204.               $star = '#';
  205.               $star = '@' if $directory ne $cf'queue;
  206.           }
  207. --- 130,136 ----
  208.           $queued = 'Now' if (time - $mtime) < 60;
  209.           $star = '';
  210.           $star = '*' if $directory ne $cf'queue;    # Spot out-of-queue mails
  211. !         if ((time - $mtime) > $cf'queuelost) {    # Also spot old mails
  212.               $star = '#';
  213.               $star = '@' if $directory ne $cf'queue;
  214.           }
  215.  
  216. Index: agent/test/pl/cmd.pl
  217. Prereq: 3.0
  218. *** agent/test/pl/cmd.pl.old    Fri Jul  1 17:16:29 1994
  219. --- agent/test/pl/cmd.pl    Fri Jul  1 17:16:29 1994
  220. ***************
  221. *** 1,37 ****
  222.   # Common actions at the top of each command test
  223.   
  224. ! # $Id: cmd.pl,v 3.0 1993/11/29 13:50:22 ram Exp $
  225. ! #
  226. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  227. ! #  
  228. ! #  You may redistribute only under the terms of the Artistic License,
  229. ! #  as specified in the README file that comes with the distribution.
  230. ! #  You may reuse parts of this distribution only within the terms of
  231. ! #  that same Artistic License; a copy of which may be found at the root
  232. ! #  of the source tree for mailagent 3.0.
  233. ! #
  234. ! # $Log: cmd.pl,v $
  235.   ;# Revision 3.0  1993/11/29  13:50:22  ram
  236.   ;# Baseline for mailagent 3.0 netwide release.
  237.   ;#
  238.   
  239. ! do '../pl//init.pl';
  240.   chdir '../out';
  241.   do '../pl/mail.pl';
  242. ! &cp_mail;
  243.   $user = $ENV{'USER'};
  244.   unlink "$user", 'agentlog', 'send.mail', 'send.news';
  245.   $cmd = "$mailagent -L $ENV{'LEVEL'} -r ../actions mail 2>/dev/null";
  246.   
  247.   # We might need this
  248.   do '../pl/logfile.pl';
  249. - 
  250. - sub cp_mail {
  251. -     local($_);
  252. -     open(MAIL, '../mail');
  253. -     open(HERE, '>mail');
  254. -     print HERE while <MAIL>;
  255. -     close MAIL;
  256. -     close HERE;
  257. - }
  258.   
  259. --- 1,31 ----
  260.   # Common actions at the top of each command test
  261.   
  262. ! ;# $Id: cmd.pl,v 3.0.1.1 1994/07/01 15:09:44 ram Exp $
  263. ! ;#
  264. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  265. ! ;#  
  266. ! ;#  You may redistribute only under the terms of the Artistic License,
  267. ! ;#  as specified in the README file that comes with the distribution.
  268. ! ;#  You may reuse parts of this distribution only within the terms of
  269. ! ;#  that same Artistic License; a copy of which may be found at the root
  270. ! ;#  of the source tree for mailagent 3.0.
  271. ! ;#
  272. ! ;# $Log: cmd.pl,v $
  273. ! ;# Revision 3.0.1.1  1994/07/01  15:09:44  ram
  274. ! ;# patch8: the cp_mail routine is now located in mail.pl
  275. ! ;#
  276.   ;# Revision 3.0  1993/11/29  13:50:22  ram
  277.   ;# Baseline for mailagent 3.0 netwide release.
  278.   ;#
  279.   
  280. ! do '../pl/init.pl';
  281.   chdir '../out';
  282.   do '../pl/mail.pl';
  283. ! &cp_mail;                # From mail.pl
  284.   $user = $ENV{'USER'};
  285.   unlink "$user", 'agentlog', 'send.mail', 'send.news';
  286.   $cmd = "$mailagent -L $ENV{'LEVEL'} -r ../actions mail 2>/dev/null";
  287.   
  288.   # We might need this
  289.   do '../pl/logfile.pl';
  290.   
  291.  
  292. Index: agent/test/cmd/perl.t
  293. Prereq: 3.0
  294. *** agent/test/cmd/perl.t.old    Fri Jul  1 17:16:26 1994
  295. --- agent/test/cmd/perl.t    Fri Jul  1 17:16:27 1994
  296. ***************
  297. *** 1,6 ****
  298.   # Test PERL command
  299.   
  300. ! # $Id: perl.t,v 3.0 1993/11/29 13:49:38 ram Exp $
  301.   #
  302.   #  Copyright (c) 1990-1993, Raphael Manfredi
  303.   #  
  304. --- 1,6 ----
  305.   # Test PERL command
  306.   
  307. ! # $Id: perl.t,v 3.0.1.1 1994/07/01 15:08:05 ram Exp $
  308.   #
  309.   #  Copyright (c) 1990-1993, Raphael Manfredi
  310.   #  
  311. ***************
  312. *** 11,22 ****
  313.   #  of the source tree for mailagent 3.0.
  314.   #
  315.   # $Log: perl.t,v $
  316.   # Revision 3.0  1993/11/29  13:49:38  ram
  317.   # Baseline for mailagent 3.0 netwide release.
  318.   #
  319.   
  320.   do '../pl/cmd.pl';
  321. ! unlink 'perl.1', 'perl.2', 'never', 'always';
  322.   
  323.   open(PERL, ">perl.1") || print "1\n";
  324.   print PERL <<'EOP';
  325. --- 11,25 ----
  326.   #  of the source tree for mailagent 3.0.
  327.   #
  328.   # $Log: perl.t,v $
  329. + # Revision 3.0.1.1  1994/07/01  15:08:05  ram
  330. + # patch8: added test for correct exit status propagation
  331. + #
  332.   # Revision 3.0  1993/11/29  13:49:38  ram
  333.   # Baseline for mailagent 3.0 netwide release.
  334.   #
  335.   
  336.   do '../pl/cmd.pl';
  337. ! unlink 'perl.1', 'perl.2', 'never', 'always', 'exit_ok';
  338.   
  339.   open(PERL, ">perl.1") || print "1\n";
  340.   print PERL <<'EOP';
  341. ***************
  342. *** 29,35 ****
  343.   open(PERL, ">perl.2") || print "2\n";
  344.   print PERL <<'EOP';
  345.   unlink 'always' if -d '../out';
  346. ! &exit(0) if $ARGV[1] != 'arg 1' || $ARGV[2] != 'arg 2';
  347.   &perl('perl.1');        # Recursion
  348.   &save('never');
  349.   EOP
  350. --- 32,38 ----
  351.   open(PERL, ">perl.2") || print "2\n";
  352.   print PERL <<'EOP';
  353.   unlink 'always' if -d '../out';
  354. ! &exit(1) if $ARGV[1] ne 'arg 1' || $ARGV[2] ne 'arg 2';
  355.   &perl('perl.1');        # Recursion
  356.   &save('never');
  357.   EOP
  358. ***************
  359. *** 42,47 ****
  360.   -f 'never' && print "5\n";
  361.   &get_log(6, 'always');
  362.   &check_log('^To: ram', 7) == 2 || print "8\n";
  363.   
  364. ! unlink 'mail', 'perl.1', 'perl.2', 'never', 'always';
  365.   print "0\n";
  366. --- 45,51 ----
  367.   -f 'never' && print "5\n";
  368.   &get_log(6, 'always');
  369.   &check_log('^To: ram', 7) == 2 || print "8\n";
  370. + -f 'exit_ok' || print "9\n";
  371.   
  372. ! unlink 'mail', 'perl.1', 'perl.2', 'never', 'always', 'exit_ok';
  373.   print "0\n";
  374.  
  375. Index: agent/test/cmd/umask.t
  376. *** agent/test/cmd/umask.t.old    Fri Jul  1 17:16:27 1994
  377. --- agent/test/cmd/umask.t    Fri Jul  1 17:16:27 1994
  378. ***************
  379. *** 0 ****
  380. --- 1,64 ----
  381. + # Test UMASK command
  382. + 
  383. + # $Id: umask.t,v 3.0.1.1 1994/07/01 15:08:10 ram Exp $
  384. + #
  385. + #  Copyright (c) 1990-1993, Raphael Manfredi
  386. + #  
  387. + #  You may redistribute only under the terms of the Artistic License,
  388. + #  as specified in the README file that comes with the distribution.
  389. + #  You may reuse parts of this distribution only within the terms of
  390. + #  that same Artistic License; a copy of which may be found at the root
  391. + #  of the source tree for mailagent 3.0.
  392. + #
  393. + # $Log: umask.t,v $
  394. + # Revision 3.0.1.1  1994/07/01  15:08:10  ram
  395. + # patch8: created
  396. + #
  397. + 
  398. + do '../pl/misc.pl';        # Uses &add_option
  399. + 
  400. + sub cleanup {
  401. +     unlink $user, 'ok.1', 'ok.2', 'ok.3', 'never';
  402. + }
  403. + 
  404. + open(PERL, ">umask_is") || print "1\n";
  405. + print PERL <<'EOP';
  406. + $mode = $ARGV[1];
  407. + $mode = oct($mode) if $mode =~ /^0/;
  408. + $umask = umask;
  409. + &exit($mode == $umask ? 0 : 1);
  410. + EOP
  411. + close PERL;
  412. + 
  413. + &add_header('X-Tag: umask #1');
  414. + `$cmd`;
  415. + $? == 0 || print "2\n";
  416. + -f $user && print "3\n";
  417. + -f 'never' && print "4\n";
  418. + -f 'ok.1' || print "5\n";
  419. + -f 'ok.2' || print "6\n";
  420. + 
  421. + &cleanup;
  422. + &replace_header('X-Tag: umask #3');
  423. + system '(cat mail; echo " "; cat mail) > mail2 && mv mail2 mail';
  424. + print "7\n" if $?;
  425. + $cmd =~ s/\bmail\b/-f mail/;
  426. + &add_option("-o 'umask: 027'");
  427. + &replace_header('X-Tag: umask #2');
  428. + 
  429. + # At this point, we're going to process two messages in mail. The first
  430. + # one is tagged 'umask #2' and the second is tagged 'umask #3'. We wish
  431. + # to make sure that mailagent restores the default umask before processing
  432. + # a new message.
  433. + 
  434. + `$cmd`;
  435. + $? == 0 || print "8\n";
  436. + -f $user && print "9\n";
  437. + -f 'never' && print "10\n";
  438. + -f 'ok.1' || print "11\n";
  439. + -f 'ok.2' || print "12\n";
  440. + -f 'ok.3' || print "13\n";
  441. + 
  442. + &cleanup;
  443. + unlink 'umask_is';
  444. + print "0\n";
  445.  
  446. Index: agent/pl/makedir.pl
  447. Prereq: 3.0
  448. *** agent/pl/makedir.pl.old    Fri Jul  1 17:16:19 1994
  449. --- agent/pl/makedir.pl    Fri Jul  1 17:16:19 1994
  450. ***************
  451. *** 1,4 ****
  452. ! ;# $Id: makedir.pl,v 3.0 1993/11/29 13:48:59 ram Exp $
  453.   ;#
  454.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  455.   ;#  
  456. --- 1,4 ----
  457. ! ;# $Id: makedir.pl,v 3.0.1.1 1994/07/01 15:02:07 ram Exp $
  458.   ;#
  459.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  460.   ;#  
  461. ***************
  462. *** 9,26 ****
  463.   ;#  of the source tree for mailagent 3.0.
  464.   ;#
  465.   ;# $Log: makedir.pl,v $
  466.   ;# Revision 3.0  1993/11/29  13:48:59  ram
  467.   ;# Baseline for mailagent 3.0 netwide release.
  468.   ;#
  469.   ;# 
  470.   # Make directories for files
  471. ! # E.g, for /usr/lib/perl/foo, it will check for all the
  472. ! # directories /usr, /usr/lib, /usr/lib/perl and make
  473. ! # them if they do not exist.
  474.   sub makedir {
  475.       local($dir, $mode) = @_;    # directory name, mode (optional)
  476.       local($parent);
  477. !     $mode = 0700 unless defined $mode;
  478.       if (!-d $dir && $dir ne '') {
  479.           # Make parent dir first
  480.           &makedir($parent, $mode) if ($parent = $dir) =~ s|(.*)/.*|\1|;
  481. --- 9,30 ----
  482.   ;#  of the source tree for mailagent 3.0.
  483.   ;#
  484.   ;# $Log: makedir.pl,v $
  485. + ;# Revision 3.0.1.1  1994/07/01  15:02:07  ram
  486. + ;# patch8: default mode is now 0777, relies on umask for proper setting
  487. + ;#
  488.   ;# Revision 3.0  1993/11/29  13:48:59  ram
  489.   ;# Baseline for mailagent 3.0 netwide release.
  490.   ;#
  491.   ;# 
  492.   # Make directories for files
  493. ! # E.g, for /usr/lib/perl/foo, it will check for all the directories /usr,
  494. ! # /usr/lib, /usr/lib/perl and make them if they do not exist.
  495. ! # Note: default mode is now 0777 since we have an umask config parameter.
  496.   sub makedir {
  497.       local($dir, $mode) = @_;    # directory name, mode (optional)
  498.       local($parent);
  499. !     $mode = 0777 unless defined $mode;
  500. !     $dir =~ s|/$||;                # no trailing / or we'll try to make dir twice
  501.       if (!-d $dir && $dir ne '') {
  502.           # Make parent dir first
  503.           &makedir($parent, $mode) if ($parent = $dir) =~ s|(.*)/.*|\1|;
  504.  
  505. Index: agent/pl/runcmd.pl
  506. Prereq: 3.0
  507. *** agent/pl/runcmd.pl.old    Fri Jul  1 17:16:23 1994
  508. --- agent/pl/runcmd.pl    Fri Jul  1 17:16:23 1994
  509. ***************
  510. *** 1,4 ****
  511. ! ;# $Id: runcmd.pl,v 3.0 1993/11/29 13:49:15 ram Exp $
  512.   ;#
  513.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  514.   ;#  
  515. --- 1,4 ----
  516. ! ;# $Id: runcmd.pl,v 3.0.1.1 1994/07/01 15:04:58 ram Exp $
  517.   ;#
  518.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  519.   ;#  
  520. ***************
  521. *** 9,14 ****
  522. --- 9,17 ----
  523.   ;#  of the source tree for mailagent 3.0.
  524.   ;#
  525.   ;# $Log: runcmd.pl,v $
  526. + ;# Revision 3.0.1.1  1994/07/01  15:04:58  ram
  527. + ;# patch8: new UMASK command
  528. + ;#
  529.   ;# Revision 3.0  1993/11/29  13:49:15  ram
  530.   ;# Baseline for mailagent 3.0 netwide release.
  531.   ;#
  532. ***************
  533. *** 57,62 ****
  534. --- 60,66 ----
  535.   ;#  STRIP header(s)          Removes the lines from the message's header
  536.   ;#  SUBST var //             Apply a substitution on variable
  537.   ;#  TR var //                Apply a translation on variable
  538. + ;#  UMASK value              Set a new umask for the process
  539.   ;#  UNIQUE                   Delete message if already in history and REJECT
  540.   ;#  VACATION on/off          Allow/disallow vacation messages
  541.   ;#  WRITE folder             Writes mail in folder (replaces, does not append)
  542. ***************
  543. *** 199,204 ****
  544. --- 203,209 ----
  545.           'STRIP', 'run_strip',        # Strip some header lines
  546.           'SUBST', 'run_subst',        # Substitution on variable
  547.           'TR', 'run_tr',                # Translation on variable
  548. +         'UMASK', 'run_umask',        # Set new umask
  549.           'UNIQUE', 'run_unique',        # Delete message if already in history
  550.           'VACATION', 'run_vacation',    # Allow or forbid vacation messages
  551.           'WRITE', 'run_write',        # Write mail in folder
  552. ***************
  553. *** 231,236 ****
  554. --- 236,242 ----
  555.           'RESTART', 1,
  556.           'RESYNC', 1,
  557.           'STRIP', 1,
  558. +         'UMASK', 1,
  559.           'VACATION', 1,
  560.       );
  561.   }
  562.  
  563. Index: agent/pl/parse.pl
  564. Prereq: 3.0.1.1
  565. *** agent/pl/parse.pl.old    Fri Jul  1 17:16:21 1994
  566. --- agent/pl/parse.pl    Fri Jul  1 17:16:21 1994
  567. ***************
  568. *** 1,4 ****
  569. ! ;# $Id: parse.pl,v 3.0.1.1 1994/04/25 15:18:14 ram Exp $
  570.   ;#
  571.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  572.   ;#  
  573. --- 1,4 ----
  574. ! ;# $Id: parse.pl,v 3.0.1.2 1994/07/01 15:04:02 ram Exp $
  575.   ;#
  576.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  577.   ;#  
  578. ***************
  579. *** 9,14 ****
  580. --- 9,17 ----
  581.   ;#  of the source tree for mailagent 3.0.
  582.   ;#
  583.   ;# $Log: parse.pl,v $
  584. + ;# Revision 3.0.1.2  1994/07/01  15:04:02  ram
  585. + ;# patch8: now systematically escape leading From if fromall is ON
  586. + ;#
  587.   ;# Revision 3.0.1.1  1994/04/25  15:18:14  ram
  588.   ;# patch7: global fix for From line escapes to make them configurable
  589.   ;#
  590. ***************
  591. *** 93,100 ****
  592.               $lines++;                                # One more line in body
  593.               $length += length($_);                    # Update length of message
  594.               # Protect potentially dangerous lines when asked to do so
  595.               s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  596. !             $last_was_nl = /^$/;                    # Keep track of single '\n'
  597.               $Header{'Body'} .= $_;
  598.               chop;
  599.               # Deal with builtin commands
  600. --- 96,106 ----
  601.               $lines++;                                # One more line in body
  602.               $length += length($_);                    # Update length of message
  603.               # Protect potentially dangerous lines when asked to do so
  604. +             # From could normally be mis-interpreted only after a blank line,
  605. +             # but some "broken" User Agents also look for them everywhere...
  606. +             # That's where fromall must be set to ON to escape all of them.
  607.               s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  608. !             $last_was_nl = /^$/ || $cf'fromall =~ /on/i;
  609.               $Header{'Body'} .= $_;
  610.               chop;
  611.               # Deal with builtin commands
  612.  
  613. Index: agent/pl/checklock.pl
  614. Prereq: 3.0
  615. *** agent/pl/checklock.pl.old    Fri Jul  1 17:16:16 1994
  616. --- agent/pl/checklock.pl    Fri Jul  1 17:16:16 1994
  617. ***************
  618. *** 1,4 ****
  619. ! ;# $Id: checklock.pl,v 3.0 1993/11/29 13:48:36 ram Exp $
  620.   ;#
  621.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  622.   ;#  
  623. --- 1,4 ----
  624. ! ;# $Id: checklock.pl,v 3.0.1.1 1994/07/01 15:00:20 ram Exp $
  625.   ;#
  626.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  627.   ;#  
  628. ***************
  629. *** 9,14 ****
  630. --- 9,17 ----
  631.   ;#  of the source tree for mailagent 3.0.
  632.   ;#
  633.   ;# $Log: checklock.pl,v $
  634. + ;# Revision 3.0.1.1  1994/07/01  15:00:20  ram
  635. + ;# patch8: now honours new lockhold config variable for lock breaking
  636. + ;#
  637.   ;# Revision 3.0  1993/11/29  13:48:36  ram
  638.   ;# Baseline for mailagent 3.0 netwide release.
  639.   ;#
  640. ***************
  641. *** 23,33 ****
  642.           # There is a lock file -- look for how long it's been there
  643.           ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  644.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($lockfile);
  645. !         if ((time - $mtime) > 3600) {
  646. !             # More than one hour !! Something must have gone wrong
  647.               unlink $lockfile;
  648.               $file =~ s|.*/(.*)|$1|;    # Keep only basename
  649. !             &add_log("UNLOCKED $file (lock older than one hour)")
  650.                   if $loglvl > 5;
  651.           }
  652.       }
  653. --- 26,36 ----
  654.           # There is a lock file -- look for how long it's been there
  655.           ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  656.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($lockfile);
  657. !         if ((time - $mtime) > $cf'lockhold) {
  658. !             # More than outdating time!! Something must have gone wrong
  659.               unlink $lockfile;
  660.               $file =~ s|.*/(.*)|$1|;    # Keep only basename
  661. !             &add_log("UNLOCKED $file (lock older than $cf'lockhold seconds)")
  662.                   if $loglvl > 5;
  663.           }
  664.       }
  665.  
  666. Index: agent/test/pl/init.pl
  667. Prereq: 3.0
  668. *** agent/test/pl/init.pl.old    Fri Jul  1 17:16:30 1994
  669. --- agent/test/pl/init.pl    Fri Jul  1 17:16:30 1994
  670. ***************
  671. *** 1,16 ****
  672.   # Set up mailagent and filter paths
  673.   
  674. ! # $Id: init.pl,v 3.0 1993/11/29 13:50:24 ram Exp $
  675. ! #
  676. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  677. ! #  
  678. ! #  You may redistribute only under the terms of the Artistic License,
  679. ! #  as specified in the README file that comes with the distribution.
  680. ! #  You may reuse parts of this distribution only within the terms of
  681. ! #  that same Artistic License; a copy of which may be found at the root
  682. ! #  of the source tree for mailagent 3.0.
  683. ! #
  684. ! # $Log: init.pl,v $
  685.   ;# Revision 3.0  1993/11/29  13:50:24  ram
  686.   ;# Baseline for mailagent 3.0 netwide release.
  687.   ;#
  688. --- 1,19 ----
  689.   # Set up mailagent and filter paths
  690.   
  691. ! ;# $Id: init.pl,v 3.0.1.1 1994/07/01 15:10:38 ram Exp $
  692. ! ;#
  693. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  694. ! ;#  
  695. ! ;#  You may redistribute only under the terms of the Artistic License,
  696. ! ;#  as specified in the README file that comes with the distribution.
  697. ! ;#  You may reuse parts of this distribution only within the terms of
  698. ! ;#  that same Artistic License; a copy of which may be found at the root
  699. ! ;#  of the source tree for mailagent 3.0.
  700. ! ;#
  701. ! ;# $Log: init.pl,v $
  702. ! ;# Revision 3.0.1.1  1994/07/01  15:10:38  ram
  703. ! ;# patch8: fixed RCS leading comment string
  704. ! ;#
  705.   ;# Revision 3.0  1993/11/29  13:50:24  ram
  706.   ;# Baseline for mailagent 3.0 netwide release.
  707.   ;#
  708. ***************
  709. *** 24,26 ****
  710. --- 27,30 ----
  711.   
  712.   # Make sure no lock were left by previous test
  713.   unlink "$pwd/out/filter.lock", "$pwd/out/perl.lock";
  714. + 
  715.  
  716. Index: agent/pl/matching.pl
  717. Prereq: 3.0.1.1
  718. *** agent/pl/matching.pl.old    Fri Jul  1 17:16:20 1994
  719. --- agent/pl/matching.pl    Fri Jul  1 17:16:20 1994
  720. ***************
  721. *** 1,4 ****
  722. ! ;# $Id: matching.pl,v 3.0.1.1 1994/04/25 15:17:49 ram Exp $
  723.   ;#
  724.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  725.   ;#  
  726. --- 1,4 ----
  727. ! ;# $Id: matching.pl,v 3.0.1.2 1994/07/01 15:02:33 ram Exp $
  728.   ;#
  729.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  730.   ;#  
  731. ***************
  732. *** 9,14 ****
  733. --- 9,17 ----
  734.   ;#  of the source tree for mailagent 3.0.
  735.   ;#
  736.   ;# $Log: matching.pl,v $
  737. + ;# Revision 3.0.1.2  1994/07/01  15:02:33  ram
  738. + ;# patch8: allow macro substitution on patterns if rulemac is ON
  739. + ;#
  740.   ;# Revision 3.0.1.1  1994/04/25  15:17:49  ram
  741.   ;# patch7: fixed selector combination logic and added some debug logs
  742.   ;#
  743. ***************
  744. *** 213,218 ****
  745. --- 216,223 ----
  746.   
  747.   # Attempt a match of a pattern against a selector, return boolean status.
  748.   # If pattern is preceded by a '!', the boolean status is negated.
  749. + # If the 'rulemac' configuration variable is set to ON, a macro substitution
  750. + # is performed on the search pattern.
  751.   sub selector_match {
  752.       local($selector) = shift(@_);    # The selector on which pattern applies
  753.       local($pattern) = shift(@_);    # The pattern to apply
  754. ***************
  755. *** 224,229 ****
  756. --- 229,235 ----
  757.       $matcher = $Matcher{$selector};
  758.       $matcher = 'match_var' unless $matcher;
  759.       $pattern =~ s/^!// && ($not = '!');
  760. +     ¯os_subst(*pattern) if $cf'rulemac =~ /on/i;    # Macro substitution
  761.       $matched = &$matcher($selector, $pattern, $range);
  762.       $matched = !$matched if $not;    # Revert matching status if ! pattern
  763.       if ($loglvl > 19) {
  764.  
  765. Index: agent/test/cmd/leave.t
  766. Prereq: 3.0
  767. *** agent/test/cmd/leave.t.old    Fri Jul  1 17:16:25 1994
  768. --- agent/test/cmd/leave.t    Fri Jul  1 17:16:25 1994
  769. ***************
  770. *** 1,6 ****
  771.   # Test LEAVE command
  772.   
  773. ! # $Id: leave.t,v 3.0 1993/11/29 13:49:33 ram Exp $
  774.   #
  775.   #  Copyright (c) 1990-1993, Raphael Manfredi
  776.   #  
  777. --- 1,6 ----
  778.   # Test LEAVE command
  779.   
  780. ! # $Id: leave.t,v 3.0.1.1 1994/07/01 15:07:21 ram Exp $
  781.   #
  782.   #  Copyright (c) 1990-1993, Raphael Manfredi
  783.   #  
  784. ***************
  785. *** 11,21 ****
  786.   #  of the source tree for mailagent 3.0.
  787.   #
  788.   # $Log: leave.t,v $
  789.   # Revision 3.0  1993/11/29  13:49:33  ram
  790.   # Baseline for mailagent 3.0 netwide release.
  791.   #
  792.   
  793. ! do '../pl/cmd.pl';
  794.   
  795.   &add_header('X-Tag: leave');
  796.   `$cmd`;
  797. --- 11,24 ----
  798.   #  of the source tree for mailagent 3.0.
  799.   #
  800.   # $Log: leave.t,v $
  801. + # Revision 3.0.1.1  1994/07/01  15:07:21  ram
  802. + # patch8: added tests for new fromall config option
  803. + #
  804.   # Revision 3.0  1993/11/29  13:49:33  ram
  805.   # Baseline for mailagent 3.0 netwide release.
  806.   #
  807.   
  808. ! do '../pl/misc.pl';        # Need &add_option also
  809.   
  810.   &add_header('X-Tag: leave');
  811.   `$cmd`;
  812. ***************
  813. *** 54,59 ****
  814. --- 57,72 ----
  815.   &get_log(11, $user);
  816.   &check_log('^>From', 12) == 2 || print "13\n";
  817.   &check_log('^From line', 14) == 1 || print "15\n";
  818. + 
  819. + # Make sure all From lines are escaped when fromall is activated.
  820. + &add_option('-o fromall:ON');
  821. + unlink "$user";
  822. + `$cmd`;
  823. + $? == 0 || print "16\n";
  824. + -f "$user" || print "17\n";
  825. + &get_log(18, $user);
  826. + &check_log('^>From', 19) == 3 || print "20\n";
  827. + ¬_log('^From line', 21);
  828.   
  829.   unlink <emerg/*>;
  830.   unlink "$user", 'mail', 'ok';
  831.  
  832. Index: agent/test/pl/logfile.pl
  833. Prereq: 3.0
  834. *** agent/test/pl/logfile.pl.old    Fri Jul  1 17:16:31 1994
  835. --- agent/test/pl/logfile.pl    Fri Jul  1 17:16:31 1994
  836. ***************
  837. *** 1,16 ****
  838.   # Get log file (by default) or any other file into @log
  839.   
  840. ! # $Id: logfile.pl,v 3.0 1993/11/29 13:50:24 ram Exp $
  841. ! #
  842. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  843. ! #  
  844. ! #  You may redistribute only under the terms of the Artistic License,
  845. ! #  as specified in the README file that comes with the distribution.
  846. ! #  You may reuse parts of this distribution only within the terms of
  847. ! #  that same Artistic License; a copy of which may be found at the root
  848. ! #  of the source tree for mailagent 3.0.
  849. ! #
  850. ! # $Log: logfile.pl,v $
  851.   ;# Revision 3.0  1993/11/29  13:50:24  ram
  852.   ;# Baseline for mailagent 3.0 netwide release.
  853.   ;#
  854. --- 1,19 ----
  855.   # Get log file (by default) or any other file into @log
  856.   
  857. ! ;# $Id: logfile.pl,v 3.0.1.1 1994/07/01 15:10:42 ram Exp $
  858. ! ;#
  859. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  860. ! ;#  
  861. ! ;#  You may redistribute only under the terms of the Artistic License,
  862. ! ;#  as specified in the README file that comes with the distribution.
  863. ! ;#  You may reuse parts of this distribution only within the terms of
  864. ! ;#  that same Artistic License; a copy of which may be found at the root
  865. ! ;#  of the source tree for mailagent 3.0.
  866. ! ;#
  867. ! ;# $Log: logfile.pl,v $
  868. ! ;# Revision 3.0.1.1  1994/07/01  15:10:42  ram
  869. ! ;# patch8: fixed RCS leading comment string
  870. ! ;#
  871.   ;# Revision 3.0  1993/11/29  13:50:24  ram
  872.   ;# Baseline for mailagent 3.0 netwide release.
  873.   ;#
  874.  
  875. Index: agent/pl/read_conf.pl
  876. Prereq: 3.0.1.1
  877. *** agent/pl/read_conf.pl.old    Fri Jul  1 17:16:22 1994
  878. --- agent/pl/read_conf.pl    Fri Jul  1 17:16:22 1994
  879. ***************
  880. *** 1,4 ****
  881. ! ;# $Id: read_conf.pl,v 3.0.1.1 1994/04/25 15:21:34 ram Exp $
  882.   ;#
  883.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  884.   ;#  
  885. --- 1,4 ----
  886. ! ;# $Id: read_conf.pl,v 3.0.1.2 1994/07/01 15:04:50 ram Exp $
  887.   ;#
  888.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  889.   ;#  
  890. ***************
  891. *** 9,14 ****
  892. --- 9,17 ----
  893.   ;#  of the source tree for mailagent 3.0.
  894.   ;#
  895.   ;# $Log: read_conf.pl,v $
  896. + ;# Revision 3.0.1.2  1994/07/01  15:04:50  ram
  897. + ;# patch8: set proper default values for new optional config variables
  898. + ;#
  899.   ;# Revision 3.0.1.1  1994/04/25  15:21:34  ram
  900.   ;# patch7: made sure new variable 'fromesc' has a meaningful default
  901.   ;#
  902. ***************
  903. *** 110,115 ****
  904. --- 113,128 ----
  905.   
  906.       # Backward compatibility -- RAM, 25/04/94
  907.       $fromesc = 'ON' unless defined $fromesc;    # If absent from ~/.mailagent
  908. +     $lockmax = 20 unless defined $lockmax;
  909. +     $lockdelay = 2 unless defined $lockdelay;
  910. +     $lockhold = 3600 unless defined $lockhold;
  911. +     $queuewait = 60 unless defined $queuewait;
  912. +     $queuehold = 1800 unless defined $queuehold;
  913. +     $queuelost = 86400 unless defined $queuelost;
  914. +     $runmax = 3600 unless defined $runmax;
  915. +     $umask = 077 unless defined $umask;
  916. + 
  917. +     $umask = oct($umask) if $umask =~ /^0/;     # Translate umask into decimal
  918.   
  919.       # Update @INC perlib search path with the perlib variable. Paths not
  920.       # starting by a '/' are supposed to be under the mailagent private lib
  921.  
  922. Index: MANIFEST
  923. *** MANIFEST.old    Fri Jul  1 17:16:34 1994
  924. --- MANIFEST    Fri Jul  1 17:16:34 1994
  925. ***************
  926. *** 148,153 ****
  927. --- 148,154 ----
  928.   agent/pl/sendfile.pl       Perl library to send files in shar / kit mode
  929.   agent/pl/stats.pl          Mailagent's statistics recording and printing
  930.   agent/pl/tilde.pl          Perl library to perform ~name expansion
  931. + agent/pl/umask.pl          Handles UMASK in local mode
  932.   agent/pl/unpack.pl         Perl library to unpack archive files
  933.   agent/pl/usrmac.pl         User-defined macros
  934.   agent/test/                Regression test suite
  935. ***************
  936. *** 200,205 ****
  937. --- 201,207 ----
  938.   agent/test/cmd/strip.t         Test STRIP command
  939.   agent/test/cmd/subst.t         Test SUBST command
  940.   agent/test/cmd/tr.t            Test TR command
  941. + agent/test/cmd/umask.t         Test UMASK command
  942.   agent/test/cmd/unique.t        Test UNIQUE command
  943.   agent/test/cmd/unknown.t       Make sure unknown command defaults correctly
  944.   agent/test/cmd/vacation.t      Test VACATION command
  945. ***************
  946. *** 213,218 ****
  947. --- 215,221 ----
  948.   agent/test/filter/hook.t       Ensure hooks are correctly invoked
  949.   agent/test/filter/list.t       Check matching on lists like To and Newsgroups
  950.   agent/test/filter/loop.t       Check loop detection
  951. + agent/test/filter/macros.t     Check optional macro subsitution in patterns
  952.   agent/test/filter/mode.t       Make sure mode selection logic works
  953.   agent/test/filter/multiple.t   Check multiple selectors
  954.   agent/test/filter/not.t        Negated pattern tests
  955.  
  956. Index: agent/test/pl/misc.pl
  957. Prereq: 3.0
  958. *** agent/test/pl/misc.pl.old    Fri Jul  1 17:16:32 1994
  959. --- agent/test/pl/misc.pl    Fri Jul  1 17:16:32 1994
  960. ***************
  961. *** 1,16 ****
  962.   # Common actions at the top of each misc test
  963.   
  964. ! # $Id: misc.pl,v 3.0 1993/11/29 13:50:26 ram Exp $
  965. ! #
  966. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  967. ! #  
  968. ! #  You may redistribute only under the terms of the Artistic License,
  969. ! #  as specified in the README file that comes with the distribution.
  970. ! #  You may reuse parts of this distribution only within the terms of
  971. ! #  that same Artistic License; a copy of which may be found at the root
  972. ! #  of the source tree for mailagent 3.0.
  973. ! #
  974. ! # $Log: misc.pl,v $
  975.   ;# Revision 3.0  1993/11/29  13:50:26  ram
  976.   ;# Baseline for mailagent 3.0 netwide release.
  977.   ;#
  978. --- 1,19 ----
  979.   # Common actions at the top of each misc test
  980.   
  981. ! ;# $Id: misc.pl,v 3.0.1.1 1994/07/01 15:11:55 ram Exp $
  982. ! ;#
  983. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  984. ! ;#  
  985. ! ;#  You may redistribute only under the terms of the Artistic License,
  986. ! ;#  as specified in the README file that comes with the distribution.
  987. ! ;#  You may reuse parts of this distribution only within the terms of
  988. ! ;#  that same Artistic License; a copy of which may be found at the root
  989. ! ;#  of the source tree for mailagent 3.0.
  990. ! ;#
  991. ! ;# $Log: misc.pl,v $
  992. ! ;# Revision 3.0.1.1  1994/07/01  15:11:55  ram
  993. ! ;# patch8: fixed RCS leading comment string
  994. ! ;#
  995.   ;# Revision 3.0  1993/11/29  13:50:26  ram
  996.   ;# Baseline for mailagent 3.0 netwide release.
  997.   ;#
  998.  
  999. Index: agent/pl/acs_rqst.pl
  1000. Prereq: 3.0
  1001. *** agent/pl/acs_rqst.pl.old    Fri Jul  1 17:16:11 1994
  1002. --- agent/pl/acs_rqst.pl    Fri Jul  1 17:16:11 1994
  1003. ***************
  1004. *** 1,4 ****
  1005. ! ;# $Id: acs_rqst.pl,v 3.0 1993/11/29 13:48:32 ram Exp $
  1006.   ;#
  1007.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1008.   ;#  
  1009. --- 1,4 ----
  1010. ! ;# $Id: acs_rqst.pl,v 3.0.1.1 1994/07/01 14:56:37 ram Exp $
  1011.   ;#
  1012.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1013.   ;#  
  1014. ***************
  1015. *** 9,14 ****
  1016. --- 9,17 ----
  1017.   ;#  of the source tree for mailagent 3.0.
  1018.   ;#
  1019.   ;# $Log: acs_rqst.pl,v $
  1020. + ;# Revision 3.0.1.1  1994/07/01  14:56:37  ram
  1021. + ;# patch8: now uses lockmax and lockdelay config variables
  1022. + ;#
  1023.   ;# Revision 3.0  1993/11/29  13:48:32  ram
  1024.   ;# Baseline for mailagent 3.0 netwide release.
  1025.   ;#
  1026. ***************
  1027. *** 41,48 ****
  1028.   # process is written. It is checked afterwards.
  1029.   sub acs_rqst {
  1030.       local($file) = @_;    # file to be locked
  1031. !     local($max) = 30;    # max number of attempts
  1032. !     local($delay) = 2;    # seconds to wait between attempts
  1033.       local($mask);        # to save old umask
  1034.       local($stamp);        # string written in lock file
  1035.       &checklock($file);    # avoid long-lasting locks
  1036. --- 44,51 ----
  1037.   # process is written. It is checked afterwards.
  1038.   sub acs_rqst {
  1039.       local($file) = @_;    # file to be locked
  1040. !     local($max) = $cf'lockmax;        # max number of attempts
  1041. !     local($delay) = $cf'lockdelay;    # seconds to wait between attempts
  1042.       local($mask);        # to save old umask
  1043.       local($stamp);        # string written in lock file
  1044.       &checklock($file);    # avoid long-lasting locks
  1045.  
  1046. Index: agent/pl/umask.pl
  1047. *** agent/pl/umask.pl.old    Fri Jul  1 17:16:23 1994
  1048. --- agent/pl/umask.pl    Fri Jul  1 17:16:23 1994
  1049. ***************
  1050. *** 0 ****
  1051. --- 1,42 ----
  1052. + ;# $Id: umask.pl,v 3.0.1.1 1994/07/01 15:05:10 ram Exp $
  1053. + ;#
  1054. + ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1055. + ;#  
  1056. + ;#  You may redistribute only under the terms of the Artistic License,
  1057. + ;#  as specified in the README file that comes with the distribution.
  1058. + ;#  You may reuse parts of this distribution only within the terms of
  1059. + ;#  that same Artistic License; a copy of which may be found at the root
  1060. + ;#  of the source tree for mailagent 3.0.
  1061. + ;#
  1062. + ;# $Log: umask.pl,v $
  1063. + ;# Revision 3.0.1.1  1994/07/01  15:05:10  ram
  1064. + ;# patch8: created
  1065. + ;#
  1066. + ;#
  1067. + package u_mask;
  1068. + 
  1069. + # Handles the UMASK command. Since the umask may be set locally in rules,
  1070. + # we must record the previous global setting to be able to restore it when
  1071. + # we leave scope.
  1072. + 
  1073. + # Initialize at rule entrance
  1074. + sub init {
  1075. +     $umask = -1;
  1076. + }
  1077. + 
  1078. + # When leaving a rule, reset the umask if it has been set locally.
  1079. + # If a global setting has been used, then we do not wish to interfere.
  1080. + sub reset {
  1081. +     return if $umask == -1;        # Umask was not changed locally in rule
  1082. +     umask($umask);                # Restore previous umask
  1083. + }
  1084. + 
  1085. + # Record a local umask settting
  1086. + sub set {
  1087. +     local($new) = @_;        # New umask wanted
  1088. +     $umask = umask($new);    # Set new umask, save previous one
  1089. +     # Failure of the umask() system call is unlikely.
  1090. + }
  1091. + 
  1092. + package main;
  1093. + 
  1094.  
  1095. Index: agent/magent.SH
  1096. Prereq: 3.0.1.1
  1097. *** agent/magent.SH.old    Fri Jul  1 17:16:06 1994
  1098. --- agent/magent.SH    Fri Jul  1 17:16:07 1994
  1099. ***************
  1100. *** 24,30 ****
  1101.   # via the filter. Mine looks like this:
  1102.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  1103.   
  1104. ! # $Id: magent.SH,v 3.0.1.1 1994/01/26 09:27:56 ram Exp $
  1105.   #
  1106.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1107.   #  
  1108. --- 24,30 ----
  1109.   # via the filter. Mine looks like this:
  1110.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  1111.   
  1112. ! # $Id: magent.SH,v 3.0.1.2 1994/07/01 14:54:29 ram Exp $
  1113.   #
  1114.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1115.   #  
  1116. ***************
  1117. *** 35,40 ****
  1118. --- 35,43 ----
  1119.   #  of the source tree for mailagent 3.0.
  1120.   #
  1121.   # $Log: magent.SH,v $
  1122. + # Revision 3.0.1.2  1994/07/01  14:54:29  ram
  1123. + # patch8: fixed leading From date format (spacing problem)
  1124. + #
  1125.   # Revision 3.0.1.1  1994/01/26  09:27:56  ram
  1126.   # patch5: new -F option to force procesing on filtered messages
  1127.   #
  1128. ***************
  1129. *** 426,431 ****
  1130. --- 429,435 ----
  1131.   
  1132.       # Faked leading From line (used for digest items, by SPLIT)
  1133.       local($now) = &ctime(time);
  1134. +     $now =~ s/\s(\d:\d\d:\d\d)\b/0$1/;    # Add leading 0 if hour < 10
  1135.       chop($now);
  1136.       $FAKE_FROM = "From mailagent " . $now;
  1137.   }
  1138. ***************
  1139. *** 633,637 ****
  1140. --- 637,642 ----
  1141.   $grep -v '^;#' pl/usrmac.pl >>magent
  1142.   $grep -v '^;#' pl/tilde.pl >>magent
  1143.   $grep -v '^;#' pl/mh.pl >>magent
  1144. + $grep -v '^;#' pl/umask.pl >>magent
  1145.   chmod 755 magent
  1146.   $eunicefix magent
  1147.  
  1148. Index: agent/pl/pqueue.pl
  1149. Prereq: 3.0
  1150. *** agent/pl/pqueue.pl.old    Fri Jul  1 17:16:21 1994
  1151. --- agent/pl/pqueue.pl    Fri Jul  1 17:16:21 1994
  1152. ***************
  1153. *** 1,4 ****
  1154. ! ;# $Id: pqueue.pl,v 3.0 1993/11/29 13:49:09 ram Exp $
  1155.   ;#
  1156.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1157.   ;#  
  1158. --- 1,4 ----
  1159. ! ;# $Id: pqueue.pl,v 3.0.1.1 1994/07/01 15:04:20 ram Exp $
  1160.   ;#
  1161.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1162.   ;#  
  1163. ***************
  1164. *** 9,14 ****
  1165. --- 9,17 ----
  1166.   ;#  of the source tree for mailagent 3.0.
  1167.   ;#
  1168.   ;# $Log: pqueue.pl,v $
  1169. + ;# Revision 3.0.1.1  1994/07/01  15:04:20  ram
  1170. + ;# patch8: now honours new queuehold config variable
  1171. + ;#
  1172.   ;# Revision 3.0  1993/11/29  13:49:09  ram
  1173.   ;# Baseline for mailagent 3.0 netwide release.
  1174.   ;#
  1175. ***************
  1176. *** 38,45 ****
  1177.       foreach $file (@filter_files) {
  1178.           ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  1179.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
  1180. !         if ((time - $mtime) > 1800) {
  1181. !             # More than 30 minutes -- there must have been a failure
  1182.               push(@files, $file);        # Add file to the to-be-parsed list
  1183.           }
  1184.       }
  1185. --- 41,48 ----
  1186.       foreach $file (@filter_files) {
  1187.           ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  1188.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
  1189. !         if ((time - $mtime) > $cf'queuehold) {
  1190. !             # More than queue timeout -- there must have been a failure
  1191.               push(@files, $file);        # Add file to the to-be-parsed list
  1192.           }
  1193.       }
  1194.  
  1195. Index: agent/pl/interface.pl
  1196. Prereq: 3.0
  1197. *** agent/pl/interface.pl.old    Fri Jul  1 17:16:18 1994
  1198. --- agent/pl/interface.pl    Fri Jul  1 17:16:18 1994
  1199. ***************
  1200. *** 1,4 ****
  1201. ! ;# $Id: interface.pl,v 3.0 1993/11/29 13:48:53 ram Exp $
  1202.   ;#
  1203.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1204.   ;#  
  1205. --- 1,4 ----
  1206. ! ;# $Id: interface.pl,v 3.0.1.1 1994/07/01 15:01:19 ram Exp $
  1207.   ;#
  1208.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1209.   ;#  
  1210. ***************
  1211. *** 9,14 ****
  1212. --- 9,18 ----
  1213.   ;#  of the source tree for mailagent 3.0.
  1214.   ;#
  1215.   ;# $Log: interface.pl,v $
  1216. + ;# Revision 3.0.1.1  1994/07/01  15:01:19  ram
  1217. + ;# patch8: new UMASK command
  1218. + ;# patch8: cannot dataload exit
  1219. + ;#
  1220.   ;# Revision 3.0  1993/11/29  13:48:53  ram
  1221.   ;# Baseline for mailagent 3.0 netwide release.
  1222.   ;#
  1223. ***************
  1224. *** 64,79 ****
  1225. --- 68,87 ----
  1226.   sub strip        { &interface'dispatch; }
  1227.   sub subst        { &interface'dispatch; }
  1228.   sub tr            { &interface'dispatch; }
  1229. + sub umask        { &interface'dispatch; }
  1230.   sub unique        { &interface'dispatch; }
  1231.   sub vacation    { &interface'dispatch; }
  1232.   sub write        { &interface'dispatch; }
  1233.   
  1234.   # A perl filtering script should call &exit and not exit directly.
  1235. + # Perload OFF
  1236. + # (Cannot be data-loaded or it will corrupt $@ expected by &main'perl)
  1237.   sub exit { 
  1238.       local($code) = @_;
  1239.       die "OK\n" unless $code;
  1240.       die "Exit $code\n";
  1241.   }
  1242. + # Perload ON
  1243.   
  1244.   package interface;
  1245.   
  1246.  
  1247. Index: agent/filter/parser.h
  1248. Prereq: 3.0
  1249. *** agent/filter/parser.h.old    Fri Jul  1 17:16:06 1994
  1250. --- agent/filter/parser.h    Fri Jul  1 17:16:06 1994
  1251. ***************
  1252. *** 11,17 ****
  1253.   */
  1254.   
  1255.   /*
  1256. !  * $Id: parser.h,v 3.0 1993/11/29 13:48:19 ram Exp $
  1257.    *
  1258.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1259.    *  
  1260. --- 11,17 ----
  1261.   */
  1262.   
  1263.   /*
  1264. !  * $Id: parser.h,v 3.0.1.1 1994/07/01 14:54:06 ram Exp $
  1265.    *
  1266.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1267.    *  
  1268. ***************
  1269. *** 22,27 ****
  1270. --- 22,30 ----
  1271.    *  of the source tree for mailagent 3.0.
  1272.    *
  1273.    * $Log: parser.h,v $
  1274. +  * Revision 3.0.1.1  1994/07/01  14:54:06  ram
  1275. +  * patch8: new routine get_confval to get integer config variables
  1276. +  *
  1277.    * Revision 3.0  1993/11/29  13:48:19  ram
  1278.    * Baseline for mailagent 3.0 netwide release.
  1279.    *
  1280. ***************
  1281. *** 34,38 ****
  1282. --- 37,50 ----
  1283.   extern void read_conf();            /* Read configuration file */
  1284.   extern void set_env_vars();            /* Set correct environment variables */
  1285.   extern char *homedir();                /* Location of the home directory */
  1286. + extern int get_confval();            /* Get configuration value */
  1287. + 
  1288. + /*
  1289. +  * Parameters for get_confval().
  1290. +  */
  1291. + 
  1292. + #define CF_MANDATORY    0            /* Must be there, or fatal error */
  1293. + #define CF_DEFAULT        1            /* Use default value if not there */
  1294.   
  1295.   #endif
  1296. + 
  1297.  
  1298. Index: agent/filter/logfile.c
  1299. Prereq: 3.0
  1300. *** agent/filter/logfile.c.old    Fri Jul  1 17:16:04 1994
  1301. --- agent/filter/logfile.c    Fri Jul  1 17:16:04 1994
  1302. ***************
  1303. *** 11,17 ****
  1304.   */
  1305.   
  1306.   /*
  1307. !  * $Id: logfile.c,v 3.0 1993/11/29 13:48:14 ram Exp $
  1308.    *
  1309.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1310.    *  
  1311. --- 11,17 ----
  1312.   */
  1313.   
  1314.   /*
  1315. !  * $Id: logfile.c,v 3.0.1.1 1994/07/01 14:53:21 ram Exp $
  1316.    *
  1317.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1318.    *  
  1319. ***************
  1320. *** 22,27 ****
  1321. --- 22,30 ----
  1322.    *  of the source tree for mailagent 3.0.
  1323.    *
  1324.    * $Log: logfile.c,v $
  1325. +  * Revision 3.0.1.1  1994/07/01  14:53:21  ram
  1326. +  * patch8: metaconfig now defines Strerror instead of strerror
  1327. +  *
  1328.    * Revision 3.0  1993/11/29  13:48:14  ram
  1329.    * Baseline for mailagent 3.0 netwide release.
  1330.    *
  1331. ***************
  1332. *** 181,187 ****
  1333.       sprintf(where, "%s", strerror(errno));
  1334.   #else
  1335.   #ifdef HAS_SYS_ERRLIST
  1336. !     sprintf(where, "%s", strerror(errno));    /* Macro defined by Configure */
  1337.   #else
  1338.       sprintf(where, "error #%d", errno);
  1339.   #endif
  1340. --- 184,190 ----
  1341.       sprintf(where, "%s", strerror(errno));
  1342.   #else
  1343.   #ifdef HAS_SYS_ERRLIST
  1344. !     sprintf(where, "%s", Strerror(errno));    /* Macro defined by Configure */
  1345.   #else
  1346.       sprintf(where, "error #%d", errno);
  1347.   #endif
  1348.  
  1349. Index: agent/test/filter/macros.t
  1350. *** agent/test/filter/macros.t.old    Fri Jul  1 17:16:28 1994
  1351. --- agent/test/filter/macros.t    Fri Jul  1 17:16:28 1994
  1352. ***************
  1353. *** 0 ****
  1354. --- 1,36 ----
  1355. + # Test patterns with macros in them
  1356. + 
  1357. + # $Id: macros.t,v 3.0.1.1 1994/07/01 15:09:17 ram Exp $
  1358. + #
  1359. + #  Copyright (c) 1990-1993, Raphael Manfredi
  1360. + #  
  1361. + #  You may redistribute only under the terms of the Artistic License,
  1362. + #  as specified in the README file that comes with the distribution.
  1363. + #  You may reuse parts of this distribution only within the terms of
  1364. + #  that same Artistic License; a copy of which may be found at the root
  1365. + #  of the source tree for mailagent 3.0.
  1366. + #
  1367. + # $Log: macros.t,v $
  1368. + # Revision 3.0.1.1  1994/07/01  15:09:17  ram
  1369. + # patch8: created
  1370. + #
  1371. + 
  1372. + do '../pl/filter.pl';
  1373. + 
  1374. + &add_header('X-Tag: macros');
  1375. + &replace_header("To: $user@eiffel.com");
  1376. + `$cmd`;
  1377. + $? == 0 || print "1\n";
  1378. + -f "$user" && print "2\n";        # Must have been deleted
  1379. + 
  1380. + unlink $user;    # Just in case
  1381. + 
  1382. + # Now check that macro susbstitution occurs in pattern when enabled
  1383. + 
  1384. + $cmd =~ s/^(\S+)/$1 -o 'rulemac: ON'/;
  1385. + `$cmd`;
  1386. + $? == 0 || print "3\n";
  1387. + -f "$user" || print "4\n";        # This time, it has been leaved
  1388. + 
  1389. + unlink $user;
  1390. + print "0\n";
  1391.  
  1392. Index: agent/test/rules
  1393. Prereq: 3.0.1.1
  1394. *** agent/test/rules.old    Fri Jul  1 17:16:32 1994
  1395. --- agent/test/rules    Fri Jul  1 17:16:33 1994
  1396. ***************
  1397. *** 2,8 ****
  1398.   # Mailagent rules for filter regression tests
  1399.   #
  1400.   
  1401. ! # $Id: rules,v 3.0.1.1 1994/04/25 15:26:12 ram Exp $
  1402.   #
  1403.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1404.   #  
  1405. --- 2,8 ----
  1406.   # Mailagent rules for filter regression tests
  1407.   #
  1408.   
  1409. ! # $Id: rules,v 3.0.1.2 1994/07/01 15:12:23 ram Exp $
  1410.   #
  1411.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1412.   #  
  1413. ***************
  1414. *** 13,18 ****
  1415. --- 13,21 ----
  1416.   #  of the source tree for mailagent 3.0.
  1417.   #
  1418.   # $Log: rules,v $
  1419. + # Revision 3.0.1.2  1994/07/01  15:12:23  ram
  1420. + # patch8: added test rules for macro substitution in patterns
  1421. + #
  1422.   # Revision 3.0.1.1  1994/04/25  15:26:12  ram
  1423.   # patch7: added three more tests in filter/group
  1424.   #
  1425. ***************
  1426. *** 146,149 ****
  1427. --- 149,157 ----
  1428.   <RANGE> Body <-3, ->: /request/        { SAVE never.5; REJECT };
  1429.   <RANGE> Cc <-1, ->: must            { SAVE never.6 };
  1430.   <RANGE>                             { DELETE };
  1431. + 
  1432. + # filter/macros
  1433. + X-Tag: /macros/            { REJECT MACROS };
  1434. + <MACROS> To: %u            { LEAVE };
  1435. + <MACROS>                { DELETE };
  1436.   
  1437.  
  1438. Index: agent/pl/header.pl
  1439. Prereq: 3.0
  1440. *** agent/pl/header.pl.old    Fri Jul  1 17:16:17 1994
  1441. --- agent/pl/header.pl    Fri Jul  1 17:16:17 1994
  1442. ***************
  1443. *** 1,4 ****
  1444. ! ;# $Id: header.pl,v 3.0 1993/11/29 13:48:49 ram Exp $
  1445.   ;#
  1446.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1447.   ;#  
  1448. --- 1,4 ----
  1449. ! ;# $Id: header.pl,v 3.0.1.1 1994/07/01 15:00:51 ram Exp $
  1450.   ;#
  1451.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  1452.   ;#  
  1453. ***************
  1454. *** 9,14 ****
  1455. --- 9,17 ----
  1456.   ;#  of the source tree for mailagent 3.0.
  1457.   ;#
  1458.   ;# $Log: header.pl,v $
  1459. + ;# Revision 3.0.1.1  1994/07/01  15:00:51  ram
  1460. + ;# patch8: fixed leading From date format (spacing problem)
  1461. + ;#
  1462.   ;# Revision 3.0  1993/11/29  13:48:49  ram
  1463.   ;# Baseline for mailagent 3.0 netwide release.
  1464.   ;#
  1465. ***************
  1466. *** 126,132 ****
  1467. --- 129,137 ----
  1468.       require 'ctime.pl';
  1469.       local($date) = &'ctime(time);
  1470.       # Traditionally, MTAs add a ',' right after week day
  1471. +     # Moreover, RFC-822 and RFC-1123 require a leading 0 if hour < 10
  1472.       $date =~ s/^(\w+)(\s)/$1,$2/;
  1473. +     $date =~ s/\s(\d:\d\d:\d\d)\b/0$1/;
  1474.       chop($date);                    # Ctime adds final new-line
  1475.       $date;
  1476.   }
  1477.  
  1478. *** End of Patch 10 ***
  1479.  
  1480. exit 0 # Just in case...
  1481.