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