Changeset 620

Timestamp:

1999-09-22T12:21:04+12:00 (25 years ago)

Author:

sjboddie

Message:

functionality extended so a list of directories to ignore can be
specified in an inherited RecPlugin

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -42 +42 @@
     my $self = new BasPlug ();
 
+    $self->{'exclude_tail_dirs'} = []; # empty by default
+
     return bless $self, $class;
 }
@@ -59 +61 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+
+    foreach $etd ( @{$self->{'exclude_tail_dirs'}} )
+    {
+    return 0 if ($file =~ m/$etd/);
+    }   
 
     my (@dir, $subfile);