From f8f4b9f1be84b54bedf8cf36a1c6a4ede89b362c Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 25 Oct 2020 17:50:00 +0100
Subject: fix HTTP 500 on invalid via RE; improve via handling while at it

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

(limited to 'lib/DBInfoscreen')

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index c6f697f..715f33a 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -90,10 +90,26 @@ sub result_has_via {
 
 	my @route = $result->route_post;
 
-	if ( List::MoreUtils::any { m{$via}i } @route ) {
+	my $eq_result = List::MoreUtils::any { lc eq lc($via) } @route;
+
+	if ($eq_result) {
 		return 1;
 	}
-	return 0;
+
+	my ( $re1_result, $re2_result );
+
+	eval {
+		$re2_result = List::MoreUtils::any { m{\Q$via\E}i } @route;
+	};
+	eval {
+		$re1_result = List::MoreUtils::any { m{$via}i } @route;
+	};
+
+	if ($@) {
+		return $re2_result || $eq_result;
+	}
+
+	return $re1_result || $re2_result || $eq_result;
 }
 
 sub log_api_access {
-- 
cgit v1.2.3