bin/cust_main-find_bogus_geocode

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw( qsearch );
   6 use FS::cust_main;
   7
   8 my $user = shift or die "usage: cust_main-find_bogus_geocode username\n";
   9 adminsuidsetup $user;
  10
  11 my @cust_main = qsearch({
  12   'table' => 'cust_main',
  13   'extra_sql' => 'WHERE geocode IS NOT NULL',
  14 });
  15
  16 foreach my $cust_main ( @cust_main ) {
  17
  18   my $db_geocode = $cust_main->geocode;
  19
  20   $cust_main->set('geocode', '');
  21
  22   my $calc_geocode = $cust_main->geocode('cch');
  23
  24   next unless $calc_geocode;
  25
  26   my $cust = $cust_main->custnum.': '. $cust_main->name. "\n";
  27
  28   if ( $db_geocode eq $calc_geocode ) {
  29     warn "unnecessary geocode override for $cust";
  30   } else {
  31     warn "bogus geocode override $db_geocode overrides $calc_geocode for $cust";
  32   }
  33
  34 }
  35
  36 1;