Commit 16c1d123 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

remove arbitrary HTML tags from HAFAS HIMMessage attribute content

parent 810945f8

lib/Travelynx/Helper/HAFAS.pm

+8 −1
Original line number Diff line number Diff line
@@ -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

			  )

			{

			}