[LON-CAPA-cvs] cvs: loncom /interface printout.pl

sakharuk lon-capa-cvs@mail.lon-capa.org
Mon, 19 May 2003 17:17:20 -0000


sakharuk		Mon May 19 13:17:20 2003 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Bug 1088 (dvips and metafont should not write their output to /etc/httpd/logs/error_log) is fixed.
  
  
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.23 loncom/interface/printout.pl:1.24
--- loncom/interface/printout.pl:1.23	Mon Mar 31 23:30:11 2003
+++ loncom/interface/printout.pl	Mon May 19 13:17:20 2003
@@ -83,7 +83,7 @@
       my $new_name_file = $name_file;
       $new_name_file =~ s/\.dvi/\.ps/;
       my $comma = "dvips -Ppdf -G0 -o $new_name_file";
-      system("$comma $name_file");
+      system("$comma $name_file 1>/dev/null 2>/dev/null");
       if (-e $new_name_file) {
 	  print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";
 	  $new_name_file =~ m/^(.*)\./;
@@ -91,14 +91,14 @@
 	  my $name_file = $1.'.pdf';
 	  if ($laystyle eq 'album' and $numberofcolumns eq '2') {
 	      $comma = "psnup -2 -s1.0 $new_name_file";
-	      system("$comma $tempo_file"); 
-	      system("ps2pdf $tempo_file $name_file");
+	      system("$comma $tempo_file 1>/dev/null 2>/dev/null"); 
+	      system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");
 	  } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
 	      $comma = 'pstops -pletter "2:0+1(0.48w,0)"';
-	      system("$comma $new_name_file $tempo_file");
-	      system("ps2pdf $tempo_file $name_file");
+	      system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");
+	      system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");
 	  } else {
-	      system("ps2pdf $new_name_file $name_file");
+	      system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");
 	  }	    
 	  my $texlog = $texfile;
 	  my $texaux = $texfile;