PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

HAFAS: Work around yet another case of invalid XML

Browse source
This commit is contained in:
Daniel Friesel 2021-06-05 14:17:49 +02:00
parent 16c1d12373
commit 9221ddce85
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Travelynx/Helper/HAFAS.pm
View file

@ -198,10 +198,14 @@ sub get_xml_p {
$body =~ s{Wagen \d+ \K&}{&};
$body =~ s{Wagen \d+, \d+ \K&}{&};
# <Attribute [...] text="[...] "[...]"" /> is invalid XML.
# <Attribute [...] text="[...]"[...]"" /> is invalid XML.
# Work around it.
$body
=~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;
=~ s{<Attribute([^>]+)text="([^"]*)"([^"=>]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;
# Same for <HIMMessage lead="[...]"[...]"[...]" />
$body
=~ s{<HIMMessage([^>]+)lead="([^"]*)"([^"=>]*)"([^"]*)"}{<Attribute$1text="$2&#042;$3&#042;$4"}s;
# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
while ( $body