--- exclude Tue Apr 19 11:27:55 2005 +++ /usr/local/share/blosxom/01exclude Wed Dec 31 19:12:09 2003 @@ -7,7 +7,7 @@ # --- Configurable variables ----- -$ign_file = '.exclude'; +$ign_file = 'exclude'; # -------------------------------- @@ -25,14 +25,33 @@ 1; } -sub filter { - my ($pkg, $files_ref) = @_; - my @files_list = keys %$files_ref; - - foreach $exclude (@excludes) { - foreach $ign_cf (@files_list) { - $ign_cf !~ m/^$exclude/ or delete $files_ref->{$ign_cf}; +sub filter +{ + my ($pkg, $files_ref,$others_ref) = @_; + # az Wed Dec 31 19:09:53 2003 + + # changed to massage blosxom::indexes and others + foreach $exclude (@excludes) + { + foreach my $ind (keys %blosxom::indexes) + { +# print "testing $ind\n"; + if ("$blosxom::datadir/$ind" =~ /^$exclude$/) + { + print "excluding index $ind\n"; + delete $blosxom::indexes{$ind}; + } + } + + foreach $ign_cf (keys %{$files_ref}) + { + $ign_cf =~ m/^$exclude$/ + and delete $files_ref->{$ign_cf}; + } + foreach $ign_cf (keys %{others_ref}) { + $ign_cf =~ m/^$exclude$/ and delete $others_ref->{$ign_cf}; } + } 1;