Changeset 18918

Timestamp:

2009-04-08T14:18:44+12:00 (15 years ago)

Author:

kjdon

Message:

added -use_collection_plugin_options option. if set, will read in the collect.cfg file for specified collection, and use teh plugin options when loading the plugin for exploding

File:

• gsdl/trunk/bin/script/explode_metadata_database.pl (modified) (4 diffs)

gsdl/trunk/bin/script/explode_metadata_database.pl

@@ -82 +82 @@
     'deft' => "100",
     'reqd' => "no" },
+      { 'name' => "collection",
+    'desc' => "{explode.collection}",
+    'type' => "string",
+    'reqd' => "no",
+    'hiddengli' => "yes"},
+      { 'name' => "use_collection_plugin_options",
+    'desc' => "{explode.use_collection_plugin_options}",
+    'type' => "flag",
+    'reqd' => "no",
+    'hiddengli' => "yes"},
       { 'name' => "plugin_options",
     'desc' => "{explode.plugin_options}",
-    'type' => "string",
-    'reqd' => "no",
-    'modegli' => "3"},
-      { 'name' => "collection",
-    'desc' => "{explode.collection}",
     'type' => "string",
     'reqd' => "no",
@@ -115 +120 @@
 {
     my ($language, $input_encoding, $metadata_set, $plugin, 
-    $document_field, $document_prefix, $document_suffix, $records_per_folder, $plugin_options, $collection, $verbosity);
+    $document_field, $document_prefix, $document_suffix, $records_per_folder, $plugin_options, $collection, $use_collection_plugin_options, $verbosity);
 
     my $xml = 0;
@@ -186 +191 @@
         die "\n";
     }
-    }
-    
+    } else {
+    undef $collection;
+    }
+    
+    if ($use_collection_plugin_options) {
+    if (defined $plugin_options && $plugin_options =~ /\w/) {
+        print STDERR "Error: you cannot have -use_collection_plugin_options and -plugin_options set at the same time\n";
+        die "\n";
+    }
+    if (not defined $collection) {
+        print STDERR "Error: you must specify a collection using -collection to use -use_collection_plugin_options\n";
+        die "\n";
+    }
+    }
     my $plugobj;
     require "$plugin.pm";
 
-    if (defined $plugin_options && $plugin_options =~ /\w/) {
+    my $plugin_options_string = "";
+    if ($use_collection_plugin_options) {
+    # read in the collect.cfg file
+    # Read in the collection configuration file.
+    my ($configfilename, $gs_mode) = &colcfg::get_collect_cfg_name(STDERR);
+    my $collectcfg;
+    if ($gs_mode eq "gs2") {
+        $collectcfg = &colcfg::read_collect_cfg ($configfilename);
+    } elsif ($gs_mode eq "gs3") {
+        $collectcfg = &colcfg::read_collection_cfg_xml ($configfilename);
+    }
+    $plugin_options_string = &get_plugin_options($collectcfg, $plugin);
+    }
+    elsif (defined $plugin_options && $plugin_options =~ /\w/) {
     my @options = split(/\s/, $plugin_options);
     map { $_ = "\"$_\"" unless $_ =~ /^\"/; } @options;
-    $plugin_options = join (",", @options);
-    eval ("\$plugobj = new $plugin([], [$plugin_options])");
+    $plugin_options_string= join (",", @options);
+    }
+
+    if ($plugin_options_string eq "") {
+    eval ("\$plugobj = new $plugin()");
     die "$@" if $@;
     } else {
-    eval ("\$plugobj = new $plugin()");
+    eval ("\$plugobj = new $plugin([], [$plugin_options_string])");
     die "$@" if $@;
-    }
+    } 
+    
     # ...and initialize it
     $plugobj->init($verbosity, "STDERR", "STDERR");
@@ -558 +592 @@
 }
 
+sub get_plugin_options {
+    my ($collectcfg, $plugin)  = @_;
+    
+    my $plugin_list = $collectcfg ->{'plugin'};
+    
+    foreach my $pluginoptions (@$plugin_list) {
+    my $pluginname = shift @$pluginoptions;
+    next unless $pluginname eq $plugin;
+    map { $_ = "\"$_\""; } @$pluginoptions;
+    my $options = join (",", @$pluginoptions);
+    return $options;
+    }
+    return "";
+}
+
 &main(@ARGV);