Changeset 620
- Timestamp:
- 1999-09-22T12:21:04+12:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/RecPlug.pm
r593 r620 42 42 my $self = new BasPlug (); 43 43 44 $self->{'exclude_tail_dirs'} = []; # empty by default 45 44 46 return bless $self, $class; 45 47 } … … 59 61 my $self = shift (@_); 60 62 my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_; 63 64 foreach $etd ( @{$self->{'exclude_tail_dirs'}} ) 65 { 66 return 0 if ($file =~ m/$etd/); 67 } 61 68 62 69 my (@dir, $subfile);
Note:
See TracChangeset
for help on using the changeset viewer.