Changeset 22515 for main/trunk/greenstone2/perllib/plugins/ExcelPlugin.pm

Timestamp:

2010-07-27T16:07:18+12:00 (14 years ago)

Author:

kjdon

Message:

added open office support for PowerPoint and Excel plugins. followed WordPlugin example

File:

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

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

@@ -31 +31 @@
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
+no strict 'subs';
+use gsprintf 'gsprintf';
 
+#sub BEGIN {
+#    @ExcelPlugin::ISA = ('ConvertBinaryFile');
+#}
+
+# @ISA dynamically configured to be either OpenOfficeConverter or ConvertBinaryFile
+
+# do not initialise these variables
+my $openoffice_ext_installed;
+my $openoffice_ext_working;
 sub BEGIN {
-    @ExcelPlugin::ISA = ('ConvertBinaryFile');
+    eval("require OpenOfficeConverter");
+    if ($@) {
+    # Useful debugging statement if there is a syntax error in OpenOfficeConverter  
+    #print STDERR "$@\n";
+    @ExcelPlugin::ISA = ('ConvertBinaryFile');
+    $openoffice_ext_installed = 0;
+    $openoffice_ext_working = 0;
+    }
+    else {
+    # Successfully found
+    $openoffice_ext_installed = 1;
+    # now check whether it can run soffice
+    if ($OpenOfficeConverter::openoffice_conversion_available) {
+        @ExcelPlugin::ISA = ('OpenOfficeConverter');
+        $openoffice_ext_working = 1;
+        
+    } else {
+        @ExcelPlugin::ISA = ('ConvertBinaryFile');
+        $openoffice_ext_working = 0;
+    }
+    }
 }
 
@@ -43 +74 @@
     'deft' => &get_default_process_exp() }
       ];
+
+my $opt_openoffice_args = 
+    [ { 'name' => "openoffice_scripting",
+    'desc' => "{OpenOfficeConverter.openoffice_scripting}",
+    'type' => "flag",
+    'reqd' => "no" } ];
+
 
 my $options = { 'name'     => "ExcelPlugin",
@@ -55 +93 @@
     my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
     push(@$pluginlist, $class);
+    
+    #my $self = new ConvertBinaryFile($pluginlist, $inputargs, $hashArgOptLists);
+    if ($openoffice_ext_installed) {
+    print STDERR "ExcelPlugin: OpenOffice Extension to Greenstone detected\n";
+    if ($openoffice_ext_working) {
+        print STDERR "... and it appears to be working\n";
+    } else {
+        print STDERR "... but it appears to be broken\n";
+        &gsprintf(STDERR, "OpenOfficeConverter: {OpenOfficeConverter.noconversionavailable} ({OpenOfficeConverter.$OpenOfficeConverter::no_openoffice_conversion_reason})\n");
+    }
+    }
+
+    if ($openoffice_ext_working) {
+    push(@$arguments,@$opt_openoffice_args);
+    }    
 
     push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
     push(@{$hashArgOptLists->{"OptList"}},$options);
-    
-    my $self = new ConvertBinaryFile($pluginlist, $inputargs, $hashArgOptLists);
+
+    my $self = {};
+
+    if ($openoffice_ext_working) {
+    $self = new OpenOfficeConverter($pluginlist, $inputargs, $hashArgOptLists);
+    }
+    else {
+    $self = new ConvertBinaryFile($pluginlist, $inputargs, $hashArgOptLists);
+    }
 
     if ($self->{'info_only'}) {
@@ -66 +126 @@
     }
 
+    my $outhandle = $self->{'outhandle'};
+
     $self->{'filename_extension'} = "xls";
     $self->{'file_type'} = "Excel";
 
+    $self->{'convert_options'} = "-openoffice_scripting" if $self->{'openoffice_scripting'};
+
+    # other options for HTML if using open office???
     my $secondary_plugin_options = $self->{'secondary_plugin_options'};
     if (!defined $secondary_plugin_options->{'HTMLPlugin'}) {