fetch content properly so we can set error messages and so on

1 files changed, 13 insertions, 5 deletions

diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index 368982a2a..2d50ed91f 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -232,12 +232,20 @@ sub _get {
         $content = $self->test_get_returns->{ $path };
         $self->test_uri_used( $uri->as_string );
     } else {
-        $content = get( $uri->as_string );
-        if ( $content == undef ) {
-            $self->success(0);
-            $self->error('Failed to fetch');
-        } else {
+        my $ua = LWP::UserAgent->new;
+
+        my $req = HTTP::Request->new(
+            GET => $uri->as_string
+        );
+
+        my $res = $ua->request( $req );
+
+        if ( $res->is_success ) {
+            $content = $res->decoded_content;
             $self->success(1);
+        } else {
+            $self->success(0);
+            $self->error( $res->status_line );
         }
     }