179 lines
2.6 KiB
Mathematica
179 lines
2.6 KiB
Mathematica
XMUDCHK ;(WASH ISC)/CAP-Validate DOMAIN file ;04/24/2002 08:27
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
; Entry points used by MailMan options (not covered by DBIA):
|
|
; VALID8 XMQDOMAINS
|
|
VALID8 ;
|
|
N XMI,XMNO,XMDOM
|
|
W !!!,"Validating domain file",!
|
|
S XMNO=0
|
|
F XMI=1:1 S X=$T(TABLE+XMI) Q:X="" D
|
|
. S XMDOM=$P(X,";",3)
|
|
. W !,XMDOM
|
|
. Q:$$FIND1^DIC(4.2,"","QO",XMDOM,"B^C")
|
|
. I $L(XMDOM,".")<3 D
|
|
. . Q:$$FIND1^DIC(4.2,"","QO",XMDOM_".MED.VA.GOV","B^C")
|
|
. . Q:$$FIND1^DIC(4.2,"","QO",XMDOM_".VA.GOV","B^C")
|
|
. W $S($L(XMDOM,".")<3:".MED.VA.GOV",1:"")," is not in your domain file." S XMNO=XMNO+1
|
|
Q
|
|
TABLE ;;Name
|
|
;;ALBUQUERQUE
|
|
;;ALEXANDRIA
|
|
;;ALTOONA
|
|
;;AMARILLO
|
|
;;ANCHORAGE
|
|
;;ANN-ARBOR
|
|
;;ASHEVILLE
|
|
;;ATLANTA
|
|
;;AUGUSTA
|
|
;;BALTIMORE
|
|
;;BATTLE-CREEK
|
|
;;BAY-PINES
|
|
;;BECKLEY
|
|
;;BEDFORD
|
|
;;BIG-SPRING
|
|
;;BILOXI
|
|
;;BIRMINGHAM
|
|
;;BLACK-HILLS
|
|
;;BOISE
|
|
;;BOSTON
|
|
;;BRONX
|
|
;;BUTLER
|
|
;;CENTRAL-ALABAMA
|
|
;;CENTRAL-PLAINS
|
|
;;CENTRAL-TEXAS
|
|
;;CHARLESTON
|
|
;;CHEYENNE
|
|
;;CHICAGO-WEST
|
|
;;CHILLICOTHE
|
|
;;CINCINNATI
|
|
;;CLARKSBURG
|
|
;;CLEVELAND
|
|
;;CMOP-BED
|
|
;;CMOP-CHAR
|
|
;;CMOP-DAL
|
|
;;CMOP-HINES
|
|
;;CMOP-LEAV
|
|
;;CMOP-MURF
|
|
;;CMOP-LA
|
|
;;COATESVILLE
|
|
;;COLUMBIA-SC
|
|
;;COLUMBUS
|
|
;;DALLAS
|
|
;;DANVILLE
|
|
;;DAYTON
|
|
;;DENVER
|
|
;;DETROIT
|
|
;;DUBLIN
|
|
;;DURHAM
|
|
;;EAST-ORANGE
|
|
;;EL-PASO
|
|
;;ERIE
|
|
;;FARGO
|
|
;;FAYETTVL-AR
|
|
;;FAYETTVL-NC
|
|
;;FHIE
|
|
;;FO-ALBANY
|
|
;;FO-BAYPINES
|
|
;;FO-BIRM
|
|
;;FO-DALLAS
|
|
;;FO-HINES
|
|
;;FO-OAKLAND
|
|
;;FO-SLC
|
|
;;FO-WASH
|
|
;;FOC-AUSTIN.VA.GOV
|
|
;;FORT-LYON
|
|
;;FORUM.VA.GOV
|
|
;;FRESNO
|
|
;;GK.VA.GOV
|
|
;;GRAND-JUNCT
|
|
;;HAC
|
|
;;HAMPTON
|
|
;;HINES
|
|
;;HONOLULU
|
|
;;HOUSTON
|
|
;;HQ
|
|
;;HUNTINGTON
|
|
;;INDIANAPOLIS
|
|
;;IPDB-CHICAGO
|
|
;;IRON-MTN
|
|
;;IVM
|
|
;;JACKSON
|
|
;;KANSAS-CITY
|
|
;;LAS-VEGAS
|
|
;;LEBANON
|
|
;;LEXINGTON
|
|
;;LITTLE-ROCK
|
|
;;LOMA-LINDA
|
|
;;LONG-BEACH
|
|
;;LOUISVILLE
|
|
;;MADISON
|
|
;;MAIL.CIO
|
|
;;MAIL.VA.GOV
|
|
;;MANCHESTER
|
|
;;MANILA
|
|
;;MARTINEZ
|
|
;;MARTINSBURG
|
|
;;MED.VA.GOV
|
|
;;MEMPHIS
|
|
;;MHSHG.PITTS-HGHLND
|
|
;;MIAMI
|
|
;;MILWAUKEE
|
|
;;MINNEAPOLIS
|
|
;;MONTANA
|
|
;;MONTROSE
|
|
;;MPI-AUSTIN
|
|
;;MTN-HOME
|
|
;;MUSKOGEE
|
|
;;N-CHICAGO
|
|
;;NEW-ORLEANS
|
|
;;NORTH-FLORIDA
|
|
;;NORTHAMPTON
|
|
;;NORTHERN-INDIANA
|
|
;;NORTHPORT
|
|
;;NY-HARBOR
|
|
;;OKLAHOMA
|
|
;;PACE-WASH
|
|
;;PALO-ALTO
|
|
;;PHILADELPHIA
|
|
;;PHOENIX
|
|
;;PITTSBURGH
|
|
;;PORTLAND
|
|
;;PRESCOTT
|
|
;;PROVIDENCE
|
|
;;PUGET-SOUND
|
|
;;RENO
|
|
;;RICHMOND
|
|
;;ROSEBURG
|
|
;;SAGINAW
|
|
;;SALEM
|
|
;;SALISBURY
|
|
;;SALT-LAKE
|
|
;;SAN-ANTONIO
|
|
;;SAN-DIEGO
|
|
;;SAN-JUAN
|
|
;;SANFRANCISCO
|
|
;;SHERIDAN
|
|
;;SHREVEPORT
|
|
;;SIOUX-FALLS
|
|
;;SPOKANE
|
|
;;ST-CLOUD
|
|
;;ST-LOUIS
|
|
;;SUPP-CHICAGO
|
|
;;TAMPA
|
|
;;TENNESSEEVALLEY
|
|
;;TOGUS
|
|
;;TOMAH
|
|
;;TUCSON
|
|
;;TUSCALOOSA
|
|
;;V02
|
|
;;VBA.VA.GOV
|
|
;;WALLA-WALLA
|
|
;;WASHINGTON
|
|
;;WEST-HAVEN
|
|
;;WEST-LA
|
|
;;WEST-PALM
|
|
;;WHITE-CITY
|
|
;;WHITE-RIVER
|
|
;;WILKES-BARRE
|
|
;;WILMINGTON
|