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

dbris: indicate cancelled stops with red foreground colour

parent 5699206c

bin/dbris

+18 −4
Original line number Diff line number Diff line
@@ -529,33 +529,41 @@ for my $connection ( $ris->connections ) { 
		}



		printf(

			"%s%s  %s  %s%s\n",

			"%s%s  %s  %s%s%s%s\n",

			$segment->dep ? $segment->dep->strftime('%H:%M') : q{??:??},

			$max_delay_digits

			? q{ } . format_delay( $segment->dep_delay, $max_delay_digits )

			: q{},

			$show_full_route ? format_occupancy( $segment->dep_stop ) : q{●},

			( $segment->dep_stop and $segment->dep_stop->is_cancelled )

			? $output_critical

			: q{},

			$segment->dep_name,

			( $segment->dep_stop and $segment->dep_stop->is_cancelled )

			? $output_reset

			: q{},

			$segment->dep_platform ? q{  } . $segment->dep_platform : q{},

		);



		if ($show_full_route) {

			for my $stop ( $segment->route ) {

				printf(

					"%s%s  %s  %s%s\n",

					"%s%s  %s  %s%s%s%s\n",

					$stop->arr ? $stop->arr->strftime('%H:%M') : q{     },

					$max_delay_digits

					? q{ } . format_delay( $stop->arr_delay, $max_delay_digits )

					: q{},

					format_occupancy($stop),

					$stop->is_cancelled ? $output_critical : q{},

					$stop->name,

					$stop->is_cancelled ? $output_reset           : q{},

					$stop->platform     ? q{  } . $stop->platform : q{},

				);

			}

		}



		printf(

			"%s%s%s%s  %s  %s%s\n",

			"%s%s%s%s  %s  %s%s%s%s\n",

			$segment->is_unlikely ? $output_critical                 : q{},

			$segment->arr         ? $segment->arr->strftime('%H:%M') : q{??:??},

			$segment->is_unlikely ? $output_reset                    : q{},
@@ -563,7 +571,13 @@ for my $connection ( $ris->connections ) { 
			? q{ } . format_delay( $segment->arr_delay, $max_delay_digits )

			: q{},

			$show_full_route ? format_occupancy( $segment->arr_stop ) : q{○},

			( $segment->arr_stop and $segment->arr_stop->is_cancelled )

			? $output_critical

			: q{},

			$segment->arr_name,

			( $segment->arr_stop and $segment->arr_stop->is_cancelled )

			? $output_reset

			: q{},

			$segment->arr_platform ? q{  } . $segment->arr_platform : q{},

		);