home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sources / bugs / 327 < prev    next >
Encoding:
Internet Message Format  |  1993-01-12  |  21.8 KB
  1. Path: sparky!uunet!eiffel!ram
  2. From: ram@eiffel.com (Raphael Manfredi)
  3. Newsgroups: comp.sources.bugs
  4. Subject: mailagent 2.9 patch #16
  5. Summary: This is an official patch for mailagent 2.9.  Please apply it.
  6. Message-ID: <169@eiffel.eiffel.com>
  7. Date: 12 Jan 93 21:54:45 GMT
  8. Organization: Interactive Software Engineering, Santa Barbara CA
  9. Lines: 749
  10.  
  11. System: mailagent version 2.9
  12. Patch #: 16
  13. Priority: MEDIUM
  14. Subject: patch #15, continued
  15. Date: Tue Jan 12 13:51:15 PST 1993
  16. From: Raphael Manfredi <ram@eiffel.com>
  17.  
  18. Description:
  19.     See patch #15.
  20.  
  21.  
  22. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  23.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  24.     If you don't have the patch program, apply the following by hand,
  25.     or get patch (version 2.0, latest patchlevel).
  26.  
  27.     After patching:
  28.         ### Read this carefully
  29.         # Unusual stuff
  30.         cd agent/test
  31.         mkdir misc
  32.         cd misc
  33.         cp /dev/null compress.t
  34.         cp /dev/null mmdf.t
  35.         cd ../../..
  36.         # The usual stuff
  37.         Configure -d
  38.         make depend
  39.         make
  40.         make install
  41.         make install.man
  42.  
  43.     If patch indicates that patchlevel is the wrong version, you may need
  44.     to apply one or more previous patches, or the patch may already
  45.     have been applied.  See the patchlevel.h file to find out what has or
  46.     has not been applied.  In any event, don't continue with the patch.
  47.  
  48.     If you are missing previous patches they can be obtained from me:
  49.  
  50.         Raphael Manfredi <ram@eiffel.com>
  51.  
  52.     If you send a mail message of the following form it will greatly speed
  53.     processing:
  54.  
  55.         Subject: Command
  56.         @SH mailpatch PATH mailagent 2.9 LIST
  57.                ^ note the c
  58.  
  59.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  60.     or in bang notation from some well-known host, and LIST is the number
  61.     of one or more patches you need, separated by spaces, commas, and/or
  62.     hyphens.  Saying 35- says everything from 35 to the end.
  63.  
  64.     To get some more detailed instructions, send me the following mail:
  65.  
  66.         Subject: Command
  67.         @SH mailhelp PATH
  68.  
  69.  
  70. Index: patchlevel.h
  71. Prereq: 15
  72. 4c4
  73. < #define PATCHLEVEL 15
  74. ---
  75. > #define PATCHLEVEL 16
  76.  
  77. Index: MANIFEST
  78. *** MANIFEST.old    Tue Jan 12 13:41:53 1993
  79. --- MANIFEST    Tue Jan 12 13:41:54 1993
  80. ***************
  81. *** 73,78 ****
  82. --- 73,79 ----
  83.   agent/pl/analyze.pl        Perl library analyzing the incoming mail
  84.   agent/pl/builtins.pl       Perl library dealing with builtins
  85.   agent/pl/checklock.pl      Perl library to check for long lasting locks
  86. + agent/pl/compress.pl       Folder compression library
  87.   agent/pl/context.pl        Mailagent context file handling
  88.   agent/pl/dbr.pl            Internal database management
  89.   agent/pl/distribs.pl       Perl library to scan the distribs file
  90. ***************
  91. *** 98,103 ****
  92. --- 99,105 ----
  93.   agent/pl/makedir.pl        Perl library for making a directory
  94.   agent/pl/matching.pl       Matching routines used by filter
  95.   agent/pl/mbox.pl           Getting mails from a mailbox file
  96. + agent/pl/mmdf.pl           MMDF-style mailbox handling
  97.   agent/pl/once.pl           Dealing with once commands
  98.   agent/pl/parse.pl          Perl library to parse a mail message
  99.   agent/pl/period.pl         Perl library to compute periods
  100. ***************
  101. *** 178,183 ****
  102. --- 180,187 ----
  103.   agent/test/filter/status.t     Action status updating tests
  104.   agent/test/level               Default logging level for tests
  105.   agent/test/mail                The mail used by testing routines
  106. + agent/test/misc/compress.t     Folder compression checks
  107. + agent/test/misc/mmdf.t         MMDF-style mailbox checks
  108.   agent/test/option/             Tests the options to the mailagent program
  109.   agent/test/option/L.t          Test -L option
  110.   agent/test/option/V.t          Test -V option
  111.  
  112. Index: agent/pl/plsave.pl
  113. Prereq: 2.9
  114. *** agent/pl/plsave.pl.old    Tue Jan 12 13:41:42 1993
  115. --- agent/pl/plsave.pl    Tue Jan 12 13:41:43 1993
  116. ***************
  117. *** 1,4 ****
  118. ! ;# $Id: plsave.pl,v 2.9 92/07/14 16:50:29 ram Exp $
  119.   ;#
  120.   ;#  Copyright (c) 1991, Raphael Manfredi
  121.   ;#
  122. --- 1,4 ----
  123. ! ;# $Id: plsave.pl,v 2.9.1.1 93/01/12 13:34:53 ram Exp $
  124.   ;#
  125.   ;#  Copyright (c) 1991, Raphael Manfredi
  126.   ;#
  127. ***************
  128. *** 6,11 ****
  129. --- 6,14 ----
  130.   ;#  Licence as specified in the README file that comes with dist.
  131.   ;#
  132.   ;# $Log:    plsave.pl,v $
  133. + ;# Revision 2.9.1.1  93/01/12  13:34:53  ram
  134. + ;# patch15: lock outdating now performed by &acs_rqst
  135. + ;# 
  136.   ;# Revision 2.9  92/07/14  16:50:29  ram
  137.   ;# 3.0 beta baseline.
  138.   ;# 
  139. ***************
  140. *** 74,83 ****
  141.   # file we write is not correct, in case the distribution file changed
  142.   # while we were processing a mail. However, it isn't a big problem.
  143.   sub write_plsave {
  144. !     local($lockext) = ".lock";        # Needed by checklock
  145.       local($system);
  146.       local($version);
  147. -     do checklock($cf'plsave);        # Make sure no old lock lasts
  148.       if (0 != &acs_rqst($cf'plsave)) {
  149.           do add_log("WARNING updating unlocked patlist file")
  150.               if ($loglvl > 5);
  151. --- 77,85 ----
  152.   # file we write is not correct, in case the distribution file changed
  153.   # while we were processing a mail. However, it isn't a big problem.
  154.   sub write_plsave {
  155. !     local($lockext) = ".lock";        # Needed by checklock (via acs_rqst)
  156.       local($system);
  157.       local($version);
  158.       if (0 != &acs_rqst($cf'plsave)) {
  159.           do add_log("WARNING updating unlocked patlist file")
  160.               if ($loglvl > 5);
  161.  
  162. Index: agent/files/mailagent.cf
  163. Prereq: 2.9.1.1
  164. *** agent/files/mailagent.cf.old    Tue Jan 12 13:40:40 1993
  165. --- agent/files/mailagent.cf    Tue Jan 12 13:40:40 1993
  166. ***************
  167. *** 2,8 ****
  168.   # Configuration file for mailagent
  169.   #
  170.   
  171. ! # $Id: mailagent.cf,v 2.9.1.1 92/08/02 15:52:42 ram Exp $
  172.   #
  173.   #  Copyright (c) 1991, Raphael Manfredi
  174.   #
  175. --- 2,8 ----
  176.   # Configuration file for mailagent
  177.   #
  178.   
  179. ! # $Id: mailagent.cf,v 2.9.1.2 93/01/12 12:07:32 ram Exp $
  180.   #
  181.   #  Copyright (c) 1991, Raphael Manfredi
  182.   #
  183. ***************
  184. *** 10,15 ****
  185. --- 10,18 ----
  186.   #  Licence as specified in the README file that comes with dist.
  187.   #
  188.   # $Log:    mailagent.cf,v $
  189. + # Revision 2.9.1.2  93/01/12  12:07:32  ram
  190. + # patch15: new parameters: nfslock, mmdf, mmdfbox and compress
  191. + # 
  192.   # Revision 2.9.1.1  92/08/02  15:52:42  ram
  193.   # patch2: new configuration parameter to specify mailbox file
  194.   # 
  195. ***************
  196. *** 58,65 ****
  197. --- 61,74 ----
  198.   timezone : PST8PDT                # Time zone location
  199.   statfile : $spool/mailagent.st    # Statistics file
  200.   rules    : ~/.rules                # Filter's rules location (optional)
  201. + nfslock  : OFF                    # NFS-secure locking (optional)
  202. + 
  203. + # Mailbox parameters
  204.   maildrop : /usr/mail            # System mail drop directory (optional)
  205.   mailbox  : $user                # Mailbox file name (optional)
  206. + mmdf     : OFF                    # Allow MMDF-style mailbox delivery
  207. + mmdfbox  : OFF                    # Force new folders to MMDF format
  208. + compress : ~/.compress            # Folder compression list (optional)
  209.   
  210.   # Database hashing directory (in $spool) and other controls
  211.   hash     : dbr                    # Hashing directory
  212.  
  213. Index: agent/pl/jobnum.pl
  214. Prereq: 2.9.1.1
  215. *** agent/pl/jobnum.pl.old    Tue Jan 12 13:41:35 1993
  216. --- agent/pl/jobnum.pl    Tue Jan 12 13:41:35 1993
  217. ***************
  218. *** 1,4 ****
  219. ! ;# $Id: jobnum.pl,v 2.9.1.1 92/08/26 13:14:57 ram Exp $
  220.   ;#
  221.   ;#  Copyright (c) 1992, Raphael Manfredi
  222.   ;#
  223. --- 1,4 ----
  224. ! ;# $Id: jobnum.pl,v 2.9.1.2 93/01/12 13:33:56 ram Exp $
  225.   ;#
  226.   ;#  Copyright (c) 1992, Raphael Manfredi
  227.   ;#
  228. ***************
  229. *** 6,17 ****
  230.   ;#  Licence as specified in the README file that comes with dist.
  231.   ;#
  232.   ;# $Log:    jobnum.pl,v $
  233.   ;# Revision 2.9.1.1  92/08/26  13:14:57  ram
  234.   ;# patch8: created
  235.   ;# 
  236.   ;# 
  237.   ;# Depends on the following external routines:
  238. ! ;#  checklock() to check for locks older than one hour
  239.   ;#  acs_rqst() to get a lock on file
  240.   ;#  free_file() to release lock on file
  241.   ;#
  242. --- 6,20 ----
  243.   ;#  Licence as specified in the README file that comes with dist.
  244.   ;#
  245.   ;# $Log:    jobnum.pl,v $
  246. + ;# Revision 2.9.1.2  93/01/12  13:33:56  ram
  247. + ;# patch15: lock outdating now performed by &acs_rqst
  248. + ;# 
  249.   ;# Revision 2.9.1.1  92/08/26  13:14:57  ram
  250.   ;# patch8: created
  251.   ;# 
  252.   ;# 
  253.   ;# Depends on the following external routines:
  254. ! ;#  checklock() to check for locks older than one hour (via acs_rqst)
  255.   ;#  acs_rqst() to get a lock on file
  256.   ;#  free_file() to release lock on file
  257.   ;#
  258. ***************
  259. *** 18,24 ****
  260.   # Computes a new job number
  261.   sub jobnum {
  262.       local($job);                        # Computed job number
  263. -     &checklock($cf'seqfile);            # Check for old lock
  264.       if (0 != &acs_rqst($cf'seqfile)) {
  265.           $job = "?";
  266.       } else {
  267. --- 21,26 ----
  268.  
  269. Index: bin/perload
  270. Prereq: 2.9.1.4
  271. *** bin/perload.old    Tue Jan 12 13:41:49 1993
  272. --- bin/perload    Tue Jan 12 13:41:50 1993
  273. ***************
  274. *** 1,4 ****
  275. ! # feed this into perl
  276.   '/bin/true' && eval 'exec perl -S $0 "$@"'
  277.       if $running_under_some_shell;
  278.   'di';
  279. --- 1,4 ----
  280. ! : # feed this into perl
  281.   '/bin/true' && eval 'exec perl -S $0 "$@"'
  282.       if $running_under_some_shell;
  283.   'di';
  284. ***************
  285. *** 8,14 ****
  286.   # This perl script is its own manual page [generated by wrapman]
  287.   #
  288.   
  289. ! # $Id: perload,v 2.9.1.4 92/11/10 10:14:47 ram Exp $
  290.   #
  291.   #  Copyright (c) 1992, Raphael Manfredi
  292.   #
  293. --- 8,14 ----
  294.   # This perl script is its own manual page [generated by wrapman]
  295.   #
  296.   
  297. ! # $Id: perload,v 2.9.1.5 93/01/12 13:39:42 ram Exp $
  298.   #
  299.   #  Copyright (c) 1992, Raphael Manfredi
  300.   #
  301. ***************
  302. *** 16,21 ****
  303. --- 16,24 ----
  304.   #  Licence as specified in the README file that comes with dist.
  305.   #
  306.   # $Log:    perload,v $
  307. + # Revision 2.9.1.5  93/01/12  13:39:42  ram
  308. + # patch15: perload now knows about leading ':' for shell startup
  309. + # 
  310.   # Revision 2.9.1.4  92/11/10  10:14:47  ram
  311.   # patch12: fixed English typo in manual section
  312.   # 
  313. ***************
  314. *** 49,55 ****
  315.   &Getopt;
  316.   
  317.   while (<>) {
  318. !     if ($. == 1 && /^#.*perl/) {    # Invocation stub
  319.           $has_invocation_stub = 1;
  320.           print;
  321.           next;
  322. --- 52,58 ----
  323.   &Getopt;
  324.   
  325.   while (<>) {
  326. !     if ($. == 1 && /^(:|#).*perl/) {    # Invocation stub
  327.           $has_invocation_stub = 1;
  328.           print;
  329.           next;
  330.  
  331. Index: agent/pl/getdate.pl
  332. Prereq: 2.9.1.1
  333. *** agent/pl/getdate.pl.old    Tue Jan 12 13:41:32 1993
  334. --- agent/pl/getdate.pl    Tue Jan 12 13:41:33 1993
  335. ***************
  336. *** 47,55 ****
  337.   ;# Below are logging information for this package as included in the
  338.   ;# mailagent program.
  339.   ;#
  340. ! ;# $Id: getdate.pl,v 2.9.1.1 92/07/25 12:39:08 ram Exp $
  341.   ;#
  342.   ;# $Log:    getdate.pl,v $
  343.   ;# Revision 2.9.1.1  92/07/25  12:39:08  ram
  344.   ;# patch1: swapped offsets for EET and WET (reported by Jost Krieger)
  345.   ;# 
  346. --- 47,59 ----
  347.   ;# Below are logging information for this package as included in the
  348.   ;# mailagent program.
  349.   ;#
  350. ! ;# $Id: getdate.pl,v 2.9.1.2 92/12/07 09:21:10 ram Exp $
  351.   ;#
  352.   ;# $Log:    getdate.pl,v $
  353. + ;# Revision 2.9.1.2  92/12/07  09:21:10  ram
  354. + ;# patch15: military timezones did not parse correctly
  355. + ;# patch15: (fix by Paul Marquess <pmarquess@rosebud.bfsec.bt.co.uk>)
  356. + ;# 
  357.   ;# Revision 2.9.1.1  92/07/25  12:39:08  ram
  358.   ;# patch1: swapped offsets for EET and WET (reported by Jost Krieger)
  359.   ;# 
  360. ***************
  361. *** 890,896 ****
  362.           return $token;
  363.       }
  364.       
  365. !     if (length($idvar) == 1 && $idvar =~ /a-zA-Z/) {
  366.           $idvar =~ tr/A-Z/a-z/;
  367.           if (defined($milzone{$idvar})) {
  368.               ($token, $yylval) = split(/,/,$milzone{$idvar});
  369. --- 894,900 ----
  370.           return $token;
  371.       }
  372.       
  373. !     if (length($idvar) == 1 && $idvar =~ /[a-zA-Z]/) {
  374.           $idvar =~ tr/A-Z/a-z/;
  375.           if (defined($milzone{$idvar})) {
  376.               ($token, $yylval) = split(/,/,$milzone{$idvar});
  377.  
  378. Index: agent/pl/filter.pl
  379. Prereq: 2.9.1.5
  380. *** agent/pl/filter.pl.old    Tue Jan 12 13:41:26 1993
  381. --- agent/pl/filter.pl    Tue Jan 12 13:41:27 1993
  382. ***************
  383. *** 1,4 ****
  384. ! ;# $Id: filter.pl,v 2.9.1.5 92/11/01 16:01:13 ram Exp $
  385.   ;#
  386.   ;#  Copyright (c) 1992, Raphael Manfredi
  387.   ;#
  388. --- 1,4 ----
  389. ! ;# $Id: filter.pl,v 2.9.1.6 93/01/12 13:13:12 ram Exp $
  390.   ;#
  391.   ;#  Copyright (c) 1992, Raphael Manfredi
  392.   ;#
  393. ***************
  394. *** 6,11 ****
  395. --- 6,14 ----
  396.   ;#  Licence as specified in the README file that comes with dist.
  397.   ;#
  398.   ;# $Log:    filter.pl,v $
  399. + ;# Revision 2.9.1.6  93/01/12  13:13:12  ram
  400. + ;# patch15: undocumented feature commented (WRITE may allow hooks)
  401. + ;# 
  402.   ;# Revision 2.9.1.5  92/11/01  16:01:13  ram
  403.   ;# patch11: space between command and '(' made optional for ONCE and SELECT
  404.   ;# patch11: (feature requested by Nigel Metheringham <nigelm@ohm.york.ac.uk>)
  405. ***************
  406. *** 583,588 ****
  407. --- 586,594 ----
  408.       if ($remove == $FOLDER_REMOVE) {
  409.           # Folder has to be removed before writting into it. However, if it
  410.           # is write protected, do not unlink it (save will fail later on anyway).
  411. +         # Note that this makes it a candidate for hooks via WRITE, if the
  412. +         # folder has its 'x' bit set with its 'w' bit cleared. This is an
  413. +         # undocumented feature however (WRITE is not supposed to trigger hooks).
  414.           unlink "$folder" if -f "$folder" && -w _;
  415.       }
  416.       local($mbox, $failed) = do save($folder);
  417.  
  418. Index: agent/mhook.SH
  419. Prereq: 2.9.1.1
  420. *** agent/mhook.SH.old    Tue Jan 12 13:40:57 1993
  421. --- agent/mhook.SH    Tue Jan 12 13:40:57 1993
  422. ***************
  423. *** 14,20 ****
  424.   esac
  425.   echo "Extracting agent/mhook (with variable substitutions)"
  426.   $spitshell >mhook <<!GROK!THIS!
  427. ! # feed this into perl
  428.       eval 'exec perl -S \$0 "\$@"'
  429.           if \$running_under_some_shell;
  430.   
  431. --- 14,20 ----
  432.   esac
  433.   echo "Extracting agent/mhook (with variable substitutions)"
  434.   $spitshell >mhook <<!GROK!THIS!
  435. ! $startperl
  436.       eval 'exec perl -S \$0 "\$@"'
  437.           if \$running_under_some_shell;
  438.   
  439. ***************
  440. *** 22,28 ****
  441.   # via the filter. Mine looks like this:
  442.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  443.   
  444. ! # $Id: mhook.SH,v 2.9.1.1 92/08/26 12:44:48 ram Exp $
  445.   #
  446.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  447.   #
  448. --- 22,28 ----
  449.   # via the filter. Mine looks like this:
  450.   #   "|exec /users/ram/mail/filter >>/users/ram/.bak 2>&1"
  451.   
  452. ! # $Id: mhook.SH,v 2.9.1.2 93/01/12 12:09:20 ram Exp $
  453.   #
  454.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  455.   #
  456. ***************
  457. *** 30,35 ****
  458. --- 30,38 ----
  459.   #  Licence as specified in the README file that comes with dist.
  460.   #
  461.   # $Log:    mhook.SH,v $
  462. + # Revision 2.9.1.2  93/01/12  12:09:20  ram
  463. + # patch15: leading perl start up is now configured
  464. + # 
  465.   # Revision 2.9.1.1  92/08/26  12:44:48  ram
  466.   # patch8: created
  467.   # 
  468.  
  469. Index: agent/pl/dbr.pl
  470. Prereq: 2.9.1.3
  471. *** agent/pl/dbr.pl.old    Tue Jan 12 13:41:20 1993
  472. --- agent/pl/dbr.pl    Tue Jan 12 13:41:21 1993
  473. ***************
  474. *** 1,4 ****
  475. ! ;# $Id: dbr.pl,v 2.9.1.3 92/11/10 10:13:10 ram Exp $
  476.   ;#
  477.   ;#  Copyright (c) 1992, Raphael Manfredi
  478.   ;#
  479. --- 1,4 ----
  480. ! ;# $Id: dbr.pl,v 2.9.1.4 93/01/12 12:13:12 ram Exp $
  481.   ;#
  482.   ;#  Copyright (c) 1992, Raphael Manfredi
  483.   ;#
  484. ***************
  485. *** 6,11 ****
  486. --- 6,14 ----
  487.   ;#  Licence as specified in the README file that comes with dist.
  488.   ;#
  489.   ;# $Log:    dbr.pl,v $
  490. + ;# Revision 2.9.1.4  93/01/12  12:13:12  ram
  491. + ;# patch15: typo fix
  492. + ;# 
  493.   ;# Revision 2.9.1.3  92/11/10  10:13:10  ram
  494.   ;# patch12: unfortunate typo transformed all tags into UNKNOWN
  495.   ;# 
  496. ***************
  497. *** 241,247 ****
  498.       unless (@contents > 2) {            # Has at least . and ..
  499.           unless (rmdir($dir)) {            # Don't leave empty directories
  500.               &'add_log("SYSERR rmdir: $!") if $'loglvl;
  501. !             &'add_log("ERROR could not remove directory $file") if $'loglvl;
  502.           }
  503.       }
  504.   }
  505. --- 244,250 ----
  506.       unless (@contents > 2) {            # Has at least . and ..
  507.           unless (rmdir($dir)) {            # Don't leave empty directories
  508.               &'add_log("SYSERR rmdir: $!") if $'loglvl;
  509. !             &'add_log("ERROR could not remove directory $dir") if $'loglvl;
  510.           }
  511.       }
  512.   }
  513.  
  514. Index: agent/pl/context.pl
  515. Prereq: 2.9.1.1
  516. *** agent/pl/context.pl.old    Tue Jan 12 13:41:17 1993
  517. --- agent/pl/context.pl    Tue Jan 12 13:41:18 1993
  518. ***************
  519. *** 1,4 ****
  520. ! ;# $Id: context.pl,v 2.9.1.1 92/12/01 09:19:38 ram Exp $
  521.   ;#
  522.   ;#  Copyright (c) 1992, Raphael Manfredi
  523.   ;#
  524. --- 1,4 ----
  525. ! ;# $Id: context.pl,v 2.9.1.2 93/01/12 12:12:49 ram Exp $
  526.   ;#
  527.   ;#  Copyright (c) 1992, Raphael Manfredi
  528.   ;#
  529. ***************
  530. *** 6,11 ****
  531. --- 6,14 ----
  532.   ;#  Licence as specified in the README file that comes with dist.
  533.   ;#
  534.   ;# $Log:    context.pl,v $
  535. + ;# Revision 2.9.1.2  93/01/12  12:12:49  ram
  536. + ;# patch15: outdated locks checking now performed by &acs_rqst
  537. + ;# 
  538.   ;# Revision 2.9.1.1  92/12/01  09:19:38  ram
  539.   ;# patch13: remove context file lock when excessively old
  540.   ;# 
  541. ***************
  542. *** 66,72 ****
  543.   sub save {
  544.       require 'ctime.pl';
  545.       local($existed) = -f $cf'context;
  546. -     &'checklock($cf'context);                # Ensure no eternal locking
  547.       &'acs_rqst($cf'context) if $existed;    # Lock existing file
  548.       unless (open(CONTEXT, ">$cf'context")) {
  549.           &'add_log("ERROR cannot overwrite context file: $!") if $'loglvl > 1;
  550. --- 69,74 ----
  551.  
  552. Index: agent/mailpatch.SH
  553. Prereq: 2.9
  554. *** agent/mailpatch.SH.old    Tue Jan 12 13:40:54 1993
  555. --- agent/mailpatch.SH    Tue Jan 12 13:40:54 1993
  556. ***************
  557. *** 14,24 ****
  558.   esac
  559.   echo "Extracting agent/mailpatch (with variable substitutions)"
  560.   $spitshell >mailpatch <<!GROK!THIS!
  561. ! # feed this into perl
  562.       eval "exec perl -S \$0 \$*"
  563.           if \$running_under_some_shell;
  564.   
  565. ! # $Id: mailpatch.SH,v 2.9 92/07/14 16:49:00 ram Exp $
  566.   #
  567.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  568.   #
  569. --- 14,24 ----
  570.   esac
  571.   echo "Extracting agent/mailpatch (with variable substitutions)"
  572.   $spitshell >mailpatch <<!GROK!THIS!
  573. ! $startperl
  574.       eval "exec perl -S \$0 \$*"
  575.           if \$running_under_some_shell;
  576.   
  577. ! # $Id: mailpatch.SH,v 2.9.1.1 93/01/12 12:09:15 ram Exp $
  578.   #
  579.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  580.   #
  581. ***************
  582. *** 26,31 ****
  583. --- 26,34 ----
  584.   #  Licence as specified in the README file that comes with dist.
  585.   #
  586.   # $Log:    mailpatch.SH,v $
  587. + # Revision 2.9.1.1  93/01/12  12:09:15  ram
  588. + # patch15: leading perl start up is now configured
  589. + # 
  590.   # Revision 2.9  92/07/14  16:49:00  ram
  591.   # 3.0 beta baseline.
  592.   # 
  593.  
  594. Index: agent/mailhelp.SH
  595. Prereq: 2.9
  596. *** agent/mailhelp.SH.old    Tue Jan 12 13:40:49 1993
  597. --- agent/mailhelp.SH    Tue Jan 12 13:40:49 1993
  598. ***************
  599. *** 14,24 ****
  600.   esac
  601.   echo "Extracting agent/mailhelp (with variable substitutions)"
  602.   $spitshell >mailhelp <<!GROK!THIS!
  603. ! # feed this into perl
  604.       eval "exec perl -S \$0 \$*"
  605.           if \$running_under_some_shell;
  606.   
  607. ! # $Id: mailhelp.SH,v 2.9 92/07/14 16:48:54 ram Exp $
  608.   #
  609.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  610.   #
  611. --- 14,24 ----
  612.   esac
  613.   echo "Extracting agent/mailhelp (with variable substitutions)"
  614.   $spitshell >mailhelp <<!GROK!THIS!
  615. ! $startperl
  616.       eval "exec perl -S \$0 \$*"
  617.           if \$running_under_some_shell;
  618.   
  619. ! # $Id: mailhelp.SH,v 2.9.1.1 93/01/12 12:09:00 ram Exp $
  620.   #
  621.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  622.   #
  623. ***************
  624. *** 26,31 ****
  625. --- 26,34 ----
  626.   #  Licence as specified in the README file that comes with dist.
  627.   #
  628.   # $Log:    mailhelp.SH,v $
  629. + # Revision 2.9.1.1  93/01/12  12:09:00  ram
  630. + # patch15: leading perl start up is now configured
  631. + # 
  632.   # Revision 2.9  92/07/14  16:48:54  ram
  633.   # 3.0 beta baseline.
  634.   # 
  635.  
  636. Index: agent/maillist.SH
  637. Prereq: 2.9
  638. *** agent/maillist.SH.old    Tue Jan 12 13:40:51 1993
  639. --- agent/maillist.SH    Tue Jan 12 13:40:52 1993
  640. ***************
  641. *** 14,24 ****
  642.   esac
  643.   echo "Extracting agent/maillist (with variable substitutions)"
  644.   $spitshell >maillist <<!GROK!THIS!
  645. ! # feed this into perl
  646.       eval "exec perl -S \$0 \$*"
  647.           if \$running_under_some_shell;
  648.   
  649. ! # $Id: maillist.SH,v 2.9 92/07/14 16:48:57 ram Exp $
  650.   #
  651.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  652.   #
  653. --- 14,24 ----
  654.   esac
  655.   echo "Extracting agent/maillist (with variable substitutions)"
  656.   $spitshell >maillist <<!GROK!THIS!
  657. ! $startperl
  658.       eval "exec perl -S \$0 \$*"
  659.           if \$running_under_some_shell;
  660.   
  661. ! # $Id: maillist.SH,v 2.9.1.1 93/01/12 12:09:08 ram Exp $
  662.   #
  663.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  664.   #
  665. ***************
  666. *** 26,31 ****
  667. --- 26,34 ----
  668.   #  Licence as specified in the README file that comes with dist.
  669.   #
  670.   # $Log:    maillist.SH,v $
  671. + # Revision 2.9.1.1  93/01/12  12:09:08  ram
  672. + # patch15: leading perl start up is now configured
  673. + # 
  674.   # Revision 2.9  92/07/14  16:48:57  ram
  675.   # 3.0 beta baseline.
  676.   # 
  677.  
  678. Index: agent/maildist.SH
  679. Prereq: 2.9
  680. *** agent/maildist.SH.old    Tue Jan 12 13:40:46 1993
  681. --- agent/maildist.SH    Tue Jan 12 13:40:47 1993
  682. ***************
  683. *** 14,24 ****
  684.   esac
  685.   echo "Extracting agent/maildist (with variable substitutions)"
  686.   $spitshell >maildist <<!GROK!THIS!
  687. ! # feed this into perl
  688.       eval "exec perl -S \$0 \$*"
  689.           if \$running_under_some_shell;
  690.   
  691. ! # $Id: maildist.SH,v 2.9 92/07/14 16:48:51 ram Exp $
  692.   #
  693.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  694.   #
  695. --- 14,24 ----
  696.   esac
  697.   echo "Extracting agent/maildist (with variable substitutions)"
  698.   $spitshell >maildist <<!GROK!THIS!
  699. ! $startperl
  700.       eval "exec perl -S \$0 \$*"
  701.           if \$running_under_some_shell;
  702.   
  703. ! # $Id: maildist.SH,v 2.9.1.1 93/01/12 12:08:51 ram Exp $
  704.   #
  705.   #  Copyright (c) 1991, 1992, Raphael Manfredi
  706.   #
  707. ***************
  708. *** 26,31 ****
  709. --- 26,34 ----
  710.   #  Licence as specified in the README file that comes with dist.
  711.   #
  712.   # $Log:    maildist.SH,v $
  713. + # Revision 2.9.1.1  93/01/12  12:08:51  ram
  714. + # patch15: leading perl start up is now configured
  715. + # 
  716.   # Revision 2.9  92/07/14  16:48:51  ram
  717.   # 3.0 beta baseline.
  718.   # 
  719.  
  720. Index: agent/examples/vacation
  721. *** agent/examples/vacation.old    Tue Jan 12 13:40:38 1993
  722. --- agent/examples/vacation    Tue Jan 12 13:40:38 1993
  723. ***************
  724. *** 1,14 ****
  725.   Subject: This is a recording... [Re: %R]
  726.   Organization: %o
  727.   
  728. ! [This is a recording -- Last revision was made on %T]
  729.   
  730.   Hello %N:
  731.   
  732.   I have received your message of %[Date], whose subject
  733. ! was "%s" and dropped it into %u's mailbox.
  734. ! I'll send you such an acknowledgment only once a day, unless your message is
  735. ! filtered into one of %u's mail folders, whose reading is delayed anyway.
  736.   (Your mail was received by a program, not by a person, in case you wonder.)
  737.   
  738.   %U told me:
  739. --- 1,13 ----
  740.   Subject: This is a recording... [Re: %R]
  741.   Organization: %o
  742.   
  743. ! [This is a recording -- Last revision was made on %T (month/day)]
  744.   
  745.   Hello %N:
  746.   
  747.   I have received your message of %[Date], whose subject
  748. ! was "%s" and dropped it into one
  749. ! of %u's mailbox. I will send you such an acknowledgment only once a day.
  750.   (Your mail was received by a program, not by a person, in case you wonder.)
  751.   
  752.   %U told me:
  753.  
  754. *** End of Patch 16 ***
  755. -- 
  756. Raphael Manfredi <ram@eiffel.com>
  757. Interactive Software Engineering Inc.
  758. 270 Storke Road, Suite #7                      / Tel +1 (805) 685-1006 \
  759. Goleta, California 93117, USA                  \ Fax +1 (805) 685-6869 /
  760.