From: Eugene Crosser <crosser@average.org>
Date: Fri, 3 Mar 2006 08:58:24 +0000 (+0000)
Subject: check for .noindex
X-Git-Tag: 1.0~4
X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=commitdiff_plain;h=2b396eee650aa66eeffb38a2fefdec240741484f

check for .noindex
---

diff --git a/mkgallery.pl b/mkgallery.pl
index 452d5da..822cd49 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -440,6 +440,8 @@ sub makeaux {
 sub startindex {
 	my $self = shift;
 	my $fn = $self->{-fullpath}.'/index.html';
+	my $block = $self->{-fullpath}.'/.noindex';
+	$fn = '/dev/null' if ( -f $block );
 	my $IND;
 	unless (open($IND,'>'.$fn)) {
 		warn "cannot open $fn: $!";