Article View: vmsnet.mail.pmdf
Article #760Another question
From: Song Xu
Date: Mon, 11 Jan 1993 16:07
Date: Mon, 11 Jan 1993 16:07
138 lines
6823 bytes
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!xuShow 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