summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DBInfoscreen')
-rw-r--r--lib/DBInfoscreen/Helper/HAFAS.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index 2e832be..9e507e4 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -99,16 +99,22 @@ sub get_xml_p {
my $body = decode( 'ISO-8859-15', $tx->res->body );
- # <SDay text="... &gt; ..."> is invalid HTML, but present
+ # <SDay text="... &gt; ..."> is invalid XML, but present
# regardless. As it is the last tag, we just throw it away.
$body =~ s{<SDay [^>]*/>}{}s;
+ # <Attribute [...] text="[...] "[...]"" prio="800" /> is invalid XML.
+ # Work around it.
+ $body
+ =~ s{<Attribute text="([^"]*)"([^"=]*)""}{<Attribute text="$1&#042;$2&#042;"}s;
+
my $tree;
eval { $tree = XML::LibXML->load_xml( string => $body ) };
if ($@) {
$cache->freeze( $url, {} );
+ $self->{log}->debug("hafas->get_xml_p($url): Parse Error: $@");
$promise->reject;
return;
}