* Add support for mercurial, contributed by Emanuele Aina.

[ikiwiki.git] / IkiWiki / CGI.pm

diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm
index 6e1efbd69927f1199b0af6ccee45285d8ef7ea81..eb89752ec2084a03e522c6f94c3001e07af0e925 100644 (file)
--- a/IkiWiki/CGI.pm
+++ b/IkiWiki/CGI.pm
@@ -77,11 +77,12 @@ sub cgi_recentchanges ($) { #{{{
        memoize("htmllink");
 
        eval q{use Time::Duration};
        memoize("htmllink");
 
        eval q{use Time::Duration};

+       eval q{use CGI 'escapeHTML'};

 
        my $changelog=[rcs_recentchanges(100)];
        foreach my $change (@$changelog) {
                $change->{when} = concise(ago($change->{when}));
 
        my $changelog=[rcs_recentchanges(100)];
        foreach my $change (@$changelog) {
                $change->{when} = concise(ago($change->{when}));

-               $change->{user} = htmllink("", "", $change->{user}, 1);
+               $change->{user} = htmllink("", "", escapeHTML($change->{user}), 1);

                $change->{pages} = [
                        map {
                                $_->{link} = htmllink("", "", $_->{page}, 1);
                $change->{pages} = [
                        map {
                                $_->{link} = htmllink("", "", $_->{page}, 1);