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

Timestamp:

2000-11-21T16:33:05+13:00 (23 years ago)

Author:

paynter

Message:

Supports rtf file as an input type, looks in packages dir for pdftohtml

File:

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

trunk/gsdl/bin/script/gsConvert.pl

@@ -99 +99 @@
     elsif ($input_type eq "doc") {
     print &convertDOC($input_filename, $output_filestem, $output_type);
+    print "\n";
+    } 
+    elsif ($input_type eq "rtf") {
+    print &convertRTF($input_filename, $output_filestem, $output_type);
     print "\n";
     } 
@@ -394 +398 @@
     ($dirname, $input_filename, $output_filestem) = @_;
 
-    $cmd = "pdftohtml -F -d $dirname -o \"$output_filestem.html\" \"$input_filename\"";
-    $cmd .= " > $output_filestem.out";
-    
+    # formulate the command
+    my $p_home = &util::filename_cat($ENV{'GSDLHOME'}, "packages", "unix", "pdftohtml");
+    my $pdftohtml = &util::filename_cat($p_home, "pdftohtml_0_20", "pdftohtml.bin");
+    return 0 unless (-e "$pdftohtml");
+
+    $cmd = "ulimit -t 20;";
+    $cmd .= "$pdftohtml -noframes";
+    $cmd .= " \"$input_filename\" \"$output_filestem.html\"";
+    $cmd .= " >\"$output_filestem.out\" 2>\"$output_filestem.err\"";
+
     if (system($cmd)>0)
     {