diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-11-21 08:17:53 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-11-21 08:17:53 +0000 |
| commit | 92d7fd49e1954f93c35977ffda84802bf9c8371e (patch) | |
| tree | a7f16c868832a4a078bd9c0431d22a6f99c1215d /perllib | |
| parent | a87f6e7dc791c07f2b8c48c6904257092dcb4225 (diff) | |
slightly more useful error messages if fetching Open311 service request updates fails
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/Open311.pm | 8 | ||||
| -rw-r--r-- | perllib/Open311/GetServiceRequestUpdates.pm | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 60b658dc3..52e17e99d 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -352,7 +352,11 @@ sub _get { $self->success(1); } else { $self->success(0); - $self->error( $res->status_line ); + $self->error( sprintf( + "request failed: %s\n%s\n", + $res->status_line, + $uri->as_string + ) ); } } @@ -391,7 +395,7 @@ sub _post { return $res->decoded_content; } else { $self->success(0); - $self->error( sprintf( + $self->error( sprintf( "request failed: %s\nerror: %s\n%s\n", $res->status_line, $self->_process_error( $res->decoded_content ), diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm index 656fa9d68..25b960aa7 100644 --- a/perllib/Open311/GetServiceRequestUpdates.pm +++ b/perllib/Open311/GetServiceRequestUpdates.pm @@ -68,7 +68,7 @@ sub update_comments { my $requests = $open311->get_service_request_updates( @args ); unless ( $open311->success ) { - warn "Failed to fetch ServiceRequest Updates: " . $open311->error + warn "Failed to fetch ServiceRequest Updates for " . $council_details->{areaid} . ":\n" . $open311->error if $self->verbose; return 0; } |