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

hafas: show lines at a glance; show messages (todo: verbosity setting)

parent 83eeb9fc

bin/hafas

+23 −2
Original line number Diff line number Diff line
@@ -249,10 +249,18 @@ if ($json_output) { 
}



for my $res ( @{ $hafas->{results} } ) {



	#if ($res->is_cancelled) {

	#	say "# cancelled\n";

	#}



	my $glance = join( ' - ',

		map { $_->name } grep { $_->type eq 'JNY' } $res->sections );



	printf(

		"# %02d:%02d  %s\n",

		"# %02d:%02d  %s  %s\n",

		$res->duration->in_units( 'hours', 'minutes' ),

		display_occupancies( $res->load )

		display_occupancies( $res->load ), $glance

	);

	for my $msg ( $res->messages ) {

		if ( $msg->short ) {
@@ -260,6 +268,7 @@ for my $res ( @{ $hafas->{results} } ) { 
		}

		printf( "# %s\n", $msg->text );

	}

	say q{};



	my $have_delay = 0;
@@ -292,6 +301,18 @@ for my $res ( @{ $hafas->{results} } ) { 
		else {

			printf("\n???\n");

		}

		for my $msg ( $sec->messages ) {

			if ( $msg->code eq 'text.connection.section.arrival.date.deviation'

				or $msg->code eq

				'text.connection.section.departure.date.deviation' )

			{

				next;

			}

			if ( $msg->short ) {

				printf( "# %s\n", $msg->short );

			}

			printf( "# %s\n", $msg->text );

		}

		say q{};

	}

	printf( "\n%s\n\n", q{-} x 40 );