source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMXIP35.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 630 bytes
Line 
1XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.VA.GOV" ;08/30/2005 14:57
2 ;;8.0;MailMan;**35**;Jun 28, 2002
3 Q
4 ;
5EN ; Post install entry point for patch XM*8*35
6 ; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)
7 ; to "C"lose for all domains of the form "RC-<something>.GC.VA.GOV".
8 N DD,DO,DA,DIE,DR,XMI
9 I $G(U)="" S U="^"
10 S DIE="^DIC(4.2,",DR="1///C"
11 S XMI="RC-"
12 F S XMI=$O(^DIC(4.2,"B",XMI)) Q:XMI=""!($E(XMI,1,3)'="RC-") D
13 . I $P(XMI,".",2,4)'="GC.VA.GOV" Q ; Incorrect domain format
14 . S DA=$O(^DIC(4.2,"B",XMI,0))
15 . I $P(^DIC(4.2,DA,0),U,2)="C" Q ; Domain is already closed
16 . D ^DIE
17 ;
18 Q
Note: See TracBrowser for help on using the repository browser.