From 7c46f3ad2002941187ff5b7514bd2588cec56b73 Mon Sep 17 00:00:00 2001
From: Thomas Schwery <thomas@schwery.me>
Date: Tue, 17 Aug 2010 16:30:10 +0200
Subject: [PATCH] Entries that cannot be read are not listed

---
 gopher.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gopher.pl b/gopher.pl
index 66ad2fd..8827bfe 100644
--- a/gopher.pl
+++ b/gopher.pl
@@ -96,6 +96,7 @@ sub map_content {
 
 sub filter_content {
     my ($dir_entry, $blog_dir) = @_;
+    return 0 unless -r $blog_dir."/".$dir_entry;
     return 1 unless (substr($dir_entry,0,1) eq "." || $dir_entry eq "header");
     return 0;
 }