Changeset 16821 for gsdl/trunk/perllib/plugins/BasePlugin.pm

Timestamp:

2008-08-15T15:30:17+12:00 (16 years ago)

Author:

davidb

Message:

Introduced new merge_inheritance function, useful in a plugin constructor where it is known that later methods will access fields from *multiple* $self super-classes created in the constructor

File:

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

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -214 +214 @@
 }
 
+sub merge_inheritance
+{
+    my $self = {};
+    my @child_selfs = @_;
+
+    foreach my $child_self (@child_selfs) { 
+    foreach my $key (keys %$child_self) {
+        if (defined $self->{$key}) {
+        if ($self->{$key} ne $child_self->{$key}) {
+#           print STDERR "Warning: Conflicting value in multiple inheritance for '$key'\n";
+#           print STDERR "Existing stored value = $self->{$key}\n";
+#           print STDERR "New (child) value     = $child_self->{$key}\n";
+#           print STDERR "Keeping existing value\n";
+            # Existing value seems to be option specified in collect.cfg
+
+            ### $self->{$key} = $child_self->{$key};
+            
+        }
+        else {
+##          print STDERR "****Info: Value $self->{$key} for $key already defined through multiple inheritance as the same value\n";
+        }
+
+        }
+        else {
+        $self->{$key} = $child_self->{$key};
+        }
+    }
+    }
+
+    return $self;   
+}
+
 # initialize BasePlugin options
 # if init() is overridden in a sub-class, remember to call BasePlugin::init()
@@ -249 +281 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+
+    # Save base_dir for use in file cache
+    # Would be more logical to do this in MediaConverter, but
+    # it's begin method doesn't appear to be called (29/6/08)
+    $self->{'base_dir'} = $base_dir;
 }
 
@@ -848 +885 @@
     
     my ($process_status,$doc_obj) = $self->read_into_doc_obj(@_);
-   
+
     if ((defined $process_status) && ($process_status == 1)) {