Changeset 25500 for gs2-extensions/pdf-box/trunk/java/perllib/plugins/PDFBoxConverter.pm

Timestamp:

2012-04-27T17:13:40+12:00 (12 years ago)

Author:

ak19

Message:

Dr Bainbridge modified gsprintf code to print text containing ampersand, less than and greater then with their entity values instead so that printing to STDERR from BEGIN statements (so far used only in PDFBoxConverter of the PDFBox extension) will play nicely with the XML generated for Pluginfo.pl. Pluginfo.pl has also been modified to use the correct gsprintf printing methods.

File:

• gs2-extensions/pdf-box/trunk/java/perllib/plugins/PDFBoxConverter.pm (modified) (4 diffs)

gs2-extensions/pdf-box/trunk/java/perllib/plugins/PDFBoxConverter.pm

@@ -30 +30 @@
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
+no strict 'subs'; # allow barewords (eg STDERR) as function arguments
 
 use gsprintf 'gsprintf';
@@ -54 +55 @@
 
     if (!-e $pbajar) {
-        print STDERR "Failed to find $pbajar\n";
+        &gsprintf(STDERR,"**** Failed to find $pbajar\n");
         $pdfbox_conversion_available = 0;
         $no_pdfbox_conversion_reason = "gextpdfboxjarnotinstalled";
@@ -78 +79 @@
 
         if ($status != 0) {
-        print STDERR "Testing for java\n";
-        print STDERR "Failed to run: $cmd\n";
-        print STDERR "$!\n";
+           
+        my $error_message =  "**** Testing for java\n";
+        $error_message .= "Failed to run: $cmd\n";
+        $error_message .=  "Error variable: |$!| and status: $status\n";
+
+        &gsprintf(STDERR, "PDFBoxConverter: $error_message");
+
         $pdfbox_conversion_available = 0;
         $no_pdfbox_conversion_reason = "couldnotrunjava";
@@ -192 +197 @@
 
     if ($verbosity>2) {
-    print $outhandle "Convert command: $convert_cmd\n";
+    &gsprintf($outhandle,"Convert command: $convert_cmd\n");
     }