- XMGAPI3 ;WASH ISC/REW/LH-Deliver Broadcast Msg & Mark for Vaporization ;04/17/2002 08:59
- ;;8.0;MailMan;;Jun 28, 2002
- ; Entry points used by MailMan options (not covered by DBIA):
- ; ENT XMR-BROADCAST-VA-WIDE
- ; ENT XMYB-BROADCAST-VA-WIDE
- ENT(XMTO) ; Meant to be invoked by a server. Delivers a message
- ; either to all users or to a specific user.
- ; The message must have been sent by the POSTMASTER@DOMAIN.EXT.
- ; The AUTOMATIC DELETE DATE for this message is set for each user
- ; to be in 7 days; 30 days if sent to a specific user.
- ; The message is made 'information only' and 'closed'.
- ; XMTO *=to all users
- ; DUZ=to only one person -- typically .6 to route to SHARED,MAIL
- ; Variables set in the server invoker:
- ; XQSOP Server basket name
- ; XQMSG Message number
- ; XMFROM Who sent the message
- N XMDUZ,XMKN
- S (XMDUZ,DUZ)=.5
- S XMKN="S."_XQSOP
- I $P(XMFROM,"@")'["POSTMASTER"!($P(XMFROM,"@",2)'["FORUM.") D
- . D ERR1(XMDUZ,XMKN,XMFROM)
- E D
- . D SEND(XMDUZ,XMKN,XQMSG,XMTO,XMFROM)
- D CLEANUP(XMKN,XQMSG)
- Q
- SEND(XMDUZ,XMKN,XMZ,XMTO,XMFROM) ;
- K XMERR,^TMP("XMERR",$J)
- D INIT^XMXADDR
- D CHKADDR^XMXADDR(XMDUZ,XMTO)
- I $D(XMERR) D Q
- . D ERR2(XMDUZ,XMKN,XMTO,XMFROM)
- . K XMERR,^TMP("XMERR",$J)
- D FORCE(XMZ,$S(XMTO="*":7,1:30))
- D SEND^XMKP(XMDUZ,XMZ)
- Q
- FORCE(DA,XMDAYS) ; Set Info Only, Closed statuses, and Purge date
- N DIE,DR
- S DIE=3.9,DR="1.95///y;1.97///y;1.6///"_$$FMADD^XLFDT(DT,XMDAYS)
- D ^DIE
- Q
- CLEANUP(XMKN,XMZ) ; Successfully delivered message, so remove from Postmaster Server Basket
- D CLEANUP^XMXADDR
- D ZAPSERV^XMXMSGS1(XMKN,XMZ)
- Q
- ERR1(XMDUZ,XMKN,XMFROM) ; Send message back to sender if not POSTMASTER@FORUM
- N A
- S A(1)="You may not send a message to the "_XMKN_" server."
- S A(2)="Only the Postmaster at DOMAIN.EXT has this permission."
- D SENDMSG^XMXSEND(XMDUZ,"Sender of Message to Server Unacceptable","A",XMFROM)
- K XMERR,^TMP("XMERR",$J)
- Q
- ERR2(XMDUZ,XMKN,XMTO,XMFROM) ; Send a message back to sender if single recipient is invalid
- N A,I,J
- S A(1)="Your message to the "_XMKN_" server was not accepted"
- S A(2)="because the lookup for the recipient specified ("_XMTO_")"
- S A(3)="failed, with the following message:"
- S J=3,I=0
- F S I=$O(^TMP("XMERR",$J,XMERR,"TEXT",I)) Q:'I S J=J+1,A(J)=^(I)
- D SENDMSG^XMXSEND(XMDUZ,"Server Recipient Unknown","A",XMFROM)
- K XMERR,^TMP("XMERR",$J)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMGAPI3 2416 printed Feb 18, 2025@23:37:51 Page 2
- XMGAPI3 ;WASH ISC/REW/LH-Deliver Broadcast Msg & Mark for Vaporization ;04/17/2002 08:59
- +1 ;;8.0;MailMan;;Jun 28, 2002
- +2 ; Entry points used by MailMan options (not covered by DBIA):
- +3 ; ENT XMR-BROADCAST-VA-WIDE
- +4 ; ENT XMYB-BROADCAST-VA-WIDE
- ENT(XMTO) ; Meant to be invoked by a server. Delivers a message
- +1 ; either to all users or to a specific user.
- +2 ; The message must have been sent by the POSTMASTER@DOMAIN.EXT.
- +3 ; The AUTOMATIC DELETE DATE for this message is set for each user
- +4 ; to be in 7 days; 30 days if sent to a specific user.
- +5 ; The message is made 'information only' and 'closed'.
- +6 ; XMTO *=to all users
- +7 ; DUZ=to only one person -- typically .6 to route to SHARED,MAIL
- +8 ; Variables set in the server invoker:
- +9 ; XQSOP Server basket name
- +10 ; XQMSG Message number
- +11 ; XMFROM Who sent the message
- +12 NEW XMDUZ,XMKN
- +13 SET (XMDUZ,DUZ)=.5
- +14 SET XMKN="S."_XQSOP
- +15 IF $PIECE(XMFROM,"@")'["POSTMASTER"!($PIECE(XMFROM,"@",2)'["FORUM.")
- Begin DoDot:1
- +16 DO ERR1(XMDUZ,XMKN,XMFROM)
- End DoDot:1
- +17 IF '$TEST
- Begin DoDot:1
- +18 DO SEND(XMDUZ,XMKN,XQMSG,XMTO,XMFROM)
- End DoDot:1
- +19 DO CLEANUP(XMKN,XQMSG)
- +20 QUIT
- SEND(XMDUZ,XMKN,XMZ,XMTO,XMFROM) ;
- +1 KILL XMERR,^TMP("XMERR",$JOB)
- +2 DO INIT^XMXADDR
- +3 DO CHKADDR^XMXADDR(XMDUZ,XMTO)
- +4 IF $DATA(XMERR)
- Begin DoDot:1
- +5 DO ERR2(XMDUZ,XMKN,XMTO,XMFROM)
- +6 KILL XMERR,^TMP("XMERR",$JOB)
- End DoDot:1
- QUIT
- +7 DO FORCE(XMZ,$SELECT(XMTO="*":7,1:30))
- +8 DO SEND^XMKP(XMDUZ,XMZ)
- +9 QUIT
- FORCE(DA,XMDAYS) ; Set Info Only, Closed statuses, and Purge date
- +1 NEW DIE,DR
- +2 SET DIE=3.9
- SET DR="1.95///y;1.97///y;1.6///"_$$FMADD^XLFDT(DT,XMDAYS)
- +3 DO ^DIE
- +4 QUIT
- CLEANUP(XMKN,XMZ) ; Successfully delivered message, so remove from Postmaster Server Basket
- +1 DO CLEANUP^XMXADDR
- +2 DO ZAPSERV^XMXMSGS1(XMKN,XMZ)
- +3 QUIT
- ERR1(XMDUZ,XMKN,XMFROM) ; Send message back to sender if not POSTMASTER@FORUM
- +1 NEW A
- +2 SET A(1)="You may not send a message to the "_XMKN_" server."
- +3 SET A(2)="Only the Postmaster at DOMAIN.EXT has this permission."
- +4 DO SENDMSG^XMXSEND(XMDUZ,"Sender of Message to Server Unacceptable","A",XMFROM)
- +5 KILL XMERR,^TMP("XMERR",$JOB)
- +6 QUIT
- ERR2(XMDUZ,XMKN,XMTO,XMFROM) ; Send a message back to sender if single recipient is invalid
- +1 NEW A,I,J
- +2 SET A(1)="Your message to the "_XMKN_" server was not accepted"
- +3 SET A(2)="because the lookup for the recipient specified ("_XMTO_")"
- +4 SET A(3)="failed, with the following message:"
- +5 SET J=3
- SET I=0
- +6 FOR
- SET I=$ORDER(^TMP("XMERR",$JOB,XMERR,"TEXT",I))
- if 'I
- QUIT
- SET J=J+1
- SET A(J)=^(I)
- +7 DO SENDMSG^XMXSEND(XMDUZ,"Server Recipient Unknown","A",XMFROM)
- +8 KILL XMERR,^TMP("XMERR",$JOB)
- +9 QUIT
