Changeset 22515 for main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.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/PowerPointPlugin.pm (modified) (4 diffs)

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

@@ -32 +32 @@
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
-
+no strict 'subs';
+use gsprintf 'gsprintf';
+
+#sub BEGIN {
+#    @PowerPointPlugin::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 {
-    @PowerPointPlugin::ISA = ('ConvertBinaryFile');
+    eval("require OpenOfficeConverter");
+    if ($@) {
+    # Useful debugging statement if there is a syntax error in OpenOfficeConverter  
+    #print STDERR "$@\n";
+    @PowerPointPlugin::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) {
+        @PowerPointPlugin::ISA = ('OpenOfficeConverter');
+        $openoffice_ext_working = 1;
+        
+    } else {
+        @PowerPointPlugin::ISA = ('ConvertBinaryFile');
+        $openoffice_ext_working = 0;
+    }
+    }
 }
 
-my $convert_to_list =
+my $windows_convert_to_list =
     [ { 'name' => "auto",
     'desc' => "{ConvertBinaryFile.convert_to.auto}" },
@@ -60 +91 @@
       ];
 
+my $opt_windows_args = 
+    [ { 'name' => "convert_to",
+    'desc' => "{ConvertBinaryFile.convert_to}",
+    'type' => "enum",
+    'reqd' => "yes",
+    'list' => $windows_convert_to_list, 
+    'deft' => "html" },
+      { 'name' => "windows_scripting",
+    'desc' => "{PowerPointPlugin.windows_scripting}",
+    'type' => "flag",
+    'reqd' => "no" }
+      ];
+
+my $opt_openoffice_args = 
+    [ { 'name' => "openoffice_scripting",
+    'desc' => "{OpenOfficeConverter.openoffice_scripting}",
+    'type' => "flag",
+    'reqd' => "no" } ];
+
 my $options = { 'name'     => "PowerPointPlugin",
         'desc'     => "{PowerPointPlugin.desc}",
@@ -72 +122 @@
     push(@$pluginlist, $class);
 
+    if ($openoffice_ext_installed) {
+    print STDERR "PowerPointPlugin: 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 ($ENV{'GSDLOS'} =~ m/^windows$/i) {
-    my $ws_arg =[{ 'name' => "convert_to",
-               'desc' => "{ConvertBinaryFile.convert_to}",
-               'type' => "enum",
-               'reqd' => "yes",
-               'list' => $convert_to_list, 
-               'deft' => "html" },
-             { 'name' => "windows_scripting",
-               'desc' => "{PowerPointPlugin.windows_scripting}",
-               'type' => "flag",
-               'reqd' => "no" }
-             ];
-    push(@$arguments,@$ws_arg);
-    }
-    
+    push(@$arguments,@$opt_windows_args);
+    }
+    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'}) {
@@ -98 +157 @@
     }
 
+    my $outhandle = $self->{'outhandle'};
+
     $self->{'filename_extension'} = "ppt";
     $self->{'file_type'} = "PPT";
 
+    # can't have windows_scripting and openoffice_scripting at the same time
+    if ($self->{'windows_scripting'} && $self->{'openoffice_scripting'}) {
+    print $outhandle "Warning: Cannot have -windows_scripting and -openoffice_scripting\n";
+    print $outhandle "         on at the same time.  Defaulting to -windows_scripting\n";
+    $self->{'openoffice_scripting'} = 0;
+    }
+    
     #these are passed through to gsConvert.pl by ConvertBinaryFile.pm
     $self->{'convert_options'} = "-windows_scripting" if $self->{'windows_scripting'};
+    $self->{'convert_options'} = "-openoffice_scripting" if $self->{'openoffice_scripting'};
     my $secondary_plugin_options = $self->{'secondary_plugin_options'};