home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume44 / mailagent / patch12 next >
Internet Message Format  |  1994-09-22  |  53KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v44i086:  mailagent - Flexible mail filtering and processing package, v3.0, Patch12
  4. Date: 22 Sep 1994 12:12:27 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <35sdtr$r4c@sparky.sterling.com>
  9. X-Md4-Signature: 93670c16558ccb1d64409606a494f576
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 44, Issue 86
  13. Archive-name: mailagent/patch12
  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 #: 12
  21. Priority: MEDIUM
  22. Subject: regenerated Configure with dist-3.0 PL35
  23. Subject: regenerated Makefile.SH with jmake 3.0 PL31
  24. Subject: new edusers script to edit users file
  25. Subject: created
  26. Subject: filter.sh now honours queuewait when defined
  27. Subject: new config parameters callout and linkdirs
  28. Subject: typo fix to enable correct lockfile timeout printing
  29. Subject: added fallback implementation for strcasecmp()
  30. Subject: made fatal() arguments long rather than int for 64-bit machines
  31. Subject: extended security checks to mimic those done by mailagent
  32. Subject: now performs &init_constants as soon as possible
  33. Subject: changed interface for &queue_mail to include first 2 letters
  34. Subject: context is loaded earlier to initialize callout queue
  35. Subject: added definition for $MAX_LINKS, $S_IWOTH, $S_IWGRP and &abs
  36. Subject: changed &email_addr to cache its result and not rely on $cf'user
  37. Subject: moved &init_signals to pl/signals.pl as &catch_signals
  38. Subject: new manual page for edusers
  39. Subject: documents new config parameters callout and linkdirs
  40. Subject: new filtering actions AFTER and DO
  41. Subject: variable msgpath is now defined within a PERL escape
  42. Subject: mention that PERL escape variables are available to new commands
  43. Subject: documents the edusers script and fuzzy address matching
  44. Subject: added fuzzy address matching to avoid duplicates
  45. Subject: detect hostile addresses before it is too late...
  46. Subject: detect strange status-change requests
  47. Subject: now performs locking before changing the users file
  48. Subject: inform user about unrecognized leave-alone requests
  49. Subject: optimize by not re-writing users file if not needed
  50. Subject: now updates new variable folder_saved with folder path
  51. Subject: added various escapes in strings for perl5 support
  52. Subject: create ~/agent.trace if unable to mail command trace back
  53. Subject: interface change for &qmail allows for better log messages
  54. Subject: implements new AFTER and DO filtering commands
  55. Subject: now escapes square brackets in strings for perl5
  56. Subject: defines new folder_saved variable to store folder path
  57. Subject: added escapes in strings for perl5 support
  58. Subject: builtins are now looked for in &run_builtins
  59. Subject: localized variables used by stat()
  60. Subject: added access routines to detect context changes
  61. Subject: context is now written back to disk only when changed
  62. Subject: added callout queue knowledge
  63. Subject: added the &do routine to support new DO filtering command
  64. Subject: replaced all deprecated 'do sub' calls with '&sub'
  65. Subject: typo prevented correct indexing in the @insert array
  66. Subject: propagated change to the &queue_mail interface
  67. Subject: added stubs for DO and AFTER commands
  68. Subject: local() statement was missing in &getdate parameters fetch
  69. Subject: added escapes in regexp for perl5 support
  70. Subject: mailhook package cleaning now done only for subroutines
  71. Subject: package name is separated with '::' in perl5
  72. Subject: added logging at level 25 to debug lexer
  73. Subject: better mismatched braces handling
  74. Subject: localized variables used by stat() and localtime()
  75. Subject: now knows about callout queue messages
  76. Subject: propagates folder_saved as msgpath in PERL escapes
  77. Subject: fixed regexp for perl5 support
  78. Subject: now updates folder_saved variable with file pathname
  79. Subject: ensures the newcmd file is secure
  80. Subject: propagates glob for folder_saved
  81. Subject: removed useless test which prevented correct processing
  82. Subject: builtins handled in &run_builtins to allow re-entrance
  83. Subject: changed interface of &qmail and &queue_mail for wider usage
  84. Subject: do not attempt parsing of config if variable is undefined
  85. Subject: lock rule cache before reading to prevent from concurrent updates
  86. Subject: new DO and AFTER commands
  87. Subject: symbolic directories are now specially handled
  88. Subject: new -m option to monitor agentlog changes via atail
  89. Subject: added regression tests for DO
  90. Subject: added callout queue file definition
  91. Subject: now checks that callout messages are properly listed
  92. Subject: added minimal support for perl5 dataloading
  93. Subject: updated with metaconfig 3.0 PL35
  94. Subject: nine new files
  95. Date: Thu Sep 22 16:43:34 MET DST 1994
  96. From: Raphael Manfredi <ram@acri.fr>
  97.  
  98. Description:
  99.     Regenerated Configure with dist-3.0 PL35 and most Makefile.SH
  100.     files with jmake 3.0 PL31.
  101.  
  102.     New edusers script to edit users file. The package command now
  103.     performs locking of the users file and edusers should be used
  104.     instead of a direct 'vi users' to ensure consistency and avoid
  105.     concurrent updating in the background.
  106.  
  107.     filter.sh now honours queuewait when defined. The C filter already
  108.     did but since  I don't use filter.sh, I sometimes forget about it.
  109.  
  110.     New config parameters callout and linkdirs. The callout parameter
  111.     must be defined if you wish to make use of the new AFTER command.
  112.     The linkdirs parameters controls security checks when facing a
  113.     symbolic directory. When set to ON, mailagent will actively try
  114.     to determine wether files under this symbolic link are secure.
  115.  
  116.     Typo fix in C filter to enable correct lockfile timeout printing.
  117.  
  118.     Added fallback implementation for strcasecmp() in case it is not
  119.     present in the libc.
  120.  
  121.     Made fatal() arguments long rather than int for 64-bit machines
  122.     in the C filter. Hope this won't break filter on 16-bit machines.
  123.     If it does, please let me know ASAP and we'll find something else.
  124.  
  125.     Extended security checks in the C filter to mimic those done by
  126.     mailagent.
  127.  
  128.     New filtering actions AFTER and DO. The AFTER command enables you
  129.     to install a callback for later, after a specified date. The DO
  130.     command lets you call an arbitrary perl routine and is to be
  131.     construed as a low-level access to mailagent's internal.
  132.  
  133.     Actually, combining AFTER and DO via the mailhook interface may be
  134.     useful to perform actions one a timeout has expired. For instance,
  135.     an automatic unsharing command could send a warning after 2 days
  136.     if some of the parts are still missing. Please refer to the
  137.     manual page for syntax details.
  138.  
  139.     Variable $msgpath is now defined within a PERL escape and refers
  140.     to the internal new $folder_saved variable. It points to the
  141.     path of the last saved message/folder.
  142.  
  143.     The mailagent manual page now mentions that PERL escape variables
  144.     are available to user-defined commands, albeit in the newcmd package
  145.     instead of mailhook.
  146.  
  147.     The package command now performs fuzzy address matching to avoid
  148.     duplicates, and tries to detect hostile addresses before it is too
  149.     late... Strange status-change requests are now logged and the users
  150.     file is locked before updating.
  151.  
  152.     The package command will send an error message when faced with a
  153.     leave-alone request for someone who has not been properly registered,
  154.     including a list of the closest e-mail addresses known so far.
  155.  
  156.     Added various escapes in strings and regular expressions for perl5
  157.     support. I even updated bin/perload to produce a dataloaded version
  158.     that can work with perl5 (&pack'name is now &pack::name with perl5).
  159.     However, mailagent fails about 22 of its tests with perl5, so use
  160.     at your own risks. This may either indicate bugs in mailagent's code
  161.     or bugs in perl5, or simply incompatibilities between perl4 and perl5.
  162.     I don't know, I haven't investigated yet.
  163.  
  164.     Create ~/agent.trace if unable to mail command trace back when
  165.     PROCESSing a message.
  166.  
  167.     Context is now written back to disk only when changed.
  168.  
  169.     Added callout queue knowledge, the 'mailagent -l' command will
  170.     also show callout messages stored to be fed as input to callbacks.
  171.  
  172.     Mailhook package cleaning now done only for subroutines. I suspect
  173.     cleaning of variables and hashes via type glob to be really buggy
  174.     in perl4. I haven't ported mailagent to perl5 yet, apart from basic
  175.     changes to let 'perl5 -c magent' run correctly... This may change
  176.     the outcome of tests like cmd/perl or cmd/umask (for the better,
  177.     I hope).
  178.  
  179.     Added logging at level 25 to debug lexer. Levels this high are not
  180.     documented anyway, but I'm just telling you in case you wonder how
  181.     mailagent parses your rule files.
  182.  
  183.     Better mismatched braces handling. A clear warning will now be issued
  184.     if you have mismatched braces in your actions. Before that, mailagent
  185.     could hung in the rule parsing.
  186.  
  187.     Ensures the newcmd file is secure. Since new commands are defined
  188.     there, one could replace some favorite commands of yours with
  189.     trojan horses. I said "could". Now they can't (shouldn't be able
  190.     to, unless I've goofed somewhere).
  191.  
  192.     Removed useless test which prevented correct history processing
  193.     and could cause bugs when issuing vacation messages: they would
  194.     be issued systematically instead of waiting for the correct timeout.
  195.  
  196.     Lock rule cache before reading to prevent from concurrent updates.
  197.  
  198.     New -m option in TEST to monitor agentlog changes via atail. Intended
  199.     to be used in desperate cases. See agent/test/README for details.
  200.  
  201.     Added regression tests for DO, but none for AFTER. Automatic testing
  202.     of that command is not easy. If you wish to contribute a test, you
  203.     are welcome... :-)
  204.  
  205.     nine new files
  206.  
  207.  
  208. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your mailagent source
  209.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  210.     If you don't have the patch program, apply the following by hand,
  211.     or get patch (version 2.0, latest patchlevel).
  212.  
  213.     After patching:
  214.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #16 FIRST ***
  215.  
  216.     If patch indicates that patchlevel is the wrong version, you may need
  217.     to apply one or more previous patches, or the patch may already
  218.     have been applied.  See the patchlevel.h file to find out what has or
  219.     has not been applied.  In any event, don't continue with the patch.
  220.  
  221.     If you are missing previous patches they can be obtained from me:
  222.  
  223.         Raphael Manfredi <ram@acri.fr>
  224.  
  225.     If you send a mail message of the following form it will greatly speed
  226.     processing:
  227.  
  228.         Subject: Command
  229.         @SH mailpatch PATH mailagent 3.0 LIST
  230.                ^ note the c
  231.  
  232.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  233.     or in bang notation from some well-known host, and LIST is the number
  234.     of one or more patches you need, separated by spaces, commas, and/or
  235.     hyphens.  Saying 35- says everything from 35 to the end.
  236.  
  237.     To get some more detailed instructions, send me the following mail:
  238.  
  239.         Subject: Command
  240.         @SH mailhelp PATH
  241.  
  242.  
  243. Index: patchlevel.h
  244. Prereq: 11
  245. 4c4
  246. < #define PATCHLEVEL 11
  247. ---
  248. > #define PATCHLEVEL 12
  249.  
  250. Index: Configure
  251. Prereq: 3.0.1.4
  252. *** Configure.old    Thu Sep 22 16:42:42 1994
  253. --- Configure    Thu Sep 22 16:42:44 1994
  254. ***************
  255. *** 18,26 ****
  256.   # archive site. Check with Archie if you don't know where that can be.)
  257.   #
  258.   
  259. ! # $Id: Configure,v 3.0.1.4 1994/07/01 14:50:29 ram Exp $
  260.   #
  261. ! # Generated on Fri Jul 01 16:47:56 MET DST 1994 [metaconfig 3.0 PL31]
  262.   
  263.   cat >/tmp/c1$$ <<EOF
  264.   ARGGGHHHH!!!!!
  265. --- 18,26 ----
  266.   # archive site. Check with Archie if you don't know where that can be.)
  267.   #
  268.   
  269. ! # $Id: Configure,v 3.0.1.5 1994/09/22 13:37:44 ram Exp $
  270.   #
  271. ! # Generated on Thu Sep 22 15:19:32 MET DST 1994 [metaconfig 3.0 PL35]
  272.   
  273.   cat >/tmp/c1$$ <<EOF
  274.   ARGGGHHHH!!!!!
  275. ***************
  276. *** 55,69 ****
  277.       ;;
  278.   esac
  279.   
  280. ! : Sanity checks
  281. ! PATH=".:$PATH:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin"
  282. ! PATH=$PATH:'/usr/5bin:/etc:/usr/gnu/bin:/usr/new:/usr/new/bin:/usr/nbin'
  283. ! PATH=$PATH:'/sys5.3/bin:/sys5.3/usr/bin:/bsd4.3/bin:/bsd4.3/usr/ucb'
  284. ! PATH=$PATH:'/bsd4.3/usr/bin:/usr/bsd:/bsd43/bin:/usr/ccs/bin'
  285. ! PATH=$PATH:'/etc:/usr/lib:/usr/ucblib:/lib:/usr/ccs/lib'
  286. ! PATH=$PATH:'/sbin:/usr/sbin:/usr/libexec'
  287.   export PATH
  288.   
  289.   if test ! -t 0; then
  290.       echo "Say 'sh $me', not 'sh <$me'"
  291.       exit 1
  292. --- 55,81 ----
  293.       ;;
  294.   esac
  295.   
  296. ! 
  297. ! : Proper PATH setting
  298. ! paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
  299. ! paths=$paths:'/usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin'
  300. ! paths=$paths:'/sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb'
  301. ! paths=$paths:'/bsd4.3/usr/bin /usr/bsd /bsd43/bin /usr/ccs/bin'
  302. ! paths=$paths:'/etc /usr/lib /usr/ucblib /lib /usr/ccs/lib'
  303. ! paths=$paths:'/sbin /usr/sbin /usr/libexec'
  304. ! 
  305. ! for p in $paths
  306. ! do
  307. !     case ":$PATH:" in
  308. !     *:$p:*) ;;
  309. !     *) test -d $p && PATH=$PATH:$p ;;
  310. !     esac
  311. ! done
  312. ! 
  313. ! PATH=.:$PATH
  314.   export PATH
  315.   
  316. + : Sanity checks
  317.   if test ! -t 0; then
  318.       echo "Say 'sh $me', not 'sh <$me'"
  319.       exit 1
  320. ***************
  321. *** 211,216 ****
  322. --- 223,229 ----
  323.   d_bsdpgrp=''
  324.   d_setpgrp=''
  325.   d_setsid=''
  326. + d_strccmp=''
  327.   d_index=''
  328.   d_strchr=''
  329.   d_strerrm=''
  330. ***************
  331. *** 225,230 ****
  332. --- 238,244 ----
  333.   usevfork=''
  334.   d_voidsig=''
  335.   signal_t=''
  336. + defeditor=''
  337.   h_fcntl=''
  338.   h_sysfile=''
  339.   i_fcntl=''
  340. ***************
  341. *** 236,241 ****
  342. --- 250,256 ----
  343.   i_sysfilio=''
  344.   i_sysioctl=''
  345.   i_syssockio=''
  346. + i_sysparam=''
  347.   i_syswait=''
  348.   i_sgtty=''
  349.   i_termio=''
  350. ***************
  351. *** 288,293 ****
  352. --- 303,309 ----
  353.   patchlevel=''
  354.   perlpath=''
  355.   pidtype=''
  356. + prefix=''
  357.   installprivlib=''
  358.   privlib=''
  359.   privlibexp=''
  360. ***************
  361. *** 309,314 ****
  362. --- 325,331 ----
  363.   reg8=''
  364.   reg9=''
  365.   registers=''
  366. + rootid=''
  367.   installscript=''
  368.   scriptdir=''
  369.   scriptdirexp=''
  370. ***************
  371. *** 475,481 ****
  372.           esac
  373.           shift
  374.           ;;
  375. !     -V) echo "$me generated by metaconfig 3.0 PL31." >&2
  376.           exit 0;;
  377.       --) break;;
  378.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  379. --- 492,498 ----
  380.           esac
  381.           shift
  382.           ;;
  383. !     -V) echo "$me generated by metaconfig 3.0 PL35." >&2
  384.           exit 0;;
  385.       --) break;;
  386.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  387. ***************
  388. *** 631,638 ****
  389.   xlibpth='/usr/lib/386 /lib/386'
  390.   
  391.   : general looking path for locating libraries
  392. ! glibpth="/usr/lib/large /lib /usr/lib $xlibpth /lib/large"
  393. ! glibpth="$glibpth /usr/lib/small /lib/small"
  394.   glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib /usr/shlib"
  395.   
  396.   : Private path used by Configure to find libraries.  Its value
  397. --- 648,655 ----
  398.   xlibpth='/usr/lib/386 /lib/386'
  399.   
  400.   : general looking path for locating libraries
  401. ! glibpth="/lib/pa1.1 /usr/lib/large /lib /usr/lib $xlibpth"
  402. ! glibpth="$glibpth /lib/large /usr/lib/small /lib/small"
  403.   glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib /usr/shlib"
  404.   
  405.   : Private path used by Configure to find libraries.  Its value
  406. ***************
  407. *** 915,921 ****
  408.       spitshell=cat
  409.       echo " "
  410.       echo "Okay, let's see if #! works on this system..."
  411. !     echo "#!/bin/cat" >try
  412.       $eunicefix try
  413.       chmod +x try
  414.       ./try > today
  415. --- 932,940 ----
  416.       spitshell=cat
  417.       echo " "
  418.       echo "Okay, let's see if #! works on this system..."
  419. !     xcat=/bin/cat
  420. !     test -r $xcat || xcat=/usr/bin/cat
  421. !     echo "#!$xcat" >try
  422.       $eunicefix try
  423.       chmod +x try
  424.       ./try > today
  425. ***************
  426. *** 923,929 ****
  427.           echo "It does."
  428.           sharpbang='#!'
  429.       else
  430. !         echo "#! /bin/cat" > try
  431.           $eunicefix try
  432.           chmod +x try
  433.           ./try > today
  434. --- 942,948 ----
  435.           echo "It does."
  436.           sharpbang='#!'
  437.       else
  438. !         echo "#! $xcat" > try
  439.           $eunicefix try
  440.           chmod +x try
  441.           ./try > today
  442. ***************
  443. *** 938,947 ****
  444. --- 957,968 ----
  445.   else
  446.       echo "Your sh doesn't grok # comments--I will strip them later on."
  447.       shsharp=false
  448. +     cd ..
  449.       echo "exec grep -v '^[     ]*#'" >spitshell
  450.       chmod +x spitshell
  451.       $eunicefix spitshell
  452.       spitshell=`pwd`/spitshell
  453. +     cd UU
  454.       echo "I presume that if # doesn't work, #! won't work either!"
  455.       sharpbang=': use '
  456.   fi
  457. ***************
  458. *** 1037,1042 ****
  459. --- 1058,1064 ----
  460.   smail
  461.   test
  462.   uname
  463. + vi
  464.   zcat
  465.   "
  466.   pth=`echo $PATH | sed -e 's/:/ /g'`
  467. ***************
  468. *** 1832,1839 ****
  469.   $cat <<'EOM'
  470.   
  471.   Some systems have incompatible or broken versions of libraries.  Among
  472. ! the directories listed in the question below, please remove the one
  473. ! you know not to be holding relevant libraries.  Say "none" for none.
  474.   
  475.   EOM
  476.   case "$libpth" in
  477. --- 1854,1862 ----
  478.   $cat <<'EOM'
  479.   
  480.   Some systems have incompatible or broken versions of libraries.  Among
  481. ! the directories listed in the question below, please remove any you
  482. ! know not to be holding relevant libraries, and add any that are needed.
  483. ! Say "none" for none.
  484.   
  485.   EOM
  486.   case "$libpth" in
  487. ***************
  488. *** 2154,2160 ****
  489.   $grep fprintf libc.tmp > libc.ptf
  490.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  491.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  492. ! if com="$sed -n -e 's/^.* [ADTS]  *_[_.]*//p' -e 's/^.* [ADTS] //p'";\
  493.       eval $xscan;\
  494.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  495.           eval $xrun
  496. --- 2177,2183 ----
  497.   $grep fprintf libc.tmp > libc.ptf
  498.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  499.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  500. ! if com="$sed -n -e 's/^.* [ADTSI]  *_[_.]*//p' -e 's/^.* [ADTSI] //p'";\
  501.       eval $xscan;\
  502.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  503.           eval $xrun
  504. ***************
  505. *** 2545,2550 ****
  506. --- 2568,2576 ----
  507.       else
  508.           dflt='none'
  509.       fi
  510. +     case "$ccflags" in
  511. +     *-posix*) dflt="$dflt -posix" ;;
  512. +     esac
  513.       ;;
  514.   *) dflt="$ldflags";;
  515.   esac
  516. ***************
  517. *** 3235,3240 ****
  518. --- 3261,3270 ----
  519.   set setsid d_setsid
  520.   eval $inlibc
  521.   
  522. + : see if strcasecmp exists
  523. + set strcasecmp d_strccmp
  524. + eval $inlibc
  525. + 
  526.   : see if strerror and/or sys_errlist[] exist
  527.   echo " "
  528.   if set strerror val -f d_strerror; eval $csym; $val; then
  529. ***************
  530. *** 3333,3340 ****
  531.   $define)
  532.       echo " "
  533.       case "$usevfork" in
  534. !     true) dflt='y';;
  535. !     *) dflt='n';;
  536.       esac
  537.       rp="Some systems have problems with vfork().  Do you want to use it?"
  538.       . ./myread
  539. --- 3363,3370 ----
  540.   $define)
  541.       echo " "
  542.       case "$usevfork" in
  543. !     false) dflt='n';;
  544. !     *) dflt='y';;
  545.       esac
  546.       rp="Some systems have problems with vfork().  Do you want to use it?"
  547.       . ./myread
  548. ***************
  549. *** 3547,3552 ****
  550. --- 3577,3599 ----
  551.   Id='$Id'
  552.   Log='$Log'
  553.   
  554. + : determine default editor
  555. + echo " "
  556. + case "$defeditor" in
  557. + '')
  558. +     case "$_vi" in
  559. +     */*) dflt="$_vi";;
  560. +     *) dflt=/usr/ucb/vi;;
  561. +     esac
  562. +     ;;
  563. + *)  dflt="$defeditor"
  564. +     ;;
  565. + esac
  566. + fn=f/
  567. + rp="What is the default editor on your system?"
  568. + . ./getfile
  569. + defeditor="$ans"
  570. + 
  571.   : see if flock exists
  572.   set flock d_flock
  573.   eval $inlibc
  574. ***************
  575. *** 3650,3660 ****
  576.       afs=false
  577.   fi
  578.   
  579.   : determine where public executables go
  580.   echo " "
  581.   case "$bin" in
  582.   '')
  583. !     dflt=`./loc . /bin /usr/local/bin /usr/lbin /usr/local /usr/bin`
  584.       ;;
  585.   *)
  586.       dflt="$bin"
  587. --- 3697,3733 ----
  588.       afs=false
  589.   fi
  590.   
  591. + : determine root of directory hierarchy where package will be installed.
  592. + case "$prefix" in
  593. + '')
  594. +     dflt=`./loc . /usr/local /usr/local /local /opt /usr`
  595. +     ;;
  596. + *)
  597. +     dflt="$prefix"
  598. +     ;;
  599. + esac
  600. + $cat <<EOM
  601. + 
  602. + By default, $package will be installed in $dflt/bin, manual
  603. + pages under $dflt/man, etc..., i.e. with $dflt as prefix for
  604. + all installation directories. Typically set to /usr/local, but you
  605. + may choose /usr if you wish to install $package among your system
  606. + binaries. If you wish to have binaries under /bin but manual pages
  607. + under /usr/local/man, that's ok: you will be prompted separately
  608. + for each of the installation directories, the prefix being only used
  609. + to set defaults.
  610. + 
  611. + EOM
  612. + fn=d~
  613. + rp='Installation prefix to use?'
  614. + . ./getfile
  615. + prefix="$ans"
  616. + 
  617.   : determine where public executables go
  618.   echo " "
  619.   case "$bin" in
  620.   '')
  621. !     dflt="$prefix/bin"
  622.       ;;
  623.   *)
  624.       dflt="$bin"
  625. ***************
  626. *** 3700,3710 ****
  627.   echo "If you don't want the manual sources installed, answer 'none'."
  628.   case "$mansrc" in
  629.   '')
  630. !     lookpath='/usr/local/man/man1 /usr/local/man/man1 /usr/man/manl'
  631.       lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
  632.       lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
  633.       lookpath="$lookpath /usr/man/man.L"
  634. !     mansrc=`./loc . $lookpath`
  635.       if $test -d "$mansrc"; then
  636.           dflt="$mansrc"
  637.       else
  638. --- 3773,3784 ----
  639.   echo "If you don't want the manual sources installed, answer 'none'."
  640.   case "$mansrc" in
  641.   '')
  642. !     lookpath="$prefix/man/man1 $prefix/man/u_man/man1 $prefix/man/l_man/man1"
  643. !     lookpath="$lookpath /usr/local/man/man1 /usr/local/man/man1 /usr/man/manl"
  644.       lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
  645.       lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
  646.       lookpath="$lookpath /usr/man/man.L"
  647. !     mansrc=`./loc . $prefix/man/man1 $lookpath`
  648.       if $test -d "$mansrc"; then
  649.           dflt="$mansrc"
  650.       else
  651. ***************
  652. *** 3756,3764 ****
  653.   : determine where private executables go
  654.   case "$privlib" in
  655.   '')
  656. !     dflt=/usr/lib/$package
  657. !     $test -d /usr/local/lib && dflt=/usr/local/lib/$package
  658. !     $test -d /local/lib && dflt=/local/lib/$package
  659.       ;;
  660.   *)  dflt="$privlib"
  661.       ;;
  662. --- 3830,3836 ----
  663.   : determine where private executables go
  664.   case "$privlib" in
  665.   '')
  666. !     dflt=$prefix/lib/$package
  667.       ;;
  668.   *)  dflt="$privlib"
  669.       ;;
  670. ***************
  671. *** 3794,3800 ****
  672.       installprivlib="$privlibexp"
  673.   fi
  674.   
  675. ! : determine where public executables go
  676.   case "$scriptdir" in
  677.   '')
  678.       dflt="$bin"
  679. --- 3866,3872 ----
  680.       installprivlib="$privlibexp"
  681.   fi
  682.   
  683. ! : determine where public executable scripts go
  684.   case "$scriptdir" in
  685.   '')
  686.       dflt="$bin"
  687. ***************
  688. *** 3802,3807 ****
  689. --- 3874,3880 ----
  690.       $test -d /usr/share/scripts && dflt=/usr/share/scripts
  691.       $test -d /usr/share/bin && dflt=/usr/share/bin
  692.       $test -d /usr/local/script && dflt=/usr/local/script
  693. +     $test -d $prefix/script && dflt=$prefix/script
  694.       ;;
  695.   *)  dflt="$scriptdir"
  696.       ;;
  697. ***************
  698. *** 4200,4216 ****
  699.   . ./getfile
  700.   perlpath="$ans"
  701.   
  702.   : see what type pids are declared as in the kernel
  703. ! case "$pidtype" in
  704. ! '')
  705. !     if $contains 'pid_t;' `./findhdr sys/types.h` >/dev/null 2>&1 ; then
  706. !         dflt='pid_t';
  707. !     else
  708. !         dflt="int"
  709. !     fi
  710. !     ;;
  711. ! *)  dflt="$pidtype";;
  712. ! esac
  713.   echo " "
  714.   rp="What type are process ids on this system declared as?"
  715.   . ./myread
  716. --- 4273,4304 ----
  717.   . ./getfile
  718.   perlpath="$ans"
  719.   
  720. + : define an is-a-typedef? function
  721. + typedef='type=$1; var=$2; def=$3; shift; shift; shift; inclist=$@;
  722. + case "$inclist" in
  723. + "") inclist="sys/types.h";;
  724. + esac;
  725. + eval "val=\$$var";
  726. + case "$val" in
  727. + "")
  728. +     $rm -f temp.c;
  729. +     for inc in $inclist; do
  730. +         echo "#include <$inc>" >>temp.c;
  731. +     done;
  732. +     $cppstdin $cppflags $cppminus < temp.c >temp.E 2>/dev/null;
  733. +     if $contains $type temp.E >/dev/null 2>&1; then
  734. +         eval "$var=$type";
  735. +     else
  736. +         eval "$var=$def";
  737. +     fi;
  738. +     $rm -f temp.?;;
  739. + *) eval "$var=$val";;
  740. + esac'
  741. + 
  742.   : see what type pids are declared as in the kernel
  743. ! set pid_t pidtype int stdio.h sys/types.h
  744. ! eval $typedef
  745. ! dflt="$pidtype"
  746.   echo " "
  747.   rp="What type are process ids on this system declared as?"
  748.   . ./myread
  749. ***************
  750. *** 4272,4277 ****
  751. --- 4360,4373 ----
  752.   . ./.foo
  753.   $rm -f .foo
  754.   
  755. + : determine root id
  756. + echo " "
  757. + rootid=`$sed -e "/^root:/{s/^[^:]*:[^:]*:\([^:]*\).*"'$'"/\1/" -e "q" -e "}" -e "d" </etc/passwd`
  758. + case "$rootid" in
  759. + '') rootid=0 ;;
  760. + *) echo "Root uid = $rootid" >&4 ;;
  761. + esac
  762. + 
  763.   : see if signal is declared as pointer to function returning int or void
  764.   echo " "
  765.   xxx=`./findhdr signal.h`
  766. ***************
  767. *** 4279,4293 ****
  768.   if $contains 'int.*\*[     ]*signal' $$.tmp >/dev/null 2>&1 ; then
  769.       echo "You have int (*signal())() instead of void." >&4
  770.       val="$undef"
  771. -     signal_t="int"
  772.   elif $contains 'void.*\*[     ]*signal' $$.tmp >/dev/null 2>&1 ; then
  773.       echo "You have void (*signal())() instead of int." >&4
  774.       val="$define"
  775. -     signal_t="void"
  776.   elif $contains 'extern[     ]*[(\*]*signal' $$.tmp >/dev/null 2>&1 ; then
  777.       echo "You have int (*signal())() instead of void." >&4
  778.       val="$undef"
  779. -     signal_t="int"
  780.   else
  781.       case "$d_voidsig" in
  782.       '')
  783. --- 4375,4386 ----
  784. ***************
  785. *** 4295,4311 ****
  786.           dflt=void
  787.           rp="What type does your signal handler return?"
  788.           . ./myread
  789. !         signal_t="$ans"
  790. !         ;;
  791. !     *) echo "As you already told me, signal handler returns $signal_t." >&4;;
  792. !     esac
  793. !     case "$signal_t" in
  794. !     void) val="$define";;
  795. !     *) val="$undef";;
  796.       esac
  797.   fi
  798.   set d_voidsig
  799.   eval $setvar
  800.   $rm -f $$.tmp
  801.   
  802.   : figure out how to guarantee perl startup
  803. --- 4388,4409 ----
  804.           dflt=void
  805.           rp="What type does your signal handler return?"
  806.           . ./myread
  807. !         case "$ans" in
  808. !         v*) val="$define";;
  809. !         *) val="$undef";;
  810. !         esac;;
  811. !     "$define")
  812. !         echo "As you already told me, signal handler returns void." >&4;;
  813. !     *)
  814. !         echo "As you already told me, signal handler returns int." >&4;;
  815.       esac
  816.   fi
  817.   set d_voidsig
  818.   eval $setvar
  819. + case "$d_voidsig" in
  820. + "$define") signal_t="void";;
  821. + *) signal_t="int";;
  822. + esac
  823.   $rm -f $$.tmp
  824.   
  825.   : figure out how to guarantee perl startup
  826. ***************
  827. *** 4366,4392 ****
  828.   eval $setvar
  829.   
  830.   : see what type uids are declared as in the kernel
  831.   case "$uidtype" in
  832. ! '')
  833. !     if $contains 'uid_t;' `./findhdr sys/types.h` >/dev/null 2>&1 ; then
  834. !         dflt='uid_t';
  835. !     else
  836. !         xxx=`./findhdr sys/user.h`
  837. !         set `grep '_ruid;' "$xxx" 2>/dev/null` unsigned short
  838. !         case $1 in
  839. !         unsigned) dflt="$1 $2" ;;
  840. !         *) dflt="$1" ;;
  841. !         esac
  842. !     fi
  843.       ;;
  844. ! *)  dflt="$uidtype";;
  845.   esac
  846.   echo " "
  847.   rp="What is the type for user ids returned by getuid()?"
  848.   . ./myread
  849. ! val="$ans"
  850. ! set uidtype
  851. ! eval $setvar
  852.   
  853.   : check for void type
  854.   echo " "
  855. --- 4464,4486 ----
  856.   eval $setvar
  857.   
  858.   : see what type uids are declared as in the kernel
  859. + set uid_t uidtype xxx stdio.h sys/types.h
  860. + eval $typedef
  861.   case "$uidtype" in
  862. ! xxx)
  863. !     xxx=`./findhdr sys/user.h`
  864. !     set `grep '_ruid;' "$xxx" 2>/dev/null` unsigned short
  865. !     case $1 in
  866. !     unsigned) dflt="$1 $2" ;;
  867. !     *) dflt="$1" ;;
  868. !     esac
  869.       ;;
  870. ! *) dflt="$uidtype";;
  871.   esac
  872.   echo " "
  873.   rp="What is the type for user ids returned by getuid()?"
  874.   . ./myread
  875. ! uidtype="$ans"
  876.   
  877.   : check for void type
  878.   echo " "
  879. ***************
  880. *** 4530,4535 ****
  881. --- 4624,4633 ----
  882.   set i_fcntl
  883.   eval $setvar
  884.   
  885. + : see if this is a sys/param system
  886. + set sys/param.h i_sysparam
  887. + eval $inhdr
  888. + 
  889.   : see if we should include time.h, sys/time.h, or both
  890.   echo " "
  891.   echo "Testing to see if we should include <time.h>, <sys/time.h> or both." >&4
  892. ***************
  893. *** 4650,4655 ****
  894. --- 4748,4754 ----
  895.   EOM
  896.       rp='Should I send mail to ram@acri.fr?'
  897.       dflt=y
  898. +     $test -f ../.config/nomail && dflt=n
  899.   fi
  900.   . ./myread
  901.   case "$ans" in
  902. ***************
  903. *** 4725,4736 ****
  904.   
  905.   $atsh package $usermail $package $baserev $patchlevel$opt
  906.   EOM
  907. !     $rm -f ../.config/mailauthor
  908.       cp ../patchlevel.h ../.config/mailauthor
  909.       ;;
  910.   *)
  911.       case "$dflt" in
  912. !     "y") echo "Oh well, maybe next time.";;
  913.       esac
  914.       ;;
  915.   esac
  916. --- 4824,4838 ----
  917.   
  918.   $atsh package $usermail $package $baserev $patchlevel$opt
  919.   EOM
  920. !     $rm -f ../.config/mailauthor ../.config/nomail
  921.       cp ../patchlevel.h ../.config/mailauthor
  922.       ;;
  923.   *)
  924.       case "$dflt" in
  925. !     "y")
  926. !         echo "Oh well, maybe next time."
  927. !         cp /dev/null ../.config/nomail
  928. !         ;;
  929.       esac
  930.       ;;
  931.   esac
  932. ***************
  933. *** 4760,4766 ****
  934.       guest:**paswword**:10:100:Mister Guest User:/usr/users:/bin/sh
  935.                                 ^^^^^^^^^^^^^^^^^
  936.   EOM
  937. ! rp="Berkeley/V7 format for full name in /etc/password?"
  938.   . ./myread
  939.   case "$ans" in
  940.   y*) d_passnames="$define"
  941. --- 4862,4868 ----
  942.       guest:**paswword**:10:100:Mister Guest User:/usr/users:/bin/sh
  943.                                 ^^^^^^^^^^^^^^^^^
  944.   EOM
  945. ! rp="Berkeley/V7 format for full name in /etc/passwd?"
  946.   . ./myread
  947.   case "$ans" in
  948.   y*) d_passnames="$define"
  949. ***************
  950. *** 5084,5089 ****
  951. --- 5186,5192 ----
  952.   d_bsdpgrp='$d_bsdpgrp'
  953.   d_setpgrp='$d_setpgrp'
  954.   d_setsid='$d_setsid'
  955. + d_strccmp='$d_strccmp'
  956.   d_index='$d_index'
  957.   d_strchr='$d_strchr'
  958.   d_strerrm='$d_strerrm'
  959. ***************
  960. *** 5098,5103 ****
  961. --- 5201,5207 ----
  962.   usevfork='$usevfork'
  963.   d_voidsig='$d_voidsig'
  964.   signal_t='$signal_t'
  965. + defeditor='$defeditor'
  966.   h_fcntl='$h_fcntl'
  967.   h_sysfile='$h_sysfile'
  968.   i_fcntl='$i_fcntl'
  969. ***************
  970. *** 5109,5114 ****
  971. --- 5213,5219 ----
  972.   i_sysfilio='$i_sysfilio'
  973.   i_sysioctl='$i_sysioctl'
  974.   i_syssockio='$i_syssockio'
  975. + i_sysparam='$i_sysparam'
  976.   i_syswait='$i_syswait'
  977.   i_sgtty='$i_sgtty'
  978.   i_termio='$i_termio'
  979. ***************
  980. *** 5161,5166 ****
  981. --- 5266,5272 ----
  982.   patchlevel='$patchlevel'
  983.   perlpath='$perlpath'
  984.   pidtype='$pidtype'
  985. + prefix='$prefix'
  986.   installprivlib='$installprivlib'
  987.   privlib='$privlib'
  988.   privlibexp='$privlibexp'
  989. ***************
  990. *** 5182,5187 ****
  991. --- 5288,5294 ----
  992.   reg8='$reg8'
  993.   reg9='$reg9'
  994.   registers='$registers'
  995. + rootid='$rootid'
  996.   installscript='$installscript'
  997.   scriptdir='$scriptdir'
  998.   scriptdirexp='$scriptdirexp'
  999.  
  1000. Index: agent/man/package.SH
  1001. Prereq: 3.0
  1002. *** agent/man/package.SH.old    Thu Sep 22 16:43:00 1994
  1003. --- agent/man/package.SH    Thu Sep 22 16:43:00 1994
  1004. ***************
  1005. *** 20,26 ****
  1006.   .TH PACKAGE $manext
  1007.   ''' @(#) Manual page for mailagent's package command
  1008.   '''
  1009. ! ''' $Id: package.SH,v 3.0 1993/11/29 13:48:31 ram Exp $
  1010.   '''
  1011.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  1012.   '''  
  1013. --- 20,26 ----
  1014.   .TH PACKAGE $manext
  1015.   ''' @(#) Manual page for mailagent's package command
  1016.   '''
  1017. ! ''' $Id: package.SH,v 3.0.1.1 1994/09/22 13:59:03 ram Exp $
  1018.   '''
  1019.   '''  Copyright (c) 1990-1993, Raphael Manfredi
  1020.   '''  
  1021. ***************
  1022. *** 33,46 ****
  1023.   '''  Original Author: Graham Stoney, 1993
  1024.   '''
  1025.   ''' $Log: package.SH,v $
  1026.   ''' Revision 3.0  1993/11/29  13:48:31  ram
  1027.   ''' Baseline for mailagent 3.0 netwide release.
  1028.   '''
  1029.   ''' 
  1030.   .SH NAME
  1031.   package \- register package user via mailagent
  1032.   .SH SYNOPSIS
  1033. ! package\fR \fIaddress\fR \fIsystem\fR \fIversion\fR \fIpatchlevel\fR
  1034.   [ mailpatches | notifypatches ]
  1035.   .SH DESCRIPTION
  1036.   This command is not intended to be run directly by a user, but may
  1037. --- 33,59 ----
  1038.   '''  Original Author: Graham Stoney, 1993
  1039.   '''
  1040.   ''' $Log: package.SH,v $
  1041. + ''' Revision 3.0.1.1  1994/09/22  13:59:03  ram
  1042. + ''' patch12: documents the edusers script and fuzzy address matching
  1043. + '''
  1044.   ''' Revision 3.0  1993/11/29  13:48:31  ram
  1045.   ''' Baseline for mailagent 3.0 netwide release.
  1046.   '''
  1047.   ''' 
  1048. + .de Ex        \" Start of Example
  1049. + .sp
  1050. + .in +5
  1051. + .nf
  1052. + ..
  1053. + .de Ef        \" End of Example
  1054. + .sp
  1055. + .in -5
  1056. + .fi
  1057. + ..
  1058.   .SH NAME
  1059.   package \- register package user via mailagent
  1060.   .SH SYNOPSIS
  1061. ! \fBpackage\fR \fIaddress\fR \fIsystem\fR \fIversion\fR \fIpatchlevel\fR
  1062.   [ mailpatches | notifypatches ]
  1063.   .SH DESCRIPTION
  1064.   This command is not intended to be run directly by a user, but may
  1065. ***************
  1066. *** 77,82 ****
  1067. --- 90,134 ----
  1068.   and notification request are saved in the file
  1069.   .I users
  1070.   in the package's directory.
  1071. + .PP
  1072. + .I Package
  1073. + performs an approximate address match in order to avoid duplicate entries.
  1074. + Whenever this elimination occurs, a warning message is issued in the logfile.
  1075. + Two addresses will be said equivalent if one of them has an added machine name
  1076. + or if they are really equal. Therefore, the following addresses are equivalent:
  1077. + .Ex
  1078. + ram@acri.fr
  1079. + ram@main.acri.fr
  1080. + .Ef
  1081. + whereas the following two are \fInot\fR equivalent, unfortunately:
  1082. + .Ex
  1083. + ram@acri.acri.fr
  1084. + ram@main.acri.fr
  1085. + .Ef
  1086. + When a user is asking to be left alone, it is important to let him know if
  1087. + the request failed, because he will be annoyed when the next set of patches
  1088. + is issued and he still gets them despite his previous request. Therefore, if
  1089. + no approximate match occurs, a warning message is sent back, with a list
  1090. + of addresses that are \fIclose\fR to his own e-mail address, but not
  1091. + equivalent. Fortunately, the following addresses are considered close:
  1092. + .Ex
  1093. + ram@acri.fr
  1094. + ram@somewhere.com
  1095. + raphael@main.acri.fr
  1096. + manfredi@acri.acri.fr
  1097. + .Ef
  1098. + because they either have the same login (important when someone changes
  1099. + company) or share the same domain or sub-domain part.
  1100. + .PP
  1101. + In order to edit the \fIusers\fR file, the
  1102. + .I edusers
  1103. + script should be used. For one thing, it will let you edit the
  1104. + .I users
  1105. + file from
  1106. + whatever package you name in the command line, but it will also properly lock
  1107. + the file so that the execution of \fIpackage\fR will stall for the duration
  1108. + of the manual edition (provided you have a strict locking policy defined in
  1109. + your \fI~/.mailagent\fR configuration file).
  1110.   .SH FILES
  1111.   .PD 0
  1112.   .TP 20
  1113. ***************
  1114. *** 118,126 ****
  1115.   Log/agentlog
  1116.   mailagent's log file
  1117.   .PD
  1118. ! .SH AUTHOR
  1119.   Graham Stoney <greyham@research.canon.oz.au>
  1120.   .SH "SEE ALSO"
  1121. ! mailagent($manext), metaconfig($manext).
  1122.   !GROK!THIS!
  1123.   chmod 444 package.$manext
  1124. --- 170,180 ----
  1125.   Log/agentlog
  1126.   mailagent's log file
  1127.   .PD
  1128. ! .SH AUTHORS
  1129.   Graham Stoney <greyham@research.canon.oz.au>
  1130. + .br
  1131. + Raphael Manfredi <ram@acri.fr> (minor enhancements)
  1132.   .SH "SEE ALSO"
  1133. ! edusers($manext), mailagent($manext), metaconfig($manext).
  1134.   !GROK!THIS!
  1135.   chmod 444 package.$manext
  1136.  
  1137. Index: agent/package.SH
  1138. Prereq: 3.0
  1139. *** agent/package.SH.old    Thu Sep 22 16:43:01 1994
  1140. --- agent/package.SH    Thu Sep 22 16:43:01 1994
  1141. ***************
  1142. *** 20,26 ****
  1143.       eval "exec perl -S \$0 \$*"
  1144.           if \$running_under_some_shell;
  1145.   
  1146. ! # $Id: package.SH,v 3.0 1993/11/29 13:48:32 ram Exp $
  1147.   #
  1148.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1149.   #  
  1150. --- 20,26 ----
  1151.       eval "exec perl -S \$0 \$*"
  1152.           if \$running_under_some_shell;
  1153.   
  1154. ! # $Id: package.SH,v 3.0.1.1 1994/09/22 14:03:44 ram Exp $
  1155.   #
  1156.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1157.   #  
  1158. ***************
  1159. *** 33,38 ****
  1160. --- 33,46 ----
  1161.   #  Original Author: Graham Stoney, 1993
  1162.   #
  1163.   # $Log: package.SH,v $
  1164. + # Revision 3.0.1.1  1994/09/22  14:03:44  ram
  1165. + # patch12: added fuzzy address matching to avoid duplicates
  1166. + # patch12: detect hostile addresses before it is too late...
  1167. + # patch12: detect strange status-change requests
  1168. + # patch12: now performs locking before changing the users file
  1169. + # patch12: inform user about unrecognized leave-alone requests
  1170. + # patch12: optimize by not re-writing users file if not needed
  1171. + #
  1172.   # Revision 3.0  1993/11/29  13:48:32  ram
  1173.   # Baseline for mailagent 3.0 netwide release.
  1174.   #
  1175. ***************
  1176. *** 48,55 ****
  1177. --- 56,65 ----
  1178.   $userlist = "users";
  1179.   $prog_name = $0;                # Who I am
  1180.   $prog_name =~ s|^.*/(.*)|$1|;    # Keep only base name
  1181. + $lockext = '.lock';                # Locking extension
  1182.   
  1183.   &read_config;        # First, read configuration file (in ~/.mailagent)
  1184. + &catch_signals;        # Protect against signals
  1185.   
  1186.   # take job number and command from environment
  1187.   # (passed by mailagent)
  1188. ***************
  1189. *** 84,89 ****
  1190. --- 94,105 ----
  1191.       @SH maillist $path
  1192.           ^ note the l";
  1193.   
  1194. + # Silently discard hostile addresses
  1195. + unless (&addr'valid($dest)) {
  1196. +     &add_log("FAILED (HOSTILE $dest)") if $loglvl > 1;
  1197. +     exit 0;
  1198. + }
  1199. + 
  1200.   if (!$System{$system}) {
  1201.       open(MAILER, "|$cf'sendmail $cf'mailopt $path $cf'user");
  1202.       print MAILER
  1203. ***************
  1204. *** 244,251 ****
  1205.       }
  1206.   }
  1207.   
  1208.   # look for them in the userlist file
  1209. ! if (open(USERLIST,"<$userlist")) {
  1210.       while (<USERLIST>) {
  1211.           next if /^#/;
  1212.           chop if /\n$/;
  1213. --- 260,272 ----
  1214.       }
  1215.   }
  1216.   
  1217. + # Lock users file. That file should only be edited with the edusers script.
  1218. + if (0 != &acs_rqst($userlist)) {
  1219. +     &add_log("WARNING updating $userlist without lock") if $loglvl > 5;
  1220. + }
  1221. + 
  1222.   # look for them in the userlist file
  1223. ! if (open(USERLIST, $userlist)) {
  1224.       while (<USERLIST>) {
  1225.           next if /^#/;
  1226.           chop if /\n$/;
  1227. ***************
  1228. *** 258,306 ****
  1229.           }
  1230.   
  1231.           # have we heard from them before?
  1232. !         if ($name eq $dest) {
  1233. !             $found = 1;
  1234.               $status = $letter;
  1235.               $pl = $theirpl if $theirpl ne '-';
  1236.           }
  1237.           push(@status, $status);
  1238.           push(@pl, $pl);
  1239.           push(@name, $name);
  1240.       }
  1241.       close USERLIST;
  1242.   }
  1243.   
  1244.   # add them if they're new.
  1245.   if (!$found) {
  1246. !     push(@name, $dest);
  1247. !     push(@status, $letter);
  1248. !     push(@pl, $theirpl);
  1249.   }
  1250.   
  1251.   # write the file back out.
  1252. ! open(USERLIST,">$userlist.new") || &abort("can't open new $userlist file");
  1253.   
  1254.   for ($i = 0; $i <= $#name; $i++) {
  1255.       print USERLIST $status[$i], "\t", $pl[$i], "\t", $name[$i], "\n"
  1256.           || &abort("error writing new $userlist file");
  1257.   }
  1258.   close(USERLIST) || &abort("error closing new $userlist file");
  1259.   rename("$userlist.new", $userlist);
  1260.   
  1261.   # Emergency exit with clean-up
  1262.   sub abort {
  1263.       local($reason) = shift(@_);        # Why we are exiting
  1264.       &fatal($reason);
  1265.   }
  1266.   
  1267.   !NO!SUBS!
  1268.   $grep -v '^;#' pl/fatal.pl >>package
  1269.   $grep -v '^;#' pl/add_log.pl >>package
  1270.   $grep -v '^;#' pl/read_conf.pl >>package
  1271. - $grep -v '^;#' pl/unpack.pl >>package
  1272. - $grep -v '^;#' pl/rangeargs.pl >>package
  1273. - $grep -v '^;#' pl/sendfile.pl >>package
  1274.   $grep -v '^;#' pl/distribs.pl >>package
  1275.   $grep -v '^;#' pl/secure.pl >>package
  1276.   chmod 755 package
  1277.   $eunicefix package
  1278. --- 279,427 ----
  1279.           }
  1280.   
  1281.           # have we heard from them before?
  1282. !         if (&addr'match($name, $dest)) {
  1283. !             if ($found++) {
  1284. !                 &add_log("WARNING removing duplicate for $dest ($name)")
  1285. !                     if $loglvl > 5;
  1286. !                 &add_log("NOTICE status for $dest was $oldstatus, now $status")
  1287. !                     if $oldstatus ne $status && $loglvl > 6;
  1288. !                 next;
  1289. !             }
  1290. ! 
  1291. !             $oldstatus = $status;    # Save status
  1292. !             $oldpl = $pl;            # And patchlevel
  1293.               $status = $letter;
  1294.               $pl = $theirpl if $theirpl ne '-';
  1295.           }
  1296. + 
  1297. +         # save entry
  1298.           push(@status, $status);
  1299.           push(@pl, $pl);
  1300.           push(@name, $name);
  1301. + 
  1302. +         # in case we have to go to &send_closest
  1303. +         push(@registered, $name) if $status =~ /^[MN]/;
  1304.       }
  1305.       close USERLIST;
  1306.   }
  1307.   
  1308. + # optimize a little...
  1309. + if ($found == 1 && $oldstatus eq $letter && $oldpl eq $theirpl) {
  1310. +     &add_log("NOTICE no change for $dest") if $loglvl > 6;
  1311. +     close USERLIST;
  1312. +     &free_file($userlist);
  1313. +     exit 0;
  1314. + }
  1315. + 
  1316.   # add them if they're new.
  1317.   if (!$found) {
  1318. !     if ($letter eq 'L') {
  1319. !         &add_log("WARNING unknown $dest wants to be left alone") if $loglvl > 5;
  1320. !         &free_file($userlist);
  1321. !         &send_closest;
  1322. !         &add_log("FAILED (UNREGISTERED $dest)") if $loglvl > 1;
  1323. !         exit 0;
  1324. !     } else {
  1325. !         push(@name, $dest);
  1326. !         push(@status, $letter);
  1327. !         push(@pl, $theirpl);
  1328. !     }
  1329.   }
  1330.   
  1331.   # write the file back out.
  1332. ! open(USERLIST,">$userlist.new") ||
  1333. !     &abort("can't create new $userlist file: $!");
  1334.   
  1335.   for ($i = 0; $i <= $#name; $i++) {
  1336.       print USERLIST $status[$i], "\t", $pl[$i], "\t", $name[$i], "\n"
  1337.           || &abort("error writing new $userlist file");
  1338.   }
  1339.   close(USERLIST) || &abort("error closing new $userlist file");
  1340. + 
  1341.   rename("$userlist.new", $userlist);
  1342. + &free_file($userlist);
  1343.   
  1344.   # Emergency exit with clean-up
  1345.   sub abort {
  1346.       local($reason) = shift(@_);        # Why we are exiting
  1347. +     &free_file($userlist);
  1348.       &fatal($reason);
  1349.   }
  1350.   
  1351. + # Send closest matching addresses, among @registered
  1352. + sub send_closest {
  1353. +     open(MAILER, "|$cf'sendmail $cf'mailopt $path $cf'user") ||
  1354. +         do {
  1355. +             &add_log("SYSERR fork: $!") if $loglvl;
  1356. +             &add_log("ERROR cannot launch $cf'sendmail") if $loglvl;
  1357. +         };
  1358. +     print MAILER
  1359. + "To: $path
  1360. + Subject: You were not recorded as a $system $version user
  1361. + X-Mailer: mailagent [version $mversion PL$patchlevel]
  1362. + 
  1363. + I can't honour your desire to be left alone for $system version $version
  1364. + updates because you were not found among the registered users.
  1365. + 
  1366. + Your command was: $fullcmd
  1367. + 
  1368. + For your information, here is the list of the closest addresses to your own
  1369. + e-mail address ($dest) that are registered:
  1370. + 
  1371. + ";
  1372. +     local($first) = '';
  1373. +     foreach $addr (@registered) {
  1374. +         if (&addr'close($dest, $addr)) {
  1375. +             print MAILER "\t$addr\n";
  1376. +             $first = $addr if $first eq '';
  1377. +         }
  1378. +     }
  1379. +     print MAILER <<EOM if $first ne '';
  1380. + 
  1381. + Assuming you registered using the address $first,
  1382. + you may request to be left alone by sending me the following:
  1383. + 
  1384. +     Subject: Command
  1385. +     @SH package $first $system $version
  1386. + 
  1387. + This is only an example, of course. You must pick the correct address
  1388. + among the listed set.
  1389. + 
  1390. + If none of the addresses listed above are correct, please don't try them.
  1391. + EOM
  1392. +     print MAILER <<EOM if $first eq '';
  1393. +     *** None found ***
  1394. + 
  1395. + This probably means you either never registered, or you used an entirely
  1396. + different e-mail address to do so.
  1397. + 
  1398. + EOM
  1399. +     print MAILER <<EOM;
  1400. + I suggest you re-run the Configure script from the original $system
  1401. + distribution and ask to be left alone from there. If you kept the generated
  1402. + config.sh and run Configure on the same machine you did the first time, that
  1403. + should un-register you properly.
  1404. + 
  1405. + -- $prog_name speaking for $cf'user
  1406. + EOM
  1407. +     close MAILER;
  1408. +     if ($?) {
  1409. +         &add_log("ERROR cannot send closest addr list") if $loglvl;
  1410. +     } else {
  1411. +         &add_log("MSG closest addr list") if $loglvl > 6;
  1412. +     }
  1413. + }
  1414. + 
  1415.   !NO!SUBS!
  1416.   $grep -v '^;#' pl/fatal.pl >>package
  1417.   $grep -v '^;#' pl/add_log.pl >>package
  1418.   $grep -v '^;#' pl/read_conf.pl >>package
  1419.   $grep -v '^;#' pl/distribs.pl >>package
  1420.   $grep -v '^;#' pl/secure.pl >>package
  1421. + $grep -v '^;#' pl/addr.pl >>package
  1422. + $grep -v '^;#' pl/acs_rqst.pl >>package
  1423. + $grep -v '^;#' pl/free_file.pl >>package
  1424. + $grep -v '^;#' pl/checklock.pl >>package
  1425. + $grep -v '^;#' pl/signals.pl >>package
  1426.   chmod 755 package
  1427.   $eunicefix package
  1428.  
  1429. Index: Makefile.SH
  1430. *** Makefile.SH.old    Thu Sep 22 16:42:45 1994
  1431. --- Makefile.SH    Thu Sep 22 16:42:45 1994
  1432. ***************
  1433. *** 1,4 ****
  1434. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1435.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1436.   
  1437.   case $CONFIG in
  1438. --- 1,4 ----
  1439. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1440.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1441.   
  1442.   case $CONFIG in
  1443. ***************
  1444. *** 53,59 ****
  1445.   ########################################################################
  1446.   # Start of Jmakefile
  1447.   
  1448. ! # $X-Id: Jmakefile,v 2.9 92/07/14 16:46:57 ram Exp $
  1449.   #
  1450.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1451.   #  
  1452. --- 53,59 ----
  1453.   ########################################################################
  1454.   # Start of Jmakefile
  1455.   
  1456. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:47:34 ram Exp ram $
  1457.   #
  1458.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1459.   #  
  1460. ***************
  1461. *** 63,69 ****
  1462.   #  that same Artistic License; a copy of which may be found at the root
  1463.   #  of the source tree for mailagent 3.0.
  1464.   #
  1465. ! # $X-Log$
  1466.   
  1467.   all::
  1468.   
  1469. --- 63,72 ----
  1470.   #  that same Artistic License; a copy of which may be found at the root
  1471.   #  of the source tree for mailagent 3.0.
  1472.   #
  1473. ! # $X-Log: Jmakefile,v $
  1474. ! # Revision 3.0  1993/11/29  13:47:34  ram
  1475. ! # Baseline for mailagent 3.0 netwide release.
  1476. ! #
  1477.   
  1478.   all::
  1479.   
  1480.  
  1481. Index: agent/Makefile.SH
  1482. *** agent/Makefile.SH.old    Thu Sep 22 16:42:46 1994
  1483. --- agent/Makefile.SH    Thu Sep 22 16:42:46 1994
  1484. ***************
  1485. *** 1,4 ****
  1486. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1487.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1488.   
  1489.   case $CONFIG in
  1490. --- 1,4 ----
  1491. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1492.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1493.   
  1494.   case $CONFIG in
  1495. ***************
  1496. *** 68,74 ****
  1497.   ########################################################################
  1498.   # Start of Jmakefile
  1499.   
  1500. ! # $X-Id: Jmakefile,v 2.9.1.2 92/08/26 12:33:22 ram Exp $
  1501.   #
  1502.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1503.   #  
  1504. --- 68,74 ----
  1505.   ########################################################################
  1506.   # Start of Jmakefile
  1507.   
  1508. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:47:37 ram Exp ram $
  1509.   #
  1510.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1511.   #  
  1512. ***************
  1513. *** 78,86 ****
  1514.   #  that same Artistic License; a copy of which may be found at the root
  1515.   #  of the source tree for mailagent 3.0.
  1516.   #
  1517. ! # $X-Log$
  1518.   
  1519. ! BIN = mailpatch mailhelp maillist maildist package
  1520.   
  1521.   all:: $(BIN)
  1522.   
  1523. --- 78,89 ----
  1524.   #  that same Artistic License; a copy of which may be found at the root
  1525.   #  of the source tree for mailagent 3.0.
  1526.   #
  1527. ! # $X-Log: Jmakefile,v $
  1528. ! # Revision 3.0  1993/11/29  13:47:37  ram
  1529. ! # Baseline for mailagent 3.0 netwide release.
  1530. ! #
  1531.   
  1532. ! BIN = mailpatch mailhelp maillist maildist package edusers
  1533.   
  1534.   all:: $(BIN)
  1535.   
  1536. ***************
  1537. *** 102,107 ****
  1538. --- 105,113 ----
  1539.   package: package.SH
  1540.       /bin/sh package.SH
  1541.   
  1542. + edusers: edusers.SH
  1543. +     /bin/sh edusers.SH
  1544. + 
  1545.   
  1546.   install:: $(SCRIPTS) $(LSCRIPTS)
  1547.       @for file in $(SCRIPTS) $(LSCRIPTS); do \
  1548. ***************
  1549. *** 153,158 ****
  1550. --- 159,165 ----
  1551.       maillist.SH \
  1552.       maildist.SH \
  1553.       package.SH \
  1554. +     edusers.SH \
  1555.       magent.SH 
  1556.   
  1557.   depend::
  1558.  
  1559. Index: agent/files/Makefile.SH
  1560. *** agent/files/Makefile.SH.old    Thu Sep 22 16:42:47 1994
  1561. --- agent/files/Makefile.SH    Thu Sep 22 16:42:47 1994
  1562. ***************
  1563. *** 1,4 ****
  1564. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1565.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1566.   
  1567.   case $CONFIG in
  1568. --- 1,4 ----
  1569. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1570.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1571.   
  1572.   case $CONFIG in
  1573. ***************
  1574. *** 55,61 ****
  1575.   ########################################################################
  1576.   # Start of Jmakefile
  1577.   
  1578. ! # $X-Id: Jmakefile,v 2.9 92/07/14 16:47:32 ram Exp $
  1579.   #
  1580.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1581.   #  
  1582. --- 55,61 ----
  1583.   ########################################################################
  1584.   # Start of Jmakefile
  1585.   
  1586. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:47:46 ram Exp ram $
  1587.   #
  1588.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1589.   #  
  1590. ***************
  1591. *** 65,71 ****
  1592.   #  that same Artistic License; a copy of which may be found at the root
  1593.   #  of the source tree for mailagent 3.0.
  1594.   #
  1595. ! # $X-Log$
  1596.   
  1597.   FILES = agenthelp commands distribs filter.sh mailagent.cf proglist \
  1598.       chkagent.sh
  1599. --- 65,74 ----
  1600.   #  that same Artistic License; a copy of which may be found at the root
  1601.   #  of the source tree for mailagent 3.0.
  1602.   #
  1603. ! # $X-Log: Jmakefile,v $
  1604. ! # Revision 3.0  1993/11/29  13:47:46  ram
  1605. ! # Baseline for mailagent 3.0 netwide release.
  1606. ! #
  1607.   
  1608.   FILES = agenthelp commands distribs filter.sh mailagent.cf proglist \
  1609.       chkagent.sh
  1610.  
  1611. Index: agent/files/help/Makefile.SH
  1612. *** agent/files/help/Makefile.SH.old    Thu Sep 22 16:42:49 1994
  1613. --- agent/files/help/Makefile.SH    Thu Sep 22 16:42:49 1994
  1614. ***************
  1615. *** 1,4 ****
  1616. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1617.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1618.   
  1619.   case $CONFIG in
  1620. --- 1,4 ----
  1621. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1622.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1623.   
  1624.   case $CONFIG in
  1625. ***************
  1626. *** 50,56 ****
  1627.   ########################################################################
  1628.   # Start of Jmakefile
  1629.   
  1630. ! # $X-Id: Jmakefile,v 2.9 92/07/14 16:47:32 ram Exp $
  1631.   #
  1632.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1633.   #  
  1634. --- 50,56 ----
  1635.   ########################################################################
  1636.   # Start of Jmakefile
  1637.   
  1638. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:47:52 ram Exp ram $
  1639.   #
  1640.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1641.   #  
  1642. ***************
  1643. *** 60,66 ****
  1644.   #  that same Artistic License; a copy of which may be found at the root
  1645.   #  of the source tree for mailagent 3.0.
  1646.   #
  1647. ! # $X-Log$
  1648.   
  1649.   FILES = addauth approve delpower end getauth help newpower \
  1650.       passwd password power release remauth set setauth user
  1651. --- 60,69 ----
  1652.   #  that same Artistic License; a copy of which may be found at the root
  1653.   #  of the source tree for mailagent 3.0.
  1654.   #
  1655. ! # $X-Log: Jmakefile,v $
  1656. ! # Revision 3.0  1993/11/29  13:47:52  ram
  1657. ! # Baseline for mailagent 3.0 netwide release.
  1658. ! #
  1659.   
  1660.   FILES = addauth approve delpower end getauth help newpower \
  1661.       passwd password power release remauth set setauth user
  1662.  
  1663. Index: agent/filter/Makefile.SH
  1664. *** agent/filter/Makefile.SH.old    Thu Sep 22 16:42:50 1994
  1665. --- agent/filter/Makefile.SH    Thu Sep 22 16:42:50 1994
  1666. ***************
  1667. *** 1,4 ****
  1668. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1669.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1670.   
  1671.   case $CONFIG in
  1672. --- 1,4 ----
  1673. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1674.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1675.   
  1676.   case $CONFIG in
  1677. ***************
  1678. *** 75,81 ****
  1679.   ########################################################################
  1680.   # Start of Jmakefile
  1681.   
  1682. ! # $X-Id: Jmakefile,v 2.9 92/07/14 18:41:10 ram Exp $
  1683.   #
  1684.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1685.   #  
  1686. --- 75,81 ----
  1687.   ########################################################################
  1688.   # Start of Jmakefile
  1689.   
  1690. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:48:04 ram Exp ram $
  1691.   #
  1692.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1693.   #  
  1694. ***************
  1695. *** 85,91 ****
  1696.   #  that same Artistic License; a copy of which may be found at the root
  1697.   #  of the source tree for mailagent 3.0.
  1698.   #
  1699. ! # $X-Log$
  1700.   
  1701.   # Files used to build the application
  1702.   SRC = environ.c hash.c io.c lock.c logfile.c main.c misc.c msg.c parser.c \
  1703. --- 85,94 ----
  1704.   #  that same Artistic License; a copy of which may be found at the root
  1705.   #  of the source tree for mailagent 3.0.
  1706.   #
  1707. ! # $X-Log: Jmakefile,v $
  1708. ! # Revision 3.0  1993/11/29  13:48:04  ram
  1709. ! # Baseline for mailagent 3.0 netwide release.
  1710. ! #
  1711.   
  1712.   # Files used to build the application
  1713.   SRC = environ.c hash.c io.c lock.c logfile.c main.c misc.c msg.c parser.c \
  1714.  
  1715. Index: agent/man/Makefile.SH
  1716. *** agent/man/Makefile.SH.old    Thu Sep 22 16:42:55 1994
  1717. --- agent/man/Makefile.SH    Thu Sep 22 16:42:55 1994
  1718. ***************
  1719. *** 1,4 ****
  1720. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1721.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1722.   
  1723.   case $CONFIG in
  1724. --- 1,4 ----
  1725. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1726.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1727.   
  1728.   case $CONFIG in
  1729. ***************
  1730. *** 64,70 ****
  1731.   ########################################################################
  1732.   # Start of Jmakefile
  1733.   
  1734. ! # $X-Id: Jmakefile,v 2.9 92/07/14 16:49:04 ram Exp $
  1735.   #
  1736.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1737.   #  
  1738. --- 64,70 ----
  1739.   ########################################################################
  1740.   # Start of Jmakefile
  1741.   
  1742. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:48:25 ram Exp ram $
  1743.   #
  1744.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1745.   #  
  1746. ***************
  1747. *** 74,83 ****
  1748.   #  that same Artistic License; a copy of which may be found at the root
  1749.   #  of the source tree for mailagent 3.0.
  1750.   #
  1751. ! # $X-Log$
  1752.   
  1753.   MPAGES = mailagent.$(L) maildist.$(L) maillist.$(L) mailhelp.$(L) \
  1754. !     mailpatch.$(L) package.$(L)
  1755.   
  1756.   all:: $(MPAGES)
  1757.   
  1758. --- 74,86 ----
  1759.   #  that same Artistic License; a copy of which may be found at the root
  1760.   #  of the source tree for mailagent 3.0.
  1761.   #
  1762. ! # $X-Log: Jmakefile,v $
  1763. ! # Revision 3.0  1993/11/29  13:48:25  ram
  1764. ! # Baseline for mailagent 3.0 netwide release.
  1765. ! #
  1766.   
  1767.   MPAGES = mailagent.$(L) maildist.$(L) maillist.$(L) mailhelp.$(L) \
  1768. !     mailpatch.$(L) package.$(L) edusers.$(L)
  1769.   
  1770.   all:: $(MPAGES)
  1771.   
  1772.  
  1773. Index: agent/test/Makefile.SH
  1774. *** agent/test/Makefile.SH.old    Thu Sep 22 16:43:24 1994
  1775. --- agent/test/Makefile.SH    Thu Sep 22 16:43:24 1994
  1776. ***************
  1777. *** 1,4 ****
  1778. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL14]
  1779.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1780.   
  1781.   case $CONFIG in
  1782. --- 1,4 ----
  1783. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL31]
  1784.   : $X-Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp ram $
  1785.   
  1786.   case $CONFIG in
  1787. ***************
  1788. *** 48,54 ****
  1789.   ########################################################################
  1790.   # Start of Jmakefile
  1791.   
  1792. ! # $X-Id: Jmakefile,v 2.9.1.1 92/08/02 16:14:36 ram Exp $
  1793.   #
  1794.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1795.   #  
  1796. --- 48,54 ----
  1797.   ########################################################################
  1798.   # Start of Jmakefile
  1799.   
  1800. ! # $X-Id: Jmakefile,v 3.0 1993/11/29 13:49:20 ram Exp ram $
  1801.   #
  1802.   #  Copyright (c) 1990-1993, Raphael Manfredi
  1803.   #  
  1804. ***************
  1805. *** 58,64 ****
  1806.   #  that same Artistic License; a copy of which may be found at the root
  1807.   #  of the source tree for mailagent 3.0.
  1808.   #
  1809. ! # $X-Log$
  1810.   
  1811.   all::
  1812.       @echo "The following may take a while..."
  1813. --- 58,67 ----
  1814.   #  that same Artistic License; a copy of which may be found at the root
  1815.   #  of the source tree for mailagent 3.0.
  1816.   #
  1817. ! # $X-Log: Jmakefile,v $
  1818. ! # Revision 3.0  1993/11/29  13:49:20  ram
  1819. ! # Baseline for mailagent 3.0 netwide release.
  1820. ! #
  1821.   
  1822.   all::
  1823.       @echo "The following may take a while..."
  1824.  
  1825. *** End of Patch 12 ***
  1826.  
  1827. exit 0 # Just in case...
  1828.