Changeset 2991

Timestamp:

2002-02-21T17:16:28+13:00 (22 years ago)

Author:

jrm21

Message:

Do MS Excel file processing, currently using a wrapper around xlhtml.

Location:

trunk/gsdl/bin/script

Files:

• gsConvert.pl (modified) (4 diffs)
• xlstohtml.pl (added)

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|ppt|rtf\t(input file type)\n";
+    print STDERR "  options:\n\t-type\tdoc|pdf|ps|ppt|rtf|xls\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|ppt|rtf)/', \$input_type,
+             'type/(doc|pdf|ps|ppt|rtf|xls)/', \$input_type,
              '/errlog/.*/', \$faillogfile,
              'output/(html|text)/', \$output_type,
@@ -136 +136 @@
     print "\n";
     } 
+    elsif ($input_type eq "xls") {
+    print &convertXLS($input_filename, $output_filestem, $output_type);
+    print "\n";
+    } 
     else {
     print STDERR "Error: Unable to convert type '$input_type'\n";
@@ -311 +315 @@
     if (system($cmd)!=0)
     {
-        print STDERR "Powerpoint converter failed $!\n";
+        print STDERR "Powerpoint 95/97 converter failed $!\n";
+    } else {
+        return "html";
+    }
+    }
+
+    $success = &any_to_text($input_filename, $output_filestem);
+    if ($success) {
+    return "text";
+    }
+
+    return "fail";
+}
+
+
+sub convertXLS {
+    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 xlstohtml.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 "Excel 95/97 converter failed $!\n";
     } else {
         return "html";