source: FOIAVistA/trunk/r/MAILMAN-XM/XMR2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1XMR2 ;ISC-SF/GMB-SMTP Receiver (non-standard) ;04/17/2002 11:15
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; *** Note that this command (MESS <what:parm>) is not standard.
4 ; *** MESS ID, in particular, may return 'RSET', which is supposed
5 ; to be sent only by the sender, not by the receiver.
6MESS ; CHECK IF DUPLICATE MESSAGE / USERS...
7 N XMWHAT,XMPARM
8 I XMP="" D ERRCMD^XMR Q
9 S XMWHAT=$E($P(XMP,":"),1,6),XMPARM=$P(XMP,":",2,99)
10 I $T(@XMWHAT)="" D ERRCMD^XMR Q
11 D @XMWHAT
12 Q
13BLOB ;; MESS BLOB
14 D BLOB^XMR0BLOB(XMPARM)
15 Q
16CLOSED ;; MESS CLOSED
17 S XMZFDA(3.9,XMZIENS,1.95)="y"
18 S XMSG="250 OK" X XMSEN
19 Q
20CONFID ;; MESS CONFIDENTIAL
21 S XMZFDA(3.9,XMZIENS,1.96)="y"
22 S XMSG="250 OK" X XMSEN
23 Q
24CONFIR ;; MESS CONFIRMATION
25 S XMZFDA(3.9,XMZIENS,1.3)="y"
26 S XMSG="250 OK" X XMSEN
27 Q
28ID ;;
29 N XMZCHK
30 S XMREMID=XMPARM
31 S XMZCHK=$$LOCALXMZ^XMR3A(XMREMID)
32 I 'XMZCHK S XMSG="250 OK" X XMSEN Q
33 I $P(XMZCHK,U,2,3)="1^P" S XMSG="250 OK" X XMSEN Q
34 ;Message originated here. / Previously received message.
35 D DOTRAN^XMC1($S($P(XMZCHK,U,2):42305,1:42306))
36 S XMRXMZ=+XMZCHK
37 I $P(XMZCHK,U,3)'="E"!(XMRXMZ=XMZ) D Q
38 . I $P(XMZCHK,U,3)="P" D DOTRAN^XMC1(42307) ;Already purged.
39 . I $P(XMZCHK,U,3)="R" D DOTRAN^XMC1(42308) ;Already purged & replaced with a different message.
40 . S XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Duplicate purged" X XMSEN
41 D DOTRAN^XMC1(42309) ;Delivering to additional recipients.
42 S XMSG="RSET:"_XMRXMZ_"@"_^XMB("NETNAME")_":Previously received" X XMSEN
43 Q
44INFO ;; MESS INFORMATION
45 S XMZFDA(3.9,XMZIENS,1.97)="y"
46 S XMSG="250 OK" X XMSEN
47 Q
48LINES ;; MESS LINES
49 N XMLINES,XMLIMIT
50 S XMLIMIT=$P($G(^XMB(1,1,"NETWORK-LIMIT")),U,2)
51 S XMLINES=XMPARM
52 I 'XMLIMIT!(XMLINES'>XMLIMIT) S XMSG="250 OK" X XMSEN Q
53 S XMSG="RSET:"_XMLIMIT_":Max lines exceeded" X XMSEN
54 S XM2LONG=1
55 Q
56TYPE ;; MESS TYPE
57 S XMZFDA(3.9,XMZIENS,1.7)=XMPARM
58 S XMSG="250 OK" X XMSEN
59 Q
Note: See TracBrowser for help on using the repository browser.