remove arbitrary HTML tags from HAFAS HIMMessage attribute content
This commit is contained in:
parent
810945f8bc
commit
16c1d12373
1 changed files with 8 additions and 1 deletions
|
@ -205,7 +205,14 @@ sub get_xml_p {
|
||||||
|
|
||||||
# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
|
# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
|
||||||
while ( $body
|
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
|
||||||
)
|
)
|
||||||
{
|
{
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue