X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=enrich_zips;h=33a6378833ca42acf38ac608b1cd3630beee2496;hp=3c52e245181a4201666e976f77f0f0e6588b7317;hb=b4a45202fa9b19f2e38c22bafa36388d1e004dfe;hpb=cc369f7fb5b7927528ce3ad041f14686675a970f diff --git a/enrich_zips b/enrich_zips index 3c52e24..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,7 +85,7 @@ while (<>) { } if ($makezips) { - if ($city ne $dbcity || $state ne $dbstate) { + if (defined $zips{$zip} && ($city ne $dbcity || $state ne $dbstate)) { if ($believegn) { $city = $dbcity; $state = $dbstate;