diff options
| author | Joey Hess <joey@kitenet.net> | 2011-06-09 10:46:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-09 10:46:09 -0400 |
| commit | f3ed43a1caabdb06c4acd35edd6c4d8149d78cdb (patch) | |
| tree | 9fcd41ed09e1198b5562a4ccd1ddebc4a93a7306 | |
| parent | cf707d16541c0f65519231c1ccc9a6c3a7ed8d62 (diff) | |
| download | ikiwiki-f3ed43a1caabdb06c4acd35edd6c4d8149d78cdb.tar ikiwiki-f3ed43a1caabdb06c4acd35edd6c4d8149d78cdb.tar.gz | |
encode html
| -rw-r--r-- | IkiWiki/Plugin/userlist.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/userlist.pm b/IkiWiki/Plugin/userlist.pm index f3e5cd462..2ebf61978 100644 --- a/IkiWiki/Plugin/userlist.pm +++ b/IkiWiki/Plugin/userlist.pm @@ -58,10 +58,13 @@ sub showuserlist ($$) { my $h="<table border=\"1\">\n"; $h.="<tr><th>".gettext("login")."</th><th>".gettext("email")."</th></tr>\n"; my $info=IkiWiki::userinfo_retrieve(); + eval q{use HTML::Entities}; if (ref $info) { foreach my $user (sort { $info->{$a}->{regdate} <=> $info->{$b}->{regdate} } keys %$info) { my %i=%{$info->{$user}}; - $h.="<tr><td>$user</td><td>".(defined $i{email} ? $i{email} : "")."</tr>\n"; + $h.="<tr><td>".encode_entities($user)."</td><td>". + encode_entities(defined $i{email} ? $i{email} : ""). + "</td></tr>\n"; } } $h.="</table>\n"; |