home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / vms / 14704 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  8.1 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!cdclu1.genrad.com!dongray
  2. From: dongray@cdclu1.genrad.com
  3. Newsgroups: comp.os.vms
  4. Subject: Latest version of DELIVER?
  5. Message-ID: <9209071320.AA11102@genrad.com>
  6. Date: 7 Sep 92 13:20:45 GMT
  7. Sender: usenet@ucbvax.BERKELEY.EDU
  8. Organization: The Internet
  9. Lines: 176
  10.  
  11. A couple of weeks ago Dick Munroe posted the following...
  12.  
  13. > In article <1992Aug21.065239.6904@aragorn.unibe.ch>, egger@ubeclu.unibe.ch (Martin Egger) writes:
  14. >> In article <61050051@acf3.NYU.EDU>, tihor@acf3.NYU.EDU (Stephen Tihor) writes:
  15. >>>The easiest solution is to just get standalone deliver -- a wonderful tool --
  16. >>>written by Ned Freed.
  17. >>
  18. >> Where can we get that ?
  19. >>
  20. >> Martin
  21. >>
  22. > I posted the latest copy of Deliver to VMSNET.SOURCES not too long ago.
  23. > It needed a modest amount of work to repair some bugs and to make
  24. > debugging the code somewhat easier (I HATE having to recompile to get
  25. > debugging information).  You should be able to find a copy in the
  26. > CERRITOS.EDU archives or any other FTP/file server site that is
  27. > shadowing VMSNET.SOURCES.  If all else fails, send me a message and I'll
  28. > mail you a copy.
  29. > --
  30. > Dick Munroe                Internet: munroe@dmc.com
  31. > Doyle Munroe Consultants, Inc.        UUCP: ...uunet!thehulk!munroe
  32. > 267 Cox St.                Office: (508) 568-1618
  33. > Hudson, Ma.                FAX: (508) 562-1133
  34.  
  35. Unfortunately, it appears that his version was based on a much older source
  36. than the one I had. E.g. there are simple actions K, L and M to simplify
  37. debugging.
  38.  
  39. As a public service, would someone who has better access than me post the true
  40. 'latest version' to vmsnet.sources? Perhaps after merging any useful changes
  41. from Dick's code.
  42.  
  43. (Partial difference output) ...
  44. ************
  45. File U$C:[DONGRAY.MAIL_PROTO.DELIVER]DELIVER.PAS;66
  46.     5      Some modifications by Sheldon Smith, December 1986.
  47.     6      Rewrite by Ned Freed to use new $GETUAI system service, 15-Dec-1986.
  48.     7      This change requires the use of VMS 4.4 and Pascal 3.4.
  49.     8      Additional changes by Shel Smith and Andy Leslie, 6-Sep-1988.
  50.     9      Added support for use of SJC$_USER_IDENTIFICATION item code, to get
  51.    10        around problems with SJC$_USERNAME. Since this item code is not
  52.    11        documented and may be removed in the future the support for this
  53.    12        feature is conditional -- the constant use_sjc_user_identification
  54.    13        controls it.
  55.    14
  56. ******
  57. File U$C:[DONGRAY.MAIL_PROTO.DELIVER.VARIANT]DELIVER.PAS;2
  58.     5
  59. ************
  60. ************
  61. File U$C:[DONGRAY.MAIL_PROTO.DELIVER]DELIVER.PAS;66
  62.    42       of VMS.
  63.    43
  64. ******
  65. File U$C:[DONGRAY.MAIL_PROTO.DELIVER.VARIANT]DELIVER.PAS;2
  66.    33       of VMS.  This version of DELIVER has been tested and found to
  67.    34       work on VMS versions 4.0, 4.1, 4.2 and 4.3.
  68.    35
  69. ************
  70. ************
  71. File U$C:[DONGRAY.MAIL_PROTO.DELIVER]DELIVER.PAS;66
  72.    50     Revision history:
  73.    51
  74.    52       PMDF 3.1 release:
  75.    53
  76.    54         13-Jul-1989, Ned Freed, Innosoft International, Inc.
  77.    55
  78.    56           Changed the batch queue from MAIL$BATCH to DELIVER_BATCH, to make it
  79.    57           easier to run in a different queue than PMDF runs in.
  80.    58
  81.    59           Added support for CC lines.
  82.    60
  83.    61           Change DELIVER$STATUS to DELIVER_STATUS, DELIVER$MESSAGE to
  84.    62           DELIVER_MESSAGE, and change the incoming interface to look at
  85.    63           the symbol DELIVER_FROM instead of FROM.
  86.    64
  87.    65           Added the K, L, and M actions (all for easier debugging):
  88.    66
  89.    67             K - Keep the command file after execution.
  90.    68             L - Keep the log file after execution -- log file name is parameter.
  91.    69             M - Keep the message after execution -- same as MESSAGE_DELETE
  92.    70                 flag.
  93.    71
  94.    72         3-Oct-1989, Ned Freed, Innosoft International, Inc.
  95.    73
  96.    74           Added the ability to specify a CC line with a DELIVER_CC symbol.
  97.    75   *)
  98.    76
  99.    77   [inherit ('SYS$LIBRARY:STARLET')] module deliver (output);
  100.    78
  101.    79   const
  102.    80     (* Debugging control flags *)
  103.    81     DEBUG_IN  = false;            (* Debug messages produced by receive code. *)
  104.    82     DEBUG_OUT = false;            (* Debug messages produced by send code.    *)
  105.    83
  106.    84     (* Switch for use of SJC$_USER_IDENTIFICATION *)
  107.    85     use_sjc_user_identification = false;
  108.    86
  109.    87     LNK_C_OUT_CONNECT  = 0;       (* MAIL protocol link actions.           *)
  110.    88     LNK_C_OUT_SENDER   = 1;       (* These are defined in MAILSHR.MAR      *)
  111.    89     LNK_C_OUT_CKUSER   = 2;       (* but because we cannot have external   *)
  112.    90     LNK_C_OUT_TO       = 3;       (* constants in Pascal, they are         *)
  113.    91     LNK_C_OUT_SUBJ     = 4;       (* redefined here.                       *)
  114.    92     LNK_C_OUT_FILE     = 5;
  115. ******
  116. File U$C:[DONGRAY.MAIL_PROTO.DELIVER.VARIANT]DELIVER.PAS;2
  117.    42       Modification History:
  118.    43
  119.    44       0.001 Dick Munroe 03-Jun-92
  120.    45             Doyle, Munroe Consultants, Inc.
  121.    46             267 Cox St.
  122.    47             Hudson, Ma.  01749
  123.    48             munroe@dmc.com
  124.    49
  125.    50           There is a bug in the CKUSER code since it assumes that the username
  126.    51           passed to it is, in fact, correctly formed.  Since the code that
  127.    52           generates the invocation of the priviledges send and forward
  128.    53           deliberately sets up a badly formatted user name, I'm not sure where
  129.    54           the bug really is.  However, it is MUCH easier to change the code
  130.    55           that generates the command procedures than anything else.
  131.    56
  132.    57       0.002 Dick Munroe 05-Jun-92
  133.    58           When DELIVER is connected to by an external connection (like when
  134.    59           MAIL_SERVER.EXE invokes it) the command procedure is not correctly
  135.    60           constructed.  It IS correctly constructed when DELIVER is called
  136.    61           from MAIL.EXE.  As a start, I'm defining the ability to arm/disarm
  137.    62           debugging at run time.  Three debugging logicals are defined:
  138.    63
  139.    64           DELIVER_DEBUG_IN    If defined, input debugging is armed.
  140.    65           DELIVER_DEBUG_OUT   If defined, output debugging is armed.
  141.    66           DELIVER_DEBUG_LOG   If defined, this is defined as the log file
  142.    67                       to contain the output.
  143.    68
  144.    69           DELIVER_DEBUG_LOG isn't implemented at this time, but the other
  145.    70           two are.
  146.    71
  147.    72           The problem appears to be in MAIL.  If SYSPRV is enabled, there
  148.    73           seems to be a bug in MAIL preventing the sharable images from
  149.    74           being properly invoked.  If BYPASS is asserted, everything works
  150.    75           just fine or if NO privileges are asserted, everything works
  151.    76           just fine.  Note that a test for bypass CANNOT be put into
  152.    77           IN_CONNECT since that would prevent the normal delivery
  153.    78           mechanism from working properly.  The test is put into the
  154.    79           generated command file and if BYPASS is not available, MAIL is
  155.    80           not invoked.
  156.    81   *)
  157.    82
  158.    83   [inherit ('SYSUAFDEF', 'SYS$LIBRARY:STARLET')]
  159.    84     module deliver (output);
  160.    85
  161.    86   const
  162.    87     LNK_C_OUT_CONNECT  = 0;    (* MAIL protocol link actions.         *)
  163.    88     LNK_C_OUT_SENDER   = 1;    (* These are defined in MAILSHR.MAR     *)
  164.    89     LNK_C_OUT_CKUSER   = 2;    (* but because we cannot have external     *)
  165.    90     LNK_C_OUT_TO       = 3;    (* constants in Pascal, they are         *)
  166.    91     LNK_C_OUT_SUBJ     = 4;    (* redefined here.             *)
  167.    92     LNK_C_OUT_FILE     = 5;
  168. ************
  169. [...etc...etc...etc...etc...]
  170. ************
  171.  
  172. Number of difference sections found: 51
  173. Number of difference records found: 1066
  174.  
  175. DIFFERENCES /IGNORE=(TRAILING_SPACES)/MERGED=1/OUTPUT=U$C:[DONGRAY.MAIL_PROTO.DELIVER]X.TMP;1-
  176.     U$C:[DONGRAY.MAIL_PROTO.DELIVER]DELIVER.PAS;66-
  177.     U$C:[DONGRAY.MAIL_PROTO.DELIVER.VARIANT]DELIVER.PAS;2
  178.  
  179.  
  180. --------------------------------------------------------------------------------
  181. Name : Derek Dongray, Systems Manager, GenRad Ltd.
  182. Phone : 061 486 1511 ext 166
  183. PSS : 234261600119::Dongray                 UKnet : Derek.Dongray@GenRad.co.uk
  184. InterNet : Dongray@cdclu1.GenRad.com        CompuServe : 70374,2745
  185. Address : Monmouth House, Monmouth Road, Cheadle Hulme, Cheshire, SK8 7AY, UK.
  186.  
  187.