Changeset 1244 for trunk/gsdl/perllib/plugins/ArcPlug.pm

Timestamp:

2000-06-27T17:10:07+12:00 (24 years ago)

Author:

sjboddie

Message:

Caught up most general plugins (that's the ones in gsdlhome/perllib/plugins)
with changes to BasPlug so that they can all now use the new general plugin
options. Those I didn't do were FoxPlug (as it's not actually used anywhere
and I don't know what it does) and WebPlug (as it's kind of a work in
progress and doesn't really work anyway). All plugins will still work
(including all the collection specific ones that are laying around), some
of them just won't have access to the general options.
I also wrote a short perl script (pluginfo.pl) that prints out all the
options available to a given plugin.

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (3 diffs)

trunk/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);