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

Handle another case of funky HAFAS html ("foo <> bar")

Browse source
This commit is contained in:
Daniel Friesel 2021-07-12 19:16:14 +02:00
parent 7b01cae7d5
commit 37a0b8f2ab
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -207,6 +207,14 @@ sub get_xml_p {
$body $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)"([^"=>]*)"([^"]*)"}{<Attribute$1text="$2&#042;$3&#042;$4"}s; =~ s{<HIMMessage([^>]+)lead="([^"]*)"([^"=>]*)"([^"]*)"}{<Attribute$1text="$2&#042;$3&#042;$4"}s;
# ... and <HIMMessage [...] lead="[...]<>[...]">
# (replace <> with t$t)
while ( $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)<>([^"=]*)"}{<HIMMessage$1lead="$2&#11020;$3"}gis
)
{
}
# Dito for <HIMMessage [...] lead="[...]<br>[...]">. # Dito for <HIMMessage [...] lead="[...]<br>[...]">.
while ( $body while ( $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}is =~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}is