Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/plugins/RecPlug.pm (modified) (3 diffs)

branches/New_Config_Format-branch/gsdl/perllib/plugins/RecPlug.pm

@@ -38 +38 @@
 }
 
+use strict;
+
 sub new {
     my ($class) = @_;
-    my $self = new BasPlug ();
+    my $self = new BasPlug ("RecPlug", @_);
 
     $self->{'exclude_tail_dirs'} = []; # empty by default
@@ -62 +64 @@
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
 
-    foreach $etd ( @{$self->{'exclude_tail_dirs'}} )
+    foreach my $etd ( @{$self->{'exclude_tail_dirs'}} )
     {
     return 0 if ($file =~ m/$etd/);
@@ -72 +74 @@
 
     # see if this is a directory
-    $dirname = &util::filename_cat ($base_dir, $file);
+    my $dirname = &util::filename_cat ($base_dir, $file);
     if (-d $dirname) {