From b1a0853ddf4238c895d86dbfc12d67f4ea6303f2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 12 Jul 2021 19:15:55 +0200
Subject: Handle another case of funky HAFAS HTML ("foo <> bar")

---
 lib/DBInfoscreen/Helper/HAFAS.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/DBInfoscreen/Helper')

diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index 3faf3c7..4a3c3e7 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -138,6 +138,14 @@ sub get_xml_p {
 			{
 			}
 
+			# ... and <HIMMessage [...] lead="[...]<>[...]">
+			# (replace <> with t$t)
+			while ( $body
+				=~ s{<HIMMessage([^>]+)lead="([^"]*)<>([^"=]*)"}{<HIMMessage$1lead="$2&#11020;$3"}gis
+			  )
+			{
+			}
+
 			# ... and any other HTML tag inside an XML attribute
 			# (remove them entirely)
 			while ( $body
-- 
cgit v1.2.3