Changeset 2977 for trunk/gsdl/bin/script/gsConvert.pl

Timestamp:

2002-02-20T16:30:17+13:00 (22 years ago)

Author:

jrm21

Message:

added infrastructure for calling an external powerpoint to html converter.

File:

• trunk/gsdl/bin/script/gsConvert.pl (modified) (4 diffs)

trunk/gsdl/bin/script/gsConvert.pl

@@ -60 +60 @@
     print STDERR "              or text using third-party programs.\n\n";
     print STDERR "  usage: $0 [options] filename\n";
-    print STDERR "  options:\n\t-type\tdoc|pdf|ps|rtf\t(input file type)\n";
+    print STDERR "  options:\n\t-type\tdoc|pdf|ps|ppt|rtf\t(input file type)\n";
     print STDERR "\t-errlog\t<filename>\t(append err messages)\n";
     print STDERR "\t-output\thtml|text\n";
@@ -77 +77 @@
     # read command-line arguments
     if (!parsargv::parse(\@ARGV,
-             'type/(doc|pdf|ps|rtf)/', \$input_type,
+             'type/(doc|pdf|ps|ppt|rtf)/', \$input_type,
              '/errlog/.*/', \$faillogfile,
              'output/(html|text)/', \$output_type,
@@ -132 +132 @@
     print "\n";
     } 
+    elsif ($input_type eq "ppt") {
+    print &convertPPT($input_filename, $output_filestem, $output_type);
+    print "\n";
+    } 
     else {
     print STDERR "Error: Unable to convert type '$input_type'\n";
@@ -286 +290 @@
 
 }
+
+
+sub convertPPT {
+    my ($input_filename, $output_filestem, $output_type) = @_;
+
+    my $success = 0;
+
+    # Attempt conversion to HTML
+    if (!$output_type || ($output_type =~ /html/i)) {
+    # formulate the command
+    $cmd = "";
+    $cmd .= "perl -S ppttohtml.pl ";
+    $cmd .= " \"$input_filename\" \"$output_filestem.html\"";
+    $cmd .= " 2>\"$output_filestem.err\""
+        if ($ENV{'GSDLOS'} !~ /^windows$/i || $is_winnt_2000);
+    
+    
+    # execute the command
+    $!=0;
+    if (system($cmd)!=0)
+    {
+        print STDERR "Powerpoint converter failed $!\n";
+    } else {
+        return "html";
+    }
+    }
+
+    $success = &any_to_text($input_filename, $output_filestem);
+    if ($success) {
+    return "text";
+    }
+
+    return "fail";
+}
+
+
+