home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #23 / NN_1992_23.iso / spool / vmsnet / mail / pmdf / 2452 < prev    next >
Encoding:
Text File  |  1992-10-09  |  11.9 KB  |  294 lines

  1. Path: sparky!uunet!decwrl!infopiz!mccall!ipmdf-newsgate!list
  2. Newsgroups: vmsnet.mail.pmdf
  3. Subject: PMDF-MR: cannot put NBS bodypart file - file does not contain proper
  4. Message-ID: <01GPQ5LORF5U90PGUG@DECUS.Org>
  5. From: Bob Tinkelman <bob@camb.com>
  6. Date: 09 Oct 1992 01:04:03 -0400 (EDT)
  7. Sender: Bob Tinkelman <TINKELMAN@DECUS.Org>
  8. Organization: Cambridge Computer Associates, Inc.
  9. Return-Path: <epmdf@YMIR.CLAREMONT.EDU>
  10. Resent-Date: 09 Oct 1992 01:04:03 -0400 (EDT)
  11. Resent-From: epmdf@YMIR.CLAREMONT.EDU
  12. CC: TINKELMAN@DECUS.Org
  13. Errors-To: epmdf@YMIR.CLAREMONT.EDU
  14. Resent-Message-ID: <01GPPZJ8TD3M8WVYYW@INNOSOFT.COM>
  15. X-Vms-To: IN%"info-pmdf@innosoft.com"
  16. X-Vms-Cc: TINKELMAN
  17. Mime-Version: 1.0
  18. Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
  19. Content-Transfer-Encoding: 7BIT
  20. Lines: 272
  21.  
  22. Our MR_LOCAL queue had stopped moving.  There was one file with a name
  23. starting with Q and all the others started with ZZ.  I had to manually
  24. hold it to get the queue moving again.
  25.  
  26. I've attached the problem file and the log file showing how the MR_LOCAL
  27. channel was dying.
  28. --
  29. Bob Tinkelman <bob@camb.com> and <postmaster@decus.org>
  30. m;BROOKS@kidsa1.wustl.edu
  31. tombers@a1.decus.org
  32. 
  33. Received: from kids1 (kids1.wustl.edu) by DECUS.Org (PMDF #2354 ) id
  34.  <01GPPI9U88O090PI7I@DECUS.Org>; Thu, 8 Oct 1992 13:50:46 EDT
  35. Received: from mr.kids.wustl.edu by kids.wustl.edu (PMDF #2832 ) id
  36.  <01GPPG4NK04S91WL39@kids.wustl.edu>; Thu, 8 Oct 1992 12:49:16 CDT
  37. Received: with PMDF-MR; Thu, 8 Oct 1992 12:42:24 CDT
  38. Date: 08 Oct 1992 12:37:00 -0500 (CDT)
  39. From: "Gregory N. Brooks 454 2237" <BROOKS@kidsa1.wustl.edu>
  40. Subject: Already talked to Bill
  41. To: tombers@decus.org
  42. Message-id: <01GPPG4IKHXG91WL39@mr.kids.wustl.edu>
  43. MIME-version: 1.0
  44. Content-type: MULTIPART/MIXED; BOUNDARY="Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)"
  45. Content-transfer-encoding: 7BIT
  46. Posting-date: 08 Oct 1992 12:38:00 -0500 (CDT)
  47. Importance: normal
  48. Priority: non-urgent
  49. X-Hop-count: 1
  50. A1-type: MAIL
  51.  
  52.  
  53. --Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)
  54. Content-type: TEXT/PLAIN; CHARSET=US-ASCII
  55.  
  56. [...text of msg deleted...]
  57.  
  58. --Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)
  59. Content-type: MESSAGE/RFC822
  60.  
  61. Date: Thu, 8 Oct 1992 10:08:00 CDT
  62. Subject: Phone Call from On-line Message System
  63. Sender: Heather Meyer 454-2237 <MEYER@kidsa1.wustl.edu>
  64. To: "Gregory N. Brooks" <BROOKS@kidsa1.wustl.edu>
  65. Content-type: APPLICATION/MR-DECBODY1;
  66.  VMS-FDL="SYSTEM; SOURCE VAX/VMS; ; FILE; ALLOCATION 3; BEST_TRY_CONTIGUOUS no;
  67.  BUCKET_SIZE 0; CONTIGUOUS no; DEFERRED_WRITE no; EXTENSION 81;
  68.  GLOBAL_BUFFER_COUNT 0; MT_BLOCK_SIZE 512; MAX_RECORD_NUMBER 0;
  69.  MAXIMIZE_VERSION no; NAME \"PMDF_ROOT:[QUEUE]$NB$01GPPG4MSXZE91WL.00;
  70.  1\"; ORGANIZATION sequential; READ_CHECK no; SUPERSEDE no; WRITE_CHECK no; ;
  71.  RECORD; BLOCK_SPAN yes; CARRIAGE_CONTROL none; CONTROL_FIELD_SIZE 0; FORMAT
  72.  fixed; SIZE 512;"
  73. Content-transfer-encoding: BASE64
  74. Posting-date: Thu, 8 Oct 1992 10:08:00 CDT
  75. Importance: normal
  76. A1-type: MAIL
  77.  
  78. TYQAAASbLn+EAAAElHB/EnECDyAgICAgICAgICAgICAgIH+EAAAADXIChAAAAAZX
  79. UENPUlB/hAAABGZzQ4ICAQD/V1BDTAAAAAEKAAAAAAAA+/8FADIAAAAAAAYACAAA
  80. AEIAAAAIAAIAAABKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAHwAeAAAAAAA0AEM
  81. AP////8AAAAADAAB0NACCAAAAAABCAAC0NAEzAAAAAAAAAAAAAAAAAAAAAAAAAAA
  82. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  83. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAA4AHQAsAD8ASgBZA
  84. GgAewCGAJUApAC3AMIA0QDgAPMA/gENARwBLwE6AUkBWAFrAXYBhQGUAacBsgHBA
  85. dP////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAMwABNCCIArQAQwA
  86. /////wAAAAAMAAHQ0AIIAAAAAAEIAALQ0ATMAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  87. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  88. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMADgAdACwAPwBKAFkAa
  89. AB7AIYAl////////////////////////////////////////////////////////
  90. /0OCAgEA////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAADMAATQgtAD
  91. CAAAABsACAAD0MEAAADAAwAAwcMMw0NhbGxlciBJbmZvcm1hdGlvbsQMxArBAAAA
  92. wAMAAMFOYW1lOiAgICAgICAgTW9uaWNhIFRvbWJlcnMKwQAAAMADAADBT3JnYW5p
  93. emF0aW9uOgrBAAAAwAMAAMFQaG9uZSBOdW1iZXI6MzEzLTI2Mi03NTAwCgrBAAAA
  94. wAMAAMHDDMNNZXNzYWdlOsQMxArBAAAAwAMAAMFTaGUgd2FudGVkIHRvIGxldCB5
  95. b3Uga25vdyB0aGF0IEJpbGwgRGVubmluZydzIG1vdGhlciBwYXNzZWQgYXdheS4K
  96. wQAAAMADAADBKEZZSSkKwQAAAMADAADBCsEAAADAAwAAwQrBAAAAwAMAAMEKwQAA
  97. AMADAADBCgoKCsEAAADAAwAAwcMMw1BsZWFzZSBDYWxsOiAgICAgICAgICAgICAg
  98. ICAgICAgQ2FtZSB0byBzZWUgeW91OiDEDMQKwQAAAMADAADBwwzDV2lsbCBDYWxs
  99. IEJhY2s6ICAgICAgICAgICAgICAgICBXYW50cyB0byBzZWUgeW91OiDEDMQKwQAA
  100. AMADAADBwwzDUmV0dXJuZWQgeW91IENhbGw6IMQMxArBAAAAwANDWQAAAMEKwQAA
  101. AMADAADBCsEAAADAAwAAwcMMw1RpbWU6IMQMxDA4LU9jdC0xOTkyIDEwOjA2ICAg
  102. ICDDDMNNZXNzYWdlIFRha2VuIEJ5OiDEDMRNRVlFUgoKAAAAAAAAAAAAAAAAAAAA
  103. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  104. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  105. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  106. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  107. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  108. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  109. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  110.  
  111. --Boundary (ID oZ5r8PtJ4tdTvyxWGUt5lA)--
  112. [... PMDF eof marker deleted for purposes of transmission ...]
  113. $   @_$255$DUA4:[PMDF.041.EXE]MASTER.COM;10 MR_LOCAL POLL
  114. $ ! MASTER.COM - Initiate delivery of messages queued on a channel
  115. $ !
  116. $ ! Modification history and parameter definitions are at the end of this file.
  117. $ !
  118. $ ! Fix command definitions
  119. $ !
  120. $ close = "close"
  121. $ deallocate = "deallocate"
  122. $ deassign = "deassign"
  123. $ define = "define"
  124. $ directory = "directory"
  125. $ exit = "exit"
  126. $ goto = "goto"
  127. $ mail = "mail"
  128. $ on = "on"
  129. $ open = "open"
  130. $ run = "run"
  131. $ set = "set"
  132. $ wait = "wait"
  133. $ ! Redefinition of some or all of these does not work with VMS versions
  134. $ ! prior to VMS 5.4.
  135. $ ! if = "if"
  136. $ ! then = "then"
  137. $ ! else = "else"
  138. $ ! endif = "endif"
  139. $ !
  140. $ set noon
  141. $ if f$logical("PMDF_ROOT") .eqs. "" then exit
  142. $ !
  143. $ ! Clean up and set up channel name, if on hold just exit
  144. $ !
  145. $ channel_name = f$edit(p1, "COLLAPSE,LOWERCASE")
  146. $ hold_list = "," + f$edit(f$logical("PMDF_HOLD"), "COLLAPSE,LOWERCASE") + ","
  147. $ if f$locate("," + channel_name + ",", hold_list) .lt. -
  148.      f$length(hold_list) then exit
  149. $ define/process pmdf_channel "mr_local"
  150. $ !
  151. $ ! Save state information, set up environment properly
  152. $ !
  153. $ save_process_name = f$getjpi(0,"PRCNAM")
  154. $ process_name = "PMDF " + f$extract(0,10,channel_name)
  155. $ set process/name="PMDF mr_local"
  156. $ save_directory = f$environment("DEFAULT")
  157. $ set default pmdf_root:[queue]
  158. $ save_protection = f$environment("PROTECTION")
  159. $ set protection=(s:rwed,o:rwed,g,w)/default
  160. $ save_privileges = f$setprv("NOSHARE")
  161. $ !
  162. $ if f$logical("PMDF_DEBUG") .eqs. "" then on control_y then goto out
  163. $ !
  164. $ ! Set up symbols and logicals for possible listing
  165. $ !
  166. $ dirlst_file = "pmdf_root:[log]" + channel_name + "_master_dirlst_" + -
  167.   f$getjpi("", "PID") + ".tmp"
  168. $ if p3 .eqs. "" then p3 = "1-JAN-1970"
  169. $ define/process pmdf_since "1-JAN-1970"
  170. $ !
  171. $ ! We no longer create a listing file -- this command is for reference
  172. $ ! purposes only.
  173. $ !
  174. $ ! define/process outbound 'dirlst_file'
  175. $ ! $ directory/nohead/notrail/colu=1/sinc="'p3'"/outp='dirlst_file'-
  176. $ !   pmdf_root:[queue.'channel_name']*.%%;*
  177. $ !
  178. $ ! Determine whether or not a connection should really be made
  179. $ !
  180. $ if p2 .eqs. "POLL" then goto connection_ok
  181. $ connection_ok:
  182. $ !
  183. $ ! Handle various channels specially
  184. $ !
  185. $ if channel_name .eqs. "bitbucket"  then goto bitbucket_channel
  186. $ if channel_name .eqs. "d"          then goto DECnet_compatibility_channel
  187. $ if channel_name .eqs. "defragment" then goto defragment_channel
  188. $ if channel_name .eqs. "directory"  then goto dir_channel
  189. $ if channel_name .eqs. "l"          then goto local_channel
  190. $ if channel_name .eqs. "mailserv"   then goto mailserv_channel
  191. $ if channel_name .eqs. "mint"       then goto mint_channel
  192. $ if channel_name .eqs. "reprocess"  then goto reprocess_channel
  193. $ if f$extract(0,07,channel_name) .eqs. "address"   then goto addressing_channel
  194. $ if f$extract(0,05,channel_name) .eqs. "anje_"     then goto BITNET_channel
  195. $ if f$extract(0,04,channel_name) .eqs. "bit_"      then goto BITNET_channel
  196. $ if f$extract(0,05,channel_name) .eqs. "bull_"     then goto BULLETIN_channel
  197. $ if f$extract(0,03,channel_name) .eqs. "cc_"       then goto CCMAIL_channel
  198. $ if f$extract(0,03,channel_name) .eqs. "cn_"       then goto CN_channel
  199. $ if f$extract(0,05,channel_name) .eqs. "ctcp_"     then goto CTCP_channel
  200. $ if f$extract(0,14,channel_name) .eqs. "data_to_bitmap" then -
  201.                                                      goto DATA_TO_BITMAP_channel
  202. $ if f$extract(0,02,channel_name) .eqs. "d_"        then -
  203.                                                goto DECnet_compatibility_channel
  204. $ if f$extract(0,03,channel_name) .eqs. "dn_"       then goto DECnet_channel
  205. $ if f$extract(0,06,channel_name) .eqs. "dsmtp_"    then goto DSMTP_channel
  206. $ if f$extract(0,04,channel_name) .eqs. "era_"      then goto ERASERVER_channel
  207. $ if f$extract(0,05,channel_name) .eqs. "etcp_"     then goto ETCP_channel
  208. $ if f$extract(0,05,channel_name) .eqs. "ftcp_"     then goto FTCP_channel
  209. $ if f$extract(0,09,channel_name) .eqs. "g3_to_fax" then goto G3_TO_FAX_channel
  210. $ if f$extract(0,04,channel_name) .eqs. "ker_"      then goto KER_channel
  211. $ if f$extract(0,05,channel_name) .eqs. "mail_"     then goto MAIL_channel
  212. $ if f$extract(0,03,channel_name) .eqs. "mr_"       then goto MR_channel
  213. $ MR_channel:
  214. $ !
  215. $ if f$search("pmdf_root:[queue.mr_local]*.%%;") .eqs. "" then -
  216.   goto MR_channel_slave_check
  217. $ p9 = f$search("")
  218. $ !
  219. $ define/user option_file        pmdf_root:[table]mr_local_option.
  220. $ run pmdf_root:[exe]mr_master.exe
  221. Connecting to local Message Router.
  222. Identifying as mailbox PMDF.
  223. Dequeuing message, file - "PMDF_ROOT:[QUEUE.mr_local]YV01GPPI9XBRWK90PI7I.00".
  224. Initializing MR for submission.
  225. Converting return address to AVPL.
  226. Creating message body temporary file.
  227. Processing address list.
  228. Good addresses found. Continuing...
  229.   Multiple bodypart header detected.
  230.   MR_WEND_ENVELOPE finishing envelope.
  231.   Converting X-Hop-count: header.
  232.   Converting Priority: header.
  233.   MR_WEND_ENVELOPE finished envelope.
  234.   Converting Message-id: header.
  235.   Converting Subject: header.
  236.   Converting Importance: header.
  237.   Converting Date: header.
  238.   Converting A1-type: header.
  239. mr_wend_bodypart called.
  240. mr_wend_bodypart returning successfully.
  241. mr_wend_bodypart called.
  242. mr_wend_bodypart returning successfully.
  243.   Message bodypart header detected.
  244.   MR bodypart header detected.
  245.   Converting Subject: header.
  246.   Converting Importance: header.
  247.   Converting Date: header.
  248.   Converting A1-type: header.
  249. mr_wend_bodypart called.
  250.   Handling RMS or MR file; processing FDL information
  251.   Converting FDL information to NBS file.
  252. Error - cannot put NBS bodypart file - file does not contain proper part
  253.  
  254.  9-OCT-92  00:35:26: Unexpected error in message submission.
  255. %PAS-F-HALT, HALT procedure called
  256. %TRACE-F-TRACEBACK, symbolic stack dump follows
  257. module name     routine name                     line       rel PC    abs PC
  258.  
  259.                                                            0007966F  0007966F
  260.                                                            000E77FB  000E77FB
  261. MR_MASTER       TRY_SOMETHING                    4004      0000005B  0000DE73
  262. MR_MASTER       DOSUBMIT                         4089      00000660  0000D568
  263. MR_MASTER       MR_MASTER                        4107      0000000C  0000DDF0
  264.  -- end of message found
  265. $ if p2 .nes. "POLL" then goto out1
  266. $ wait 00:01:00
  267. $ goto MR_channel_slave
  268. $ MR_channel_slave:
  269. $ !
  270. $ define/user option_file        pmdf_root:[table]mr_local_option.
  271. $ run pmdf_root:[exe]mr_slave.exe
  272. $ goto out1
  273. $ out1:
  274. $ !
  275. $ ! Common exit point - clean up things first
  276. $ !
  277. $ out:
  278. $ if f$logical("PMDF_CHANNEL") .nes. "" then deassign/process pmdf_channel
  279. $ if f$logical("PMDF_SINCE") .nes. "" then deassign/process pmdf_since
  280. $ if f$logical("PMDF_DATA") .nes. "" then close pmdf_data
  281. $ if f$logical("PMDF_MESSAGE_LIST") .nes. "" then close pmdf_message_list
  282. $ if f$logical("PMDF_DEVICE") .eqs. "" then goto restore
  283. $ restore:
  284. $ !
  285. $ ! Restore saved stuff
  286. $ !
  287. $ set protection=(SYSTEM=RWED, OWNER=RWED, GROUP=RE, WORLD)/default
  288. $ set default SYS$SYSROOT:[SYSMGR]
  289. $ set process/priv=(SHARE)
  290. $ set process/name="<PMDF-3159>"
  291. $ !
  292. $ exit
  293. $   deassign SYS$OUTPUT
  294.