X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=ca02b75003ed4bb54f04d801978ed1e7da8072f1;hb=5b3eddb776fdf70189bcd480a9334700bfa7572f;hp=41b4db1689d1be44e5fadb64c416beb5e78d533c;hpb=b9c62b0e96eb2b04cf0f4355174831606f982f18;p=pr0n diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm index 41b4db1..ca02b75 100644 --- a/perl/Sesse/pr0n/Index.pm +++ b/perl/Sesse/pr0n/Index.pm @@ -86,8 +86,8 @@ sub handler { undef, $event, $r->get_server_name) or error($r, "Could not find event $event", 404, "File not found"); - my $name = $ref->{'name'}; - my $date = $ref->{'date'}; + my $date = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'date'})); + my $name = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'name'})); $r->set_last_modified($ref->{'last_update'}); # If the client can use cache, do so