- 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_".DOMAIN.EXT","B^C")
- . . Q:$$FIND1^DIC(4.2,"","QO",XMDOM_".DOMAIN.EXT","B^C")
- . W $S($L(XMDOM,".")<3:".DOMAIN.EXT",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.DOMAIN.EXT
- ;;FORT-LYON
- ;;DOMAIN.EXT
- ;;FRESNO
- ;;GK.DOMAIN.EXT
- ;;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.DOMAIN.EXT
- ;;MANCHESTER
- ;;MANILA
- ;;MARTINEZ
- ;;MARTINSBURG
- ;;DOMAIN.EXT
- ;;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.DOMAIN.EXT
- ;;WALLA-WALLA
- ;;WASHINGTON
- ;;WEST-HAVEN
- ;;WEST-LA
- ;;WEST-PALM
- ;;WHITE-CITY
- ;;WHITE-RIVER
- ;;WILKES-BARRE
- ;;WILMINGTON
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMUDCHK 2850 printed Feb 18, 2025@23:39:35 Page 2
- XMUDCHK ;(WASH ISC)/CAP-Validate DOMAIN file ;04/24/2002 08:27
- +1 ;;8.0;MailMan;;Jun 28, 2002
- +2 ; Entry points used by MailMan options (not covered by DBIA):
- +3 ; VALID8 XMQDOMAINS
- VALID8 ;
- +1 NEW XMI,XMNO,XMDOM
- +2 WRITE !!!,"Validating domain file",!
- +3 SET XMNO=0
- +4 FOR XMI=1:1
- SET X=$TEXT(TABLE+XMI)
- if X=""
- QUIT
- Begin DoDot:1
- +5 SET XMDOM=$PIECE(X,";",3)
- +6 WRITE !,XMDOM
- +7 if $$FIND1^DIC(4.2,"","QO",XMDOM,"B^C")
- QUIT
- +8 IF $LENGTH(XMDOM,".")<3
- Begin DoDot:2
- +9 if $$FIND1^DIC(4.2,"","QO",XMDOM_".DOMAIN.EXT","B^C")
- QUIT
- +10 if $$FIND1^DIC(4.2,"","QO",XMDOM_".DOMAIN.EXT","B^C")
- QUIT
- End DoDot:2
- +11 WRITE $SELECT($LENGTH(XMDOM,".")<3:".DOMAIN.EXT",1:"")," is not in your domain file."
- SET XMNO=XMNO+1
- End DoDot:1
- +12 QUIT
- TABLE ;;Name
- +1 ;;ALBUQUERQUE
- +2 ;;ALEXANDRIA
- +3 ;;ALTOONA
- +4 ;;AMARILLO
- +5 ;;ANCHORAGE
- +6 ;;ANN-ARBOR
- +7 ;;ASHEVILLE
- +8 ;;ATLANTA
- +9 ;;AUGUSTA
- +10 ;;BALTIMORE
- +11 ;;BATTLE-CREEK
- +12 ;;BAY-PINES
- +13 ;;BECKLEY
- +14 ;;BEDFORD
- +15 ;;BIG-SPRING
- +16 ;;BILOXI
- +17 ;;BIRMINGHAM
- +18 ;;BLACK-HILLS
- +19 ;;BOISE
- +20 ;;BOSTON
- +21 ;;BRONX
- +22 ;;BUTLER
- +23 ;;CENTRAL-ALABAMA
- +24 ;;CENTRAL-PLAINS
- +25 ;;CENTRAL-TEXAS
- +26 ;;CHARLESTON
- +27 ;;CHEYENNE
- +28 ;;CHICAGO-WEST
- +29 ;;CHILLICOTHE
- +30 ;;CINCINNATI
- +31 ;;CLARKSBURG
- +32 ;;CLEVELAND
- +33 ;;CMOP-BED
- +34 ;;CMOP-CHAR
- +35 ;;CMOP-DAL
- +36 ;;CMOP-HINES
- +37 ;;CMOP-LEAV
- +38 ;;CMOP-MURF
- +39 ;;CMOP-LA
- +40 ;;COATESVILLE
- +41 ;;COLUMBIA-SC
- +42 ;;COLUMBUS
- +43 ;;DALLAS
- +44 ;;DANVILLE
- +45 ;;DAYTON
- +46 ;;DENVER
- +47 ;;DETROIT
- +48 ;;DUBLIN
- +49 ;;DURHAM
- +50 ;;EAST-ORANGE
- +51 ;;EL-PASO
- +52 ;;ERIE
- +53 ;;FARGO
- +54 ;;FAYETTVL-AR
- +55 ;;FAYETTVL-NC
- +56 ;;FHIE
- +57 ;;FO-ALBANY
- +58 ;;FO-BAYPINES
- +59 ;;FO-BIRM
- +60 ;;FO-DALLAS
- +61 ;;FO-HINES
- +62 ;;FO-OAKLAND
- +63 ;;FO-SLC
- +64 ;;FO-WASH
- +65 ;;FOC-AUSTIN.DOMAIN.EXT
- +66 ;;FORT-LYON
- +67 ;;DOMAIN.EXT
- +68 ;;FRESNO
- +69 ;;GK.DOMAIN.EXT
- +70 ;;GRAND-JUNCT
- +71 ;;HAC
- +72 ;;HAMPTON
- +73 ;;HINES
- +74 ;;HONOLULU
- +75 ;;HOUSTON
- +76 ;;HQ
- +77 ;;HUNTINGTON
- +78 ;;INDIANAPOLIS
- +79 ;;IPDB-CHICAGO
- +80 ;;IRON-MTN
- +81 ;;IVM
- +82 ;;JACKSON
- +83 ;;KANSAS-CITY
- +84 ;;LAS-VEGAS
- +85 ;;LEBANON
- +86 ;;LEXINGTON
- +87 ;;LITTLE-ROCK
- +88 ;;LOMA-LINDA
- +89 ;;LONG-BEACH
- +90 ;;LOUISVILLE
- +91 ;;MADISON
- +92 ;;MAIL.CIO
- +93 ;;MAIL.DOMAIN.EXT
- +94 ;;MANCHESTER
- +95 ;;MANILA
- +96 ;;MARTINEZ
- +97 ;;MARTINSBURG
- +98 ;;DOMAIN.EXT
- +99 ;;MEMPHIS
- +100 ;;MHSHG.PITTS-HGHLND
- +101 ;;MIAMI
- +102 ;;MILWAUKEE
- +103 ;;MINNEAPOLIS
- +104 ;;MONTANA
- +105 ;;MONTROSE
- +106 ;;MPI-AUSTIN
- +107 ;;MTN-HOME
- +108 ;;MUSKOGEE
- +109 ;;N-CHICAGO
- +110 ;;NEW-ORLEANS
- +111 ;;NORTH-FLORIDA
- +112 ;;NORTHAMPTON
- +113 ;;NORTHERN-INDIANA
- +114 ;;NORTHPORT
- +115 ;;NY-HARBOR
- +116 ;;OKLAHOMA
- +117 ;;PACE-WASH
- +118 ;;PALO-ALTO
- +119 ;;PHILADELPHIA
- +120 ;;PHOENIX
- +121 ;;PITTSBURGH
- +122 ;;PORTLAND
- +123 ;;PRESCOTT
- +124 ;;PROVIDENCE
- +125 ;;PUGET-SOUND
- +126 ;;RENO
- +127 ;;RICHMOND
- +128 ;;ROSEBURG
- +129 ;;SAGINAW
- +130 ;;SALEM
- +131 ;;SALISBURY
- +132 ;;SALT-LAKE
- +133 ;;SAN-ANTONIO
- +134 ;;SAN-DIEGO
- +135 ;;SAN-JUAN
- +136 ;;SANFRANCISCO
- +137 ;;SHERIDAN
- +138 ;;SHREVEPORT
- +139 ;;SIOUX-FALLS
- +140 ;;SPOKANE
- +141 ;;ST-CLOUD
- +142 ;;ST-LOUIS
- +143 ;;SUPP-CHICAGO
- +144 ;;TAMPA
- +145 ;;TENNESSEEVALLEY
- +146 ;;TOGUS
- +147 ;;TOMAH
- +148 ;;TUCSON
- +149 ;;TUSCALOOSA
- +150 ;;V02
- +151 ;;VBA.DOMAIN.EXT
- +152 ;;WALLA-WALLA
- +153 ;;WASHINGTON
- +154 ;;WEST-HAVEN
- +155 ;;WEST-LA
- +156 ;;WEST-PALM
- +157 ;;WHITE-CITY
- +158 ;;WHITE-RIVER
- +159 ;;WILKES-BARRE
- +160 ;;WILMINGTON