| [613] | 1 | XMYPRE ;ISC-SF/GMB-Pre- & Post- Init ;08/29/2002 09:03
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | PRE ; Pre-init
|
|---|
| 4 | K ^DD(4.21,2,3) ; Kill errant help node.
|
|---|
| 5 | K ^DD(3.7,2,1,1,1.2) ; Kill obsolete node.
|
|---|
| 6 | K ^DD(3.811,0,"NM","MEMBER GROUP") ; Kill errant name.
|
|---|
| 7 | Q:'$D(^DD(3.702,6,1,1,1)) ; Quit if the pre-init has run already
|
|---|
| 8 | D OPTION
|
|---|
| 9 | D DELFLDS
|
|---|
| 10 | D ACXREF
|
|---|
| 11 | Q
|
|---|
| 12 | OPTION ; Clean up some MailMan options
|
|---|
| 13 | N XMOPT,XMIEN,XMFDA,XMIENS
|
|---|
| 14 | F XMOPT="XMQSHOW","XMSUBEDIT","XMDXPROT" D
|
|---|
| 15 | . S XMIEN=$O(^DIC(19,"B",XMOPT,0)) Q:'XMIEN
|
|---|
| 16 | . S XMIENS=XMIEN_","
|
|---|
| 17 | . S XMFDA(19,XMIENS,15)="@" ; EXIT ACTION
|
|---|
| 18 | . ;S XMFDA(19,XMIENS,20)="@" ; ENTRY ACTION
|
|---|
| 19 | . D FILE^DIE("","XMFDA")
|
|---|
| 20 | F XMOPT="XMMGR-IN-BASKET-PURGE" D
|
|---|
| 21 | . S XMIEN=$O(^DIC(19,"B",XMOPT,0)) Q:'XMIEN
|
|---|
| 22 | . S XMIENS=XMIEN_","
|
|---|
| 23 | . S XMFDA(19,XMIENS,3.7)="@" ; HELP FRAME
|
|---|
| 24 | . D FILE^DIE("","XMFDA")
|
|---|
| 25 | Q
|
|---|
| 26 | DELFLDS ; Delete fields no longer used.
|
|---|
| 27 | S DIK="^DD(4.2999,",DA=7,DA(1)=4.2999 D ^DIK ; OUTGOING MESSAGE COUNT
|
|---|
| 28 | S DIK="^DD(4.2999,",DA=8,DA(1)=4.2999 D ^DIK ; CHARACTERS REC'D
|
|---|
| 29 | S DIK="^DD(4.2999,",DA=9,DA(1)=4.2999 D ^DIK ; INCOMING MESSAGE COUNT
|
|---|
| 30 | S DIK="^DD(4.2999,",DA=10,DA(1)=4.2999 D ^DIK ; CHARACTERS SENT
|
|---|
| 31 | N I
|
|---|
| 32 | S I=0
|
|---|
| 33 | F S I=$O(^XMBS(4.2999,I)) Q:'I S ^XMBS(4.2999,I,0)=I
|
|---|
| 34 | Q
|
|---|
| 35 | ACXREF ; Delete old AC xref for NETWORK PRIORITY TRANSMISSION field.
|
|---|
| 36 | D DELIX^DDMOD(3.702,6,1) ; delete the DD, leave the data
|
|---|
| 37 | N XMK,XMZ ; Reposition the xref to match the new definition.
|
|---|
| 38 | S XMK=0
|
|---|
| 39 | F S XMK=$O(^XMB(3.7,.5,2,"AC",1,XMK)) Q:'XMK D
|
|---|
| 40 | . S XMZ=0
|
|---|
| 41 | . F S XMZ=$O(^XMB(3.7,.5,2,"AC",1,XMK,XMZ)) Q:'XMZ D
|
|---|
| 42 | . . K ^XMB(3.7,.5,2,"AC",1,XMK,XMZ)
|
|---|
| 43 | . . S ^XMB(3.7,.5,2,XMK,1,"AC",1,XMZ)=""
|
|---|
| 44 | Q
|
|---|
| 45 | POST ; Post-init
|
|---|
| 46 | D INIT^XMC
|
|---|
| 47 | D KEYS
|
|---|
| 48 | D DIALOG
|
|---|
| 49 | Q
|
|---|
| 50 | KEYS ; Security Keys
|
|---|
| 51 | ; KIDS does not correctly transport the 'mutually exclusive' field,
|
|---|
| 52 | ; so we have to correct it.
|
|---|
| 53 | N XMSTAR,XMSTARL,XMFDA,I
|
|---|
| 54 | S XMSTAR=$$FIND1^DIC(19.1,"","QX","XMSTAR")
|
|---|
| 55 | S XMSTARL=$$FIND1^DIC(19.1,"","QX","XMSTAR LIMITED")
|
|---|
| 56 | S I=$O(^DIC(19.1,XMSTAR,5,0))
|
|---|
| 57 | S XMFDA(19.15,I_","_XMSTAR_",",.01)=XMSTARL
|
|---|
| 58 | D FILE^DIE("","XMFDA")
|
|---|
| 59 | S I=$O(^DIC(19.1,XMSTARL,5,0))
|
|---|
| 60 | S XMFDA(19.15,I_","_XMSTARL_",",.01)=XMSTAR
|
|---|
| 61 | D FILE^DIE("","XMFDA")
|
|---|
| 62 | Q
|
|---|
| 63 | DIALOG ; Delete DIALOG file entries. KIDS fails to do this.
|
|---|
| 64 | N DIK,DA
|
|---|
| 65 | S DIK="^DI(.84,"
|
|---|
| 66 | F DA=34425,34443,34443.1 D ^DIK
|
|---|
| 67 | Q
|
|---|
