4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw( qsearch );
8 my $user = shift or die "usage: cust_main-find_bogus_geocode username\n";
11 my @cust_main = qsearch({
12 'table' => 'cust_main',
13 'extra_sql' => 'WHERE geocode IS NOT NULL',
16 foreach my $cust_main ( @cust_main ) {
18 my $db_geocode = $cust_main->geocode;
20 $cust_main->set('geocode', '');
22 my $calc_geocode = $cust_main->geocode('cch');
24 next unless $calc_geocode;
26 my $cust = $cust_main->custnum.': '. $cust_main->name. "\n";
28 if ( $db_geocode eq $calc_geocode ) {
29 warn "unnecessary geocode override for $cust";
31 warn "bogus geocode override $db_geocode overrides $calc_geocode for $cust";