summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Helper/HAFAS.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2020-10-25 16:35:43 +0100
committerDaniel Friesel <derf@finalrewind.org>2020-10-25 16:35:43 +0100
commitc70280a93562e34ad3a711e23d138a96aca5ad58 (patch)
tree559df272de5a61ec0188039edd69e8d445cb8080 /lib/Travelynx/Helper/HAFAS.pm
parent76aa233b951787e842bcfa2ebf73db91050e13e7 (diff)
Merge HAFAS XML fix from DBF1.18.7
Diffstat (limited to 'lib/Travelynx/Helper/HAFAS.pm')
-rw-r--r--lib/Travelynx/Helper/HAFAS.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index 5253a4e..6aefcf1 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -185,12 +185,17 @@ sub get_xml_p {
messages => [],
};
- # <SDay text="... &gt; ..."> is invalid HTML, but present in
+ # <SDay text="... &gt; ..."> is invalid XML, but present in
# regardless. As it is the last tag, we just throw it away.
$body =~ s{<SDay [^>]*/>}{}s;
# More fixes for invalid XML
$body =~ s{P&R}{P&amp;R};
+
+ # <Attribute [...] text="[...] "[...]"" /> is invalid XML.
+ # Work around it.
+ $body
+ =~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;
eval { $tree = XML::LibXML->load_xml( string => $body ) };
if ($@) {
$self->{log}->info("load_xml($url): $@");