home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume43 / mailagent / patch09 < prev    next >
Encoding:
Internet Message Format  |  1994-07-24  |  45.3 KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v43i126:  mailagent - Flexible mail filtering and processing package, v3.0, Patch09
  4. Date: 24 Jul 1994 19:41:07 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <30v1n3$i3v@sparky.sterling.com>
  9. X-Md4-Signature: 82b5bddbeb5b10db46a6f5a791c6438e
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 43, Issue 126
  13. Archive-name: mailagent/patch09
  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 #: 9
  21. Priority: LOW
  22. Subject: patch #8, continued
  23. Date: Fri Jul 01 17:27:43 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: 8
  67. 4c4
  68. < #define PATCHLEVEL 8
  69. ---
  70. > #define PATCHLEVEL 9
  71.  
  72. Index: agent/man/mailagent.SH
  73. Prereq: 3.0.1.3
  74. *** agent/man/mailagent.SH.old    Fri Jul  1 17:16:09 1994
  75. --- agent/man/mailagent.SH    Fri Jul  1 17:16:10 1994
  76. ***************
  77. *** 20,26 ****
  78.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  79.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  80.   '''
  81. ! ''' $Id: mailagent.SH,v 3.0.1.3 1994/04/25 15:15:56 ram Exp $
  82.   '''
  83.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  84.   '''  
  85. --- 20,26 ----
  86.   .TH MAILAGENT $manext "Version $VERSION PL$PATCHLEVEL"
  87.   ''' @(#) Manual page for mailagent's filter -- (c) ram February 1991
  88.   '''
  89. ! ''' $Id: mailagent.SH,v 3.0.1.4 1994/07/01 14:56:20 ram Exp $
  90.   '''
  91.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  92.   '''  
  93. ***************
  94. *** 31,36 ****
  95. --- 31,42 ----
  96.   '''  of the source tree for mailagent 3.0.
  97.   '''
  98.   ''' $Log: mailagent.SH,v $
  99. + ''' Revision 3.0.1.4  1994/07/01  14:56:20  ram
  100. + ''' patch8: documents new eleven configuration variables
  101. + ''' patch8: sub-section on timeouts has been expanded
  102. + ''' patch8: emphasize .forward optimization danger with sendmail
  103. + ''' patch8: new UMASK command
  104. + '''
  105.   ''' Revision 3.0.1.3  1994/04/25  15:15:56  ram
  106.   ''' patch7: documented new 'fromesc' config variable
  107.   ''' patch7: forgot to insert the new -F option in the synopsis line
  108. ***************
  109. *** 230,235 ****
  110. --- 236,250 ----
  111.   Name of the directory which should be used for dumps, preferably. This is
  112.   optional. (suggested: ~/tmp/lost+mail)
  113.   .TP
  114. + .I fromall
  115. + Whether or not \fImailagent\fR should escape all the \fIFrom\fR lines in the
  116. + message, not only those it thinks should appear dangerous (i.e. a \fIFrom\fR
  117. + after a blank line). This option only makes sense when \fIfromesc\fR is
  118. + also activated. It is ignored otherwise, and therefore is optional. By
  119. + default, it is assumed to be OFF. (suggested: OFF, until you have reasons to
  120. + believe your mail user-agent is confused in this mode: when it happens, your
  121. + user agent will split mail for no apparent reason).
  122. + .TP
  123.   .I fromesc
  124.   Whether or not \fImailagent\fR should escape potentially dangerous \fIFrom\fR
  125.   lines in mail messages. If you use MH or if your mail reader does not use
  126. ***************
  127. *** 251,256 ****
  128. --- 266,282 ----
  129.   .I level
  130.   Log level, see below for a definition of available levels (suggested: 9).
  131.   .TP
  132. + .I lockdekay
  133. + The delay in seconds between two locking attempts. (optional, defaults to: 2).
  134. + .TP
  135. + .I lockhold
  136. + The maximum delay in seconds for holding a lock. After that time, the lock
  137. + will be broken. (optional, defaults to: 3600)
  138. + .TP
  139. + .I lockmax
  140. + Maximum number of locking attempts before giving up. (optional,
  141. + defaults to: 20).
  142. + .TP
  143.   .I log
  144.   Name of the log file, put in Log directory. (suggested: agentlog).
  145.   .TP
  146. ***************
  147. *** 374,389 ****
  148. --- 400,435 ----
  149.   Queue directory (messages waiting to be processed). Required, of course.
  150.   (suggested: \$spool/queue)
  151.   .TP
  152. + .I queuehold
  153. + Maximum number of seconds a mail can sit in the mailagent queue before being
  154. + actually processed. During that time, \fImailagent\fR will not try to
  155. + process the message even when \fB\-q\fR is used. (optional, defaults to: 1800).
  156. + .TP
  157. + .I queuelost
  158. + Maximum number of seconds after which \fImailagent\fR should flag messages
  159. + still in its queue as being old. (optional, defaults to: 86400, i.e. a day).
  160. + .TP
  161. + .I queuewait
  162. + Time in seconds telling the C \fIfilter\fR program how long it must wait
  163. + before launching \fImailagent\fR. (optional, defaults to: 60).
  164. + .TP
  165.   .I rulecache
  166.   The name of the file used to cache the latest compiled rules. Since usually
  167.   \fImailagent\fR works mainly with one same rule file, this saves the overhead
  168.   of recompiling all the rules each time. (optional, suggested:
  169.   \$spool/rulecache).
  170.   .TP
  171. + .I rulemac
  172. + Set this to ON to enable macro substitutions in rule patterns.
  173. + (optional, defaults to: OFF).
  174. + .TP
  175.   .I rules
  176.   The name of the file holding the filtering rules (optional,
  177.   suggested: ~/.rules).
  178.   .TP
  179. + .I runmax
  180. + Timeout for RUN commands and friends. (optional, defaults to: 3600).
  181. + .TP
  182.   .I scriptcc
  183.   Flag indicating whether a copy of the SERVER session transcript should be
  184.   send to the user running mailagent. (suggested: OFF).
  185. ***************
  186. *** 418,423 ****
  187. --- 464,476 ----
  188.   File where statistics should be gathered. If no such file exists, no
  189.   statistics will be recorded (suggested: mailagent.st).
  190.   .TP
  191. + .I tome
  192. + This optional variable may contain a comma separated list of alternate logins
  193. + that are also valid for the user (mail aliases). This is used in vacation
  194. + mode to check whether the mail was sent to the user or to a mailing list.
  195. + If you have an alias like \fIFirst.Name\fR, then specify \fIname\fR only,
  196. + since \fImailagent\fR reduces the login name to the family name.
  197. + .TP
  198.   .I track
  199.   Set to \fIon\fR (case insensitively), this turns on the \fB\-t\fR option
  200.   which tracks all the rule matches and the actions on standard output. This
  201. ***************
  202. *** 429,434 ****
  203. --- 482,493 ----
  204.   .I tmpdir
  205.   Directory for temporary files. Required (suggested: /tmp).
  206.   .TP
  207. + .I umask
  208. + Default umask which is reset by \fImailagent\fR before processing a message.
  209. + Assumed to be decimal unless starting with '0' (for octal) or '0x' (for
  210. + hexadecimal). The octal format is the easiest way to specify it nonetheless.
  211. + (optional, defaults to: 077).
  212. + .TP
  213.   .I user
  214.   Login name of the user who runs the mailagent. This sets the value of the
  215.   %u macro.
  216. ***************
  217. *** 478,483 ****
  218. --- 537,552 ----
  219.   be necessary to move the '|' character before the leading quote, but don't
  220.   try this unless you have no other choice (i.e. only as a last resort).
  221.   .PP
  222. + It is \fIvery\fR important to redirect error messages to some file within
  223. + your home directory. For one thing, that will get you out of trouble if
  224. + strange things start to happen, but more to the point, it makes
  225. + your \fI.forward\fR file unique. Older \fIsendmail\fR program, in an heroic
  226. + attempt to "optimize" delivery, will silently remove duplicate recipients,
  227. + and if a recipient has a \fI.forward\fR, its litteral content is used in place
  228. + of his e-mail address. Therefore, two local recipients with the same
  229. + filtering string will be considered as one unique recipient and only one
  230. + of them will get the message...
  231. + .PP
  232.   Note that the \fI.forward\fR file only pipes the mail to the \fIfilter\fR
  233.   program and does not leave any copy in the mailbox. It is up to you to decide
  234.   in the rule file whether you want to trash the mail away or leave it in the
  235. ***************
  236. *** 641,646 ****
  237. --- 710,719 ----
  238.   .B \-l
  239.   List the mailagent queue. Recently queued mails which are waited for by the
  240.   \fIfilter\fR are \fIskipped\fR for about half an hour, to avoid race conditions.
  241. + This may be configured via the \fIqueuehold\fR variable. Really old messages
  242. + (more than \fIqueuelost\fR seconds old) are flagged with a '#' character.
  243. + Messages out of the queue (\fIqueue\fR variable) are flagged with a '*', whilst
  244. + old messages out of the queue are signaled by an '@'.
  245.   .TP
  246.   .B \-L\fI level\fR
  247.   Override the log level specified in the configuration file.
  248. ***************
  249. *** 1605,1610 ****
  250. --- 1678,1693 ----
  251.   lowercase. See also ASSIGN and SUBST.
  252.   (Fails if error in \fItranslation\fR)
  253.   .TP
  254. + UMASK [-l] \fImode\fR
  255. + Changes the process's umask to the specified \fImode\fR, which can be decimal,
  256. + octal (if preceded by '0') or hexadecimal (starting with '0x'). The octal
  257. + notation is the clearest way to specify the umask anyway. Aren't rumors saying
  258. + that octal was invented for that purpose only? ;-)
  259. + Use the \fB\-l\fR option to change the umask for the duration of the current
  260. + action rule only. Note that the default umask specified in your config file
  261. + is used to reset \fImailagent\fR's umask at the start of each mail processing.
  262. + (Does not alter execution status)
  263. + .TP
  264.   UNIQUE [-acr] [\fImode\fR] [\fI(tag-list)\fR]
  265.   Record message in the history and tag message as saved if it was
  266.   already present there. If the message is recorded for the first time, processing
  267. ***************
  268. *** 1740,1746 ****
  269.   .I @ARGV
  270.   The arguments of the script, which were given by the PERL command. This array
  271.   is set up the exact same way you would expect it to be set up if you invoked
  272. ! the command directly from the shell.
  273.   .TP
  274.   .I \$address
  275.   The address part of the From: line.
  276. --- 1823,1832 ----
  277.   .I @ARGV
  278.   The arguments of the script, which were given by the PERL command. This array
  279.   is set up the exact same way you would expect it to be set up if you invoked
  280. ! the command directly from the shell, excepted that
  281. ! .I @ARGV[0]
  282. ! is the name of the script (since you cannot use perl's \fI\$0\fR to get
  283. ! at it; that would give you mailagent's name).
  284.   .TP
  285.   .I \$address
  286.   The address part of the From: line.
  287. ***************
  288. *** 2225,2234 ****
  289.   .SS "Timeouts"
  290.   .PP
  291.   In order to avoid having a \fImailagent\fR waiting for a command forever, a
  292. ! maximum execution time of one hour is allowed. Past that amount of time, the
  293.   child is sent a SIGTERM signal. If it does not die within the next 30 seconds,
  294.   a SIGKILL is sent. Output from the program, if any so far, is mailed back to
  295.   the user.
  296.   '''
  297.   .SS "Avoiding Loops"
  298.   .PP
  299. --- 2311,2351 ----
  300.   .SS "Timeouts"
  301.   .PP
  302.   In order to avoid having a \fImailagent\fR waiting for a command forever, a
  303. ! maximum execution time of one hour is allowed by default.
  304. ! Past that amount of time, the
  305.   child is sent a SIGTERM signal. If it does not die within the next 30 seconds,
  306.   a SIGKILL is sent. Output from the program, if any so far, is mailed back to
  307.   the user.
  308. + This default behaviour may be altered by setting a proper \fIrunmax\fR variable
  309. + in your configuration file to allow more time for the command to complete.
  310. + .PP
  311. + There is also a \fIfilter\fR queue timeout. In order to moderate system load,
  312. + the C \fIfilter\fR program waits 60 seconds by default (or whatever
  313. + .I queuewait
  314. + was set to in the config file) before launching \fImailagent\fR. To avoid
  315. + conflicts, messages queued by the first filter (which will then sleep for
  316. + .I queuewait
  317. + seconds) are not processed by \fImailagent\fR's \fB\-q\fR option until they
  318. + are at least
  319. + .I queuehold
  320. + seconds old. Another queue-related parameter is
  321. + .I queuelost,
  322. + the amount of seconds after which \fImailagent\fR will flag messages as "lost"
  323. + when listing the queue.
  324. + .PP
  325. + Finally, the locking timeout policy may also be configured. By default, a
  326. + lock is broken when it is one hour old (configured by the
  327. + .I lockhold
  328. + variable) and \fImailagent\fR will only make
  329. + .I lockmax
  330. + attempts, spaced by
  331. + .I lockdelay
  332. + seconds to acquire the lock. It will then proceed whether or not it got that
  333. + lock. If you want a secure locking policy, make sure
  334. + .I lockmax
  335. + times
  336. + .I lockdelay
  337. + is greater than \fIlockhold\fR, that parameter being "large" enough.
  338.   '''
  339.   .SS "Avoiding Loops"
  340.   .PP
  341.  
  342. Index: agent/pl/actions.pl
  343. Prereq: 3.0.1.2
  344. *** agent/pl/actions.pl.old    Fri Jul  1 17:16:13 1994
  345. --- agent/pl/actions.pl    Fri Jul  1 17:16:14 1994
  346. ***************
  347. *** 1,4 ****
  348. ! ;# $Id: actions.pl,v 3.0.1.2 1994/04/25 15:16:53 ram Exp $
  349.   ;#
  350.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  351.   ;#  
  352. --- 1,4 ----
  353. ! ;# $Id: actions.pl,v 3.0.1.3 1994/07/01 14:57:49 ram Exp $
  354.   ;#
  355.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  356.   ;#  
  357. ***************
  358. *** 9,14 ****
  359. --- 9,18 ----
  360.   ;#  of the source tree for mailagent 3.0.
  361.   ;#
  362.   ;# $Log: actions.pl,v $
  363. + ;# Revision 3.0.1.3  1994/07/01  14:57:49  ram
  364. + ;# patch8: timeout for RUN commands now defined by runmax config variable
  365. + ;# patch8: now systematically escape leading From if fromall is ON
  366. + ;#
  367.   ;# Revision 3.0.1.2  1994/04/25  15:16:53  ram
  368.   ;# patch7: here and there fixes
  369.   ;# patch7: global fix for From line escapes to make them configurable
  370. ***************
  371. *** 813,819 ****
  372.       $program =~ s/\b~/$cf'home/g;    # ~ substitution as first letter in word
  373.       $SIG{'PIPE'} = 'popen_failed';    # Protect against naughty program
  374.       $SIG{'ALRM'} = 'alarm_clock';    # Protect against loops
  375. !     alarm 3600;                        # At most one hour of processing
  376.       eval '&execute_command($program, $input, $feedback)';
  377.       alarm 0;                        # Disable alarm timeout
  378.       $SIG{'PIPE'} = 'emergency';        # Restore initial value
  379. --- 817,823 ----
  380.       $program =~ s/\b~/$cf'home/g;    # ~ substitution as first letter in word
  381.       $SIG{'PIPE'} = 'popen_failed';    # Protect against naughty program
  382.       $SIG{'ALRM'} = 'alarm_clock';    # Protect against loops
  383. !     alarm $cf'runmax;                # At most that amount of processing
  384.       eval '&execute_command($program, $input, $feedback)';
  385.       alarm 0;                        # Disable alarm timeout
  386.       $SIG{'PIPE'} = 'emergency';        # Restore initial value
  387. ***************
  388. *** 828,834 ****
  389.           &add_log("WARNING no feedback occurred") if $loglvl > 5;
  390.           return 1;                    # Failed
  391.       } elsif ($@ =~ /^alarm/) {        # Timeout
  392. !         &add_log("WARNING time out received") if $loglvl > 5;
  393.           return 1;                    # Failed
  394.       } elsif ($@ =~ /^non-zero/) {    # Program returned non-zero status
  395.           &add_log("WARNING program returned non-zero status") if $loglvl > 5;
  396. --- 832,839 ----
  397.           &add_log("WARNING no feedback occurred") if $loglvl > 5;
  398.           return 1;                    # Failed
  399.       } elsif ($@ =~ /^alarm/) {        # Timeout
  400. !         &add_log("WARNING time out received ($cf'runmax seconds)")
  401. !             if $loglvl > 5;
  402.           return 1;                    # Failed
  403.       } elsif ($@ =~ /^non-zero/) {    # Program returned non-zero status
  404.           &add_log("WARNING program returned non-zero status") if $loglvl > 5;
  405. ***************
  406. *** 1009,1017 ****
  407.       local($last_was_nl) = 1;            # True when previous line was blank
  408.       if ($input == $BODY_INPUT) {        # We have to feed back the body only
  409.           while (<TRACE>) {
  410. !             # Protect potentially dangerous lines
  411.               s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  412. !             $last_was_nl = /^$/;
  413.               $temp .= $_;
  414.           }
  415.       } else {
  416. --- 1014,1024 ----
  417.       local($last_was_nl) = 1;            # True when previous line was blank
  418.       if ($input == $BODY_INPUT) {        # We have to feed back the body only
  419.           while (<TRACE>) {
  420. !             # Protect potentially dangerous lines. If fromall is ON, then we
  421. !             # don't care whether From is within a paragraph, i.e. not preceded
  422. !             # by a blank line. This is only required with "broken" User Agents.
  423.               s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  424. !             $last_was_nl = /^$/ || $cf'fromall =~ /on/i;
  425.               $temp .= $_;
  426.           }
  427.       } else {
  428. ***************
  429. *** 1023,1029 ****
  430.               } else {
  431.                   # Protect potentially dangerous lines
  432.                   s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  433. !                 $last_was_nl = /^$/;
  434.                   $temp .= $_;
  435.               }
  436.           }
  437. --- 1030,1036 ----
  438.               } else {
  439.                   # Protect potentially dangerous lines
  440.                   s/^From(\s)/>From$1/ if $last_was_nl && $cf'fromesc =~ /on/i;
  441. !                 $last_was_nl = /^$/ || $cf'fromall =~ /on/i;
  442.                   $temp .= $_;
  443.               }
  444.           }
  445. ***************
  446. *** 1381,1387 ****
  447.           # Protect potentially dangerous lines
  448.           s/^From\s+(\S+)/>From $1/ if $last_was_space && $cf'fromesc =~ /on/i;
  449.           s/^- -/-/;                    # This is the EB escape in RFC-934
  450. !         $last_was_space = /^$/;        # From is dangerous after blank line
  451.       }
  452.       # Now @array holds the whole digest item
  453.       if ($folder =~ /^\s*$/) {        # No folder means we have to queue message
  454. --- 1388,1395 ----
  455.           # Protect potentially dangerous lines
  456.           s/^From\s+(\S+)/>From $1/ if $last_was_space && $cf'fromesc =~ /on/i;
  457.           s/^- -/-/;                    # This is the EB escape in RFC-934
  458. !         # From is dangerous after blank line, but everywhere if fromall is ON.
  459. !         $last_was_space = /^$/ || $cf'fromall =~ /on/i;
  460.       }
  461.       # Now @array holds the whole digest item
  462.       if ($folder =~ /^\s*$/) {        # No folder means we have to queue message
  463.  
  464. Index: agent/pl/analyze.pl
  465. Prereq: 3.0.1.2
  466. *** agent/pl/analyze.pl.old    Fri Jul  1 17:16:15 1994
  467. --- agent/pl/analyze.pl    Fri Jul  1 17:16:15 1994
  468. ***************
  469. *** 1,4 ****
  470. ! ;# $Id: analyze.pl,v 3.0.1.2 1994/04/25 15:17:24 ram Exp $
  471.   ;#
  472.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  473.   ;#  
  474. --- 1,4 ----
  475. ! ;# $Id: analyze.pl,v 3.0.1.3 1994/07/01 14:59:58 ram Exp $
  476.   ;#
  477.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  478.   ;#  
  479. ***************
  480. *** 9,14 ****
  481. --- 9,20 ----
  482.   ;#  of the source tree for mailagent 3.0.
  483.   ;#
  484.   ;# $Log: analyze.pl,v $
  485. + ;# Revision 3.0.1.3  1994/07/01  14:59:58  ram
  486. + ;# patch8: general umask is now reset before analyzing a message
  487. + ;# patch8: added support for the UMASK command for local rule scope
  488. + ;# patch8: now parses the new tome config variable for vacation messages
  489. + ;# patch8: disable vacation message if Illegal-Object or Illegal-Field header
  490. + ;#
  491.   ;# Revision 3.0.1.2  1994/04/25  15:17:24  ram
  492.   ;# patch7: fixed selector combination logic and added some debug logs
  493.   ;#
  494. ***************
  495. *** 60,65 ****
  496. --- 66,74 ----
  497.       local($vacation) = 1;        # Vacation message allowed a priori
  498.       local($header);                # Header entry name to look for in Header table
  499.   
  500. +     # Reset umask
  501. +     umask($cf'umask);
  502. + 
  503.       # Parse the mail message in file
  504.       &parse_mail($file);            # Parse the mail and fill-in H tables
  505.       return 0 unless defined $Header{'All'};        # Mail not parsed correctly
  506. ***************
  507. *** 190,196 ****
  508.           undef %Inverted;                        # Reset negated patterns
  509.           $rules = $_;                            # Work on a copy
  510.           $rules =~ s/^([^{]*){// && ($mode = $1);    # First word is the mode
  511. !         $rules =~ s/\s*(.*)}// && ($action = $1);    # Followed by action
  512.           $mode =~ s/\s*$//;                            # Remove trailing spaces
  513.           $rules =~ s/^\s+//;                        # Remove leading spaces
  514.           $last_selector = "";                    # Last selector used
  515. --- 199,205 ----
  516.           undef %Inverted;                        # Reset negated patterns
  517.           $rules = $_;                            # Work on a copy
  518.           $rules =~ s/^([^{]*){// && ($mode = $1);    # First word is the mode
  519. !         $rules =~ s/\s*(.*)}// && ($action = $1);    # Followed by action }
  520.           $mode =~ s/\s*$//;                            # Remove trailing spaces
  521.           $rules =~ s/^\s+//;                        # Remove leading spaces
  522.           $last_selector = "";                    # Last selector used
  523. ***************
  524. *** 291,297 ****
  525. --- 300,310 ----
  526.               &add_log("MATCH on rule #$j in mode $wmode") if $loglvl > 8;
  527.               &track_rule($j, $wmode) if $track_all;
  528.               &s_match($j, $wmode) if $stats;    # Record match for statistics
  529. + 
  530. +             &u_mask'init;    # Built-in support for local umask setting
  531.               $status = &xeqte($action);
  532. +             &u_mask'reset;    # Restore previous umask if set locally in rules
  533. + 
  534.               last rule if $status == $FT_CONT;
  535.               $ever_matched = 0;                # No match if REJECT or RESTART
  536.               next rule if $status == $FT_REJECT;
  537. ***************
  538. *** 344,360 ****
  539. --- 357,398 ----
  540.       # was sent to the user directly, through a 'To:' or a 'Cc:'. Otherwise,
  541.       # it must be from a mailing list or a 'Bcc:' and we don't want to
  542.       # send something back in that case.
  543. + 
  544.       local($matched) = &match_list("To", $cf'user);
  545.       $matched = &match_list("Cc", $cf'user) unless $matched;
  546. + 
  547. +     # Try alternate login names, in case they used a company-wide alias like
  548. +     # First.Last or simply a plain sendmail alias.
  549. + 
  550. +     if (!$matched && $cf'tome ne '') {
  551. +         foreach $addr (split(/\s*,\s*/, $cf'tome)) {
  552. +             $matched = &match_list('To', $addr);
  553. +             $matched = &match_list('Cc', $addr) unless $matched;
  554. +             if ($matched) {
  555. +                 &add_log("mail was sent to alternate $addr") if $loglvl > 8;
  556. +                 last;
  557. +             } else {
  558. +                 &add_log("mail wasn't sent to alternate $addr") if $loglvl > 12;
  559. +             }
  560. +         }
  561. +     }
  562. + 
  563.       unless ($matched) {
  564.           &add_log("mail was not directly sent to $cf'user") if $loglvl > 8;
  565.           return 1;
  566.       }
  567. + 
  568.       # If there is a Precedence: header set to either 'bulk', 'list' or 'junk',
  569.       # then we do not reply either.
  570.       local($prec) = $Header{'Precedence'};
  571.       if ($prec =~ /^bulk|junk|list/i) {
  572.           &add_log("mail was tagged with a '$prec' precedence") if $loglvl > 8;
  573. +         return 1;
  574. +     }
  575. +     # If there is an RFC-886 Illegal-Object or Illegal-Field header, do not
  576. +     # trust the whole header integrity, and therefore do not reply.
  577. +     if ($Header{'Illegal-Object'} ne '' || $Header{'Illegal-Field'} ne '') {
  578. +         &add_log("mail was received with header errors") if $loglvl > 8;
  579.           return 1;
  580.       }
  581.       # Make sure the mail does not come from a "special" user, as listed in
  582.  
  583. Index: agent/test/cmd/vacation.t
  584. Prereq: 3.0
  585. *** agent/test/cmd/vacation.t.old    Fri Jul  1 17:16:28 1994
  586. --- agent/test/cmd/vacation.t    Fri Jul  1 17:16:28 1994
  587. ***************
  588. *** 1,6 ****
  589.   # The VACATION command
  590.   
  591. ! # $Id: vacation.t,v 3.0 1993/11/29 13:49:55 ram Exp $
  592.   #
  593.   #  Copyright (c) 1990-1993, Raphael Manfredi
  594.   #  
  595. --- 1,6 ----
  596.   # The VACATION command
  597.   
  598. ! # $Id: vacation.t,v 3.0.1.1 1994/07/01 15:09:13 ram Exp $
  599.   #
  600.   #  Copyright (c) 1990-1993, Raphael Manfredi
  601.   #  
  602. ***************
  603. *** 11,16 ****
  604. --- 11,20 ----
  605.   #  of the source tree for mailagent 3.0.
  606.   #
  607.   # $Log: vacation.t,v $
  608. + # Revision 3.0.1.1  1994/07/01  15:09:13  ram
  609. + # patch8: added check for no vacation when Illegal-Object or Illegal-Field
  610. + # patch8: make sure the new tome config variable is honored
  611. + #
  612.   # Revision 3.0  1993/11/29  13:49:55  ram
  613.   # Baseline for mailagent 3.0 netwide release.
  614.   #
  615. ***************
  616. *** 19,24 ****
  617. --- 23,33 ----
  618.   do '../pl/mta.pl';
  619.   unlink $user, 'dbr/c/o';
  620.   
  621. + sub cleanup {
  622. +     unlink 'send.mail', $user;
  623. + }
  624. + 
  625. + `rm -rf dbr`;        # Enable vacation messages
  626.   &add_option("-o 'vacation: ON' -o 'user: ram'");
  627.   
  628.   open(VACATION, '>.vacation') || print "1\n";
  629. ***************
  630. *** 39,50 ****
  631.   &check_log('^Recipients: compilers-request@iecc', 9) == 1 || print "10\n";
  632.   &check_log('^Sent by compilers-request.$', 11) == 1 || print "12\n";
  633.   
  634. ! unlink 'send.mail', $user;
  635.   `$cmd`;                            # This time, no vacation message
  636.   $? == 0 || print "13\n";
  637. ! -f "$user" || print "14\n";        # Mail not saved
  638. ! -f 'send.mail' && print "15\n";
  639.   
  640.   &clear_mta;
  641.   unlink 'mail', '.vacation';
  642.   print "0\n";
  643. --- 48,109 ----
  644.   &check_log('^Recipients: compilers-request@iecc', 9) == 1 || print "10\n";
  645.   &check_log('^Sent by compilers-request.$', 11) == 1 || print "12\n";
  646.   
  647. ! &cleanup;
  648.   `$cmd`;                            # This time, no vacation message
  649.   $? == 0 || print "13\n";
  650. ! -f "$user" || print "14\n";        # Mail not saved, default rule applied
  651. ! -f 'send.mail' && print "15\n";    # No vacation message sent
  652. ! 
  653. ! `rm -rf dbr`;        # Enable vacation messages
  654. ! 
  655. ! # Make sure vacation message is also sent when a rule match occurs
  656. ! 
  657. ! &replace_header('X-Tag: vacation #2');
  658. ! &cleanup;
  659. ! `$cmd`;
  660. ! $? == 0 || print "29\n";
  661. ! -f "$user" && print "30\n";        # Mail has been deleted
  662. ! &get_log(31, 'send.mail');
  663. ! &check_log('^$', 32) == 1 || print "33\n";
  664. ! &check_log('^Subject: Re: melting', 34) == 1 || print "35\n";
  665. ! &check_log('^Recipients: compilers-request@iecc', 36) == 1 || print "37\n";
  666. ! &check_log('^Sent by compilers-request.$', 38) == 1 || print "39\n";
  667. ! 
  668. ! `rm -rf dbr`;        # Enable vacation messages
  669. ! 
  670. ! # Ensure vacation message is sent when mail was addressed to an alias
  671. ! 
  672. ! &replace_header('To: Raphael.Manfredi@acri.fr');
  673. ! &cleanup;
  674. ! &add_option('-o tome:rmanfredi,manfredi');
  675. ! `$cmd`;
  676. ! $? == 0 || print "40\n";
  677. ! -f "$user" && print "41\n";        # Mail has been deleted
  678. ! -f 'send.mail' || print "42\n";    # Assume OK at that point if mail exists
  679. ! 
  680. ! &replace_header('X-Tag: vacation');    # Restore non-matching header
  681. ! `rm -rf dbr`;                        # Enable vacation messages
  682. ! 
  683. ! &cleanup;
  684. ! &add_header('Illegal-Object: true');    # Will prevent vacation
  685. ! `$cmd`;
  686. ! $? == 0 || print "16\n";
  687. ! -f "$user" || print "17\n";        # Mail not saved, default rule applied
  688. ! -f 'send.mail' && print "18\n";    # No vacation message sent
  689. ! &get_log(19, $user);
  690. ! &check_log('^Illegal-Object:', 20) == 1 || print "21\n";
  691. ! 
  692. ! &cleanup;
  693. ! &replace_header('Illegal-Object:', 'mail', 'Illegal-Field: from');
  694. ! `$cmd`;
  695. ! $? == 0 || print "22\n";
  696. ! -f "$user" || print "23\n";        # Mail not saved, default rule applied
  697. ! -f 'send.mail' && print "24\n";    # No vacation message sent
  698. ! &get_log(25, $user);
  699. ! ¬_log('^Illegal-Object:', 26);
  700. ! &check_log('^Illegal-Field:', 27) == 1 || print "28\n";
  701.   
  702. + # Last: 42
  703.   &clear_mta;
  704.   unlink 'mail', '.vacation';
  705.   print "0\n";
  706.  
  707. Index: agent/pl/filter.pl
  708. Prereq: 3.0.1.1
  709. *** agent/pl/filter.pl.old    Fri Jul  1 17:16:16 1994
  710. --- agent/pl/filter.pl    Fri Jul  1 17:16:17 1994
  711. ***************
  712. *** 1,4 ****
  713. ! ;# $Id: filter.pl,v 3.0.1.1 1994/01/26 09:31:43 ram Exp $
  714.   ;#
  715.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  716.   ;#  
  717. --- 1,4 ----
  718. ! ;# $Id: filter.pl,v 3.0.1.2 1994/07/01 15:00:30 ram Exp $
  719.   ;#
  720.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  721.   ;#  
  722. ***************
  723. *** 9,14 ****
  724. --- 9,17 ----
  725.   ;#  of the source tree for mailagent 3.0.
  726.   ;#
  727.   ;# $Log: filter.pl,v $
  728. + ;# Revision 3.0.1.2  1994/07/01  15:00:30  ram
  729. + ;# patch8: new UMASK command
  730. + ;#
  731.   ;# Revision 3.0.1.1  1994/01/26  09:31:43  ram
  732.   ;# patch5: added tags to UNIQUE and RECORD commands
  733.   ;#
  734. ***************
  735. *** 597,602 ****
  736. --- 600,622 ----
  737.       }
  738.       $ever_saved = 1 if $saved;        # Mark mail as saved if appropriate
  739.       $saved ? $failed : 1;            # Force failure if never saved
  740. + }
  741. + 
  742. + # Run the UMASK command
  743. + sub run_umask {
  744. +     local($mask) = $cmd =~ m|^\w+\s+(.*)|;
  745. +     local($local);            # True if -l option is given, for local setting
  746. +     $local = $mask =~ s/^-l\s+//;
  747. +     $mask = oct($mask) if $mask =~ /^0/;
  748. +     if ($local) {
  749. +         &u_mask'set($mask);    # Record previous value, restored when leaving rule
  750. +     } else {
  751. +         umask($mask);
  752. +     }
  753. +     local($omask) = sprintf("0%o", $mask);    # Octal string, for logging
  754. +     $local = $local ? ' locally' : '';
  755. +     &add_log("UMASK [$mfile] set to ${omask}$local") if $loglvl > 7;
  756. +     0;    # Ok
  757.   }
  758.   
  759.   # For SAVE, STORE or WRITE, the job is the same
  760.  
  761. Index: agent/test/pl/filter.pl
  762. Prereq: 3.0
  763. *** agent/test/pl/filter.pl.old    Fri Jul  1 17:16:29 1994
  764. --- agent/test/pl/filter.pl    Fri Jul  1 17:16:30 1994
  765. ***************
  766. *** 1,16 ****
  767.   # Common actions at the top of each filtering test
  768.   
  769. ! # $Id: filter.pl,v 3.0 1993/11/29 13:50:23 ram Exp $
  770. ! #
  771. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  772. ! #  
  773. ! #  You may redistribute only under the terms of the Artistic License,
  774. ! #  as specified in the README file that comes with the distribution.
  775. ! #  You may reuse parts of this distribution only within the terms of
  776. ! #  that same Artistic License; a copy of which may be found at the root
  777. ! #  of the source tree for mailagent 3.0.
  778. ! #
  779. ! # $Log: filter.pl,v $
  780.   ;# Revision 3.0  1993/11/29  13:50:23  ram
  781.   ;# Baseline for mailagent 3.0 netwide release.
  782.   ;#
  783. --- 1,19 ----
  784.   # Common actions at the top of each filtering test
  785.   
  786. ! ;# $Id: filter.pl,v 3.0.1.1 1994/07/01 15:10:19 ram Exp $
  787. ! ;#
  788. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  789. ! ;#  
  790. ! ;#  You may redistribute only under the terms of the Artistic License,
  791. ! ;#  as specified in the README file that comes with the distribution.
  792. ! ;#  You may reuse parts of this distribution only within the terms of
  793. ! ;#  that same Artistic License; a copy of which may be found at the root
  794. ! ;#  of the source tree for mailagent 3.0.
  795. ! ;#
  796. ! ;# $Log: filter.pl,v $
  797. ! ;# Revision 3.0.1.1  1994/07/01  15:10:19  ram
  798. ! ;# patch8: now uses the cp_mail routine to copy mail
  799. ! ;#
  800.   ;# Revision 3.0  1993/11/29  13:50:23  ram
  801.   ;# Baseline for mailagent 3.0 netwide release.
  802.   ;#
  803. ***************
  804. *** 18,26 ****
  805.   do '../pl/init.pl';
  806.   chdir '../out';
  807.   do '../pl/mail.pl';
  808. ! `cp ../mail .`;
  809.   $user = $ENV{'USER'};
  810. ! unlink "$user", 'agentlog';
  811.   $cmd = "$mailagent -L $ENV{'LEVEL'} -r ../rules mail 2>/dev/null";
  812.   
  813.   # Re-create pattern list
  814. --- 21,29 ----
  815.   do '../pl/init.pl';
  816.   chdir '../out';
  817.   do '../pl/mail.pl';
  818. ! &cp_mail;                # From mail.pl
  819.   $user = $ENV{'USER'};
  820. ! unlink $user, 'agentlog';
  821.   $cmd = "$mailagent -L $ENV{'LEVEL'} -r ../rules mail 2>/dev/null";
  822.   
  823.   # Re-create pattern list
  824.  
  825. Index: agent/test/pl/mail.pl
  826. Prereq: 3.0
  827. *** agent/test/pl/mail.pl.old    Fri Jul  1 17:16:31 1994
  828. --- agent/test/pl/mail.pl    Fri Jul  1 17:16:31 1994
  829. ***************
  830. *** 1,16 ****
  831.   # Utilities to twinkle default mail message
  832.   
  833. ! # $Id: mail.pl,v 3.0 1993/11/29 13:50:25 ram Exp $
  834. ! #
  835. ! #  Copyright (c) 1990-1993, Raphael Manfredi
  836. ! #  
  837. ! #  You may redistribute only under the terms of the Artistic License,
  838. ! #  as specified in the README file that comes with the distribution.
  839. ! #  You may reuse parts of this distribution only within the terms of
  840. ! #  that same Artistic License; a copy of which may be found at the root
  841. ! #  of the source tree for mailagent 3.0.
  842. ! #
  843. ! # $Log: mail.pl,v $
  844.   ;# Revision 3.0  1993/11/29  13:50:25  ram
  845.   ;# Baseline for mailagent 3.0 netwide release.
  846.   ;#
  847. --- 1,21 ----
  848.   # Utilities to twinkle default mail message
  849.   
  850. ! ;# $Id: mail.pl,v 3.0.1.1 1994/07/01 15:11:46 ram Exp $
  851. ! ;#
  852. ! ;#  Copyright (c) 1990-1993, Raphael Manfredi
  853. ! ;#  
  854. ! ;#  You may redistribute only under the terms of the Artistic License,
  855. ! ;#  as specified in the README file that comes with the distribution.
  856. ! ;#  You may reuse parts of this distribution only within the terms of
  857. ! ;#  that same Artistic License; a copy of which may be found at the root
  858. ! ;#  of the source tree for mailagent 3.0.
  859. ! ;#
  860. ! ;# $Log: mail.pl,v $
  861. ! ;# Revision 3.0.1.1  1994/07/01  15:11:46  ram
  862. ! ;# patch8: fixed RCS leading comment string
  863. ! ;# patch8: now defines the cp_mail routine
  864. ! ;# patch8: the replace_header routine can now supersede header lines
  865. ! ;#
  866.   ;# Revision 3.0  1993/11/29  13:50:25  ram
  867.   ;# Baseline for mailagent 3.0 netwide release.
  868.   ;#
  869. ***************
  870. *** 31,39 ****
  871.       rename("$file.x", "$file");
  872.   }
  873.   
  874. ! # Change first matching header with new value
  875.   sub replace_header {
  876. !     local($header, $file) = @_;
  877.       $file = 'mail' unless $file;
  878.       local($field) = $header =~ /^(\S+):/;
  879.       local($_);
  880. --- 36,50 ----
  881.       rename("$file.x", "$file");
  882.   }
  883.   
  884. ! # Change first matching header with new value. If $supersede is given, then
  885. ! # the it is used instead. This enables:
  886. ! #    &replace_header('To:', 'xxx', 'Cc: me')
  887. ! # to replace the whole first To: line by a Cc: header. If this third argument
  888. ! # is not supplied, then the first one is used verbatim, which is the case in
  889. ! # most calls to this routine.
  890.   sub replace_header {
  891. !     local($header, $file, $supersede) = @_;
  892. !     $supersede = $header unless defined $supersede;
  893.       $file = 'mail' unless $file;
  894.       local($field) = $header =~ /^(\S+):/;
  895.       local($_);
  896. ***************
  897. *** 41,47 ****
  898.       open(OLD, "$file");
  899.       while (<OLD>) {
  900.           if ((1../^$/) && eval "/^$field:/") {
  901. !             print NEW $header, "\n";
  902.               next;
  903.           }
  904.           print NEW;
  905. --- 52,58 ----
  906.       open(OLD, "$file");
  907.       while (<OLD>) {
  908.           if ((1../^$/) && eval "/^$field:/") {
  909. !             print NEW $supersede, "\n";
  910.               next;
  911.           }
  912.           print NEW;
  913. ***************
  914. *** 58,62 ****
  915. --- 69,83 ----
  916.       open(NEW, ">>$file");
  917.       print NEW $line, "\n";
  918.       close NEW;
  919. + }
  920. + 
  921. + # Copy mail in out/
  922. + sub cp_mail {
  923. +     local($_);
  924. +     open(MAIL, '../mail');
  925. +     open(HERE, '>mail');
  926. +     print HERE while <MAIL>;
  927. +     close MAIL;
  928. +     close HERE;
  929.   }
  930.   
  931.  
  932. Index: agent/filter/io.c
  933. Prereq: 3.0.1.1
  934. *** agent/filter/io.c.old    Fri Jul  1 17:16:03 1994
  935. --- agent/filter/io.c    Fri Jul  1 17:16:03 1994
  936. ***************
  937. *** 11,17 ****
  938.   */
  939.   
  940.   /*
  941. !  * $Id: io.c,v 3.0.1.1 1994/01/26 09:27:13 ram Exp $
  942.    *
  943.    *  Copyright (c) 1990-1993, Raphael Manfredi
  944.    *  
  945. --- 11,17 ----
  946.   */
  947.   
  948.   /*
  949. !  * $Id: io.c,v 3.0.1.2 1994/07/01 14:52:04 ram Exp $
  950.    *
  951.    *  Copyright (c) 1990-1993, Raphael Manfredi
  952.    *  
  953. ***************
  954. *** 22,27 ****
  955. --- 22,30 ----
  956.    *  of the source tree for mailagent 3.0.
  957.    *
  958.    * $Log: io.c,v $
  959. +  * Revision 3.0.1.2  1994/07/01  14:52:04  ram
  960. +  * patch8: now honours the queuewait config variable when present
  961. +  *
  962.    * Revision 3.0.1.1  1994/01/26  09:27:13  ram
  963.    * patch5: now only try to include <sys/fcntl.h> when hope is lost
  964.    * patch5: filter will now put itself in daemon state while waiting
  965. ***************
  966. *** 76,81 ****
  967. --- 79,85 ----
  968.   #define BUFSIZE        1024            /* Amount of bytes read in a single call */
  969.   #define CHUNK        (10 * BUFSIZE)    /* Granularity of pool */
  970.   #define MAX_STRING    2048            /* Maximum string's length */
  971. + #define QUEUE_WAIT    60                /* Default waiting time in queue */
  972.   #define AGENT_WAIT    "agent.wait"    /* File listing out-of-the-queue mails */
  973.   #define AGENT_LOCK    "perl.lock"        /* Lock file used by mailagent */
  974.   
  975. ***************
  976. *** 306,311 ****
  977. --- 310,316 ----
  978.       int xstat;                /* The exit status value */
  979.       int pid;                /* Pid of our children */
  980.       int res;                /* Result from wait */
  981. +     int delay;                /* Delay in seconds before invoking mailagent */
  982.   
  983.       if (loglvl <= 20) {        /* Loggging level higher than 20 is for tests */
  984.           pid = fork();
  985. ***************
  986. *** 320,325 ****
  987. --- 325,336 ----
  988.               goto_daemon();    /* Remaining child is to disassociate from tty */
  989.       }
  990.   
  991. +     /*
  992. +      * Compute waiting delay, defaults to QUEUE_WAIT seconds if not defined.
  993. +      */
  994. + 
  995. +     delay = get_confval("queuewait", CF_DEFAULT, QUEUE_WAIT);
  996. + 
  997.       /* Now hopefully we detached ourselves from sendmail, which thinks the mail
  998.        * has been delivered. Not yet, but close. Simply wait a little in case
  999.        * more mail is comming. This process is going to remain alive while the
  1000. ***************
  1001. *** 329,335 ****
  1002.        */
  1003.   
  1004.       if (loglvl < 12)        /* Loggging level 12 and higher is for debugging */
  1005. !         sleep(60);            /* Delay invocation of mailagent */
  1006.       progpid = getpid();        /* This may be the child (if fork succeded) */
  1007.       envp = make_env();        /* Build new environment */
  1008.   
  1009. --- 340,346 ----
  1010.        */
  1011.   
  1012.       if (loglvl < 12)        /* Loggging level 12 and higher is for debugging */
  1013. !         sleep(delay);        /* Delay invocation of mailagent */
  1014.       progpid = getpid();        /* This may be the child (if fork succeded) */
  1015.       envp = make_env();        /* Build new environment */
  1016.   
  1017.  
  1018. Index: agent/filter/lock.c
  1019. Prereq: 3.0
  1020. *** agent/filter/lock.c.old    Fri Jul  1 17:16:03 1994
  1021. --- agent/filter/lock.c    Fri Jul  1 17:16:04 1994
  1022. ***************
  1023. *** 11,17 ****
  1024.   */
  1025.   
  1026.   /*
  1027. !  * $Id: lock.c,v 3.0 1993/11/29 13:48:12 ram Exp $
  1028.    *
  1029.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1030.    *  
  1031. --- 11,17 ----
  1032.   */
  1033.   
  1034.   /*
  1035. !  * $Id: lock.c,v 3.0.1.1 1994/07/01 14:52:28 ram Exp $
  1036.    *
  1037.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1038.    *  
  1039. ***************
  1040. *** 22,27 ****
  1041. --- 22,30 ----
  1042.    *  of the source tree for mailagent 3.0.
  1043.    *
  1044.    * $Log: lock.c,v $
  1045. +  * Revision 3.0.1.1  1994/07/01  14:52:28  ram
  1046. +  * patch8: now honours the lockhold config variable if present
  1047. +  *
  1048.    * Revision 3.0  1993/11/29  13:48:12  ram
  1049.    * Baseline for mailagent 3.0 netwide release.
  1050.    *
  1051. ***************
  1052. *** 29,34 ****
  1053. --- 32,38 ----
  1054.   
  1055.   #include "config.h"
  1056.   #include "portable.h"
  1057. + #include "parser.h"
  1058.   #include <errno.h>
  1059.   #include <sys/types.h>
  1060.   #include <sys/stat.h>
  1061. ***************
  1062. *** 95,104 ****
  1063.   char *file;
  1064.   {
  1065.       /* Make sure the lock file is not older than MAX_TIME seconds, otherwise
  1066. !      * unlink it (something must have gone wrong).
  1067.        */
  1068.   
  1069.       struct stat buf;
  1070.   
  1071.       if (-1 == stat(file, &buf)) {        /* Stat failed */
  1072.           if (errno == ENOENT)            /* File does not exist */
  1073. --- 99,110 ----
  1074.   char *file;
  1075.   {
  1076.       /* Make sure the lock file is not older than MAX_TIME seconds, otherwise
  1077. !      * unlink it (something must have gone wrong). If the lockhold parameter
  1078. !      * is set in ~/.mailagent, use that instead for timeout.
  1079.        */
  1080.   
  1081.       struct stat buf;
  1082. +     int hold;            /* Lockfile timeout */
  1083.   
  1084.       if (-1 == stat(file, &buf)) {        /* Stat failed */
  1085.           if (errno == ENOENT)            /* File does not exist */
  1086. ***************
  1087. *** 108,120 ****
  1088.           return;
  1089.       }
  1090.   
  1091. !     if (time((Time_t *) 0) - buf.st_mtime > MAX_TIME) {
  1092.           if (-1 == unlink(lockfile)) {
  1093.               add_log(1, "SYSERR unlink: %m (%e)");
  1094.               add_log(4, "WARNING could not remove old lock %s", lockfile);
  1095.           } else
  1096. !             add_log(6, "UNLOCKED filter (lock older than 1 hour)");
  1097.       } else
  1098. !         add_log(16, "lockfile for filter is recent");
  1099.   }
  1100.   
  1101. --- 114,136 ----
  1102.           return;
  1103.       }
  1104.   
  1105. !     /*
  1106. !      * Get lockhold if defined, or use hardwired MAX_TIME.
  1107. !      */
  1108. ! 
  1109. !     hold = get_confval("lockhold", CF_DEFAULT, MAX_TIME);
  1110. ! 
  1111. !     /*
  1112. !      * Break lock if older than 'hold' seconds, otherwise honour it.
  1113. !      */
  1114. ! 
  1115. !     if (time((Time_t *) 0) - buf.st_mtime > hold) {
  1116.           if (-1 == unlink(lockfile)) {
  1117.               add_log(1, "SYSERR unlink: %m (%e)");
  1118.               add_log(4, "WARNING could not remove old lock %s", lockfile);
  1119.           } else
  1120. !             add_log(6, "UNLOCKED filter (lock older than %d seconds)", hold);
  1121.       } else
  1122. !         add_log(16, "lockfile for filter is recent (%d seconds or less), hold");
  1123.   }
  1124.   
  1125.  
  1126. Index: agent/test/actions
  1127. Prereq: 3.0.1.4
  1128. *** agent/test/actions.old    Fri Jul  1 17:16:24 1994
  1129. --- agent/test/actions    Fri Jul  1 17:16:24 1994
  1130. ***************
  1131. *** 2,8 ****
  1132.   # Mailagent rules for action regression tests
  1133.   #
  1134.   
  1135. ! # $Id: actions,v 3.0.1.4 1994/04/25 15:24:12 ram Exp $
  1136.   #
  1137.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1138.   #  
  1139. --- 2,8 ----
  1140.   # Mailagent rules for action regression tests
  1141.   #
  1142.   
  1143. ! # $Id: actions,v 3.0.1.5 1994/07/01 15:06:56 ram Exp $
  1144.   #
  1145.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1146.   #  
  1147. ***************
  1148. *** 13,18 ****
  1149. --- 13,23 ----
  1150.   #  of the source tree for mailagent 3.0.
  1151.   #
  1152.   # $Log: actions,v $
  1153. + # Revision 3.0.1.5  1994/07/01  15:06:56  ram
  1154. + # patch8: added exit status test for PERL command
  1155. + # patch8: added new test for vacation message with tome config variable
  1156. + # patch8: new set of tests for the new UMASK command
  1157. + #
  1158.   # Revision 3.0.1.4  1994/04/25  15:24:12  ram
  1159.   # patch7: check bug reported by Andy Seaborne <afs@hplb.hpl.hp.com>
  1160.   #
  1161. ***************
  1162. *** 156,161 ****
  1163. --- 161,167 ----
  1164.   }
  1165.   
  1166.   X-Tag: /perl/    { REJECT PERL };
  1167. + <PERL>            { PERL perl.2 exit_1; REJECT -t; SAVE exit_ok; REJECT };
  1168.   <PERL>            { PERL perl.1; SAVE never };
  1169.   <PERL>            { PERL perl.2 'arg 1' "arg 2"; SAVE never };
  1170.   <PERL>            { PERL perl.1; SAVE never };
  1171. ***************
  1172. *** 281,286 ****
  1173. --- 287,341 ----
  1174.       DELETE;
  1175.   }
  1176.   
  1177. + X-Tag: /umask #1/        { REJECT UMASK; };
  1178. + <UMASK>    {
  1179. +     UMASK -l 0444;
  1180. +     PERL umask_is 0444;
  1181. +     REJECT -f UMASKF;
  1182. +     SAVE ok.1;
  1183. +     REJECT;
  1184. + };
  1185. + <UMASK> {
  1186. +     PERL umask_is %=umask;
  1187. +     REJECT -f UMASKF;
  1188. +     SAVE ok.2;
  1189. +     UMASK 0555;
  1190. +     REJECT;
  1191. + };
  1192. + <UMASK> {
  1193. +     PERL umask_is 0555;
  1194. +     REJECT -f UMASKF;
  1195. +     DELETE;
  1196. + };
  1197. + 
  1198. + X-Tag: /umask #2/        { REJECT UMASK; };
  1199. + <UMASK> {
  1200. +     UMASK 0444;
  1201. +     PERL umask_is 0444;
  1202. +     REJECT -f UMASKF;
  1203. +     SAVE ok.1;
  1204. +     UMASK -l 0555;
  1205. +     PERL umask_is 0555;
  1206. +     REJECT -f UMASKF;
  1207. +     REJECT;
  1208. + };
  1209. + <UMASK> {
  1210. +     PERL umask_is 0444;
  1211. +     REJECT -f UMASKF;
  1212. +     SAVE ok.2;
  1213. + };
  1214. + 
  1215. + X-Tag: /umask #3/        { REJECT UMASK; };
  1216. + <UMASK> {
  1217. +     PERL umask_is 0555;
  1218. +     REJECT -t UMASKF;
  1219. +     PERL umask_is %=umask;
  1220. +     REJECT -f UMASKF;
  1221. +     SAVE ok.3;
  1222. + };
  1223. + 
  1224. + <UMASKF>    { SAVE never; };
  1225. + 
  1226.   X-Tag: /unique #1/                { UNIQUE; SAVE %u.1 };
  1227.   <_SEEN_> X-Tag: /unique #1/        { SAVE %u.1 };
  1228.   X-Tag: /unique #1/                { SAVE %u.2 };
  1229. ***************
  1230. *** 295,300 ****
  1231. --- 350,357 ----
  1232.   X-Tag: /unique #6/            { UNIQUE (tag); REJECT -f; SAVE %u.1; REJECT };
  1233.   X-Tag: /unique #6/            { UNIQUE (other); REJECT -f; SAVE %u.2; REJECT };
  1234.   X-Tag: /unique #6/            { UNIQUE -a; SAVE %u.3 };
  1235. + 
  1236. + X-Tag: /vacation #2/        { DELETE };
  1237.   
  1238.   X-Tag: /write #1/    { WRITE mbox };
  1239.   X-Tag: /write #2/    { WRITE path/another/third/mbox };
  1240.  
  1241. Index: agent/filter/parser.c
  1242. Prereq: 3.0.1.1
  1243. *** agent/filter/parser.c.old    Fri Jul  1 17:16:05 1994
  1244. --- agent/filter/parser.c    Fri Jul  1 17:16:05 1994
  1245. ***************
  1246. *** 11,17 ****
  1247.   */
  1248.   
  1249.   /*
  1250. !  * $Id: parser.c,v 3.0.1.1 1994/01/26 09:27:37 ram Exp $
  1251.    *
  1252.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1253.    *  
  1254. --- 11,17 ----
  1255.   */
  1256.   
  1257.   /*
  1258. !  * $Id: parser.c,v 3.0.1.2 1994/07/01 14:53:57 ram Exp $
  1259.    *
  1260.    *  Copyright (c) 1990-1993, Raphael Manfredi
  1261.    *  
  1262. ***************
  1263. *** 22,27 ****
  1264. --- 22,30 ----
  1265.    *  of the source tree for mailagent 3.0.
  1266.    *
  1267.    * $Log: parser.c,v $
  1268. +  * Revision 3.0.1.2  1994/07/01  14:53:57  ram
  1269. +  * patch8: new routine get_confval to get integer config variables
  1270. +  *
  1271.    * Revision 3.0.1.1  1994/01/26  09:27:37  ram
  1272.    * patch5: typo fix in a comment
  1273.    *
  1274. ***************
  1275. *** 34,39 ****
  1276. --- 37,43 ----
  1277.   #include "portable.h"
  1278.   #include "hash.h"
  1279.   #include "msg.h"
  1280. + #include "parser.h"
  1281.   #include <sys/types.h>
  1282.   #include "logfile.h"
  1283.   #include "environ.h"
  1284. ***************
  1285. *** 161,170 ****
  1286.           fatal("logfile not defined");
  1287.       strcat(logfile, value);
  1288.   
  1289. !     value = ht_value(&symtab, "level");        /* Fetch logging level */
  1290. !     if (value == (char *) 0)
  1291. !         fatal("no logging level defined");
  1292. !     sscanf(value, "%d", &level);
  1293.   
  1294.       set_loglvl(level);                        /* Logging level wanted */
  1295.       if (-1 == open_log(logfile))
  1296. --- 165,171 ----
  1297.           fatal("logfile not defined");
  1298.       strcat(logfile, value);
  1299.   
  1300. !     level = get_confval("level", CF_MANDATORY);
  1301.   
  1302.       set_loglvl(level);                        /* Logging level wanted */
  1303.       if (-1 == open_log(logfile))
  1304. ***************
  1305. *** 287,292 ****
  1306. --- 288,325 ----
  1307.           if (-1 == set_env("TZ", tz))
  1308.               add_log(1, "ERROR cannot set TZ variable");
  1309.       }
  1310. + }
  1311. + 
  1312. + public int get_confval(name, type, dflt)
  1313. + char *name;        /* Option name */
  1314. + int type;        /* Type: mandatory or may be defaulted */
  1315. + int dflt;        /* Default value to be used if option not defined */
  1316. + {
  1317. +     /* Return value for option and use default if not defined, or yield a
  1318. +      * fatal error when option is mandatory.
  1319. +      */
  1320. + 
  1321. +     char buffer[MAX_STRING];
  1322. +     char *namestr;        /* String in H table */
  1323. +     int val;            /* Returned value */
  1324. + 
  1325. +     namestr = ht_value(&symtab, name);
  1326. +     if (namestr == (char *) 0) {
  1327. +         switch(type) {
  1328. +         case CF_MANDATORY:    /* Variable should have been defined */
  1329. +             sprintf(buffer, "variable '%s' not defined in config file", name);
  1330. +             fatal(buffer);
  1331. +             /* NOTREACHED */
  1332. +         case CF_DEFAULT:    /* May use default if variable not defined */
  1333. +             val = dflt;
  1334. +             break;
  1335. +         default:
  1336. +             fatal("BUG: get_confval");
  1337. +         }
  1338. +     } else
  1339. +         sscanf(namestr, "%d", &val);
  1340. + 
  1341. +     return val;
  1342.   }
  1343.   
  1344.   private void substitute(value)
  1345.  
  1346. Index: config_h.SH
  1347. Prereq: 3.0.1.1
  1348. *** config_h.SH.old    Fri Jul  1 17:16:33 1994
  1349. --- config_h.SH    Fri Jul  1 17:16:33 1994
  1350. ***************
  1351. *** 25,31 ****
  1352.    * that running config.h.SH again will wipe out any changes you've made.
  1353.    * For a more permanent change edit config.sh and rerun config.h.SH.
  1354.    *
  1355. !  * \$Id: config_h.SH,v 3.0.1.1 1994/01/26 09:36:20 ram Exp $
  1356.    */
  1357.   
  1358.   /* Configuration time: $cf_time
  1359. --- 25,31 ----
  1360.    * that running config.h.SH again will wipe out any changes you've made.
  1361.    * For a more permanent change edit config.sh and rerun config.h.SH.
  1362.    *
  1363. !  * \$Id: config_h.SH,v 3.0.1.2 1994/07/01 15:15:19 ram Exp $
  1364.    */
  1365.   
  1366.   /* Configuration time: $cf_time
  1367. ***************
  1368. *** 103,109 ****
  1369.   /* HAS_STRERROR:
  1370.    *    This symbol, if defined, indicates that the strerror routine is
  1371.    *    available to translate error numbers to strings. See the writeup
  1372. !  *    of strerror() in this file before you try to define your own.
  1373.    */
  1374.   /* HAS_SYS_ERRLIST:
  1375.    *    This symbol, if defined, indicates that the sys_errlist array is
  1376. --- 103,109 ----
  1377.   /* HAS_STRERROR:
  1378.    *    This symbol, if defined, indicates that the strerror routine is
  1379.    *    available to translate error numbers to strings. See the writeup
  1380. !  *    of Strerror() in this file before you try to define your own.
  1381.    */
  1382.   /* HAS_SYS_ERRLIST:
  1383.    *    This symbol, if defined, indicates that the sys_errlist array is
  1384. ***************
  1385. *** 115,121 ****
  1386.    *    available to translate an errno code into its symbolic name (e.g.
  1387.    * ENOENT). The extern int sys_nerrno gives the size of that table.
  1388.    */
  1389. ! /* strerror:
  1390.    *    This preprocessor symbol is defined as a macro if strerror() is
  1391.    *    not available to translate error numbers to strings but sys_errlist[]
  1392.    *    array is there.
  1393. --- 115,121 ----
  1394.    *    available to translate an errno code into its symbolic name (e.g.
  1395.    * ENOENT). The extern int sys_nerrno gives the size of that table.
  1396.    */
  1397. ! /* Strerror:
  1398.    *    This preprocessor symbol is defined as a macro if strerror() is
  1399.    *    not available to translate error numbers to strings but sys_errlist[]
  1400.    *    array is there.
  1401. ***************
  1402. *** 123,129 ****
  1403.   #$d_strerror HAS_STRERROR        /**/
  1404.   #$d_syserrlst HAS_SYS_ERRLIST    /**/
  1405.   #$d_sysernlst HAS_SYS_ERRNOLIST    /**/
  1406. ! #$d_strerrm strerror(e) ((e)<0||(e)>=sys_nerr?"unknown":sys_errlist[e]) /**/
  1407.   
  1408.   /* Time_t:
  1409.    *    This symbol holds the type returned by time(). It can be long,
  1410. --- 123,129 ----
  1411.   #$d_strerror HAS_STRERROR        /**/
  1412.   #$d_syserrlst HAS_SYS_ERRLIST    /**/
  1413.   #$d_sysernlst HAS_SYS_ERRNOLIST    /**/
  1414. ! #define Strerror(e) $d_strerrm
  1415.   
  1416.   /* Time_t:
  1417.    *    This symbol holds the type returned by time(). It can be long,
  1418.  
  1419. *** End of Patch 9 ***
  1420.  
  1421. exit 0 # Just in case...
  1422.