XMUDCHR.m

XMUDCHR ;ISC-SF/GMB-Christen Site ;04/17/2002  11:48

 ;;8.0;MailMan;;Jun 28, 2002

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

 ; CHRISTEN      XMCHRIS - Edit MailMan Site Parameters

CHRISTEN ;Set up/Change MailMan Site Parameters

 N XMREC,XMABORT

 S XMABORT=0

 S XMREC=$G(^XMB(1,1,0)) I '+XMREC,$O(^XMB(1,0)) G E

 I XMREC="" D

 . D INIT

 E  D

 . D CHANGE

 Q:XMABORT

 D PARENT

 D SCRIPT

 G Q

INIT ; Initial Christening

 N DIC,DIE,Y,DA,XMFDA

 S DIC=4.2,DIC(0)="AEMQ"

 D ^DIC I Y<1 S XMABORT=1 D E1 Q

 S XMFDA(4.3,"+1,",.01)=+Y

 D UPDATE^DIE("","XMFDA")

 K DIC,Y

 S DR="3//FORUM.VA.GOV;1//EST"

 S DIE=4.3,DA=1

 D ^DIE I $D(Y) S XMABORT=1 D E1

 Q

CHANGE ;

 N XMSITE,DIE,DA,DR,DIC,X,Y

 S XMSITE=$S($D(^XMB("NETNAME")):^XMB("NETNAME"),$D(^XMB("NAME")):^XMB("NAME"),$D(^DIC(4.2,+XMREC,0)):$P(^(0),U),1:XMREC)

 I '$$SURE(XMSITE) S XMABORT=1 Q  ; Are you sure?

 S DIC=4.2,DIC(0)="AEMQ",DIC("B")=$S($D(^DIC(4.2,+XMREC,0)):$P(^(0),U),1:XMSITE)

 D ^DIC I Y=-1 S XMABORT=1 Q

 I XMSITE'=$P(Y,U,2) D

 . I +Y=^XMB("NUM") D

 . . ; The domain name in file 4.2 has been changed.

 . . ; The pointer to file 4.2 has stayed the same.

 . . ; The filer won't fire the xrefs, so we need to do it manually

 . . S (^XMB("NETNAME"),^XMB("NAME"))=$P(Y,U,2)

 . E  D

 . . N XMFDA

 . . S XMFDA(4.3,"1,",.01)=+Y

 . . D FILE^DIE("","XMFDA")

 . W !!,"The domain name for this facility is now: ",^XMB("NETNAME")

 E  D

 . W !!,"The domain name for this facility remains: ",^XMB("NETNAME")

 K DIC,Y

 S DR="3//FORUM.VA.GOV;1//EST"

 S DIE=4.3,DA=1

 D ^DIE

 Q

SURE(XMSITE) ;  Function returns 1 if sure; 0 if not

 N DIR,X,Y

 W !!!,"         * * * *  WARNING  * * * *"

 W !!,"You are about to change the domain name of this facility"

 W !,"in the MailMan Site Parameters file."

 W !!,"Currently, this facility is named: ",XMSITE

 W !!,"You must be extremely sure before you proceed!",!

 S DIR("A")="Are you sure you want to change the name of this facility"

 S DIR("B")="NO"

 S DIR(0)="Y"

 D ^DIR Q:Y 1  ; Sure do!

 Q 0  ; Nope, I'm not sure!

PARENT ;

 N XMPARENT

 S XMPARENT=+$G(^XMB("PARENT"))

 I XMPARENT S XMPARENT=$S($D(^DIC(4.2,XMPARENT,0)):$P(^(0),U),1:0)

 I XMPARENT'=0 D

 . W !!,XMPARENT," has been initialized as your 'parent' domain."

 . W !,"(Forum is usually the parent domain, unless this is a subordinate domain.)"

 . W !!,"You may edit the MailMan Site Parameter file to change your parent domain."

 E  D

 . W !!,$C(7),"*** YOUR PARENT DOMAIN HAS NOT BEEN INITIALIZED !!! ***"

 . W !!,"You MUST edit the MailMan Site Parameter file to ENTER your parent domain."

 Q

SCRIPT ;RESET AUSTIN SCRIPT

 ;G SCRIPT^XMYPDOM

 W !!,"We will not initialize your transmission scripts."

 Q

Q W !!,"Use the 'Subroutine editor' option under network management menu to add your"

 W !,"site passwords to the MINIENGINE script, and the 'Edit a script' option"

 W !,"to edit any domain scripts that you choose to."

 ;D ^XMYPDOM

 Q

PMB S Y=Y+1000,^XMB(3.7,.5,2,+Y,1,0)=^TMP("XM",I,1,0),^XMB(3.7,.5,2,"B",$E($P(Y(0),U,1),1,30),+Y)="",^XMB(3.7,.5,2,+Y,0)=$P(Y(0),U)

 F J=0:0 S J=$O(^TMP("XM",I,1,J)) Q:J'>0  S ^XMB(3.7,.5,2,+Y,1,J,0)=J W "."

 Q

E W $C(7),!!,"There is a FILE INTEGRITY problem in your MailMan Site Parameters file",!,"There should only be one entry and that entry should be entry number 1.",!

E1 W $C(7),!,"Your MailMan site parameters MUST be reviewed."

EQ W !!,"Then you can finish the INIT by executing POST^XMYPOST.",! Q

E2 W $C(7),!,"You do not yet have an entry in your MailMan Site Parameters File",!,"Use FileMan to make an entry." G EQ

XMUDCHR   ;ISC-SF/GMB-Christen Site ;04/17/2002  11:48

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

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

 +3       ; CHRISTEN      XMCHRIS - Edit MailMan Site Parameters

CHRISTEN  ;Set up/Change MailMan Site Parameters

 +1        NEW XMREC,XMABORT

 +2        SET XMABORT=0

 +3        SET XMREC=$GET(^XMB(1,1,0))

           IF '+XMREC

               IF $ORDER(^XMB(1,0))

                   GOTO E

 +4        IF XMREC=""

               Begin DoDot:1

 +5                DO INIT

               End DoDot:1

 +6       IF '$TEST

               Begin DoDot:1

 +7                DO CHANGE

               End DoDot:1

 +8        IF XMABORT

               QUIT 

 +9        DO PARENT

 +10       DO SCRIPT

 +11       GOTO Q

INIT      ; Initial Christening

 +1        NEW DIC,DIE,Y,DA,XMFDA

 +2        SET DIC=4.2

           SET DIC(0)="AEMQ"

 +3        DO ^DIC

           IF Y<1

               SET XMABORT=1

               DO E1

               QUIT 

 +4        SET XMFDA(4.3,"+1,",.01)=+Y

 +5        DO UPDATE^DIE("","XMFDA")

 +6        KILL DIC,Y

 +7        SET DR="3//FORUM.VA.GOV;1//EST"

 +8        SET DIE=4.3

           SET DA=1

 +9        DO ^DIE

           IF $DATA(Y)

               SET XMABORT=1

               DO E1

 +10       QUIT 

CHANGE    ;

 +1        NEW XMSITE,DIE,DA,DR,DIC,X,Y

 +2        SET XMSITE=$SELECT($DATA(^XMB("NETNAME")):^XMB("NETNAME"),$DATA(^XMB("NAME")):^XMB("NAME"),$DATA(^DIC(4.2,+XMREC,0)):$PIECE(^(0),U),1:XMREC)

 +3       ; Are you sure?

           IF '$$SURE(XMSITE)

               SET XMABORT=1

               QUIT 

 +4        SET DIC=4.2

           SET DIC(0)="AEMQ"

           SET DIC("B")=$SELECT($DATA(^DIC(4.2,+XMREC,0)):$PIECE(^(0),U),1:XMSITE)

 +5        DO ^DIC

           IF Y=-1

               SET XMABORT=1

               QUIT 

 +6        IF XMSITE'=$PIECE(Y,U,2)

               Begin DoDot:1

 +7                IF +Y=^XMB("NUM")

                       Begin DoDot:2

 +8       ; The domain name in file 4.2 has been changed.

 +9       ; The pointer to file 4.2 has stayed the same.

 +10      ; The filer won't fire the xrefs, so we need to do it manually

 +11                       SET (^XMB("NETNAME"),^XMB("NAME"))=$PIECE(Y,U,2)

                       End DoDot:2

 +12              IF '$TEST

                       Begin DoDot:2

 +13                       NEW XMFDA

 +14                       SET XMFDA(4.3,"1,",.01)=+Y

 +15                       DO FILE^DIE("","XMFDA")

                       End DoDot:2

 +16               WRITE !!,"The domain name for this facility is now: ",^XMB("NETNAME")

               End DoDot:1

 +17      IF '$TEST

               Begin DoDot:1

 +18               WRITE !!,"The domain name for this facility remains: ",^XMB("NETNAME")

               End DoDot:1

 +19       KILL DIC,Y

 +20       SET DR="3//FORUM.VA.GOV;1//EST"

 +21       SET DIE=4.3

           SET DA=1

 +22       DO ^DIE

 +23       QUIT 

SURE(XMSITE) ;  Function returns 1 if sure; 0 if not

 +1        NEW DIR,X,Y

 +2        WRITE !!!,"         * * * *  WARNING  * * * *"

 +3        WRITE !!,"You are about to change the domain name of this facility"

 +4        WRITE !,"in the MailMan Site Parameters file."

 +5        WRITE !!,"Currently, this facility is named: ",XMSITE

 +6        WRITE !!,"You must be extremely sure before you proceed!",!

 +7        SET DIR("A")="Are you sure you want to change the name of this facility"

 +8        SET DIR("B")="NO"

 +9        SET DIR(0)="Y"

 +10      ; Sure do!

           DO ^DIR

           IF Y

               QUIT 1

 +11      ; Nope, I'm not sure!

           QUIT 0

PARENT    ;

 +1        NEW XMPARENT

 +2        SET XMPARENT=+$GET(^XMB("PARENT"))

 +3        IF XMPARENT

               SET XMPARENT=$SELECT($DATA(^DIC(4.2,XMPARENT,0)):$PIECE(^(0),U),1:0)

 +4        IF XMPARENT'=0

               Begin DoDot:1

 +5                WRITE !!,XMPARENT," has been initialized as your 'parent' domain."

 +6                WRITE !,"(Forum is usually the parent domain, unless this is a subordinate domain.)"

 +7                WRITE !!,"You may edit the MailMan Site Parameter file to change your parent domain."

               End DoDot:1

 +8       IF '$TEST

               Begin DoDot:1

 +9                WRITE !!,$CHAR(7),"*** YOUR PARENT DOMAIN HAS NOT BEEN INITIALIZED !!! ***"

 +10               WRITE !!,"You MUST edit the MailMan Site Parameter file to ENTER your parent domain."

               End DoDot:1

 +11       QUIT 

SCRIPT    ;RESET AUSTIN SCRIPT

 +1       ;G SCRIPT^XMYPDOM

 +2        WRITE !!,"We will not initialize your transmission scripts."

 +3        QUIT 

Q          WRITE !!,"Use the 'Subroutine editor' option under network management menu to add your"

 +1        WRITE !,"site passwords to the MINIENGINE script, and the 'Edit a script' option"

 +2        WRITE !,"to edit any domain scripts that you choose to."

 +3       ;D ^XMYPDOM

 +4        QUIT 

PMB        SET Y=Y+1000

           SET ^XMB(3.7,.5,2,+Y,1,0)=^TMP("XM",I,1,0)

           SET ^XMB(3.7,.5,2,"B",$EXTRACT($PIECE(Y(0),U,1),1,30),+Y)=""

           SET ^XMB(3.7,.5,2,+Y,0)=$PIECE(Y(0),U)

 +1        FOR J=0:0

               SET J=$ORDER(^TMP("XM",I,1,J))

               IF J'>0

                   QUIT 

               SET ^XMB(3.7,.5,2,+Y,1,J,0)=J

               WRITE "."

 +2        QUIT 

E          WRITE $CHAR(7),!!,"There is a FILE INTEGRITY problem in your MailMan Site Parameters file",!,"There should only be one entry and that entry should be entry number 1.",!

E1         WRITE $CHAR(7),!,"Your MailMan site parameters MUST be reviewed."

EQ         WRITE !!,"Then you can finish the INIT by executing POST^XMYPOST.",!

           QUIT 

E2         WRITE $CHAR(7),!,"You do not yet have an entry in your MailMan Site Parameters File",!,"Use FileMan to make an entry."

           GOTO EQ