Fetching contributors…
Cannot retrieve contributors at this time
executable file 61 lines (48 sloc) 1.45 KB
#!/usr/bin/perl
use strict;
use warnings;
require 5.8.0;
use Data::Dumper;
use FixMyStreet::App;
use FixMyStreet::Geocode::Bing;
my $bing_culture = 'en-GB';
my $reports = FixMyStreet::App->model('DB::Problem')->search(
{
geocode => undef,
confirmed => { '!=', undef },
latitude => { '!=', 0 },
longitude => { '!=', 0 },
},
{
select => [qw/id geocode confirmed latitude longitude/],
order_by => { -desc => 'confirmed' }
}
);
my $num_reports = $reports->count();
print "Found $num_reports lacking geocode information\n";
my $time_to_do = ( $num_reports * 10 ) / 60 / 60;
if ( $time_to_do > 24 ) {
my $days = $time_to_do / 24;
my $hours = $time_to_do % 24;
printf( "Should take %d days and %d hours to finish\n", $days, $hours );
}
elsif ( $time_to_do < 1 ) {
printf( "Should take %d minutes to finish\n", $time_to_do * 60 );
}
else {
my $mins = ( $num_reports * 10 ) / 60 % 60;
printf( "Should take %d hours and %d minutes to finish\n",
$time_to_do, $mins );
}
while ( my $report = $reports->next ) {
$num_reports--;
next unless $report->latitude && $report->longitude;
next if $report->geocode;
my $j = FixMyStreet::Geocode::Bing::reverse( $report->latitude,
$report->longitude, $bing_culture );
$report->geocode($j);
$report->update;
print "$num_reports left to populate\n" unless $num_reports % 100;
sleep 10;
}
print "done\n";