bin/cust_main-show_geocoding

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw( qsearchs );
   6 use FS::cust_main;
   7
   8 my $user = shift or die "usage: cust_main-show_geocoding username custnum ...\n";
   9 adminsuidsetup $user;
  10
  11 my @custnums = @ARGV;
  12
  13 while ( my $custnum = shift @custnums ) {
  14
  15   my $cust_main = qsearchs({
  16     'table' => 'cust_main',
  17     'hashref' => { 'custnum' => $custnum }
  18   });
  19   if ( !$cust_main ) {
  20     warn "can't find custnum $custnum\n";
  21     next;
  22   }
  23
  24   my $output =
  25     $cust_main->custnum. ': '. $cust_main->name. ': '.
  26       'zip: '. $cust_main->zip. ', '.
  27       'database geocode: '. $cust_main->get('geocode'). ', ';
  28
  29   $cust_main->set('geocode', '');
  30   $output .= 'computed geocode: '. $cust_main->geocode('cch');
  31
  32   print "$output\n";
  33 }
  34
  35 1;
  36