home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume44 / mailagent / patch16 < prev    next >
Encoding:
Internet Message Format  |  1994-09-22  |  28.5 KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v44i090:  mailagent - Flexible mail filtering and processing package, v3.0, Patch16
  4. Date: 22 Sep 1994 12:13:45 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <35se09$r6d@sparky.sterling.com>
  9. X-Md4-Signature: 2975c8785801f98459d2b74b3bcff527
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 44, Issue 90
  13. Archive-name: mailagent/patch16
  14. Environment: UNIX, Perl
  15. Patch-To: mailagent: Volume 41, Issue 1-26
  16.  
  17. [The latest patch for mailagent version 3.0 is #16.]
  18.  
  19. System: mailagent version 3.0
  20. Patch #: 16
  21. Priority: MEDIUM
  22. Subject: patch #12, continued
  23. Date: Thu Sep 22 17:04:40 MET DST 1994
  24. From: Raphael Manfredi <ram@acri.fr>
  25.  
  26. Description:
  27.     See patch #12.
  28.  
  29.  
  30. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  31.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  32.     If you don't have the patch program, apply the following by hand,
  33.     or get patch (version 2.0, latest patchlevel).
  34.  
  35.     After patching:
  36.         Configure -ders
  37.         make depend
  38.         make
  39.         make install
  40.         make install.man
  41.  
  42.     If patch indicates that patchlevel is the wrong version, you may need
  43.     to apply one or more previous patches, or the patch may already
  44.     have been applied.  See the patchlevel.h file to find out what has or
  45.     has not been applied.  In any event, don't continue with the patch.
  46.  
  47.     If you are missing previous patches they can be obtained from me:
  48.  
  49.         Raphael Manfredi <ram@acri.fr>
  50.  
  51.     If you send a mail message of the following form it will greatly speed
  52.     processing:
  53.  
  54.         Subject: Command
  55.         @SH mailpatch PATH mailagent 3.0 LIST
  56.                ^ note the c
  57.  
  58.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  59.     or in bang notation from some well-known host, and LIST is the number
  60.     of one or more patches you need, separated by spaces, commas, and/or
  61.     hyphens.  Saying 35- says everything from 35 to the end.
  62.  
  63.     To get some more detailed instructions, send me the following mail:
  64.  
  65.         Subject: Command
  66.         @SH mailhelp PATH
  67.  
  68.  
  69. Index: patchlevel.h
  70. Prereq: 15
  71. 4c4
  72. < #define PATCHLEVEL 15
  73. ---
  74. > #define PATCHLEVEL 16
  75.  
  76. Index: agent/pl/once.pl
  77. Prereq: 3.0
  78. *** agent/pl/once.pl.old    Thu Sep 22 16:43:18 1994
  79. --- agent/pl/once.pl    Thu Sep 22 16:43:18 1994
  80. ***************
  81. *** 1,4 ****
  82. ! ;# $Id: once.pl,v 3.0 1993/11/29 13:49:04 ram Exp $
  83.   ;#
  84.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  85.   ;#  
  86. --- 1,4 ----
  87. ! ;# $Id: once.pl,v 3.0.1.1 1994/09/22 14:28:42 ram Exp $
  88.   ;#
  89.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  90.   ;#  
  91. ***************
  92. *** 9,14 ****
  93. --- 9,17 ----
  94.   ;#  of the source tree for mailagent 3.0.
  95.   ;#
  96.   ;# $Log: once.pl,v $
  97. + ;# Revision 3.0.1.1  1994/09/22  14:28:42  ram
  98. + ;# patch12: removed useless test which prevented correct processing
  99. + ;#
  100.   ;# Revision 3.0  1993/11/29  13:49:04  ram
  101.   ;# Baseline for mailagent 3.0 netwide release.
  102.   ;#
  103. ***************
  104. *** 26,35 ****
  105.       local($ok) = 1;                        # Is once ok ?
  106.       local($timestamp) = 0;                # Time stamp attached to entry
  107.       local($linenum) = 0;                # Line where entry was found
  108. !     if (-f $file) {
  109. !         ($timestamp, $linenum) = &dbr'info($hname, 'ONCE', $tag);
  110. !         return 0 if $timestamp == -1;    # An error occurred
  111. !     }
  112.       local($now) = time;                    # Number of seconds since The Epoch
  113.       if (($timestamp + $period) > $now) {
  114.           &'add_log("we have to wait for ($hname, $tag)") if $'loglvl > 18;
  115. --- 29,36 ----
  116.       local($ok) = 1;                        # Is once ok ?
  117.       local($timestamp) = 0;                # Time stamp attached to entry
  118.       local($linenum) = 0;                # Line where entry was found
  119. !     ($timestamp, $linenum) = &dbr'info($hname, 'ONCE', $tag);
  120. !     return 0 if $timestamp == -1;        # An error occurred
  121.       local($now) = time;                    # Number of seconds since The Epoch
  122.       if (($timestamp + $period) > $now) {
  123.           &'add_log("we have to wait for ($hname, $tag)") if $'loglvl > 18;
  124.  
  125. Index: agent/files/mailagent.cf
  126. Prereq: 3.0.1.2
  127. *** agent/files/mailagent.cf.old    Thu Sep 22 16:42:49 1994
  128. --- agent/files/mailagent.cf    Thu Sep 22 16:42:50 1994
  129. ***************
  130. *** 2,8 ****
  131.   # Configuration file for mailagent
  132.   #
  133.   
  134. ! # $Id: mailagent.cf,v 3.0.1.2 1994/07/01 14:51:36 ram Exp $
  135.   #
  136.   #  Copyright (c) 1990-1993, Raphael Manfredi
  137.   #  
  138. --- 2,8 ----
  139.   # Configuration file for mailagent
  140.   #
  141.   
  142. ! # $Id: mailagent.cf,v 3.0.1.3 1994/09/22 13:44:11 ram Exp $
  143.   #
  144.   #  Copyright (c) 1990-1993, Raphael Manfredi
  145.   #  
  146. ***************
  147. *** 13,18 ****
  148. --- 13,21 ----
  149.   #  of the source tree for mailagent 3.0.
  150.   #
  151.   # $Log: mailagent.cf,v $
  152. + # Revision 3.0.1.3  1994/09/22  13:44:11  ram
  153. + # patch12: new config parameters callout and linkdirs
  154. + #
  155.   # Revision 3.0.1.2  1994/07/01  14:51:36  ram
  156.   # patch8: eleven new config variables for better tuning
  157.   #
  158. ***************
  159. *** 69,74 ****
  160. --- 72,78 ----
  161.   queue    : $spool/queue            # Queue directory (must exist)
  162.   logdir   : ~/var/log            # Where logfile is stored
  163.   context  : $spool/context        # Mailagent's context file
  164. + callout  : $spool/callout        # Callout queue
  165.   log      : agentlog                # Log file is in $logdir
  166.   seq      : .seq                    # Seq file is in $spool
  167.   timezone : PST8PDT                # Time zone location
  168. ***************
  169. *** 77,82 ****
  170. --- 81,87 ----
  171.   rulecache: $spool/rulecache        # Cache for compiled rules (optional)
  172.   nfslock  : OFF                    # NFS-secure locking (optional)
  173.   secure   : ON                    # Make extended checks on sensitive files
  174. + linkdirs : ON                    # Also carefully check symlinks to dirs
  175.   
  176.   # Mailbox parameters
  177.   maildrop : /usr/mail            # System mail drop directory (optional)
  178.  
  179. Index: agent/test/cmd/do.t
  180. *** agent/test/cmd/do.t.old    Thu Sep 22 16:43:29 1994
  181. --- agent/test/cmd/do.t    Thu Sep 22 16:43:29 1994
  182. ***************
  183. *** 0 ****
  184. --- 1,61 ----
  185. + # Test DO command
  186. + 
  187. + # $Id: do.t,v 3.0.1.1 1994/09/22 14:41:01 ram Exp $
  188. + #
  189. + #  Copyright (c) 1990-1993, Raphael Manfredi
  190. + #  
  191. + #  You may redistribute only under the terms of the Artistic License,
  192. + #  as specified in the README file that comes with the distribution.
  193. + #  You may reuse parts of this distribution only within the terms of
  194. + #  that same Artistic License; a copy of which may be found at the root
  195. + #  of the source tree for mailagent 3.0.
  196. + #
  197. + # $Log: do.t,v $
  198. + # Revision 3.0.1.1  1994/09/22  14:41:01  ram
  199. + # patch12: created
  200. + #
  201. + 
  202. + do '../pl/cmd.pl';
  203. + sub cleanup {
  204. +     unlink 'perl.1', 'perl.2', 'never', 'always', 'always.2';
  205. + }
  206. + 
  207. + &cleanup;
  208. + open(PERL, ">perl.1") || print "1\n";
  209. + print PERL <<'EOP';
  210. + sub perl_1 {
  211. +     local($name) = @_;
  212. +     &mailhook'save($name);
  213. + }
  214. + EOP
  215. + close PERL;
  216. + 
  217. + open(PERL, ">perl.2") || print "2\n";
  218. + print PERL <<'EOP';
  219. + sub perl_2 {
  220. +     return if defined &main'perl_1;
  221. +     return unless defined &__test__'perl_1;
  222. +     local($mode) = @_;
  223. +     &mailhook'reject($mode);
  224. + }
  225. + 
  226. + sub __foo__'perl_3 {
  227. +     local($name) = @_;
  228. +     return unless defined &perl_2;
  229. +     return if defined $name;
  230. +     &mailhook'abort;
  231. + }
  232. + EOP
  233. + close PERL;
  234. + 
  235. + &add_header('X-Tag: do');
  236. + `$cmd`;
  237. + $? == 0 || print "3\n";
  238. + -f "$user" && print "4\n";
  239. + -f 'never' && print "5\n";
  240. + -f 'always' || print "6\n";
  241. + -f 'always.2' || print "7\n";
  242. + 
  243. + unlink 'mail';
  244. + &cleanup;
  245. + print "0\n";
  246.  
  247. Index: agent/pl/checklock.pl
  248. Prereq: 3.0.1.1
  249. *** agent/pl/checklock.pl.old    Thu Sep 22 16:43:07 1994
  250. --- agent/pl/checklock.pl    Thu Sep 22 16:43:07 1994
  251. ***************
  252. *** 1,4 ****
  253. ! ;# $Id: checklock.pl,v 3.0.1.1 1994/07/01 15:00:20 ram Exp $
  254.   ;#
  255.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  256.   ;#  
  257. --- 1,4 ----
  258. ! ;# $Id: checklock.pl,v 3.0.1.2 1994/09/22 14:15:13 ram Exp $
  259.   ;#
  260.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  261.   ;#  
  262. ***************
  263. *** 9,14 ****
  264. --- 9,17 ----
  265.   ;#  of the source tree for mailagent 3.0.
  266.   ;#
  267.   ;# $Log: checklock.pl,v $
  268. + ;# Revision 3.0.1.2  1994/09/22  14:15:13  ram
  269. + ;# patch12: localized variables used by stat()
  270. + ;#
  271.   ;# Revision 3.0.1.1  1994/07/01  15:00:20  ram
  272.   ;# patch8: now honours new lockhold config variable for lock breaking
  273.   ;#
  274. ***************
  275. *** 24,30 ****
  276.       local($lockfile) = $file . $lockext;    # Add lock extension
  277.       if (-f $lockfile) {
  278.           # There is a lock file -- look for how long it's been there
  279. !         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  280.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($lockfile);
  281.           if ((time - $mtime) > $cf'lockhold) {
  282.               # More than outdating time!! Something must have gone wrong
  283. --- 27,33 ----
  284.       local($lockfile) = $file . $lockext;    # Add lock extension
  285.       if (-f $lockfile) {
  286.           # There is a lock file -- look for how long it's been there
  287. !         local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  288.               $atime,$mtime,$ctime,$blksize,$blocks) = stat($lockfile);
  289.           if ((time - $mtime) > $cf'lockhold) {
  290.               # More than outdating time!! Something must have gone wrong
  291.  
  292. Index: agent/pl/package.pl
  293. *** agent/pl/package.pl.old    Thu Sep 22 16:43:18 1994
  294. --- agent/pl/package.pl    Thu Sep 22 16:43:18 1994
  295. ***************
  296. *** 0 ****
  297. --- 1,44 ----
  298. + ;# $Id: package.pl,v 3.0.1.1 1994/09/22 14:29:07 ram Exp $
  299. + ;#
  300. + ;#  Copyright (c) 1990-1993, Raphael Manfredi
  301. + ;#  
  302. + ;#  You may redistribute only under the terms of the Artistic License,
  303. + ;#  as specified in the README file that comes with the distribution.
  304. + ;#  You may reuse parts of this distribution only within the terms of
  305. + ;#  that same Artistic License; a copy of which may be found at the root
  306. + ;#  of the source tree for mailagent 3.0.
  307. + ;#
  308. + ;# $Log: package.pl,v $
  309. + ;# Revision 3.0.1.1  1994/09/22  14:29:07  ram
  310. + ;# patch12: created
  311. + ;#
  312. + ;#
  313. + # Get at the .package file, created by the dist program packinit.
  314. + # Returns true if package file was read and sourced correctly within
  315. + # the pkg package, false otherwise (in which case we are likely not to
  316. + # be within a package source tree).
  317. + sub read_package {
  318. +     local($pack) = '.package';
  319. +     unless (-f $pack) {
  320. +         local(@path) = ( '..', '../..', '../../..', '../../../..');
  321. +         foreach $dir (@path) {
  322. +             if (-f "$dir/$pack") {
  323. +                 $pack = "$dir/$pack";
  324. +                 last;
  325. +             }
  326. +         }
  327. +     }
  328. +     return 0 unless -f $pack;
  329. +     open(PACKAGE, $pack) || return 0;
  330. +     while (<PACKAGE>) {
  331. +         next if /^:/;
  332. +         next if /^#/;
  333. +         if (($var,$val) = /^\s*(\w+)=(.*)/) {
  334. +             $val = "\"$val\"" unless $val =~ /^['"]/;
  335. +             eval "\$pkg'$var = $val;";
  336. +         }
  337. +     }
  338. +     close PACKAGE;
  339. +     return 1;
  340. + }
  341. + 
  342.  
  343. Index: agent/pl/history.pl
  344. Prereq: 3.0.1.1
  345. *** agent/pl/history.pl.old    Thu Sep 22 16:43:13 1994
  346. --- agent/pl/history.pl    Thu Sep 22 16:43:13 1994
  347. ***************
  348. *** 1,4 ****
  349. ! ;# $Id: history.pl,v 3.0.1.1 1994/01/26 09:32:54 ram Exp $
  350.   ;#
  351.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  352.   ;#  
  353. --- 1,4 ----
  354. ! ;# $Id: history.pl,v 3.0.1.2 1994/09/22 14:22:10 ram Exp $
  355.   ;#
  356.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  357.   ;#  
  358. ***************
  359. *** 9,14 ****
  360. --- 9,17 ----
  361.   ;#  of the source tree for mailagent 3.0.
  362.   ;#
  363.   ;# $Log: history.pl,v $
  364. + ;# Revision 3.0.1.2  1994/09/22  14:22:10  ram
  365. + ;# patch12: added escapes in regexp for perl5 support
  366. + ;#
  367.   ;# Revision 3.0.1.1  1994/01/26  09:32:54  ram
  368.   ;# patch5: history can now handle distinct tags on messages
  369.   ;#
  370. ***************
  371. *** 39,45 ****
  372.           # message id, which is the case unless the address is in uucp form.
  373.           $msg_id = $Header{'Date'};
  374.           local($from, $comment) = &parse_address($Header{'From'});
  375. !         $from =~ s/^([\w-.]+)!([\w-.]+)/@$1:$2/;    # host!user -> @host:user
  376.           $msg_id .= '.' . $from if $msg_id;
  377.       }
  378.       $msg_id =~ s/\s+/./g;            # Suppress all spaces
  379. --- 42,48 ----
  380.           # message id, which is the case unless the address is in uucp form.
  381.           $msg_id = $Header{'Date'};
  382.           local($from, $comment) = &parse_address($Header{'From'});
  383. !         $from =~ s/^([\w-.]+)!([\w-.]+)/\@$1:$2/;    # host!user -> @host:user
  384.           $msg_id .= '.' . $from if $msg_id;
  385.       }
  386.       $msg_id =~ s/\s+/./g;            # Suppress all spaces
  387.  
  388. Index: agent/pl/add_log.pl
  389. Prereq: 3.0
  390. *** agent/pl/add_log.pl.old    Thu Sep 22 16:43:04 1994
  391. --- agent/pl/add_log.pl    Thu Sep 22 16:43:04 1994
  392. ***************
  393. *** 1,4 ****
  394. ! ;# $Id: add_log.pl,v 3.0 1993/11/29 13:48:34 ram Exp $
  395.   ;#
  396.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  397.   ;#  
  398. --- 1,4 ----
  399. ! ;# $Id: add_log.pl,v 3.0.1.1 1994/09/22 14:08:11 ram Exp $
  400.   ;#
  401.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  402.   ;#  
  403. ***************
  404. *** 9,14 ****
  405. --- 9,17 ----
  406.   ;#  of the source tree for mailagent 3.0.
  407.   ;#
  408.   ;# $Log: add_log.pl,v $
  409. + ;# Revision 3.0.1.1  1994/09/22  14:08:11  ram
  410. + ;# patch12: now escapes square brackets in strings for perl5
  411. + ;#
  412.   ;# Revision 3.0  1993/11/29  13:48:34  ram
  413.   ;# Baseline for mailagent 3.0 netwide release.
  414.   ;#
  415. ***************
  416. *** 106,112 ****
  417.           localtime(time);
  418.       $date = sprintf("%.2d/%.2d/%.2d %.2d:%.2d:%.2d",
  419.           $year,++$mon,$mday,$hour,$min,$sec);
  420. !     $log = $date . " $'prog_name[$'jobnum]: $msg\n";
  421.   
  422.       # If we cannot append to the logfile, first check whether it is the default
  423.       # logfile or not. If it is not, then add a log entry to state the error in
  424. --- 109,115 ----
  425.           localtime(time);
  426.       $date = sprintf("%.2d/%.2d/%.2d %.2d:%.2d:%.2d",
  427.           $year,++$mon,$mday,$hour,$min,$sec);
  428. !     $log = $date . " $'prog_name\[$'jobnum\]: $msg\n";
  429.   
  430.       # If we cannot append to the logfile, first check whether it is the default
  431.       # logfile or not. If it is not, then add a log entry to state the error in
  432.  
  433. Index: bin/perload
  434. Prereq: 3.0
  435. *** bin/perload.old    Thu Sep 22 16:43:30 1994
  436. --- bin/perload    Thu Sep 22 16:43:30 1994
  437. ***************
  438. *** 8,14 ****
  439.   # This perl script is its own manual page [generated by wrapman]
  440.   #
  441.   
  442. ! # $Id: perload,v 3.0 1993/11/29 13:50:28 ram Exp $
  443.   #
  444.   #  Copyright (c) 1990-1993, Raphael Manfredi
  445.   #  
  446. --- 8,14 ----
  447.   # This perl script is its own manual page [generated by wrapman]
  448.   #
  449.   
  450. ! # $Id: perload,v 3.0.1.1 1994/09/22 14:41:41 ram Exp $
  451.   #
  452.   #  Copyright (c) 1990-1993, Raphael Manfredi
  453.   #  
  454. ***************
  455. *** 19,24 ****
  456. --- 19,27 ----
  457.   #  of the source tree for mailagent 3.0.
  458.   #
  459.   # $Log: perload,v $
  460. + # Revision 3.0.1.1  1994/09/22  14:41:41  ram
  461. + # patch12: added minimal support for perl5 dataloading
  462. + #
  463.   # Revision 3.0  1993/11/29  13:50:28  ram
  464.   # Baseline for mailagent 3.0 netwide release.
  465.   #
  466. ***************
  467. *** 162,167 ****
  468. --- 165,171 ----
  469.   :sub main'autoload {
  470.   :    local($__file__) = shift(@_);
  471.   :    local($__packname__) = (caller(1))[3];
  472. + :    $__packname__ =~ s/::/'/;
  473.   :    local($__rpackname__) = $__packname__;
  474.   :    local($__saved__) = $@;
  475.   :    $__rpackname__ =~ s/^auto_//;
  476. ***************
  477. *** 243,248 ****
  478. --- 247,253 ----
  479.   :# called only once per routine to be loaded.
  480.   :sub main'dataload {
  481.   :    local($__packname__) = (caller(1))[3];
  482. + :    $__packname__ =~ s/::/'/;
  483.   :    local($__rpackname__) = $__packname__;
  484.   :    local($__at__) = $@;
  485.   :    $__rpackname__ =~ s/^auto_//;
  486.  
  487. Index: agent/filter/msg.c
  488. Prereq: 3.0
  489. *** agent/filter/msg.c.old    Thu Sep 22 16:42:52 1994
  490. --- agent/filter/msg.c    Thu Sep 22 16:42:52 1994
  491. ***************
  492. *** 11,17 ****
  493.   */
  494.   
  495.   /*
  496. !  * $Id: msg.c,v 3.0 1993/11/29 13:48:17 ram Exp $
  497.    *
  498.    *  Copyright (c) 1990-1993, Raphael Manfredi
  499.    *  
  500. --- 11,17 ----
  501.   */
  502.   
  503.   /*
  504. !  * $Id: msg.c,v 3.0.1.1 1994/09/22 13:46:01 ram Exp $
  505.    *
  506.    *  Copyright (c) 1990-1993, Raphael Manfredi
  507.    *  
  508. ***************
  509. *** 22,27 ****
  510. --- 22,30 ----
  511.    *  of the source tree for mailagent 3.0.
  512.    *
  513.    * $Log: msg.c,v $
  514. +  * Revision 3.0.1.1  1994/09/22  13:46:01  ram
  515. +  * patch12: made fatal() arguments long rather than int for 64-bit machines
  516. +  *
  517.    * Revision 3.0  1993/11/29  13:48:17  ram
  518.    * Baseline for mailagent 3.0 netwide release.
  519.    *
  520. ***************
  521. *** 42,48 ****
  522.   /* VARARGS2 */
  523.   public void fatal(reason, arg1, arg2, arg3, arg4, arg5)
  524.   char *reason;
  525. ! int arg1, arg2, arg3, arg4, arg5;
  526.   {
  527.       /* Fatal error -- die with a meaningful error status for sendmail. If the
  528.        * logfile has been opened, the reason will also be logged there.
  529. --- 45,51 ----
  530.   /* VARARGS2 */
  531.   public void fatal(reason, arg1, arg2, arg3, arg4, arg5)
  532.   char *reason;
  533. ! long arg1, arg2, arg3, arg4, arg5;    /* Use longs, hope (char *) fits in it! */
  534.   {
  535.       /* Fatal error -- die with a meaningful error status for sendmail. If the
  536.        * logfile has been opened, the reason will also be logged there.
  537.  
  538. Index: agent/pl/makedir.pl
  539. Prereq: 3.0.1.1
  540. *** agent/pl/makedir.pl.old    Thu Sep 22 16:43:16 1994
  541. --- agent/pl/makedir.pl    Thu Sep 22 16:43:16 1994
  542. ***************
  543. *** 1,4 ****
  544. ! ;# $Id: makedir.pl,v 3.0.1.1 1994/07/01 15:02:07 ram Exp $
  545.   ;#
  546.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  547.   ;#  
  548. --- 1,4 ----
  549. ! ;# $Id: makedir.pl,v 3.0.1.2 1994/09/22 14:26:47 ram Exp $
  550.   ;#
  551.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  552.   ;#  
  553. ***************
  554. *** 9,14 ****
  555. --- 9,17 ----
  556.   ;#  of the source tree for mailagent 3.0.
  557.   ;#
  558.   ;# $Log: makedir.pl,v $
  559. + ;# Revision 3.0.1.2  1994/09/22  14:26:47  ram
  560. + ;# patch12: fixed regexp for perl5 support
  561. + ;#
  562.   ;# Revision 3.0.1.1  1994/07/01  15:02:07  ram
  563.   ;# patch8: default mode is now 0777, relies on umask for proper setting
  564.   ;#
  565. ***************
  566. *** 27,33 ****
  567.       $dir =~ s|/$||;                # no trailing / or we'll try to make dir twice
  568.       if (!-d $dir && $dir ne '') {
  569.           # Make parent dir first
  570. !         &makedir($parent, $mode) if ($parent = $dir) =~ s|(.*)/.*|\1|;
  571.           if (mkdir($dir, $mode)) {
  572.               &add_log("creating directory $dir") if $loglvl > 19;
  573.           } else {
  574. --- 30,36 ----
  575.       $dir =~ s|/$||;                # no trailing / or we'll try to make dir twice
  576.       if (!-d $dir && $dir ne '') {
  577.           # Make parent dir first
  578. !         &makedir($parent, $mode) if ($parent = $dir) =~ s|(.*)/.*|$1|;
  579.           if (mkdir($dir, $mode)) {
  580.               &add_log("creating directory $dir") if $loglvl > 19;
  581.           } else {
  582.  
  583. Index: agent/pl/getdate.pl
  584. Prereq: 3.0
  585. *** agent/pl/getdate.pl.old    Thu Sep 22 16:43:12 1994
  586. --- agent/pl/getdate.pl    Thu Sep 22 16:43:12 1994
  587. ***************
  588. *** 47,53 ****
  589.   ;# Below are logging information for this package as included in the
  590.   ;# mailagent program.
  591.   ;#
  592. ! ;# $Id: getdate.pl,v 3.0 1993/11/29 13:48:48 ram Exp $
  593.   ;#
  594.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  595.   ;#  
  596. --- 47,53 ----
  597.   ;# Below are logging information for this package as included in the
  598.   ;# mailagent program.
  599.   ;#
  600. ! ;# $Id: getdate.pl,v 3.0.1.1 1994/09/22 14:21:31 ram Exp $
  601.   ;#
  602.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  603.   ;#  
  604. ***************
  605. *** 58,63 ****
  606. --- 58,66 ----
  607.   ;#  of the source tree for mailagent 3.0.
  608.   ;#
  609.   ;# $Log: getdate.pl,v $
  610. + ;# Revision 3.0.1.1  1994/09/22  14:21:31  ram
  611. + ;# patch12: local() statement was missing in &getdate parameters fetch
  612. + ;#
  613.   ;# Revision 3.0  1993/11/29  13:48:48  ram
  614.   ;# Baseline for mailagent 3.0 netwide release.
  615.   ;#
  616. ***************
  617. *** 911,918 ****
  618.   }
  619.   
  620.   sub main'getdate {
  621. !     ($dtstr, $now, $timezone) = @_;
  622. !     local($now, $timezone);
  623.       local(@lt);
  624.       local($sdate);
  625.       local($TZ);
  626. --- 914,920 ----
  627.   }
  628.   
  629.   sub main'getdate {
  630. !     local($dtstr, $now, $timezone) = @_;
  631.       local(@lt);
  632.       local($sdate);
  633.       local($TZ);
  634.  
  635. Index: agent/pl/file_edit.pl
  636. Prereq: 3.0
  637. *** agent/pl/file_edit.pl.old    Thu Sep 22 16:43:10 1994
  638. --- agent/pl/file_edit.pl    Thu Sep 22 16:43:10 1994
  639. ***************
  640. *** 1,4 ****
  641. ! ;# $Id: file_edit.pl,v 3.0 1993/11/29 13:48:46 ram Exp $
  642.   ;#
  643.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  644.   ;#  
  645. --- 1,4 ----
  646. ! ;# $Id: file_edit.pl,v 3.0.1.1 1994/09/22 14:19:09 ram Exp $
  647.   ;#
  648.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  649.   ;#  
  650. ***************
  651. *** 9,14 ****
  652. --- 9,17 ----
  653.   ;#  of the source tree for mailagent 3.0.
  654.   ;#
  655.   ;# $Log: file_edit.pl,v $
  656. + ;# Revision 3.0.1.1  1994/09/22  14:19:09  ram
  657. + ;# patch12: typo prevented correct indexing in the @insert array
  658. + ;#
  659.   ;# Revision 3.0  1993/11/29  13:48:46  ram
  660.   ;# Baseline for mailagent 3.0 netwide release.
  661.   ;#
  662. ***************
  663. *** 190,196 ****
  664.                   $found++;
  665.               } elsif ($type == $PATTERN) {
  666.                   study unless $studied++;    # Optimize pattern matching
  667. !                 ($found++, @insert[$i] = 0) if /$val/;
  668.               } elsif ($type == $SUB && &$val($_, $.)) {
  669.                   $found++;
  670.               }
  671. --- 193,199 ----
  672.                   $found++;
  673.               } elsif ($type == $PATTERN) {
  674.                   study unless $studied++;    # Optimize pattern matching
  675. !                 ($found++, $insert[$i] = 0) if /$val/;
  676.               } elsif ($type == $SUB && &$val($_, $.)) {
  677.                   $found++;
  678.               }
  679.  
  680. Index: agent/pl/mh.pl
  681. Prereq: 3.0.1.1
  682. *** agent/pl/mh.pl.old    Thu Sep 22 16:43:16 1994
  683. --- agent/pl/mh.pl    Thu Sep 22 16:43:16 1994
  684. ***************
  685. *** 1,4 ****
  686. ! ;# $Id: mh.pl,v 3.0.1.1 1993/12/15 09:04:12 ram Exp $
  687.   ;#
  688.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  689.   ;#  
  690. --- 1,4 ----
  691. ! ;# $Id: mh.pl,v 3.0.1.2 1994/09/22 14:27:16 ram Exp $
  692.   ;#
  693.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  694.   ;#  
  695. ***************
  696. *** 9,14 ****
  697. --- 9,17 ----
  698.   ;#  of the source tree for mailagent 3.0.
  699.   ;#
  700.   ;# $Log: mh.pl,v $
  701. + ;# Revision 3.0.1.2  1994/09/22  14:27:16  ram
  702. + ;# patch12: now updates folder_saved variable with file pathname
  703. + ;#
  704.   ;# Revision 3.0.1.1  1993/12/15  09:04:12  ram
  705.   ;# patch3: log mesages were not emitted correctly
  706.   ;#
  707. ***************
  708. *** 90,96 ****
  709.           if $mh eq 'MH' && $Profile{'Unseen-Sequence'} ne '' && !$failed;
  710.   
  711.       &'add_log("UNSEEN $name") if $'loglvl > 6;    # Mark clearly in log
  712. !     return $failed;        # Return failure status
  713.   }
  714.   
  715.   #
  716. --- 93,100 ----
  717.           if $mh eq 'MH' && $Profile{'Unseen-Sequence'} ne '' && !$failed;
  718.   
  719.       &'add_log("UNSEEN $name") if $'loglvl > 6;    # Mark clearly in log
  720. !     $'folder_saved = $name;        # Keep track of last folder we save into
  721. !     return $failed;                # Return failure status
  722.   }
  723.   
  724.   #
  725.  
  726. Index: agent/test/actions
  727. Prereq: 3.0.1.5
  728. *** agent/test/actions.old    Thu Sep 22 16:43:26 1994
  729. --- agent/test/actions    Thu Sep 22 16:43:27 1994
  730. ***************
  731. *** 2,8 ****
  732.   # Mailagent rules for action regression tests
  733.   #
  734.   
  735. ! # $Id: actions,v 3.0.1.5 1994/07/01 15:06:56 ram Exp $
  736.   #
  737.   #  Copyright (c) 1990-1993, Raphael Manfredi
  738.   #  
  739. --- 2,8 ----
  740.   # Mailagent rules for action regression tests
  741.   #
  742.   
  743. ! # $Id: actions,v 3.0.1.6 1994/09/22 14:40:32 ram Exp $
  744.   #
  745.   #  Copyright (c) 1990-1993, Raphael Manfredi
  746.   #  
  747. ***************
  748. *** 13,18 ****
  749. --- 13,21 ----
  750.   #  of the source tree for mailagent 3.0.
  751.   #
  752.   # $Log: actions,v $
  753. + # Revision 3.0.1.6  1994/09/22  14:40:32  ram
  754. + # patch12: added regression tests for DO
  755. + #
  756.   # Revision 3.0.1.5  1994/07/01  15:06:56  ram
  757.   # patch8: added exit status test for PERL command
  758.   # patch8: added new test for vacation message with tome config variable
  759. ***************
  760. *** 97,102 ****
  761. --- 100,114 ----
  762.   X-Tag: /bounce 2/            { BOUNCE "list" };
  763.   
  764.   X-Tag: /delete/                { DELETE };
  765. + 
  766. + X-Tag: /do\b/
  767. + {
  768. +     REQUIRE perl.1 __test__;
  769. +     DO __test__'perl_1('always');
  770. +     DO perl.2:__test__'perl_2("DO");
  771. +     SAVE never;
  772. + };
  773. + <DO>    { SAVE always.2; DO __foo__'perl_3; SAVE never; };
  774.   
  775.   X-Tag: /feed/
  776.   {
  777.  
  778. Index: agent/pl/signals.pl
  779. *** agent/pl/signals.pl.old    Thu Sep 22 16:43:24 1994
  780. --- agent/pl/signals.pl    Thu Sep 22 16:43:24 1994
  781. ***************
  782. *** 0 ****
  783. --- 1,33 ----
  784. + ;# $Id: signals.pl,v 3.0.1.1 1994/09/22 14:39:13 ram Exp $
  785. + ;#
  786. + ;#  Copyright (c) 1990-1993, Raphael Manfredi
  787. + ;#  
  788. + ;#  You may redistribute only under the terms of the Artistic License,
  789. + ;#  as specified in the README file that comes with the distribution.
  790. + ;#  You may reuse parts of this distribution only within the terms of
  791. + ;#  that same Artistic License; a copy of which may be found at the root
  792. + ;#  of the source tree for mailagent 3.0.
  793. + ;#
  794. + ;# $Log: signals.pl,v $
  795. + ;# Revision 3.0.1.1  1994/09/22  14:39:13  ram
  796. + ;# patch12: created
  797. + ;#
  798. + ;#
  799. + # Catch all common signals
  800. + sub catch_signals {
  801. +     unless (defined &emergency) {
  802. +         &add_log("WARNING no emergency routine to trap signals") if $loglvl > 4;
  803. +         return;
  804. +     }
  805. +     $SIG{'HUP'} = 'emergency';
  806. +     $SIG{'INT'} = 'emergency';
  807. +     $SIG{'QUIT'} = 'emergency';
  808. +     $SIG{'PIPE'} = 'emergency';
  809. +     $SIG{'IO'} = 'emergency';
  810. +     $SIG{'BUS'} = 'emergency';
  811. +     $SIG{'ILL'} = 'emergency';
  812. +     $SIG{'SEGV'} = 'emergency';
  813. +     $SIG{'ALRM'} = 'emergency';
  814. +     $SIG{'TERM'} = 'emergency';
  815. + }
  816. + 
  817.  
  818. Index: agent/filter/lock.c
  819. Prereq: 3.0.1.1
  820. *** agent/filter/lock.c.old    Thu Sep 22 16:42:51 1994
  821. --- agent/filter/lock.c    Thu Sep 22 16:42:51 1994
  822. ***************
  823. *** 11,17 ****
  824.   */
  825.   
  826.   /*
  827. !  * $Id: lock.c,v 3.0.1.1 1994/07/01 14:52:28 ram Exp $
  828.    *
  829.    *  Copyright (c) 1990-1993, Raphael Manfredi
  830.    *  
  831. --- 11,17 ----
  832.   */
  833.   
  834.   /*
  835. !  * $Id: lock.c,v 3.0.1.2 1994/09/22 13:44:52 ram Exp $
  836.    *
  837.    *  Copyright (c) 1990-1993, Raphael Manfredi
  838.    *  
  839. ***************
  840. *** 22,27 ****
  841. --- 22,30 ----
  842.    *  of the source tree for mailagent 3.0.
  843.    *
  844.    * $Log: lock.c,v $
  845. +  * Revision 3.0.1.2  1994/09/22  13:44:52  ram
  846. +  * patch12: typo fix to enable correct lockfile timeout printing
  847. +  *
  848.    * Revision 3.0.1.1  1994/07/01  14:52:28  ram
  849.    * patch8: now honours the lockhold config variable if present
  850.    *
  851. ***************
  852. *** 131,136 ****
  853.           } else
  854.               add_log(6, "UNLOCKED filter (lock older than %d seconds)", hold);
  855.       } else
  856. !         add_log(16, "lockfile for filter is recent (%d seconds or less), hold");
  857.   }
  858.   
  859. --- 134,139 ----
  860.           } else
  861.               add_log(6, "UNLOCKED filter (lock older than %d seconds)", hold);
  862.       } else
  863. !         add_log(16, "lockfile for filter is recent (%d seconds or less)", hold);
  864.   }
  865.   
  866.  
  867. Index: agent/pl/read_conf.pl
  868. Prereq: 3.0.1.2
  869. *** agent/pl/read_conf.pl.old    Thu Sep 22 16:43:21 1994
  870. --- agent/pl/read_conf.pl    Thu Sep 22 16:43:21 1994
  871. ***************
  872. *** 1,4 ****
  873. ! ;# $Id: read_conf.pl,v 3.0.1.2 1994/07/01 15:04:50 ram Exp $
  874.   ;#
  875.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  876.   ;#  
  877. --- 1,4 ----
  878. ! ;# $Id: read_conf.pl,v 3.0.1.3 1994/09/22 14:34:51 ram Exp $
  879.   ;#
  880.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  881.   ;#  
  882. ***************
  883. *** 9,14 ****
  884. --- 9,17 ----
  885.   ;#  of the source tree for mailagent 3.0.
  886.   ;#
  887.   ;# $Log: read_conf.pl,v $
  888. + ;# Revision 3.0.1.3  1994/09/22  14:34:51  ram
  889. + ;# patch12: do not attempt parsing of config if variable is undefined
  890. + ;#
  891.   ;# Revision 3.0.1.2  1994/07/01  15:04:50  ram
  892.   ;# patch8: set proper default values for new optional config variables
  893.   ;#
  894. ***************
  895. *** 62,67 ****
  896. --- 65,71 ----
  897.   # Parse config file held in variable and return 1 if ok, 0 for errors
  898.   sub parse {
  899.       local($config) = @_;
  900. +     return 1 unless defined $config;
  901.       local($eval) = ' ' x 1000;        # Pre-extend
  902.       local($myhome) = $ENV{'HOME'};    # must be correctly set by filter
  903.       local($var, $value);
  904.  
  905. Index: agent/pl/mailhook.pl
  906. Prereq: 3.0
  907. *** agent/pl/mailhook.pl.old    Thu Sep 22 16:43:15 1994
  908. --- agent/pl/mailhook.pl    Thu Sep 22 16:43:15 1994
  909. ***************
  910. *** 1,4 ****
  911. ! ;# $Id: mailhook.pl,v 3.0 1993/11/29 13:48:58 ram Exp $
  912.   ;#
  913.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  914.   ;#  
  915. --- 1,4 ----
  916. ! ;# $Id: mailhook.pl,v 3.0.1.1 1994/09/22 14:26:22 ram Exp $
  917.   ;#
  918.   ;#  Copyright (c) 1990-1993, Raphael Manfredi
  919.   ;#  
  920. ***************
  921. *** 9,14 ****
  922. --- 9,17 ----
  923.   ;#  of the source tree for mailagent 3.0.
  924.   ;#
  925.   ;# $Log: mailhook.pl,v $
  926. + ;# Revision 3.0.1.1  1994/09/22  14:26:22  ram
  927. + ;# patch12: propagates folder_saved as msgpath in PERL escapes
  928. + ;#
  929.   ;# Revision 3.0  1993/11/29  13:48:58  ram
  930.   ;# Baseline for mailagent 3.0 netwide release.
  931.   ;#
  932. ***************
  933. *** 28,33 ****
  934. --- 31,37 ----
  935.       local($package) = @_;        # Package into which variables should be set
  936.       local($init) = &'q(<<'EOP');
  937.   :    *header = *main'Header;        # User may fetch headers via %header
  938. + :    $msgpath = $main'folder_saved;
  939.   :    $sender = $header{'Sender'};
  940.   :    $subject = $header{'Subject'};
  941.   :    $precedence = $header{'Precedence'};
  942.  
  943. Index: agent/test/basic/config.t
  944. Prereq: 3.0.1.1
  945. *** agent/test/basic/config.t.old    Thu Sep 22 16:43:28 1994
  946. --- agent/test/basic/config.t    Thu Sep 22 16:43:28 1994
  947. ***************
  948. *** 1,6 ****
  949.   # This MUST be the first test ever run
  950.   
  951. ! # $Id: config.t,v 3.0.1.1 1994/04/25 15:24:33 ram Exp $
  952.   #
  953.   #  Copyright (c) 1990-1993, Raphael Manfredi
  954.   #  
  955. --- 1,6 ----
  956.   # This MUST be the first test ever run
  957.   
  958. ! # $Id: config.t,v 3.0.1.2 1994/09/22 14:40:52 ram Exp $
  959.   #
  960.   #  Copyright (c) 1990-1993, Raphael Manfredi
  961.   #  
  962. ***************
  963. *** 11,16 ****
  964. --- 11,19 ----
  965.   #  of the source tree for mailagent 3.0.
  966.   #
  967.   # $Log: config.t,v $
  968. + # Revision 3.0.1.2  1994/09/22  14:40:52  ram
  969. + # patch12: added callout queue file definition
  970. + #
  971.   # Revision 3.0.1.1  1994/04/25  15:24:33  ram
  972.   # patch7: added commented 'fromesc' new variable
  973.   #
  974. ***************
  975. *** 44,49 ****
  976. --- 47,53 ----
  977.   queue    : ~/queue        # This is a good test for comments
  978.   logdir   : ~
  979.   context  : \$spool/context
  980. + callout  : \$spool/callout
  981.   log      : agentlog
  982.   seq      : .seq
  983.   timezone : PST8PDT
  984.  
  985. Index: agent/test/README
  986. *** agent/test/README.old    Thu Sep 22 16:43:25 1994
  987. --- agent/test/README    Thu Sep 22 16:43:25 1994
  988. ***************
  989. *** 30,35 ****
  990. --- 30,39 ----
  991.   with eval() which cause the dataloaded version to dump core via a segmentation
  992.   violation).
  993.   
  994. + The -m option is for desperate cases. It launches the atail process in the
  995. + background (a real CPU hog) to monitor all changes to the out/agentlog file.
  996. + This may be really convenient when debugging a test suite failure...
  997. + 
  998.   I don't know why I spent some time documenting all this, as I don't expect
  999.   anybody to have any chance working on this suite. Anyway, it might be nice
  1000.   knowing that all the successful tests are recorded in an OK file, along
  1001.  
  1002. *** End of Patch 16 ***
  1003.  
  1004. exit 0 # Just in case...
  1005.