discounts with bulk packages, RT#24655
[freeside.git] / 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