source: FOIAVistA/trunk/r/MAILMAN-XM/XMXREPLY.m@ 1061

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

initial load of FOIAVistA 6/30/08 version

File size: 4.1 KB
Line 
1XMXREPLY ;ISC-SF/GMB-Reply to a msg ;04/24/2002 10:29
2 ;;8.0;MailMan;;Jun 28, 2002
3REPLYMSG(XMDUZ,XMK,XMKZ,XMBODY,XMINSTR,XMZR) ;
4 ; XMDUZ DUZ of who the msg is from
5 ; XMBODY Body of the msg
6 ; Must be closed root, passed by value. See WP_ROOT
7 ; definition for WP^DIE(), FM word processing filer.
8 ; XMINSTR("FROM") String saying from whom (default is XMDUZ)
9 ; XMINSTR("STRIP") String containing chars to strip from msg text
10 ; XMINSTR("SCR HINT") Hint to guess the scramble key
11 ; (must be the hint from original message)
12 ; XMINSTR("SCR KEY") Scramble key, if original message was scrambled.
13 ; (must be the key from original message, as
14 ; entered by the user: unscrambled!)
15 ; *NOTE: SCR hint and key needed only for remote replies. Even then,
16 ; they are ignored. That info is gotten from the original msg.
17 ; XMINSTR("NET REPLY") Should reply go over the network? 1=yes; 0=no
18 ; XMINSTR("NET SUBJ") Subject for network reply msg, else default to
19 ; "Re: original msg subject"
20 ; XMZSENDR XMDUZ of the person who created and sent the msg
21 ; If you are not a recipient or the sender, you may not reply.
22 ; If msg is in SHARED,MAIL and your DUZ is .6, ERROR! G H^XUS ***
23 ; If msg is info only AND you are not the sender, you may not reply.
24 ; If msg is info only and broadcast to all local users, may not reply
25 ; If you are info only, you may not reply.
26 ; If msg is from a remote POSTMASTER, may not reply.
27 ; If msg is in waste basket or no basket, move it to a basket.
28 ;
29 ; Output:
30 ; XMZR msg # holding the reply to XMZ
31 N XMZ,XMZREC,XMZSENDR,XMNETMSG
32 K XMERR,^TMP("XMERR",$J)
33 D CHKMSG^XMXSEC1(XMDUZ,.XMK,.XMKZ,.XMZ,.XMZREC) Q:$D(XMERR)
34 Q:'$$REPLY^XMXSEC(XMDUZ,XMZ,XMZREC)
35 D:XMK<1 FLTR^XMXMSGS2(XMDUZ,XMK,$S(XMK=.5:$$EZBLD^DIALOG(37004),1:""),XMZ) ; Move msg from WASTE basket
36 D CRE8XMZ^XMXSEND("R"_XMZ,.XMZR) Q:$D(XMERR) ; Create a place for the response in the msg file
37 D MOVEBODY^XMXSEND(XMZR,XMBODY) ; Put the msg body in place
38 D CHEKBODY^XMXSEND(XMZR,$G(XMINSTR("STRIP")))
39 D DOREPLY(XMDUZ,XMZ,XMZR,.XMINSTR)
40 S XMZSENDR=$P(XMZREC,U,2)
41 S XMNETMSG=$S(XMZSENDR["@":1,1:0)
42 I 'XMNETMSG!'$G(XMINSTR("NET REPLY")) Q
43 N XMFROM,XMREPLTO
44 D REPLYTO(XMZ,.XMFROM,.XMREPLTO)
45 D INIT^XMXADDR
46 S XMINSTR("EXACT")=1 ; Match on exact domain name
47 D CHKADDR^XMXADDR(XMDUZ,$$REMADDR^XMXADDR3($G(XMREPLTO,XMFROM)),.XMINSTR)
48 K XMINSTR("EXACT")
49 D:'$D(XMERR) NETREPLY(XMDUZ,XMZ,XMZR,$S($G(XMINSTR("NET SUBJ"))'="":XMINSTR("NET SUBJ"),$E($P(XMZREC,U,1),1,4)=$$EZBLD^DIALOG(37006):$E($P(XMZREC,U,1),1,65),1:$E($$EZBLD^DIALOG(37006)_$P(XMZREC,U,1),1,65)),.XMINSTR) ;Re:
50 D CLEANUP^XMXADDR
51 Q
52DOREPLY(XMDUZ,XMZ,XMZR,XMINSTR) ;
53 D:$D(XMSECURE) ENCMSG^XMJMCODE(XMZR) ; Scramble the msg, if needed
54 D MOVER(XMDUZ,XMZ,XMZR,.XMINSTR) ; Point from response back to original msg
55 D RPOST^XMKP(XMDUZ,XMZ,XMZR) ; Point from original msg to response and send the msg
56 D CHECK^XMKPL
57 Q
58NETREPLY(XMDUZ,XMZ,XMZR,XMZRSUBJ,XMINSTR) ;
59 N XMFDA,XMIENS
60 S XMIENS=XMZR_","
61 S XMFDA(3.9,XMIENS,.01)=XMZRSUBJ
62 I $D(XMSECURE) D ; Scramble hint / Scramble key
63 . S XMFDA(3.9,XMIENS,1.8)=$P(^XMB(3.9,XMZ,0),U,10) ;XMINSTR("SCR HINT")
64 . S XMFDA(3.9,XMIENS,1.85)=^XMB(3.9,XMZ,"K") ;XMINSTR("SCR KEY")
65 I $G(^XMB(3.9,XMZ,5))'="" D ; In response to remote msg id
66 . S XMFDA(3.9,XMIENS,9.5)=$E(^XMB(3.9,XMZ,5),1,110)
67 D FILE^DIE("","XMFDA")
68 D SEND^XMKP(XMDUZ,XMZR)
69 Q
70MOVER(XMDUZ,XMZ,XMZR,XMINSTR) ;
71 N XMFDA,XMIENS
72 S XMIENS=XMZR_","
73 I $D(XMINSTR("FROM")) D
74 . S XMFDA(3.9,XMIENS,1)=XMINSTR("FROM")
75 . ;S XMFDA(3.9,XMIENS,1.1)=DUZ
76 E D
77 . S XMFDA(3.9,XMIENS,1)=XMDUZ
78 . S:XMDUZ'=DUZ XMFDA(3.9,XMIENS,1.1)=DUZ
79 S XMFDA(3.9,XMIENS,1.4)=$$NOW^XLFDT()
80 S XMFDA(3.9,XMIENS,1.35)=XMZ
81 D FILE^DIE("","XMFDA")
82 Q
83REPLYTO(XMZ,XMFROM,XMREPLTO) ; Get from and reply-to address, if any
84 N XMHDR,XMFIND
85 S XMFIND="^FROM^REPLY-TO^"
86 D HDRFIND^XMR3(XMZ,XMFIND,.XMHDR)
87 I $D(XMHDR("FROM")) S XMFROM=XMHDR("FROM")
88 E S XMFROM=$P($G(^XMB(3.9,XMZ,0)),U,2) ; not really remote msg?
89 I $D(XMHDR("REPL")) S XMREPLTO=XMHDR("REPL")
90 Q
91REPLYTO1(XMZ) ;
92 N XMFROM,XMREPLTO
93 D REPLYTO(XMZ,.XMFROM,.XMREPLTO)
94 Q $$REMADDR^XMXADDR3($G(XMREPLTO,XMFROM))
Note: See TracBrowser for help on using the repository browser.