1 files changed, 69 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm
new file mode 100644
index 000000000..cb41de336
--- /dev/null
+++ b/perllib/FixMyStreet/SendReport/Open311.pm
@@ -0,0 +1,69 @@
+package FixMyStreet::SendReport::Open311;
+
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'FixMyStreet::SendReport'; }
+
+use FixMyStreet::App;
+use mySociety::Config;
+use Open311;
+
+sub send {
+    return if mySociety::Config::get('STAGING_SITE');
+    my $self = shift;
+    my ( $row, $h, $to, $template, $recips, $nomail ) = @_;
+
+    my $result = -1;
+
+    foreach my $council ( keys %{ $self->councils } ) {
+        my $conf = FixMyStreet::App->model("DB::Open311conf")->search( { area_id => $self->councils->{ $council }, endpoint => { '!=', '' } } )->first;
+        #print 'posting to end point for ' . $conf->area_id . "\n" if $verbose;
+
+
+        # FIXME: we've already looked this up before
+        my $contact = FixMyStreet::App->model("DB::Contact")->find( {
+            deleted => 0,
+            area_id => $conf->area_id,
+            category => $row->category
+        } );
+
+        my $open311 = Open311->new(
+            jurisdiction => $conf->jurisdiction,
+            endpoint     => $conf->endpoint,
+            api_key      => $conf->api_key,
+        );
+
+        # non standard west berks end points
+        if ( $row->council =~ /2619/ ) {
+            $open311->endpoints( { services => 'Services', requests => 'Requests' } );
+        }
+
+        # required to get round issues with CRM constraints
+        if ( $row->council =~ /2218/ ) {
+            $row->user->name( $row->user->id . ' ' . $row->user->name );
+        }
+
+        my $resp = $open311->send_service_request( $row, $h, $contact->email );
+
+        # make sure we don't save user changes from above
+        if ( $row->council =~ /2218/ ) {
+            $row->discard_changes();
+        }
+
+        if ( $resp ) {
+            $row->external_id( $resp );
+            $result *= 0;
+        } else {
+            $result *= 1;
+            # temporary fix to resolve some issues with west berks
+            if ( $row->council =~ /2619/ ) {
+                $result *= 0;
+            }
+        }
+    }
+
+    return $result;
+}
+
+1;