loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.171, 2024/07/11 12:44:40
+version 1.172, 2024/07/11 15:24:01
  Line 544  foreach $texfile (@texfile) {
  		      last if ($device ne '');
  		  }
  		  if ($device ne '') {
- 		      $comma = "gs -sDEVICE=$device -dLanguageLevel=1.5 --permit-file-read=* ";
+ 		      my ($major,$minor);
+ 		      if (open(PIPE,"gs -v |grep 'GPL Ghostscript' 2>&1 |")) {
+ 		          my $info = <PIPE>;
+ 		          close(PIPE);
+ 		          chomp($info);
+ 		          if ($info =~ /Ghostscript\s+(\d+)\.(\d+)/) {
+ 		              ($major,$minor) = ($1,$2);
+ 		          }
+ 		      }
+ 		      $comma = "gs -sDEVICE=$device -dLanguageLevel=1.5 ";
+ 		      if (($major > 9) || (($major == 9) && ($minor >= 50))) {
+ 		          $comma .= '--permit-file-read=* ';
+ 		      }
  		      &busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null",
  				         "for $status_statement now validating PS",
  				         \%prog_state, $tempo_file);