X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=ca02b75003ed4bb54f04d801978ed1e7da8072f1;hp=de0e3bf2f640c1df5b0aafea98041ecad1da09e4;hb=aebd301b01c9b4e75e382fb7c1fcb9347c48ffd0;hpb=38fd1954ea4ae45f54f8ab2bbe869fc953320021

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index de0e3bf..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
@@ -159,6 +159,7 @@ sub handler {
 		# Print out all thumbnails
 		if ($rot == 1) {
 			$r->print("    <form method=\"post\" action=\"/rotate\">\n");
+			$r->print("      <input type=\"hidden\" name=\"event\" value=\"$event\" />\n");
 		
 			while (my $ref = $q->fetchrow_hashref()) {
 				my $imgsz = "";