XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.DOMAIN.EXT" ;08/30/2005 14:57
;;8.0;MailMan;**35**;Jun 28, 2002
Q
;
EN ; Post install entry point for patch XM*8*35
; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)
; to "C"lose for all domains of the form "RC-<something>.GC.DOMAIN.EXT".
N DD,DO,DA,DIE,DR,XMI
I $G(U)="" S U="^"
S DIE="^DIC(4.2,",DR="1///C"
S XMI="RC-"
F S XMI=$O(^DIC(4.2,"B",XMI)) Q:XMI=""!($E(XMI,1,3)'="RC-") D
. I $P(XMI,".",2,4)'="GC.DOMAIN.EXT" Q ; Incorrect domain format
. S DA=$O(^DIC(4.2,"B",XMI,0))
. I $P(^DIC(4.2,DA,0),U,2)="C" Q ; Domain is already closed
. D ^DIE
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMXIP35 660 printed Nov 22, 2024@17:24:16 Page 2
XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.DOMAIN.EXT" ;08/30/2005 14:57
+1 ;;8.0;MailMan;**35**;Jun 28, 2002
+2 QUIT
+3 ;
EN ; Post install entry point for patch XM*8*35
+1 ; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)
+2 ; to "C"lose for all domains of the form "RC-<something>.GC.DOMAIN.EXT".
+3 NEW DD,DO,DA,DIE,DR,XMI
+4 IF $GET(U)=""
SET U="^"
+5 SET DIE="^DIC(4.2,"
SET DR="1///C"
+6 SET XMI="RC-"
+7 FOR
SET XMI=$ORDER(^DIC(4.2,"B",XMI))
if XMI=""!($EXTRACT(XMI,1,3)'="RC-")
QUIT
Begin DoDot:1
+8 ; Incorrect domain format
IF $PIECE(XMI,".",2,4)'="GC.DOMAIN.EXT"
QUIT
+9 SET DA=$ORDER(^DIC(4.2,"B",XMI,0))
+10 ; Domain is already closed
IF $PIECE(^DIC(4.2,DA,0),U,2)="C"
QUIT
+11 DO ^DIE
End DoDot:1
+12 ;
+13 QUIT
