X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=enrich_zips;h=33a6378833ca42acf38ac608b1cd3630beee2496;hp=8f51a62b58ebe10b2d8ec5b56d16418b823dc017;hb=3bb6926bbb549af97fe1ce2698b7fc15852607fa;hpb=8d1dd4148a2ed672e53067901d2d823249ff8a6f diff --git a/enrich_zips b/enrich_zips index 8f51a62..33a6378 100755 --- a/enrich_zips +++ b/enrich_zips @@ -1,5 +1,21 @@ #!/usr/bin/perl -w +# Copyright 2009-2012, Equinox Software, Inc. +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + use strict; use Getopt::Long; @@ -69,9 +85,9 @@ while (<>) { } if ($makezips) { - if ($city ne $dbcity || $state ne $dbstate) { + if (defined $zips{$zip} && ($city ne $dbcity || $state ne $dbstate)) { if ($believegn) { - $city = $dbcity; + $city = $dbcity; $state = $dbstate; } }