carriage formation: show timestamp of (possibly cached) result4.29.10

2 files changed, 4 insertions, 0 deletions

diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index cf7cdd3..a4a0ddc 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -173,6 +173,7 @@ sub wagenreihung {
 				wref        => $wref,
 				exit_dir    => $exit_dir,
 				hide_opts   => 1,
+				ts          => $json->{ts},
 			);
 		}
 	)->catch(
diff --git a/lib/DBInfoscreen/Helper/Wagonorder.pm b/lib/DBInfoscreen/Helper/Wagonorder.pm
index 94eebb1..c736816 100644
--- a/lib/DBInfoscreen/Helper/Wagonorder.pm
+++ b/lib/DBInfoscreen/Helper/Wagonorder.pm
@@ -8,6 +8,7 @@ use strict;
 use warnings;
 use 5.020;
 
+use DateTime;
 use Mojo::Promise;
 
 sub new {
@@ -93,6 +94,8 @@ sub get_p {
 
 			$self->{log}->debug("wagonorder->get_p($url): OK");
 			my $json = $tx->res->json;
+			$json->{ts} = DateTime->now( time_zone => 'Europe/Berlin' )
+			  ->strftime('%d.%m.%Y %H:%M');
 
 			$self->{main_cache}->freeze( $url, $json );
 			$promise->resolve( $json, \%param );