From 407c2a34ed319ba97b8771959b60b0154cee24df Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Mon, 26 Aug 2024 16:42:13 +0200
Subject: hafas: handle undefined message components

---
 bin/hafas | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'bin')

diff --git a/bin/hafas b/bin/hafas
index 027b67c..543579a 100755
--- a/bin/hafas
+++ b/bin/hafas
@@ -273,7 +273,12 @@ sub format_delay {
 
 sub show_message {
 	my ($msg) = @_;
-	if ( $verbosity >= ( $min_verbosity{ $msg->type } // 0 ) ) {
+	if (
+		$msg->text
+		and ( not $msg->type
+			or $verbosity >= ( $min_verbosity{ $msg->type } // 0 ) )
+	  )
+	{
 		if ( $msg->short ) {
 			printf( "| %s\n", $msg->short );
 		}
@@ -451,9 +456,13 @@ for my $res ( $hafas->connections ) {
 			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' )
+			if (
+				$msg->code
+				and ( $msg->code eq
+					'text.connection.section.arrival.date.deviation'
+					or $msg->code eq
+					'text.connection.section.departure.date.deviation' )
+			  )
 			{
 				next;
 			}
-- 
cgit v1.2.3