check for .noindex

diff --git a/mkgallery.pl b/mkgallery.pl
index 452d5da27f5520d55bc430cc09483595b2e1c524..822cd49845d1f900e40ef0c54d0911df1cdfc936 100755 (executable)
--- 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: $!";