Changeset 10534

Timestamp:

2005-08-19T11:59:48+12:00 (19 years ago)

Author:

chi

Message:

Adding pagedimg types of conversion to PS document.It is through Convert utility of ImageMagick to convert PS documents to different types of image (JPEG, GIF, PNG).

File:

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

trunk/gsdl/bin/script/gsConvert.pl

@@ -323 +323 @@
 
     my $success = 0;
+    $output_type =~ s/.*\-(.*)/$1/i;
+    # Attempt coversion to Image
+    if ($output_type =~ /jp?g|gif|png/i) {
+    $success = &ps_to_img($dirname, $input_filename, $output_filestem, $output_type);
+    if ($success){
+        return "item";
+    }
+    }
 
     # Attempt conversion to TEXT
@@ -867 +875 @@
         close ERRLOG;
     }
-    &util::rm("$output_filestem.html") if (-e "$output_filestem.html");
+    #&util::rm("$output_filestem.html") if (-e "$output_filestem.html");
     if (-e "$output_filestem.err") {
         if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile")))
@@ -1122 +1130 @@
 
 
+# Convert a PS file to various types of image with the convert utility
+sub ps_to_img {
+    my ($dirname, $input_filename, $output_filestem, $output_type) = @_;
+
+    # Check that ImageMagick is installed and available on the path (except for Windows 95/98)
+    if (!($ENV{'GSDLOS'} eq "windows" && !Win32::IsWinNT())) {
+    my $result = `identify 2>&1`;
+    if ($? == -1 || $? == 256) {  # Linux and Windows return different values for "program not found"
+        #ImageMagick is not installed, thus the convert utility is not available. 
+        print STDERR "*** ImageMagick is not installed, the convert utility is not available\n";
+        return 0;
+    }
+    }
+
+    $cmd = "";
+    if ($timeout) {$cmd = "ulimit -t $timeout;";}
+    $output_type =~ s/.*\_(.*)/$1/i;
+    $cmd .= "perl -S pstoimg.pl -convert_to $output_type \"$input_filename\" \"$output_filestem\"";
+    if ($ENV{'GSDLOS'} !~ /^windows$/i || $is_winnt_2000) {
+    $cmd .= " > \"$output_filestem.out\" 2> \"$output_filestem.err\"";
+    } else {
+    $cmd .= " > \"$output_filestem.err\"";
+    }
+
+    # don't include path on windows (to avoid having to play about
+    # with quoting when GSDLHOME might contain spaces) but assume
+    # that the PATH is set up correctly
+    $!=0;
+    my $retval=system($cmd);
+    if ($retval!=0)
+    {
+    print STDERR "Error executing pstoimg.pl";
+    if ($!) {print STDERR ": $!";} 
+    print STDERR "\n";
+    }
+    
+    #make sure the converter made something
+    #if ($retval !=0) || ! -s "$output_filestem")
+    if ($retval !=0) 
+    {
+    &util::rm("$output_filestem.out") if (-e "$output_filestem.out");
+    #print out the converter's std err, if any
+    if (-s "$output_filestem.err") {
+        open (ERRLOG, "$output_filestem.err") || die "$!";
+        print STDERR "pstoimg error log:\n";
+        while (<ERRLOG>) {
+        print STDERR "$_";
+        }
+        close ERRLOG;
+    }
+    #&util::rm("$output_filestem.html") if (-e "$output_filestem.html");
+    if (-e "$output_filestem.err") {
+        if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile")))
+        {
+        open (ERRLOG, "$output_filestem.err");
+        while (<ERRLOG>) {print FAILLOG $_;}
+        close ERRLOG;
+        close FAILLOG;
+       }    
+        &util::rm("$output_filestem.err");
+    }
+    return 0;
+    }
+    &util::rm("$output_filestem.err") if (-e "$output_filestem.err");
+    &util::rm("$output_filestem.out") if (-e "$output_filestem.out");
+    return 1;
+}
+
 # Convert any file to HTML with a crude perl implementation of the
 # UNIX strings command.