Newsgroups: vmsnet.mail.pmdf
Subject: PMDF-MR: cannot put NBS bodypart file - file does not contain proper
From: Bob Tinkelman <bob@camb.com>
Date: 09 Oct 1992 01:04:03 -0400 (EDT)
Organization: Cambridge Computer Associates, Inc.
Return-Path: <epmdf@YMIR.CLAREMONT.EDU>
Resent-Date: 09 Oct 1992 01:04:03 -0400 (EDT)
Resent-From: epmdf@YMIR.CLAREMONT.EDU
CC: TINKELMAN@DECUS.Org
Errors-To: epmdf@YMIR.CLAREMONT.EDU
Resent-Message-ID: <01GPPZJ8TD3M8WVYYW@INNOSOFT.COM>
X-Vms-To: IN%"info-pmdf@innosoft.com"
X-Vms-Cc: TINKELMAN
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
Content-Transfer-Encoding: 7BIT

Our MR_LOCAL queue had stopped moving.  There was one file with a name
starting with Q and all the others started with ZZ.  I had to manually
hold it to get the queue moving again.

I've attached the problem file and the log file showing how the MR_LOCAL
channel was dying.
--
Bob Tinkelman <bob@camb.com> and <postmaster@decus.org>
m;BROOKS@kidsa1.wustl.edu
tombers@a1.decus.org

Received: from kids1 (kids1.wustl.edu) by DECUS.Org (PMDF #2354 ) id
 <01GPPI9U88O090PI7I@DECUS.Org>; Thu, 8 Oct 1992 13:50:46 EDT
Received: from mr.kids.wustl.edu by kids.wustl.edu (PMDF #2832 ) id
 <01GPPG4NK04S91WL39@kids.wustl.edu>; Thu, 8 Oct 1992 12:49:16 CDT
Received: with PMDF-MR; Thu, 8 Oct 1992 12:42:24 CDT
Date: 08 Oct 1992 12:37:00 -0500 (CDT)
From: "Gregory N. Brooks 454 2237" <BROOKS@kidsa1.wustl.edu>
Subject: Already talked to Bill
To: tombers@decus.org
Message-id: <01GPPG4IKHXG91WL39@mr.kids.wustl.edu>
MIME-version: 1.0
Content-type: MULTIPART/MIXED; BOUNDARY="Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)"
Content-transfer-encoding: 7BIT
Posting-date: 08 Oct 1992 12:38:00 -0500 (CDT)
Importance: normal
Priority: non-urgent
X-Hop-count: 1
A1-type: MAIL


--Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)
Content-type: TEXT/PLAIN; CHARSET=US-ASCII

[...text of msg deleted...]

--Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)
Content-type: MESSAGE/RFC822

Date: Thu, 8 Oct 1992 10:08:00 CDT
Subject: Phone Call from On-line Message System
To: "Gregory N. Brooks" <BROOKS@kidsa1.wustl.edu>
Content-type: APPLICATION/MR-DECBODY1;
 VMS-FDL="SYSTEM; SOURCE VAX/VMS; ; FILE; ALLOCATION 3; BEST_TRY_CONTIGUOUS no;
 BUCKET_SIZE 0; CONTIGUOUS no; DEFERRED_WRITE no; EXTENSION 81;
 GLOBAL_BUFFER_COUNT 0; MT_BLOCK_SIZE 512; MAX_RECORD_NUMBER 0;
 MAXIMIZE_VERSION no; NAME \"PMDF_ROOT:[QUEUE]$NB$01GPPG4MSXZE91WL.00;
 1\"; ORGANIZATION sequential; READ_CHECK no; SUPERSEDE no; WRITE_CHECK no; ;
 RECORD; BLOCK_SPAN yes; CARRIAGE_CONTROL none; CONTROL_FIELD_SIZE 0; FORMAT
 fixed; SIZE 512;"
Content-transfer-encoding: BASE64
Posting-date: Thu, 8 Oct 1992 10:08:00 CDT
Importance: normal
A1-type: MAIL

TYQAAASbLn+EAAAElHB/EnECDyAgICAgICAgICAgICAgIH+EAAAADXIChAAAAAZX
UENPUlB/hAAABGZzQ4ICAQD/V1BDTAAAAAEKAAAAAAAA+/8FADIAAAAAAAYACAAA
AEIAAAAIAAIAAABKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAHwAeAAAAAAA0AEM
AP////8AAAAADAAB0NACCAAAAAABCAAC0NAEzAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAA4AHQAsAD8ASgBZA
GgAewCGAJUApAC3AMIA0QDgAPMA/gENARwBLwE6AUkBWAFrAXYBhQGUAacBsgHBA
dP////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAMwABNCCIArQAQwA
/////wAAAAAMAAHQ0AIIAAAAAAEIAALQ0ATMAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMADgAdACwAPwBKAFkAa
AB7AIYAl////////////////////////////////////////////////////////
/0OCAgEA////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAADMAATQgtAD
CAAAABsACAAD0MEAAADAAwAAwcMMw0NhbGxlciBJbmZvcm1hdGlvbsQMxArBAAAA
wAMAAMFOYW1lOiAgICAgICAgTW9uaWNhIFRvbWJlcnMKwQAAAMADAADBT3JnYW5p
emF0aW9uOgrBAAAAwAMAAMFQaG9uZSBOdW1iZXI6MzEzLTI2Mi03NTAwCgrBAAAA
wAMAAMHDDMNNZXNzYWdlOsQMxArBAAAAwAMAAMFTaGUgd2FudGVkIHRvIGxldCB5
b3Uga25vdyB0aGF0IEJpbGwgRGVubmluZydzIG1vdGhlciBwYXNzZWQgYXdheS4K
wQAAAMADAADBKEZZSSkKwQAAAMADAADBCsEAAADAAwAAwQrBAAAAwAMAAMEKwQAA
AMADAADBCgoKCsEAAADAAwAAwcMMw1BsZWFzZSBDYWxsOiAgICAgICAgICAgICAg
ICAgICAgQ2FtZSB0byBzZWUgeW91OiDEDMQKwQAAAMADAADBwwzDV2lsbCBDYWxs
IEJhY2s6ICAgICAgICAgICAgICAgICBXYW50cyB0byBzZWUgeW91OiDEDMQKwQAA
AMADAADBwwzDUmV0dXJuZWQgeW91IENhbGw6IMQMxArBAAAAwANDWQAAAMEKwQAA
AMADAADBCsEAAADAAwAAwcMMw1RpbWU6IMQMxDA4LU9jdC0xOTkyIDEwOjA2ICAg
ICDDDMNNZXNzYWdlIFRha2VuIEJ5OiDEDMRNRVlFUgoKAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

--Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)--
[... PMDF eof marker deleted for purposes of transmission ...]
$   @_$255$DUA4:[PMDF.041.EXE]MASTER.COM;10 MR_LOCAL POLL
$ ! MASTER.COM - Initiate delivery of messages queued on a channel
$ !
$ ! Modification history and parameter definitions are at the end of this file.
$ !
$ ! Fix command definitions
$ !
$ close = "close"
$ deallocate = "deallocate"
$ deassign = "deassign"
$ define = "define"
$ directory = "directory"
$ exit = "exit"
$ goto = "goto"
$ mail = "mail"
$ on = "on"
$ open = "open"
$ run = "run"
$ set = "set"
$ wait = "wait"
$ ! Redefinition of some or all of these does not work with VMS versions
$ ! prior to VMS 5.4.
$ ! if = "if"
$ ! then = "then"
$ ! else = "else"
$ ! endif = "endif"
$ !
$ 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 "mr_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 mr_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
$ !
$ ! Set up symbols and logicals for possible listing
$ !
$ dirlst_file = "pmdf_root:[log]" + channel_name + "_master_dirlst_" + -
  f$getjpi("", "PID") + ".tmp"
$ if p3 .eqs. "" then p3 = "1-JAN-1970"
$ define/process pmdf_since "1-JAN-1970"
$ !
$ ! We no longer create a listing file -- this command is for reference
$ ! purposes only.
$ !
$ ! define/process outbound 'dirlst_file'
$ ! $ directory/nohead/notrail/colu=1/sinc="'p3'"/outp='dirlst_file'-
$ !   pmdf_root:[queue.'channel_name']*.%%;*
$ !
$ ! Determine whether or not a connection should really be made
$ !
$ if p2 .eqs. "POLL" then goto connection_ok
$ connection_ok:
$ !
$ ! Handle various channels specially
$ !
$ if channel_name .eqs. "bitbucket"  then goto bitbucket_channel
$ if channel_name .eqs. "d"          then goto DECnet_compatibility_channel
$ if channel_name .eqs. "defragment" then goto defragment_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 f$extract(0,07,channel_name) .eqs. "address"   then goto addressing_channel
$ if f$extract(0,05,channel_name) .eqs. "anje_"     then goto BITNET_channel
$ if f$extract(0,04,channel_name) .eqs. "bit_"      then goto BITNET_channel
$ if f$extract(0,05,channel_name) .eqs. "bull_"     then goto BULLETIN_channel
$ if f$extract(0,03,channel_name) .eqs. "cc_"       then goto CCMAIL_channel
$ if f$extract(0,03,channel_name) .eqs. "cn_"       then goto CN_channel
$ if f$extract(0,05,channel_name) .eqs. "ctcp_"     then goto CTCP_channel
$ if f$extract(0,14,channel_name) .eqs. "data_to_bitmap" then -
                                                     goto DATA_TO_BITMAP_channel
$ if f$extract(0,02,channel_name) .eqs. "d_"        then -
                                               goto DECnet_compatibility_channel
$ if f$extract(0,03,channel_name) .eqs. "dn_"       then goto DECnet_channel
$ if f$extract(0,06,channel_name) .eqs. "dsmtp_"    then goto DSMTP_channel
$ if f$extract(0,04,channel_name) .eqs. "era_"      then goto ERASERVER_channel
$ if f$extract(0,05,channel_name) .eqs. "etcp_"     then goto ETCP_channel
$ if f$extract(0,05,channel_name) .eqs. "ftcp_"     then goto FTCP_channel
$ if f$extract(0,09,channel_name) .eqs. "g3_to_fax" then goto G3_TO_FAX_channel
$ if f$extract(0,04,channel_name) .eqs. "ker_"      then goto KER_channel
$ if f$extract(0,05,channel_name) .eqs. "mail_"     then goto MAIL_channel
$ if f$extract(0,03,channel_name) .eqs. "mr_"       then goto MR_channel
$ MR_channel:
$ !
$ if f$search("pmdf_root:[queue.mr_local]*.%%;") .eqs. "" then -
  goto MR_channel_slave_check
$ p9 = f$search("")
$ !
$ define/user option_file        pmdf_root:[table]mr_local_option.
$ run pmdf_root:[exe]mr_master.exe
Connecting to local Message Router.
Identifying as mailbox PMDF.
Dequeuing message, file - "PMDF_ROOT:[QUEUE.mr_local]YV01GPPI9XBRWK90PI7I.00".
Initializing MR for submission.
Converting return address to AVPL.
Creating message body temporary file.
Processing address list.
Good addresses found. Continuing...
  Multiple bodypart header detected.
  MR_WEND_ENVELOPE finishing envelope.
  Converting X-Hop-count: header.
  Converting Priority: header.
  MR_WEND_ENVELOPE finished envelope.
  Converting Message-id: header.
  Converting Subject: header.
  Converting Importance: header.
  Converting Date: header.
  Converting A1-type: header.
mr_wend_bodypart called.
mr_wend_bodypart returning successfully.
mr_wend_bodypart called.
mr_wend_bodypart returning successfully.
  Message bodypart header detected.
  MR bodypart header detected.
  Converting Subject: header.
  Converting Importance: header.
  Converting Date: header.
  Converting A1-type: header.
mr_wend_bodypart called.
  Handling RMS or MR file; processing FDL information
  Converting FDL information to NBS file.
Error - cannot put NBS bodypart file - file does not contain proper part

 9-OCT-92  00:35:26: Unexpected error in message submission.
%PAS-F-HALT, HALT procedure called
%TRACE-F-TRACEBACK, symbolic stack dump follows
module name     routine name                     line       rel PC    abs PC

                                                           0007966F  0007966F
                                                           000E77FB  000E77FB
MR_MASTER       TRY_SOMETHING                    4004      0000005B  0000DE73
MR_MASTER       DOSUBMIT                         4089      00000660  0000D568
MR_MASTER       MR_MASTER                        4107      0000000C  0000DDF0
 -- end of message found
$ if p2 .nes. "POLL" then goto out1
$ wait 00:01:00
$ goto MR_channel_slave
$ MR_channel_slave:
$ !
$ define/user option_file        pmdf_root:[table]mr_local_option.
$ run pmdf_root:[exe]mr_slave.exe
$ goto out1
$ out1:
$ !
$ ! Common exit point - clean up things first
$ !
$ out:
$ if f$logical("PMDF_CHANNEL") .nes. "" then deassign/process pmdf_channel
$ if f$logical("PMDF_SINCE") .nes. "" then deassign/process pmdf_since
$ if f$logical("PMDF_DATA") .nes. "" then close pmdf_data
$ if f$logical("PMDF_MESSAGE_LIST") .nes. "" then close pmdf_message_list
$ if f$logical("PMDF_DEVICE") .eqs. "" then goto restore
$ restore:
$ !
$ ! Restore saved stuff
$ !
$ set protection=(SYSTEM=RWED, OWNER=RWED, GROUP=RE, WORLD)/default
$ set default SYS$SYSROOT:[SYSMGR]
$ set process/priv=(SHARE)
$ set process/name="<PMDF-3159>"
$ !
$ exit
$   deassign SYS$OUTPUT