home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19947 < prev    next >
Encoding:
Internet Message Format  |  1992-12-28  |  4.3 KB
  1. Path: sparky!uunet!think.com!enterpoop.mit.edu!eru.mt.luth.se!kth.se!news.kth.se!LEVITTE
  2. From: LEVITTE@e.kth.se (Richard Levitte)
  3. Newsgroups: comp.os.vms
  4. Subject: BUG in PAKMAIL which comes with VMS_SHARE 8.1
  5. Message-ID: <LEVITTE.92Dec28145841@elin.e.kth.se>
  6. Date: 28 Dec 92 13:58:41 GMT
  7. Sender: usenet@kth.se (Usenet)
  8. Organization: Department of TeleTransmission Theory
  9. Lines: 114
  10. Nntp-Posting-Host: elin.e.kth.se
  11.  
  12. when the parts are more than 9, the first nine of them are not found, because
  13. PAKMAIL looks for FOO.1-OF-30 (say), instead of FOO.01-OF-30.
  14.  
  15. Patch:
  16. *** public:[vms_share]pakmail.com
  17. --- pakmail.com
  18. **************
  19. *** 69,74
  20.   $ read/prompt="_Enter number of parts "/end=exit sys$command P3
  21.   $ goto get_parts
  22.   $end_get_parts:
  23.   $
  24.   $
  25.   $! SET UP USEFUL SYMBOLS
  26. --- 69,75 -----
  27.   $ read/prompt="_Enter number of parts "/end=exit sys$command P3
  28.   $ goto get_parts
  29.   $end_get_parts:
  30. + $ p3 = f$integer(p3)
  31.   $
  32.   $! SET UP USEFUL SYMBOLS
  33.   $ em="write sys$error ""%" +f$parse(f$environment("PROCEDURE"),,,"NAME")+""","
  34. **************
  35. *** 70,76
  36.   $ goto get_parts
  37.   $end_get_parts:
  38.   $
  39. - $
  40.   $! SET UP USEFUL SYMBOLS
  41.   $ em="write sys$error ""%" +f$parse(f$environment("PROCEDURE"),,,"NAME")+""","
  42.   $ package = f$parse(P2,,,"NAME")
  43. --- 71,76 -----
  44.   $end_get_parts:
  45.   $ p3 = f$integer(p3)
  46.   $
  47.   $! SET UP USEFUL SYMBOLS
  48.   $ em="write sys$error ""%" +f$parse(f$environment("PROCEDURE"),,,"NAME")+""","
  49.   $ package = f$parse(P2,,,"NAME")
  50. **************
  51. *** 74,80
  52.   $! SET UP USEFUL SYMBOLS
  53.   $ em="write sys$error ""%" +f$parse(f$environment("PROCEDURE"),,,"NAME")+""","
  54.   $ package = f$parse(P2,,,"NAME")
  55. ! $ l = f$length(P3)
  56.   $
  57.   $
  58.   $! IS THERE A SET OF FILES THAT MATCHES THE SPECIFICATION??
  59. --- 74,81 -----
  60.   $! SET UP USEFUL SYMBOLS
  61.   $ em="write sys$error ""%" +f$parse(f$environment("PROCEDURE"),,,"NAME")+""","
  62.   $ package = f$parse(P2,,,"NAME")
  63. ! $ l = f$length(f$string(P3))
  64. ! $ format2 = "!AS!#ZL-OF-!#ZL"        ! Snarfed from VMS_SHARE 8.1
  65.   $
  66.   $
  67.   $! IS THERE A SET OF FILES THAT MATCHES THE SPECIFICATION??
  68. **************
  69. *** 87,93
  70.   $check:
  71.   $   part = part+1
  72.   $   if part .gt. P3 then $ goto end_check
  73. ! $   if f$search("''P2'''part'-OF-''P3'") .nes. "" then $ goto check
  74.   $   em "-E-NOPART, Part ''part' of ''package' is missing!"
  75.   $   OK = "FALSE"
  76.   $   goto check
  77. --- 88,95 -----
  78.   $check:
  79.   $   part = part+1
  80.   $   if part .gt. P3 then $ goto end_check
  81. ! $   partname = f$fao(format2,p2,L,part,L,p3)
  82. ! $   if f$search(partname) .nes. "" then $ goto check
  83.   $   em "-E-NOPART, Part ''part' of ''package' is missing!"
  84.   $   OK = "FALSE"
  85.   $   goto check
  86. **************
  87. *** 103,109
  88.   $loop:
  89.   $   part = part+1
  90.   $   if part .gt. P3 then $ exit ss$_normal
  91. - $   n = f$fao("!#ZL",l,part)
  92.   $   em "-I-SENDPART, sending part ", part, " of ", package
  93.   $   file = P2 + "''part'" + "-OF-" + P3
  94.   $   subj = f$parse(file,,,"NAME") + f$parse(file,,,"TYPE") + "  " + P4
  95. --- 105,110 -----
  96.   $loop:
  97.   $   part = part+1
  98.   $   if part .gt. P3 then $ exit ss$_normal
  99.   $   em "-I-SENDPART, sending part ", part, " of ", package
  100.   $   file = f$fao(format2,P2,l,part,l,P3)
  101.   $   subj = f$parse(file,,,"NAME") + f$parse(file,,,"TYPE") + "  " + P4
  102. **************
  103. *** 105,111
  104.   $   if part .gt. P3 then $ exit ss$_normal
  105.   $   n = f$fao("!#ZL",l,part)
  106.   $   em "-I-SENDPART, sending part ", part, " of ", package
  107. ! $   file = P2 + "''part'" + "-OF-" + P3
  108.   $   subj = f$parse(file,,,"NAME") + f$parse(file,,,"TYPE") + "  " + P4
  109.   $   mail/noedit/noself/subject=&subj 'file' 'P1'
  110.   $   if $status then $ goto loop
  111. --- 106,112 -----
  112.   $   part = part+1
  113.   $   if part .gt. P3 then $ exit ss$_normal
  114.   $   em "-I-SENDPART, sending part ", part, " of ", package
  115. ! $   file = f$fao(format2,P2,l,part,l,P3)
  116.   $   subj = f$parse(file,,,"NAME") + f$parse(file,,,"TYPE") + "  " + P4
  117.   $   mail/noedit/noself/subject=&subj 'file' 'P1'
  118.   $   if $status then $ goto loop
  119. --
  120. !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
  121. ! Richard Levitte, VMS GNU Emacs hacker   ! tel: int+46-8-18 30 99            !
  122. ! Sulv"agen 57, II                        ! fax: none for the moment          !
  123. ! S-126 40 H"agersten                     ! Internet: levitte@e.kth.se        !
  124. ! SWEDEN                                  !                                   !
  125. !-----------------------------------------------------------------------------!
  126.