Changeset 22709 for main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm

Timestamp:

2010-08-23T00:27:23+12:00 (14 years ago)

Author:

davidb

Message:

Fixed up -process_exp so it now dynamically configures itself properly, based on whether OpenOfficeConverter is found or not

File:

• main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm

@@ -2 +2 @@
 #
 # PowerPointPlugin.pm -- plugin for importing Microsoft PowerPoint files.
-#  (currently only versions 95 and 97)
+#  (basic version supports versions 95 and 97)
+#  (through OpenOffice extension, supports all contempoary formats)
 #
 # A component of the Greenstone digital library software
@@ -59 +60 @@
     'type' => "regexp",
     'reqd' => "no",
-    'deft' => &get_default_process_exp()}
+    'deft' => "&get_default_process_exp(\$self)",  # delayed (see below)
+    }
       ];
 
@@ -99 +101 @@
                      $pluginlist, $inputargs, 
                      $hashArgOptLists);
+
+
+    # plugin's process_exp can only be correctly determined once autoloading
+    # has taken place
+    my $plug_options = $self->{'option_list'}->[0];
+    my $plug_args = $plug_options->{'args'};
+    
+    foreach my $a (@$plug_args) {
+    # consider changing this to search for all values that are
+    # tagged as 'deft-delayed' = 1 ?!?
+
+    if ($a->{'name'} eq "process_exp") {
+        my $eval_expr = $a->{'deft'};
+        $a->{'deft'} = eval "$eval_expr";
+
+        # Now see if process_exp needs updating
+        my $process_exp = $self->{'process_exp'};
+        if (!$self->{'info_only'} && ($process_exp eq $eval_expr)) {
+        # process_exp is only defined if not 'info_only'
+        #
+        # if it does exist and it equals the unevaluated $eval_expr
+        # then it was set to the default (rather than overriden by
+        # the collect.cfg file)
+
+        $self->{'process_exp'} = $a->{'deft'};
+        }
+    }
+    }
+
  
     if ($self->{'info_only'}) {
@@ -161 +192 @@
 sub get_default_process_exp {
     my $self = shift (@_);
+
+    if ($self->{'scripting_ext_working'}) {
+    return q^(?i)\.(ppt|pptx|odp)$^;
+    }
+
     return q^(?i)\.ppt$^;
 }