check for .noindex
authorEugene Crosser <crosser@average.org>
Fri, 3 Mar 2006 08:58:24 +0000 (08:58 +0000)
committerEugene Crosser <crosser@average.org>
Fri, 3 Mar 2006 08:58:24 +0000 (08:58 +0000)
mkgallery.pl

index 452d5da27f5520d55bc430cc09483595b2e1c524..822cd49845d1f900e40ef0c54d0911df1cdfc936 100755 (executable)
@@ -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: $!";