XMR2.m

XMR2 ;ISC-SF/GMB-SMTP Receiver (non-standard) ;04/17/2002  11:15

 ;;8.0;MailMan;;Jun 28, 2002

 ; *** Note that this command (MESS <what:parm>) is not standard.

 ; *** MESS ID, in particular, may return 'RSET', which is supposed

 ;     to be sent only by the sender, not by the receiver.

MESS ; CHECK IF DUPLICATE MESSAGE / USERS...

 N XMWHAT,XMPARM

 I XMP="" D ERRCMD^XMR Q

 S XMWHAT=$E($P(XMP,":"),1,6),XMPARM=$P(XMP,":",2,99)

 I $T(@XMWHAT)="" D ERRCMD^XMR Q

 D @XMWHAT

 Q

BLOB ;; MESS BLOB

 D BLOB^XMR0BLOB(XMPARM)

 Q

CLOSED ;; MESS CLOSED

 S XMZFDA(3.9,XMZIENS,1.95)="y"

 S XMSG="250 OK" X XMSEN

 Q

CONFID ;; MESS CONFIDENTIAL

 S XMZFDA(3.9,XMZIENS,1.96)="y"

 S XMSG="250 OK" X XMSEN

 Q

CONFIR ;; MESS CONFIRMATION

 S XMZFDA(3.9,XMZIENS,1.3)="y"

 S XMSG="250 OK" X XMSEN

 Q

ID ;;

 N XMZCHK

 S XMREMID=XMPARM

 S XMZCHK=$$LOCALXMZ^XMR3A(XMREMID)

 I 'XMZCHK S XMSG="250 OK" X XMSEN Q

 I $P(XMZCHK,U,2,3)="1^P" S XMSG="250 OK" X XMSEN Q

 ;Message originated here.  /  Previously received message.

 D DOTRAN^XMC1($S($P(XMZCHK,U,2):42305,1:42306))

 S XMRXMZ=+XMZCHK

 I $P(XMZCHK,U,3)'="E"!(XMRXMZ=XMZ) D  Q

 . I $P(XMZCHK,U,3)="P" D DOTRAN^XMC1(42307) ;Already purged.

 . I $P(XMZCHK,U,3)="R" D DOTRAN^XMC1(42308) ;Already purged & replaced with a different message.

 . S XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Duplicate purged" X XMSEN

 D DOTRAN^XMC1(42309) ;Delivering to additional recipients.

 S XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Previously received" X XMSEN

 Q

INFO ;; MESS INFORMATION 

 S XMZFDA(3.9,XMZIENS,1.97)="y"

 S XMSG="250 OK" X XMSEN

 Q

LINES ;; MESS LINES

 N XMLINES,XMLIMIT

 S XMLIMIT=$P($G(^XMB(1,1,"NETWORK-LIMIT")),U,2)

 S XMLINES=XMPARM

 I 'XMLIMIT!(XMLINES'>XMLIMIT) S XMSG="250 OK" X XMSEN Q

 S XMSG="RSET:"_XMLIMIT_":Max lines exceeded" X XMSEN

 S XM2LONG=1

 Q

TYPE ;; MESS TYPE

 S XMZFDA(3.9,XMZIENS,1.7)=XMPARM

 S XMSG="250 OK" X XMSEN

 Q

XMR2      ;ISC-SF/GMB-SMTP Receiver (non-standard) ;04/17/2002  11:15

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ; *** Note that this command (MESS <what:parm>) is not standard.

 +3       ; *** MESS ID, in particular, may return 'RSET', which is supposed

 +4       ;     to be sent only by the sender, not by the receiver.

MESS      ; CHECK IF DUPLICATE MESSAGE / USERS...

 +1        NEW XMWHAT,XMPARM

 +2        IF XMP=""

               DO ERRCMD^XMR

               QUIT 

 +3        SET XMWHAT=$EXTRACT($PIECE(XMP,":"),1,6)

           SET XMPARM=$PIECE(XMP,":",2,99)

 +4        IF $TEXT(@XMWHAT)=""

               DO ERRCMD^XMR

               QUIT 

 +5        DO @XMWHAT

 +6        QUIT 

BLOB      ;; MESS BLOB

 +1        DO BLOB^XMR0BLOB(XMPARM)

 +2        QUIT 

CLOSED    ;; MESS CLOSED

 +1        SET XMZFDA(3.9,XMZIENS,1.95)="y"

 +2        SET XMSG="250 OK"

           XECUTE XMSEN

 +3        QUIT 

CONFID    ;; MESS CONFIDENTIAL

 +1        SET XMZFDA(3.9,XMZIENS,1.96)="y"

 +2        SET XMSG="250 OK"

           XECUTE XMSEN

 +3        QUIT 

CONFIR    ;; MESS CONFIRMATION

 +1        SET XMZFDA(3.9,XMZIENS,1.3)="y"

 +2        SET XMSG="250 OK"

           XECUTE XMSEN

 +3        QUIT 

ID        ;;

 +1        NEW XMZCHK

 +2        SET XMREMID=XMPARM

 +3        SET XMZCHK=$$LOCALXMZ^XMR3A(XMREMID)

 +4        IF 'XMZCHK

               SET XMSG="250 OK"

               XECUTE XMSEN

               QUIT 

 +5        IF $PIECE(XMZCHK,U,2,3)="1^P"

               SET XMSG="250 OK"

               XECUTE XMSEN

               QUIT 

 +6       ;Message originated here.  /  Previously received message.

 +7        DO DOTRAN^XMC1($SELECT($PIECE(XMZCHK,U,2):42305,1:42306))

 +8        SET XMRXMZ=+XMZCHK

 +9        IF $PIECE(XMZCHK,U,3)'="E"!(XMRXMZ=XMZ)

               Begin DoDot:1

 +10      ;Already purged.

                   IF $PIECE(XMZCHK,U,3)="P"

                       DO DOTRAN^XMC1(42307)

 +11      ;Already purged & replaced with a different message.

                   IF $PIECE(XMZCHK,U,3)="R"

                       DO DOTRAN^XMC1(42308)

 +12               SET XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Duplicate purged"

                   XECUTE XMSEN

               End DoDot:1

               QUIT 

 +13      ;Delivering to additional recipients.

           DO DOTRAN^XMC1(42309)

 +14       SET XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Previously received"

           XECUTE XMSEN

 +15       QUIT 

INFO      ;; MESS INFORMATION 

 +1        SET XMZFDA(3.9,XMZIENS,1.97)="y"

 +2        SET XMSG="250 OK"

           XECUTE XMSEN

 +3        QUIT 

LINES     ;; MESS LINES

 +1        NEW XMLINES,XMLIMIT

 +2        SET XMLIMIT=$PIECE($GET(^XMB(1,1,"NETWORK-LIMIT")),U,2)

 +3        SET XMLINES=XMPARM

 +4        IF 'XMLIMIT!(XMLINES'>XMLIMIT)

               SET XMSG="250 OK"

               XECUTE XMSEN

               QUIT 

 +5        SET XMSG="RSET:"_XMLIMIT_":Max lines exceeded"

           XECUTE XMSEN

 +6        SET XM2LONG=1

 +7        QUIT 

TYPE      ;; MESS TYPE

 +1        SET XMZFDA(3.9,XMZIENS,1.7)=XMPARM

 +2        SET XMSG="250 OK"

           XECUTE XMSEN

 +3        QUIT