Changeset 23220 for gs2-extensions/open-office-src/trunk/perllib/plugins/OpenOfficePlugin.pm

Timestamp:

2010-10-27T11:54:52+13:00 (13 years ago)

Author:

kjdon

Message:

added a few more file types that it can process, and made it hidden in GLI. Needs a bit more work before we advertise it.

File:

• gs2-extensions/open-office-src/trunk/perllib/plugins/OpenOfficePlugin.pm (modified) (7 diffs)

gs2-extensions/open-office-src/trunk/perllib/plugins/OpenOfficePlugin.pm

@@ -39 +39 @@
 }
 
-my $word_pe = "doc|dot|docx|odt";
-my $ppt_pe = "ppt";
+my $word_pe = "doc|dot|docx|odt|wpd";
+my $rtf_pe = "rtf";
+my $ppt_pe = "ppt|pptx|odp";
+my $xls_pe = "xls|xlsx|ods";
 
 my $arguments =
@@ -50 +52 @@
       ];
 
+# This is not quite fully functional, eg doesn't do proper PowerPoint processing. So I have made it hidden in gli for now.
 my $options = { 'name'     => "OpenOfficePlugin",
         'desc'     => "{OpenOfficePlugin.desc}",
         'abstract' => "no",
         'inherits' => "yes",
+        'hiddengli' => "yes",
         'args'     => $arguments };
 
@@ -84 +88 @@
 
     $self = bless $self, $class;
-    print STDERR "launch cmd = $self->{'openoffice_launch_cmd'}\n";
 
     # set convert_to_plugin and convert_to_ext
@@ -109 +112 @@
     $self->SUPER::init(@_);
     $self->OpenOfficeConverter::init();
-    $self->{'cover_image'} = 0; # makes no sense for images
 }
 
@@ -124 +126 @@
     my $self = shift (@_);
 
-    #return q^(?i)\.(doc|dot|docx|odt)$^;
-    return "(?i)\.($word_pe|$ppt_pe)\$";
+    return "(?i)\.($word_pe|$ppt_pe|$rtf_pe|$xls_pe)\$";
 }
 
@@ -158 +159 @@
 }
 
+# first return value is used in _iconxx_ to give a srcicon, 
+# second return value is used for FileFormat metadata
 sub get_file_type_from_extension {
     my $self = shift (@_);
@@ -164 +167 @@
     #check against the various bit of process_exp
     if ($file =~ /$word_pe/) {
-    print STDERR "matched\n";
     return ("doc", "Word");
     }
     if ($file =~ /$ppt_pe/) {
-    return ("ppt", "PowerPoint");
-    }
+    return ("ppt", "PPT");
+    }
+    if ($file =~ /$xls_pe/) {
+    return ("xls", "Excel");
+    }
+    if ($file =~ /$rtf_pe/) {
+    return ("rtf", "RTF");
+    }
+    
     return ("unknown", "Unknown");
 }