| 1 | XQSRV3 ;SEA/MJM - Server to Mailman utilities; [5/16/02 12:48pm]
|
|---|
| 2 | ;;8.0;KERNEL;**231,235**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | HERE ;Find the name of this place
|
|---|
| 5 | ;N U,%,XMFROM,XMSUB,XMTEXT,XQDATE,XQER1,XQHERE,XQI,XQMB,XQMB6
|
|---|
| 6 | ;N XQMSG,XQN,XQSND,XQSOP,XQSRV5,XQSUB,XQMS,XMY,XQSTXT
|
|---|
| 7 | S U="^",%=$P(^XTV(8989.3,1,0),U,1)
|
|---|
| 8 | I $D(^DIC(4.2,%,0)) S XQHERE=$P(^(0),U,1) S:'$L(XQHERE) XQHERE="Domain Unknown"
|
|---|
| 9 | E S XQHERE="Domain Unknown"
|
|---|
| 10 | ;
|
|---|
| 11 | SETUP ;Set up return mail message parameters
|
|---|
| 12 | I $D(XMFROM),XMFROM=+XMFROM,$D(^VA(200,XMFROM,0)) S XQSND=$P(^(0),U)
|
|---|
| 13 | S XMSUB="Server Request Reply From "_XQHERE
|
|---|
| 14 | S XQMS(.5)=" "_XQDATE
|
|---|
| 15 | S XQMS(1)=" "
|
|---|
| 16 | S XQMS(2)="Sender: "_XMFROM
|
|---|
| 17 | S XQMS(3)="Option name: "_XQSOP
|
|---|
| 18 | S XQMS(4)="Subject: "_XQSUB
|
|---|
| 19 | S XQMS(5)="Message #: "_XQMSG
|
|---|
| 20 | S XQMS(6)=" "
|
|---|
| 21 | S:'$D(XQSRV5) XQMS(7)=$S($L(XQER1)>3:"Error reported: "_XQMB6,$L(XQMB6)>3:"Warning: "_XQMB6,1:"No errors reported by the Menu System.")
|
|---|
| 22 | S XQMS(8)=" "
|
|---|
| 23 | I $D(XQSTXT) S XQN="" F XQI=10:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
|
|---|
| 24 | S XMTEXT="XQMS(",XMY(XMFROM)=""
|
|---|
| 25 | D ^XMD
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | NOUSER ;Come here if there is no legitimate user through Bulletin
|
|---|
| 29 | S XMY(.5)="",XMTEXT="XQMS("
|
|---|
| 30 | S XQMS(0)=" *** WARNING ***"
|
|---|
| 31 | S XQMS(1)=" "
|
|---|
| 32 | S XQMS(2)="A server option request was received from "_XMFROM
|
|---|
| 33 | S XQMS(3)="for a background job on your system on "_XQDATE_"."
|
|---|
| 34 | S XQMS(4)="The request was for option "_XQSOP
|
|---|
| 35 | S XQMS(5)="Mail message #: "_XQMSG
|
|---|
| 36 | S XQMS(6)=" "
|
|---|
| 37 | S XQMS(7)="No active user could be identified through the bulletin "_XQMB
|
|---|
| 38 | S XQMS(8)="Please insure that a mailgroup of active users is entered for"
|
|---|
| 39 | S XQMS(9)="this bulletin. The security of your system may be compromised!"
|
|---|
| 40 | S XQMS(10)=" "
|
|---|
| 41 | S XQMS(11)="Other comments/errors: "_XQMB6
|
|---|
| 42 | I $D(XQSTXT) S XQN="" F XQI=15:1 S XQN=$O(XQSTXT(XQN)) Q:XQN="" S XQMS(XQI)=XQSTXT(XQN)
|
|---|
| 43 | D ^XMD
|
|---|
| 44 | Q
|
|---|
