home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!decwrl!infopiz!mccall!ipmdf-newsgate!list
- Newsgroups: vmsnet.mail.pmdf
- Subject: PMDF-MR: cannot put NBS bodypart file - file does not contain proper
- Message-ID: <01GPQ5LORF5U90PGUG@DECUS.Org>
- From: Bob Tinkelman <bob@camb.com>
- Date: 09 Oct 1992 01:04:03 -0400 (EDT)
- Sender: Bob Tinkelman <TINKELMAN@DECUS.Org>
- 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
- Lines: 272
-
- 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
- Sender: Heather Meyer 454-2237 <MEYER@kidsa1.wustl.edu>
- 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
-