Unverified Commit e39d7356 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

/z/🚋 Add support for date=DD.MM.[YYYY] parameter

parent e7f61e2f

lib/DBInfoscreen/Controller/Stationboard.pm

+17 −0
Original line number Diff line number Diff line
@@ -1161,6 +1161,23 @@ sub train_details { 
		$opt{language} = 'en';

	}



	if ( my $date = $self->param('date') ) {

		if ( $date

			=~ m{ ^ (?<day> \d{1,2} ) [.] (?<month> \d{1,2} ) [.] (?<year> \d{4})? $ }x

		  )

		{

			$opt{datetime} = DateTime->now( time_zone => 'Europe/Berlin' );

			$opt{datetime}->set(

				day   => $+{day},

				month => $+{month}

			);

			if ( $+{year} ) {

				$opt{datetime}->set( year => $+{year} );

			}

			say "set $opt{datetime}";

		}

	}



	$self->stash( hide_opts => 1 );

	$self->render_later;

lib/DBInfoscreen/Helper/HAFAS.pm

+1 −1
Original line number Diff line number Diff line
@@ -58,7 +58,7 @@ sub get_route_timestamps_p { 


	$hafas_promise //= Travel::Status::DE::HAFAS->new_p(

		journeyMatch => $opt{train_req} =~ s{^- }{}r,

		datetime     => ( $opt{train} ? $opt{train}->start : undef ),

		datetime     => ( $opt{train} ? $opt{train}->start : $opt{datetime} ),

		language     => $opt{language},

		cache        => $self->{realtime_cache},

		promise      => 'Mojo::Promise',