<:
s/(?<=,)/<wbr>/g for values %ENV; # allow breaks at commas (HTTP_ACCEPT*)
printf("<tr><th>%s</th><td>%s</td></tr>\n",
- $_, defined $ENV{$_} ? $ENV{$_} : "<i>no value</i>"
+ $_, defined $ENV{$_} ? EscapeHTML($ENV{$_}) : "<i>no value</i>"
) for sort keys %ENV;
:></table>
<:
for my $var (qw[ get post cookies header ]) {
printf("<tr><th>%s{'%s'}</th><td>%s</td></tr>\n",
- $var, $_, defined $$var{$_} ? $$var{$_} : "<i>no value</i>"
+ $var, $_, defined $$var{$_} ? EscapeHTML($$var{$_}) : "<i>no value</i>"
) for sort keys %$var;
}
:></table>