[LON-CAPA-cvs] cvs: modules /gerd/usagestats domain_kinds.tab update_domain_kinds.pl

[www]

www		Thu May 10 15:57:13 2007 EDT

  Added files:                 
    /modules/gerd/usagestats	update_domain_kinds.pl 

  Modified files:              
    /modules/gerd/usagestats	domain_kinds.tab 
  Log:
  Updating domain stats
  
  
Index: modules/gerd/usagestats/domain_kinds.tab
diff -u modules/gerd/usagestats/domain_kinds.tab:1.1 modules/gerd/usagestats/domain_kinds.tab:1.2
--- modules/gerd/usagestats/domain_kinds.tab:1.1	Wed Nov 15 09:23:52 2006
+++ modules/gerd/usagestats/domain_kinds.tab	Thu May 10 15:57:08 2007
@@ -159,3 +159,28 @@
 #Gateways 
 nsdll1:nsdl:library:nsdl.lon-capa.org:PR08
 msudemol1:msudemo:library:s14.lite.msu.edu:PR09
+
+# Updates May 2007
+sunysb:SUNY Stony Brook:::en-US:Stony Brook, NY:-73.14:40.926:sunysb1
+ucsc:University of California, Santa Cruz:::en-US:Santa Cruz, CA:-122.017:36.983:ucscl1
+nagoya:Nagoya University:::ja:Nagoya, Aichi, Japan:136.88:35.17:nagoyal1
+colorado:University of Colorado:::en-US:Boulder, CO:::cuphysics
+nyu:New York University:::en-US::::nyul1:U34
+georgetown:Georgetown University:::en-US::::georgetownl1:U35
+uah:Universidad de Alcala de Henares:::en-US::::uahl1:U36
+mcgill:McGill University:::en-CA::::mcgilll1:U37
+unisa:Universita degli Studi di Salerno:::en-US::::unisal1:U38
+
+coastal:Coastal Carolina Community College::::Jacksonville, NC:::coastall1:CC05
+spokanefalls:Spokane Falls Community College::::Spokane, WA:::spokanefallsl1:CC06
+
+sarasota:Sarasota County Schools K-12:::en-US:Sarasota, FL:::sarasotal1:HS48
+bellaire:Bellaire Public Schools:::en-US:Bellaire, MI:::bellairel1:HS49
+oside:Oceanside Unified School District:::en-US:Oceanside, CA:::osidel1:HS50
+
+
+rutgers:Rutgers:localauth:rutgers:en-US::::rutgersl1:U39
+mineola:Mineola Public Schools:::en-US::::mineolal1:HS51
+lcc:Lower Canada College:::en-CA:Montreal, Quebec:::lccscil1:HS52
+wadsworth:Wadsworth Publishers:::en-US::::wadsworthl1:PU07
+

Index: modules/gerd/usagestats/update_domain_kinds.pl
+++ modules/gerd/usagestats/update_domain_kinds.pl
open(IN,'domain_kinds.tab');
while ($line=<IN>) {
    chomp($line);
    my (undef,$domain,undef,undef,$type)=split(/\:/,$line);
    if ($type) { $domaintype{$domain}=$type; }
}
close(IN);
open(IN,'/home/www/loncapa/loncom/production_dns_domain.tab');
while ($line=<IN>) {
    if ($line=~/^\s*\#/) { next; }
    my ($domain,$name)=split(/\:/,$line);
    unless ($domaintype{$domain}) {
       print $line;
    }
}
close(IN);