XMAI2.m

XMAI2 ;ISC-SF/GMB -Send a message if too many messages ;04/19/2002  12:41

 ;;8.0;MailMan;;Jun 28, 2002

 ; Was (WASH ISC)/CAP/L.RHODE

 ; Entry points used by MailMan options (not covered by DBIA):

 ; ENTER   XMMGR-DISK-MANY-MESSAGE-MAINT

ENTER ;

 N XMMAX,XMSAVE,XMABORT,I

 S XMABORT=0

 D INIT(.XMMAX,.XMABORT) Q:XMABORT

 I $D(ZTQUEUED) D PROCESS Q

 F I="XMMAX" S XMSAVE(I)="" ;MailMan: Many Msg Maint Request

 D EN^XUTMDEVQ("PROCESS^XMAI2",$$EZBLD^DIALOG(36600),.XMSAVE)

 Q

INIT(XMMAX,XMABORT) ;

 S XMMAX=500 ; Threshold number of messages a user can own

 Q:$D(ZTQUEUED)

 N DIR,Y,DIRUT,XMTEXT

 W !

 ;This option sends a message to every user who has more than a

 ;certain number of messages in his or her mailbox, asking the user

 ;to terminate unnecessary messages.

 D BLD^DIALOG(36601,"","","XMTEXT","F")

 D MSG^DIALOG("WM","","","","XMTEXT")

 W !

 S DIR(0)="N^10::"

 S DIR("A")=$$EZBLD^DIALOG(36602) ;Enter the 'many message' threshold

 S DIR("B")=XMMAX

 D BLD^DIALOG(36603,"","","DIR(""?"")") ;How many messages may a user have before MailMan sends a nastygram?

 D ^DIR I $D(DIRUT) S XMABORT=1 Q

 S XMMAX=Y

 W !

 ;Messages will be sent to owners of more than |1| messages.

 ;This option may take awhile - you may wish to queue it.

 D BLD^DIALOG(36604,XMMAX,"","XMTEXT","F")

 D MSG^DIALOG("WM","","","","XMTEXT")

 Q

PROCESS ; (Requires XMMAX)

 N XMUSER,XMCNT

 S XMUSER=.9999

 F  S XMUSER=$O(^XMB(3.7,XMUSER)) Q:XMUSER'>0  D

 . S XMCNT=$$TMSGCT^XMXUTIL(XMUSER)

 . D:XMCNT>XMMAX MESSAGE(XMUSER,XMCNT)

 S:$D(ZTQUEUED) ZTREQ="@"

 Q

MESSAGE(XMTO,XMCNT) ; Send message

 N XMPARM,XMINSTR

 S XMINSTR("FROM")=.5,XMINSTR("FLAGS")="I"

 S XMPARM(1)=XMCNT,XMPARM(2)=$$BMSGCT^XMXUTIL(XMTO,1)

 D TASKBULL^XMXBULL(.5,"XM TOO MANY MESSAGES",.XMPARM,"",XMTO,.XMINSTR)

 Q

XMAI2     ;ISC-SF/GMB -Send a message if too many messages ;04/19/2002  12:41

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

 +2       ; Was (WASH ISC)/CAP/L.RHODE

 +3       ; Entry points used by MailMan options (not covered by DBIA):

 +4       ; ENTER   XMMGR-DISK-MANY-MESSAGE-MAINT

ENTER     ;

 +1        NEW XMMAX,XMSAVE,XMABORT,I

 +2        SET XMABORT=0

 +3        DO INIT(.XMMAX,.XMABORT)

           IF XMABORT

               QUIT 

 +4        IF $DATA(ZTQUEUED)

               DO PROCESS

               QUIT 

 +5       ;MailMan: Many Msg Maint Request

           FOR I="XMMAX"

               SET XMSAVE(I)=""

 +6        DO EN^XUTMDEVQ("PROCESS^XMAI2",$$EZBLD^DIALOG(36600),.XMSAVE)

 +7        QUIT 

INIT(XMMAX,XMABORT) ;

 +1       ; Threshold number of messages a user can own

           SET XMMAX=500

 +2        IF $DATA(ZTQUEUED)

               QUIT 

 +3        NEW DIR,Y,DIRUT,XMTEXT

 +4        WRITE !

 +5       ;This option sends a message to every user who has more than a

 +6       ;certain number of messages in his or her mailbox, asking the user

 +7       ;to terminate unnecessary messages.

 +8        DO BLD^DIALOG(36601,"","","XMTEXT","F")

 +9        DO MSG^DIALOG("WM","","","","XMTEXT")

 +10       WRITE !

 +11       SET DIR(0)="N^10::"

 +12      ;Enter the 'many message' threshold

           SET DIR("A")=$$EZBLD^DIALOG(36602)

 +13       SET DIR("B")=XMMAX

 +14      ;How many messages may a user have before MailMan sends a nastygram?

           DO BLD^DIALOG(36603,"","","DIR(""?"")")

 +15       DO ^DIR

           IF $DATA(DIRUT)

               SET XMABORT=1

               QUIT 

 +16       SET XMMAX=Y

 +17       WRITE !

 +18      ;Messages will be sent to owners of more than |1| messages.

 +19      ;This option may take awhile - you may wish to queue it.

 +20       DO BLD^DIALOG(36604,XMMAX,"","XMTEXT","F")

 +21       DO MSG^DIALOG("WM","","","","XMTEXT")

 +22       QUIT 

PROCESS   ; (Requires XMMAX)

 +1        NEW XMUSER,XMCNT

 +2        SET XMUSER=.9999

 +3        FOR 

               SET XMUSER=$ORDER(^XMB(3.7,XMUSER))

               IF XMUSER'>0

                   QUIT 

               Begin DoDot:1

 +4                SET XMCNT=$$TMSGCT^XMXUTIL(XMUSER)

 +5                IF XMCNT>XMMAX

                       DO MESSAGE(XMUSER,XMCNT)

               End DoDot:1

 +6        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +7        QUIT 

MESSAGE(XMTO,XMCNT) ; Send message

 +1        NEW XMPARM,XMINSTR

 +2        SET XMINSTR("FROM")=.5

           SET XMINSTR("FLAGS")="I"

 +3        SET XMPARM(1)=XMCNT

           SET XMPARM(2)=$$BMSGCT^XMXUTIL(XMTO,1)

 +4        DO TASKBULL^XMXBULL(.5,"XM TOO MANY MESSAGES",.XMPARM,"",XMTO,.XMINSTR)

 +5        QUIT