home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / mail / pmdf / 2837 < prev    next >
Encoding:
Internet Message Format  |  1993-01-11  |  6.5 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!rutgers!ub!dsinc!netnews.upenn.edu!neuro.psycha.upenn.edu!xu
  2. From: xu@neuro.psycha.upenn.edu (Song Xu)
  3. Newsgroups: vmsnet.mail.pmdf
  4. Subject: Another question
  5. Message-ID: <104308@netnews.upenn.edu>
  6. Date: 11 Jan 93 16:07:22 GMT
  7. Sender: news@netnews.upenn.edu
  8. Organization: University of Pennsylvania, Philadelphia
  9. Lines: 138
  10. Nntp-Posting-Host: neuro.psycha.upenn.edu
  11.  
  12. I have installed PMDF 4.0 under VMS 5.5 and UCX 2.0.  I have disabled
  13. UCX SMTP server (thanks for Ned's response for my first "A simple
  14. question" and point out this).  I still have problem
  15. sending mail out to a unix machine (I can receive mail from the same
  16. machine).  I do not have problem
  17. sending/receiveing among my cluster members.
  18.  
  19. The error message is smtp_open error.  Can any body kindly tell me what
  20. is wrong?  Thank you very much in advance.
  21.  
  22. Song
  23.  
  24. PS. The following is the log file which contains the error message.
  25.  
  26. $ ! MASTER.COM - Initiate delivery of messages queued on a channel
  27. $ !
  28. $ ! Modification history and parameter definitions are at the end of this file.
  29. $ !
  30. $ set noon
  31. $ if f$logical("PMDF_ROOT") .eqs. "" then exit
  32. $ !
  33. $ ! Clean up and set up channel name, if on hold just exit
  34. $ !
  35. $ channel_name = f$edit(p1, "COLLAPSE,LOWERCASE")
  36. $ hold_list = "," + f$edit(f$logical("PMDF_HOLD"), "COLLAPSE,LOWERCASE") + ","
  37. $ if f$locate("," + channel_name + ",", hold_list) .lt. -
  38.      f$length(hold_list) then exit
  39. $ define/process pmdf_channel "utcp_local"
  40. $ !
  41. $ ! Save state information, set up environment properly
  42. $ !
  43. $ save_process_name = f$getjpi(0,"PRCNAM")
  44. $ process_name = "PMDF " + f$extract(0,10,channel_name)
  45. $ set process/name="PMDF utcp_local"
  46. $ save_directory = f$environment("DEFAULT")
  47. $ set default pmdf_root:[queue]
  48. $ save_protection = f$environment("PROTECTION")
  49. $ set protection=(s:rwed,o:rwed,g,w)/default
  50. $ save_privileges = f$setprv("NOSHARE")
  51. $ !
  52. $ if f$logical("PMDF_DEBUG") .eqs. "" then on control_y then goto out
  53. $ !
  54. $ version_limit = f$logical("PMDF_" + channel_name + "_VERSION_LIMIT")
  55. $ if version_limit .le. 0 then version_limit = f$logical("PMDF_VERSION_LIMIT")
  56. $ if version_limit .le. 0 then version_limit = 5
  57. $ outer_limit = version_limit + version_limit/2
  58. $ if (f$environment("DEPTH") .gt. 0) .or. -
  59.      (f$mode() .nes. "BATCH") then goto no_purge
  60. $ log_file = f$getqui("DISPLAY_JOB","LOG_SPECIFICATION",,"THIS_JOB") - ";"
  61. $ if log_file .eqs. "" then goto no_purge
  62. $ if f$search(log_file + ";-" + outer_limit) .nes. "" then -
  63.     purge/keep=5 PMDF_ROOT:[LOG]UTCP_LOCAL_MASTER.LOG
  64. $ no_purge:
  65. $ !
  66. $ ! Create listing of messages queued on this channel.
  67. $ !
  68. $ if p3 .eqs. "" then p3 = "1-JAN-1970"
  69. $ dirlst_file = "pmdf_root:[log]" + channel_name + "_master_dirlst_" + -
  70.   f$getjpi("", "PID") + ".tmp"
  71. $ define/process outbound pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp
  72. $ directory/noheader/notrailer/column=1/since=" 9-JAN-1993:11:40:07.04"/output=pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp -
  73.   pmdf_root:[queue.utcp_local]*.%%;*
  74. $ !
  75. $ ! Determine whether or not connection should really be made
  76. $ !
  77. $ if p2 .nes. "POLL" .and. -
  78.      f$file_attributes(dirlst_file, "ALQ") .eq. 0 then goto out1 
  79. $ !
  80. $ ! Handle various channels specially
  81. $ !
  82. $ if channel_name .eqs. "d"          then goto DECnet_compatibility_channel
  83. $ if channel_name .eqs. "directory"  then goto dir_channel
  84. $ if channel_name .eqs. "l"          then goto local_channel
  85. $ if channel_name .eqs. "mailserv"   then goto mailserv_channel
  86. $ if channel_name .eqs. "mint"       then goto mint_channel
  87. $ if channel_name .eqs. "reprocess"  then goto reprocess_channel
  88. $ if channel_name .eqs. "text_to_ps" then goto TEXT_TO_PS_channel
  89. $ if channel_name .eqs. "bitbucket"  then goto bitbucket_channel
  90. $ if f$extract(0,5,channel_name) .eqs. "anje_"      then goto BITNET_channel
  91. $ if f$extract(0,4,channel_name) .eqs. "bit_"       then goto BITNET_channel
  92. $ if f$extract(0,5,channel_name) .eqs. "bull_"      then goto BULLETIN_channel
  93. $ if f$extract(0,3,channel_name) .eqs. "cn_"        then goto CN_channel
  94. $ if f$extract(0,5,channel_name) .eqs. "ctcp_"      then goto CTCP_channel
  95. $ if f$extract(0,3,channel_name) .eqs. "dn_"        then goto DECnet_channel
  96. $ if f$extract(0,6,channel_name) .eqs. "dsmtp_"     then goto DSMTP_channel
  97. $ if f$extract(0,4,channel_name) .eqs. "era_"       then goto ERASERVER_channel
  98. $ if f$extract(0,5,channel_name) .eqs. "etcp_"      then goto ETCP_channel
  99. $ if f$extract(0,5,channel_name) .eqs. "ftcp_"      then goto FTCP_channel
  100. $ if f$extract(0,9,channel_name) .eqs. "g3_to_fax"  then goto G3_TO_FAX_channel
  101. $ if f$extract(0,4,channel_name) .eqs. "ker_"       then goto KER_channel
  102. $ if f$extract(0,5,channel_name) .eqs. "mail_"      then goto MAIL_channel
  103. $ if f$extract(0,5,channel_name) .eqs. "mtcp_"      then goto MTCP_channel
  104. $ if f$extract(0,5,channel_name) .eqs. "ptcp_"      then goto PTCP_channel
  105. $ if f$extract(0,5,channel_name) .eqs. "px25_"      then goto PX25_channel
  106. $ if f$extract(0,3,channel_name) .eqs. "mr_"        then goto MR_channel
  107. $ if f$extract(0,8,channel_name) .eqs. "ps_to_g3"   then goto PS_TO_G3_channel
  108. $ if f$extract(0,4,channel_name) .eqs. "tcp_"       then goto TCP_channel
  109. $ if f$extract(0,5,channel_name) .eqs. "test_"      then goto TEST_channel
  110. $ if f$extract(0,5,channel_name) .eqs. "utcp_"      then goto UTCP_channel
  111. $ UTCP_channel:
  112. $ !
  113. $ run pmdf_root:[exe]utcp_master
  114.  
  115. Starting delivery of 
  116. PMDF_ROOT:[QUEUE.UTCP_LOCAL]ZZ01GTBAT9IPF6934PJY.00;1
  117. os_smtp_open: Temporary failure
  118.  
  119.  9-JAN-93  11:40:22: SMTP routine failure on file: 
  120. PMDF_ROOT:[QUEUE.UTCP_LOCAL]ZZ01GTBAT9IPF6934PJY.00;1
  121. Recorded error -- Fatal error from smtp_open
  122. $ goto out1
  123. $ out1:
  124. $ delete pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp;*
  125. $ !
  126. $ ! Common exit point - clean up things first
  127. $ !
  128. $ out:
  129. $ if f$logical("OUTBOUND") .nes. "" then deassign/process outbound
  130. $ if f$logical("PMDF_CHANNEL") .nes. "" then deassign/process pmdf_channel
  131. $ if f$logical("PMDF_DATA") .nes. "" then close pmdf_data
  132. $ if f$logical("PMDF_DEVICE") .eqs. "" then goto restore
  133. $ restore:
  134. $ !
  135. $ ! Restore saved stuff
  136. $ !
  137. $ set protection=(SYSTEM=RWED, OWNER=RWED, GROUP=RE, WORLD=RE)/default
  138. $ set default SYS$SYSROOT:[SYSMGR]
  139. $ set process/priv=(SHARE)
  140. $ set process/name="BATCH_137"
  141. $ !
  142. $ exit
  143.   SYSTEM       job terminated at  9-JAN-1993 11:40:23.11
  144.  
  145.   Accounting information:
  146.   Buffered I/O count:             129         Peak working set size:    1301
  147.   Direct I/O count:               115         Peak page file size:      5188
  148.   Page faults:                   2503         Mounted volumes:             0
  149.   Charged CPU time:           0 00:00:01.48   Elapsed time:     0 00:00:05.36
  150.