19 lines
630 B
Mathematica
19 lines
630 B
Mathematica
XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.VA.GOV" ;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.VA.GOV".
|
|
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.VA.GOV" 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
|