1 files changed, 0 insertions, 113 deletions
diff --git a/perllib/FixMyStreet/SendReport/London.pm b/perllib/FixMyStreet/SendReport/London.pm
deleted file mode 100644
index 2a1ebc1c3..000000000
--- a/perllib/FixMyStreet/SendReport/London.pm
+++ /dev/null
@@ -1,113 +0,0 @@
-package FixMyStreet::SendReport::London;
-
-use Moose;
-
-BEGIN { extends 'FixMyStreet::SendReport'; }
-
-use Digest::MD5;
-use FindBin;
-use LWP::UserAgent;
-use LWP::Simple;
-
-use Utils;
-
-sub construct_message {
-    my %h = @_;
-    return <<EOF,
-A user of FixMyStreet has submitted the following report of a local
-problem that they believe might require your attention.
-
-Subject: $h{title}
-
-Details: $h{detail}
-
-$h{fuzzy}, or to provide an update on the problem, please visit the
-following link:
-
-$h{url}
-
-$h{closest_address}
-Yours,
-The FixMyStreet team
-EOF
-}
-
-sub send {
-    return if mySociety::Config::get('STAGING_SITE');
-    my ( $self, $row, $h ) = @_;
-
-    $h->{message} = construct_message( %$h );
-    my $phone = $h->{phone};
-    my $mobile = '';
-    if ($phone && $phone =~ /^\s*07/) {
-        $mobile = $phone;
-        $phone = '';
-    }
-    my ($first, $last) = $h->{name} =~ /^(\S*)(?: (.*))?$/;
-    my %params = (
-        Key => mySociety::Config::get('LONDON_REPORTIT_KEY'),
-        Signature => Digest::MD5::md5_hex( $h->{confirmed} . mySociety::Config::get('LONDON_REPORTIT_SECRET') ),
-        Type => Utils::london_categories()->{$h->{category}},
-        RequestDate => $h->{confirmed},
-        RequestMethod => 'Web',
-        ExternalId => $h->{url},
-        'Customer.Title' => '',
-        'Customer.FirstName' => $first,
-        'Customer.Surname' => $last,
-        'Customer.Email' => $h->{email},
-        'Customer.Phone' => $phone,
-        'Customer.Mobile' => $mobile,
-        'ProblemDescription' => $h->{message},
-    );
-    if ($h->{used_map}) {
-        $params{'Location.Latitude'} = $h->{latitude};
-        $params{'Location.Longitude'} = $h->{longitude};
-    } elsif (mySociety::PostcodeUtil::is_valid_postcode($h->{query})) {
-        # Didn't use map, and entered postcode, so use that.
-        $params{'Location.Postcode'} = $h->{query};
-    } else {
-        # Otherwise, lat/lon is all we have, even if it's wrong.
-        $params{'Location.Latitude'} = $h->{latitude};
-        $params{'Location.Longitude'} = $h->{longitude};
-    }
-    if ($h->{has_photo}) {
-        $params{'Document1.Name'} = 'Photograph';
-        $params{'Document1.MimeType'} = 'image/jpeg';
-        $params{'Document1.URL'} = $h->{image_url};
-        $params{'Document1.URLPublic'} = 'true';
-    }
-    my $browser = LWP::UserAgent->new;
-    my $response = $browser->post( mySociety::Config::get('LONDON_REPORTIT_URL'), \%params );
-    my $out = $response->content;
-    if ($response->code ne 200) {
-        $self->error( "Failed to post $h->{id} to London API, response was " . $response->code . " $out" );
-        return 1;
-    }
-    my ($id) = $out =~ /<caseid>(.*?)<\/caseid>/;
-    my ($org) = $out =~ /<organisation>(.*?)<\/organisation>/;
-    my ($team) = $out =~ /<team>(.*?)<\/team>/;
-
-    $org = london_lookup($org);
-    $row->external_id( $id );
-    $row->external_body( $org );
-    $row->external_team( $team );
-    $self->success(1);
-    return 0;
-}
-
-sub london_lookup {
-    my $org = shift || '';
-    my $str = "Unknown ($org)";
-    open(FP, "$FindBin::Bin/../data/dft.csv");
-    while (<FP>) {
-        /^(.*?),(.*)/;
-        if ($org eq $1) {
-            $str = $2;
-            last;
-        }
-    }
-    close FP;
-    return $str;
-}
-
-1;