Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/plugins/ArcPlug.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/ArcPlug.pm (modified) (3 diffs)

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

@@ -39 +39 @@
 }
 
+use strict;
+
 sub new {
     my ($class) = @_;
-    my $self = new BasPlug ();
+    my $self = new BasPlug ("ArcPlug", @_);
 
     return bless $self, $class;
@@ -58 +60 @@
 sub read {
     my $self = shift (@_);
-    ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
 
     my $count = 0;
 
     # see if this has a archives information file within it
-    $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf");
+    my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf");
 
     if (-e $archive_info_filename) {
@@ -77 +79 @@
 
     # process each file
-    foreach $subfile (@$file_list) {
+    foreach my $subfile (@$file_list) {
         last if ($maxdocs != -1 && $count >= $maxdocs);