| [613] | 1 | XMBBLOB ;(WASH ISC)/THM/RWF/CAP-Add BLOBs to Bulletin ;04/17/2002 07:41
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ;Multimedia Bulletin - Add BLOBs
|
|---|
| 4 | MULTI(XMZ) ;Many BLOBs at a time
|
|---|
| 5 | N XMBBLOB
|
|---|
| 6 | F XMYBLOB=0:0 S XMYBLOB=$O(XMYBLOB(XMYBLOB)) Q:'XMYBLOB S X=$$API^XMR0BLOB(XMZ,XMYBLOB(XMYBLOB)) I 'X D ERB(X) S XMBBLOB=$G(XMBBLOB)+1
|
|---|
| 7 | Q XMBBLOB
|
|---|
| 8 | ;If BLOB Error
|
|---|
| 9 | ERB(%,%0,%1) N XMR,XMZ,XMY,XMTEXT,XMSUB,XMDUZ,XMDUN,XMBSAVE
|
|---|
| 10 | S %X="^TMP(""XMY"",$J,",%Y="^TMP(""XMBSAVE"",$J," D %XY^%RCR
|
|---|
| 11 | S %X="XMY(",%Y="^TMP(""XMBSAVE"",$J," D %XY^%RCR
|
|---|
| 12 | S XMDUZ="<MailMan Bulletin API>",XMSUB="BLOB NOT SENT",XMY(%)=""
|
|---|
| 13 | S XMTEXT="XMTEXT(",XMTEXT(1)="The Bulletin '"_$P(^XMB(3.9,%0,0),U)_"'"
|
|---|
| 14 | S XMTEXT(2)="was sent without non-textual body parts (BLOBS)."
|
|---|
| 15 | S XMTEXT(3)="The error returned from the imaging API was: "
|
|---|
| 16 | S XMTEXT(4)=" "_%1
|
|---|
| 17 | D ^XMD
|
|---|
| 18 | S %Y="^TMP(""XMY"",$J,",%X="^TMP(""XMBSAVE"",$J," D %XY^%RCR
|
|---|
| 19 | Q 1
|
|---|
