X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FListing.pm;h=294b7bc278c472a650733e7051e29050a0b216d7;hb=5b3eddb776fdf70189bcd480a9334700bfa7572f;hp=041e9568046e3625f7820d695a9515b9b418326f;hpb=d1b49fa6c2fd1b3d449dc938f0731c0426636c02;p=pr0n

diff --git a/perl/Sesse/pr0n/Listing.pm b/perl/Sesse/pr0n/Listing.pm
index 041e956..294b7bc 100644
--- a/perl/Sesse/pr0n/Listing.pm
+++ b/perl/Sesse/pr0n/Listing.pm
@@ -9,7 +9,7 @@ sub handler {
 	my $dbh = Sesse::pr0n::Common::get_dbh();
 
         # Internal? (Ugly?)
-	if ($r->get_server_name =~ /internal/) {
+	if ($r->get_server_name =~ /internal/ || $r->get_server_name =~ /skoyen\.bilder\.knatten\.com/) {
 		my $user = Sesse::pr0n::Common::check_access($r);
 		if (!defined($user)) {
 			return Apache2::Const::OK;
@@ -31,8 +31,8 @@ sub handler {
 
 	while (my $ref = $q->fetchrow_hashref()) {
 		my $id = $ref->{'id'};
-		my $date = $ref->{'date'};
-		my $name = $ref->{'name'};
+		my $date = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'date'}));
+		my $name = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'name'}));
 		
 		$r->print("      <li><a href=\"$id/\">$name</a> ($date)</li>\n");
 	}