[LON-CAPA-cvs] cvs: loncom / production_dns_domain.tab production_dns_hosts.tab production_dns_sanity.pl

www lon-capa-cvs-allow@mail.lon-capa.org
Tue, 20 May 2008 15:50:47 -0000


www		Tue May 20 11:50:47 2008 EDT

  Modified files:              
    /loncom	production_dns_domain.tab production_dns_hosts.tab 
           	production_dns_sanity.pl 
  Log:
  New domains and hosts
  
  
Index: loncom/production_dns_domain.tab
diff -u loncom/production_dns_domain.tab:1.31 loncom/production_dns_domain.tab:1.32
--- loncom/production_dns_domain.tab:1.31	Mon Feb 18 18:05:41 2008
+++ loncom/production_dns_domain.tab	Tue May 20 11:50:47 2008
@@ -45,7 +45,7 @@
 georgetown:Georgetown University:::en-US::::georgetownl1
 uah:Universidad de Alcala de Henares:::en-US::::uahl1
 mcgill:McGill University:::en-CA::::mcgilll1
-unisa:Universita degli Studi di Salerno:::en-US::::unisal1
+unisa:Universita degli Studi di Salerno:::en-US::::unisal7
 usask:University of Saskatchewan:::en-CA:Saskatoon, Canada:::usaskl1
 johnabbott:John Abbott College:::en-CA:Sainte Anne de Bellevue, Quebec, Canada:::johnabbottl1
 fgcu:Florida Gulf Coast University:::en-US:Fort Myers, FL:::fgcul1
@@ -59,6 +59,9 @@
 binghamton:Binghamton University:::en-US::::binghamtonl1
 itu:Istanbul Technical University:::en-US::::itul1
 uprm:University of Puerto Rico, Mayaguez Campus:::en-US::::uprml1
+douglas:Douglas College:::en-CA::::douglasl1
+dal:Dalhousie University:::en-CA::::dall1
+ryerson:Ryerson University:::en-CA::::ryersonl1
 
 #Community College
 wscc:Westshore Community College:::en-US:Scottville, MI:-86.279:43.955:wsccl1
@@ -70,6 +73,8 @@
 palomar:Palomar College:::en-US:San Marcos, CA:::palomarl1
 jmu:James Madison University:::en-US:Harrisonburg, VA:-38.45:-78.87:jmul1
 bccc:Beaufort County Community College:::en-US::::bcccl1
+vcc:Vancouver Community College:::en-CA::::vccl1
+nwcc:Northwest Community College:::en-CA::::nwccl1
 
 #High School
 southfield:Southfield High School:::en-US::::southfieldl1
@@ -95,10 +100,11 @@
 ohiouk12:Ohio University - K12:::en-US:Athens, OH:-82.1:39.329:ohiouk12l1
 
 #Hosted
+ccpsnet:Chesterfield County Public Schools:::en-US::::ccpsnetl1
 elkrapids:Elk Rapids Schools:::en-US::::elkrapidsl1
 mcneese:McNeese State University:::en-US::::mcneesel1
 case:Case Western Reserve University:::en-US::::casel1
-ou:The University of Oklahoma:::en-US::::oul1 
+ou:The University of Oklahoma:::en-US::::oul1
 ZIS:Zurich International School:::en-US::::ZISl1
 purdue:Purdue University:::en-US::::purduel1
 rutgers:Rutgers:localauth:rutgers:en-US::::rutgersl1
@@ -155,6 +161,7 @@
 oe:Ovid-Elsie Area Schools:::en-US::::oel1
 henrico:Henrico County Public Schools:::en-US::::henricol1
 templecity:Temple City High School:::en-US::::templecityl1
+cgabc:Certified General Accountants Association of BC:::en-CA::::cgabcl1
 
 #Gateway
 nsdl:NSDL Gateway:::::::nsdll1
Index: loncom/production_dns_hosts.tab
diff -u loncom/production_dns_hosts.tab:1.31 loncom/production_dns_hosts.tab:1.32
--- loncom/production_dns_hosts.tab:1.31	Mon Feb 18 18:05:41 2008
+++ loncom/production_dns_hosts.tab	Tue May 20 11:50:47 2008
@@ -122,6 +122,13 @@
 
 #Hosted - educogs library server
 
+vccl1:vcc:library:educog.com
+douglasl1:douglas:library:educog.com
+nwccl1:nwcc:library:educog.com
+cgabcl1:cgabc:library:educog.com
+dall1:dal:library:educog.com
+ryersonl1:ryerson:library:educog.com
+ccpsnetl1:ccpsnet:library:educog.com
 elkrapidsl1:elkrapids:library:educog.com
 mcneesel1:mcneese:library:educog.com
 southfieldl1:southfield:library:educog.com
Index: loncom/production_dns_sanity.pl
diff -u loncom/production_dns_sanity.pl:1.1 loncom/production_dns_sanity.pl:1.2
--- loncom/production_dns_sanity.pl:1.1	Tue May 20 11:43:12 2008
+++ loncom/production_dns_sanity.pl	Tue May 20 11:50:47 2008
@@ -12,6 +12,9 @@
    chomp($line);
    unless ($line=~/\S/) { next; }
    my ($domain,$name,$auth,$authparm,$lang,$city,$coord1,$coord2,$lib)=split(/\:/,$line);
+   if ($domserv{$domain}) {
+      print "Domain $domain defined more than once in domain.tab\n";
+   }
    $domserv{$domain}=$lib;
    $domname{$domain}=$name;
 }
@@ -40,3 +43,14 @@
        print "$domserv{$dom} is not a library server ($hostfunc{$domserv{$dom}})\n";
     }
 }
+
+# Every server should have a valid domain
+
+foreach my $serv (keys %hostdom) {
+   unless ($domserv{$hostdom{$serv}}) {
+      print "Server $serv has invalid domain in hosts.tab\n";
+   }
+   unless (($hostfunc{$serv} eq 'library') || ($hostfunc{$serv} eq 'access')) {
+      print "Server $serv has invalid function $hostfunc{$serv} in hosts.tab\n";
+   }
+}