[SimBot-commits] CVS: simbot/tools create_zip_db.pl,1.4,1.5

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17544/tools

Modified Files:
	create_zip_db.pl 
Log Message:
Filter out some bogus lat/longs for Hawai'i, and hard code Honolulu.


Index: create_zip_db.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/tools/create_zip_db.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -p -r1.4 -r1.5
--- create_zip_db.pl	7 May 2005 02:38:32 -0000	1.4
+++ create_zip_db.pl	7 May 2005 15:38:58 -0000	1.5
@@ -101,9 +101,25 @@ for my $row (0 .. $last_row) {
     $lat =~ s/^\s*//;
     $long =~ s/^\s*//;
     
-    $insert_row_query->execute($cur_row->{'ZIP_CODE'}, $lat,
-        $long, $cur_row->{'ZIP_CLASS'},
-        $cur_row->{'PONAME'}, $state, $geocode);
+    if($lat == 24.859832 && $long == -168.021815) {
+        # Bogus lat/long for many zips in Hawai'i
+        # unless there's a post office on the ocean floor.
+
+        if($cur_row->{'PONAME'} eq 'HONOLULU') {
+            $lat = 21.307039;
+            $long = -157.858343;
+        } else {
+            undef $lat;
+            undef $long;
+        }
+    }
+    
+    {
+        no warnings qw( uninitialized );
+        $insert_row_query->execute($cur_row->{'ZIP_CODE'}, $lat,
+            $long, $cur_row->{'ZIP_CLASS'},
+            $cur_row->{'PONAME'}, $state, $geocode);
+    }
 }
 
 print "Done!\nCreating indices...";