browser: escape titles in resource links
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 22 Mar 2017 22:29:35 +0000 (23:29 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 22 Mar 2017 22:29:35 +0000 (23:29 +0100)
Recent data includes at least "<textarea>" in #readonly-attr,
breaking further HTML if left unescaped.

browser.plp

index f8b20a9..4a964fd 100644 (file)
@@ -339,7 +339,7 @@ sub saytitlecol {
                say '</p>';
        }
        printf 'Resources: %s.', join(', ', map {
-               sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
+               sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), EscapeHTML($_->{title})
        } @$_) for grep { @$_ } $row->{links} // ();
        printf '<br>Parent feature: %s.', join(', ', map {
                sprintf '<a href="%s">%s</a>', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title}