🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: vmsnet.mail.pmdf
Article #760

Another question

#760
From: Song Xu
Date: Mon, 11 Jan 1993 16:07
138 lines
6823 bytes
I have installed PMDF 4.0 under VMS 5.5 and UCX 2.0.  I have disabled
UCX SMTP server (thanks for Ned's response for my first "A simple
question" and point out this).  I still have problem
sending mail out to a unix machine (I can receive mail from the same
machine).  I do not have problem
sending/receiveing among my cluster members.

The error message is smtp_open error.  Can any body kindly tell me what
is wrong?  Thank you very much in advance.

Song

PS. The following is the log file which contains the error message.

$ ! MASTER.COM - Initiate delivery of messages queued on a channel
$ !
$ ! Modification history and parameter definitions are at the end of this file.
$ !
$ set noon
$ if f$logical("PMDF_ROOT") .eqs. "" then exit
$ !
$ ! Clean up and set up channel name, if on hold just exit
$ !
$ channel_name = f$edit(p1, "COLLAPSE,LOWERCASE")
$ hold_list = "," + f$edit(f$logical("PMDF_HOLD"), "COLLAPSE,LOWERCASE") + ","
$ if f$locate("," + channel_name + ",", hold_list) .lt. -
     f$length(hold_list) then exit
$ define/process pmdf_channel "utcp_local"
$ !
$ ! Save state information, set up environment properly
$ !
$ save_process_name = f$getjpi(0,"PRCNAM")
$ process_name = "PMDF " + f$extract(0,10,channel_name)
$ set process/name="PMDF utcp_local"
$ save_directory = f$environment("DEFAULT")
$ set default pmdf_root:[queue]
$ save_protection = f$environment("PROTECTION")
$ set protection=(s:rwed,o:rwed,g,w)/default
$ save_privileges = f$setprv("NOSHARE")
$ !
$ if f$logical("PMDF_DEBUG") .eqs. "" then on control_y then goto out
$ !
$ version_limit = f$logical("PMDF_" + channel_name + "_VERSION_LIMIT")
$ if version_limit .le. 0 then version_limit = f$logical("PMDF_VERSION_LIMIT")
$ if version_limit .le. 0 then version_limit = 5
$ outer_limit = version_limit + version_limit/2
$ if (f$environment("DEPTH") .gt. 0) .or. -
     (f$mode() .nes. "BATCH") then goto no_purge
$ log_file = f$getqui("DISPLAY_JOB","LOG_SPECIFICATION",,"THIS_JOB") - ";"
$ if log_file .eqs. "" then goto no_purge
$ if f$search(log_file + ";-" + outer_limit) .nes. "" then -
    purge/keep=5 PMDF_ROOT:[LOG]UTCP_LOCAL_MASTER.LOG
$ no_purge:
$ !
$ ! Create listing of messages queued on this channel.
$ !
$ if p3 .eqs. "" then p3 = "1-JAN-1970"
$ dirlst_file = "pmdf_root:[log]" + channel_name + "_master_dirlst_" + -
  f$getjpi("", "PID") + ".tmp"
$ define/process outbound pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp
$ directory/noheader/notrailer/column=1/since=" 9-JAN-1993:11:40:07.04"/output=pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp -
  pmdf_root:[queue.utcp_local]*.%%;*
$ !
$ ! Determine whether or not connection should really be made
$ !
$ if p2 .nes. "POLL" .and. -
     f$file_attributes(dirlst_file, "ALQ") .eq. 0 then goto out1 
$ !
$ ! Handle various channels specially
$ !
$ if channel_name .eqs. "d"          then goto DECnet_compatibility_channel
$ if channel_name .eqs. "directory"  then goto dir_channel
$ if channel_name .eqs. "l"          then goto local_channel
$ if channel_name .eqs. "mailserv"   then goto mailserv_channel
$ if channel_name .eqs. "mint"       then goto mint_channel
$ if channel_name .eqs. "reprocess"  then goto reprocess_channel
$ if channel_name .eqs. "text_to_ps" then goto TEXT_TO_PS_channel
$ if channel_name .eqs. "bitbucket"  then goto bitbucket_channel
$ if f$extract(0,5,channel_name) .eqs. "anje_"      then goto BITNET_channel
$ if f$extract(0,4,channel_name) .eqs. "bit_"       then goto BITNET_channel
$ if f$extract(0,5,channel_name) .eqs. "bull_"      then goto BULLETIN_channel
$ if f$extract(0,3,channel_name) .eqs. "cn_"        then goto CN_channel
$ if f$extract(0,5,channel_name) .eqs. "ctcp_"      then goto CTCP_channel
$ if f$extract(0,3,channel_name) .eqs. "dn_"        then goto DECnet_channel
$ if f$extract(0,6,channel_name) .eqs. "dsmtp_"     then goto DSMTP_channel
$ if f$extract(0,4,channel_name) .eqs. "era_"       then goto ERASERVER_channel
$ if f$extract(0,5,channel_name) .eqs. "etcp_"      then goto ETCP_channel
$ if f$extract(0,5,channel_name) .eqs. "ftcp_"      then goto FTCP_channel
$ if f$extract(0,9,channel_name) .eqs. "g3_to_fax"  then goto G3_TO_FAX_channel
$ if f$extract(0,4,channel_name) .eqs. "ker_"       then goto KER_channel
$ if f$extract(0,5,channel_name) .eqs. "mail_"      then goto MAIL_channel
$ if f$extract(0,5,channel_name) .eqs. "mtcp_"      then goto MTCP_channel
$ if f$extract(0,5,channel_name) .eqs. "ptcp_"      then goto PTCP_channel
$ if f$extract(0,5,channel_name) .eqs. "px25_"      then goto PX25_channel
$ if f$extract(0,3,channel_name) .eqs. "mr_"        then goto MR_channel
$ if f$extract(0,8,channel_name) .eqs. "ps_to_g3"   then goto PS_TO_G3_channel
$ if f$extract(0,4,channel_name) .eqs. "tcp_"       then goto TCP_channel
$ if f$extract(0,5,channel_name) .eqs. "test_"      then goto TEST_channel
$ if f$extract(0,5,channel_name) .eqs. "utcp_"      then goto UTCP_channel
$ UTCP_channel:
$ !
$ run pmdf_root:[exe]utcp_master

Starting delivery of 
PMDF_ROOT:[QUEUE.UTCP_LOCAL]ZZ01GTBAT9IPF6934PJY.00;1
os_smtp_open: Temporary failure

 9-JAN-93  11:40:22: SMTP routine failure on file: 
PMDF_ROOT:[QUEUE.UTCP_LOCAL]ZZ01GTBAT9IPF6934PJY.00;1
Recorded error -- Fatal error from smtp_open
$ goto out1
$ out1:
$ delete pmdf_root:[log]utcp_local_master_dirlst_20C00164.tmp;*
$ !
$ ! Common exit point - clean up things first
$ !
$ out:
$ if f$logical("OUTBOUND") .nes. "" then deassign/process outbound
$ if f$logical("PMDF_CHANNEL") .nes. "" then deassign/process pmdf_channel
$ if f$logical("PMDF_DATA") .nes. "" then close pmdf_data
$ if f$logical("PMDF_DEVICE") .eqs. "" then goto restore
$ restore:
$ !
$ ! Restore saved stuff
$ !
$ set protection=(SYSTEM=RWED, OWNER=RWED, GROUP=RE, WORLD=RE)/default
$ set default SYS$SYSROOT:[SYSMGR]
$ set process/priv=(SHARE)
$ set process/name="BATCH_137"
$ !
$ exit
  SYSTEM       job terminated at  9-JAN-1993 11:40:23.11

  Accounting information:
  Buffered I/O count:             129         Peak working set size:    1301
  Direct I/O count:               115         Peak page file size:      5188
  Page faults:                   2503         Mounted volumes:             0
  Charged CPU time:           0 00:00:01.48   Elapsed time:     0 00:00:05.36
Technical Details
Message-ID: <104308@netnews.upenn.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!rutgers!ub!dsinc!netnews.upenn.edu!neuro.psycha.upenn.edu!xu

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!rutgers!ub!dsinc!netnews.upenn.edu!neuro.psycha.upenn.edu!xu
From: xu@neuro.psycha.upenn.edu (Song Xu)
Newsgroups: vmsnet.mail.pmdf
Subject: Another question
Message-ID: <104308@netnews.upenn.edu>
Date: 11 Jan 93 16:07:22 GMT
Sender: news@netnews.upenn.edu
Organization: University of Pennsylvania, Philadelphia
Lines: 138
Nntp-Posting-Host: neuro.psycha.upenn.edu