[LON-CAPA-cvs] cvs: modules /gerd earth-small.png makemap.pl

www lon-capa-cvs@mail.lon-capa.org
Mon, 14 Jun 2004 18:05:22 -0000


www		Mon Jun 14 14:05:22 2004 EDT

  Added files:                 
    /modules/gerd	earth-small.png 

  Modified files:              
    /modules/gerd	makemap.pl 
  Log:
  Trying to make a new world map.
  
  
Index: modules/gerd/makemap.pl
diff -u modules/gerd/makemap.pl:1.2 modules/gerd/makemap.pl:1.3
--- modules/gerd/makemap.pl:1.2	Tue Sep 16 21:45:14 2003
+++ modules/gerd/makemap.pl	Mon Jun 14 14:05:22 2004
@@ -1,7 +1,7 @@
-  my $cluster='development';
+  my $cluster='production';
 
   use Image::WorldMap;
-  my $map = Image::WorldMap->new("earth.png","maian/8");
+  my $map = Image::WorldMap->new("earth-small.png","maian/8");
   &servers($map,$cluster);
   $map->draw("loncapamap_$cluster.png");
   exit 0;
@@ -46,6 +46,7 @@
     }
     close(HOSTS);
     foreach (keys %useddomains) {
+	unless ($_) { next; }
 	$map->add(split(/\:/,$useddomains{$_}),$_,[0,255,0]);
     }
 }