remove arbitrary HTML tags from HAFAS HIMMessage attribute content

This commit is contained in:
Daniel Friesel 2021-04-24 09:11:18 +02:00
parent 810945f8bc
commit 16c1d12373

View file

@ -205,7 +205,14 @@ sub get_xml_p {
# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
while ( $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}s
=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}is
)
{
}
# ... and any other HTML tag inside an XML attribute
while ( $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)<[^>]+>([^"=]*)"}{<HIMMessage$1lead="$2$3"}is
)
{
}