Changeset 6584 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2004-01-22T14:17:30+13:00 (20 years ago)

Author:

kjdon

Message:

Fiddled around with segmenting for chinese text. Haven't changed how the
segmentation is done, or what character ranges are used.
But when its done is now controlled by the collect.cfg. There is a new
option, separate_cjk, values true or false, default false. Segmentation
is only done if this is set to true. This is passed as a global option to
all plugins by the import.pl script, so the user just needs to add it
once to the config file, not as an option to all plugins.
The queryaction uses this option too to determine whether or not to segment
the query.

File:

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

trunk/gsdl/perllib/plugin.pm

@@ -41 +41 @@
 }
 
-
+#globaloptions contains any options that should be passed to all plugins
 sub load_plugins {
     my ($plugin_list) = shift @_;
-    ($verbosity, $outhandle, $failhandle) = @_; # globals
+    ($verbosity, $outhandle, $failhandle, $globaloptions) = @_; # globals
     my @plugin_objects = ();
 
@@ -50 +50 @@
     $outhandle = STDERR unless defined $outhandle;
     $failhandle = STDERR unless defined $failhandle;
+
+    map { $_ = "\"$_\""; } @$globaloptions;
+    my $globals = join (",", @$globaloptions);
 
     foreach $pluginoptions (@$plugin_list) {
@@ -70 +73 @@
     map { $_ = "\"$_\""; } @$pluginoptions;
     my $options = join (",", @$pluginoptions);
+    if ($globals) {
+        if (@$pluginoptions) {
+        $options .= ",";
+        }
+        $options .= "$globals";
+    }
     $options =~ s/\$/\\\$/g;
+    
     eval ("\$plugobj = new \$pluginname($options)");
     die "$@" if $@;