From 4587af307d0c5fc8b53d082f346fc5f5ba042168 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 12 Jun 2020 08:04:00 +0200 Subject: use debug log for debug output --- lib/DBInfoscreen/Controller/Map.pm | 3 +++ lib/DBInfoscreen/Controller/Wagenreihung.pm | 3 +++ 2 files changed, 6 insertions(+) (limited to 'lib/DBInfoscreen/Controller') diff --git a/lib/DBInfoscreen/Controller/Map.pm b/lib/DBInfoscreen/Controller/Map.pm index 7b5a49b..91aefe6 100644 --- a/lib/DBInfoscreen/Controller/Map.pm +++ b/lib/DBInfoscreen/Controller/Map.pm @@ -31,6 +31,7 @@ sub get_hafas_polyline_p { if ( my $content = $cache->thaw($url) ) { $promise->resolve($content); + $self->app->log->debug("GET $url (cached)"); return $promise; } @@ -40,6 +41,7 @@ sub get_hafas_polyline_p { ->then( sub { my ($tx) = @_; + $self->app->log->debug("GET $url (OK)"); my $json = decode_json( $tx->res->body ); my @coordinate_list; @@ -65,6 +67,7 @@ sub get_hafas_polyline_p { )->catch( sub { my ($err) = @_; + $self->app->log->debug("GET $url (error: $err)"); $promise->reject($err); } )->wait; diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm index a87bb29..7b59227 100644 --- a/lib/DBInfoscreen/Controller/Wagenreihung.pm +++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm @@ -25,6 +25,7 @@ sub get_wagenreihung_p { if ( my $content = $cache->thaw($url) ) { $promise->resolve($content); + $self->app->log->debug("GET $url (cached)"); return $promise; } @@ -33,6 +34,7 @@ sub get_wagenreihung_p { ->then( sub { my ($tx) = @_; + $self->app->log->debug("GET $url (OK)"); my $body = decode( 'utf-8', $tx->res->body ); my $json = JSON->new->decode($body); @@ -42,6 +44,7 @@ sub get_wagenreihung_p { )->catch( sub { my ($err) = @_; + $self->app->log->debug("GET $url (error: $err)"); $promise->reject($err); } )->wait; -- cgit v1.2.3