101 lines
2.4 KiB
Perl
101 lines
2.4 KiB
Perl
package Pear::LocalLoop::Command::latlong_setup;
|
|
use Mojo::Base 'Mojolicious::Command';
|
|
|
|
use Mojo::Util 'getopt';
|
|
|
|
use Geo::UK::Postcode::Regex;
|
|
use GIS::Distance;
|
|
|
|
has description => 'Set lat/long data on customers and orgs';
|
|
|
|
has usage => sub { shift->extract_usage };
|
|
|
|
sub run {
|
|
my ( $self, @args ) = @_;
|
|
|
|
my $customer_rs = $self->app->schema->resultset('Customer');
|
|
my $org_rs = $self->app->schema->resultset('Organisation');
|
|
|
|
for my $result ( $customer_rs->all, $org_rs->all ) {
|
|
$self->_set_lat_long_for_result($result);
|
|
}
|
|
|
|
my $transaction_rs = $self->app->schema->resultset('Transaction');
|
|
|
|
for my $result ( $transaction_rs->all ) {
|
|
my $distance = $self->_calculate_distance(
|
|
$result->buyer->${ \$result->buyer->type },
|
|
$result->seller->${ \$result->seller->type },
|
|
);
|
|
$result->update( { distance => $distance } ) if defined $distance;
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
sub _set_lat_long_for_result {
|
|
my ( $self, $result ) = @_;
|
|
|
|
my $parsed_postcode = Geo::UK::Postcode::Regex->parse( $result->postcode );
|
|
my $pc_rs = $self->app->schema->resultset('GbPostcode');
|
|
|
|
if ( $parsed_postcode->{valid} && !$parsed_postcode->{non_geographical} ) {
|
|
my $gb_pc = $pc_rs->find(
|
|
{
|
|
outcode => $parsed_postcode->{outcode},
|
|
incode => $parsed_postcode->{incode},
|
|
}
|
|
);
|
|
if ($gb_pc) {
|
|
$result->update(
|
|
{
|
|
latitude => $gb_pc->latitude,
|
|
longitude => $gb_pc->longitude,
|
|
}
|
|
);
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
sub _calculate_distance {
|
|
my ( $self, $buyer, $seller ) = @_;
|
|
|
|
my $gis = GIS::Distance->new();
|
|
|
|
my $buyer_lat = $buyer->latitude;
|
|
my $buyer_long = $buyer->longitude;
|
|
my $seller_lat = $seller->latitude;
|
|
my $seller_long = $seller->longitude;
|
|
|
|
if ( $buyer_lat
|
|
&& $buyer_long
|
|
&& $seller_lat
|
|
&& $seller_long )
|
|
{
|
|
return $gis->distance(
|
|
$buyer_lat,
|
|
$buyer_long => $seller_lat,
|
|
$seller_long
|
|
)->meters;
|
|
}
|
|
else {
|
|
print STDERR "missing lat-long for: "
|
|
. $buyer->name . " or "
|
|
. $seller->name . "\n";
|
|
}
|
|
return;
|
|
}
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: APPLICATION latlong_setup [OPTIONS]
|
|
|
|
Options:
|
|
|
|
none for now
|
|
|
|
=cut
|
|
|
|
1;
|