Changeset 2447

Timestamp:

2001-05-18T14:53:07+12:00 (23 years ago)

Author:

jrm21

Message:

Safety check: postscript files start with %! - don't just rely on .ps
extension.

File:

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

trunk/gsdl/bin/script/gsConvert.pl

@@ -538 +538 @@
     if ($error ne "")
     {
-    print STDERR "PSPLUG: WARNING: Error executing gs: $error\n";
+    print STDERR "PSPlug: WARNING: Error executing gs: $error\n";
     &util::rm("$output_filestem.text") if (-e "$output_filestem.text");
     &util::rm("$output_filestem.err") if (-e "$output_filestem.err");
@@ -560 +560 @@
     close IN;
 
+    # Make sure this is a ps file...
+    if ($text !~ /^%!/) {
+        print STDERR "Bad postscript header: not %!\n";
+        return 0;
+    }
+
     # if ps has Page data, then use it to delete all stuff before it.
     $text =~ s/^.*?%%Page:.*?\n//s; # treat string as single line