1 files changed, 25 insertions, 0 deletions
diff --git a/bin/populate_bing_cache b/bin/populate_bing_cache
new file mode 100644
index 000000000..f61b4a4bd
--- /dev/null
+++ b/bin/populate_bing_cache
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+require 5.8.0;
+
+use Data::Dumper;
+
+use FixMyStreet::App;
+use FixMyStreet::Geocode::Bing;
+
+my $reports = FixMyStreet::App->model('DB::Problem')->search( {geocode
+        => undef }, { select => [qw/id geocode confirmed latitude longitude/] } );
+
+while ( my $report = $reports->next ) {
+    next unless $report->latitude && $report->longitude;
+    print $report->id . "\n";
+
+    my $j = FixMyStreet::Geocode::Bing::reverse( $report->latitude, $report->longitude );
+
+    $report->geocode( $j );
+    $report->update;
+
+    sleep 10;
+}