tschwery/perl-gopher-server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Entries that cannot be read are not listed

Browse source
This commit is contained in:
Thomas Schwery 2010-08-17 16:30:10 +02:00
parent d0c2b55478
commit 7c46f3ad20
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gopher.pl
View file

@ -96,6 +96,7 @@ sub map_content {
sub filter_content { sub filter_content {
my ($dir_entry, $blog_dir) = @_; 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 1 unless (substr($dir_entry,0,1) eq "." || $dir_entry eq "header");
return 0; return 0;
} }