Diff for /doc/help/render.texxml.pl between versions 1.8 and 1.13

version 1.8, 2002/08/12 16:20:40 version 1.13, 2003/07/21 15:04:48
Line 59  if (substr($fileroot, -7) eq ".texxml") Line 59  if (substr($fileroot, -7) eq ".texxml")
     $fileroot = substr($fileroot, 0, -7);      $fileroot = substr($fileroot, 0, -7);
 }  }
   
 if ( -e "$fileroot.pdf" )  my $epssource = "../../loncom/html/adm/help/eps";
 {  
     print "$fileroot already built.\n";  
     exit();  
 }  
   
 my $epssource = "/home/httpd/html/adm/help/eps";  
   
 if ( defined ( $ARGV[2] ) ) # override eps source, for build on install  if ( defined ( $ARGV[2] ) ) # override eps source, for build on install
 {  {
Line 73  if ( defined ( $ARGV[2] ) ) # override e Line 67  if ( defined ( $ARGV[2] ) ) # override e
 }  }
   
 my $redir = ">& /dev/null"; # empty this for easier debugging  my $redir = ">& /dev/null"; # empty this for easier debugging
 #$redir = ">> /home/jerf/work/loncapa/doc/help/error_log.txt";  #my $redir = ">> error_log.txt";
   
 mkdir $tmpdir, 0755;  mkdir $tmpdir, 0755;
   
Line 84  print "Copying .eps files...\n"; Line 78  print "Copying .eps files...\n";
 system ( "cp $epssource/* $tmpdir/" );  system ( "cp $epssource/* $tmpdir/" );
   
 print "Running Latex...\n";  print "Running Latex...\n";
 system ( "cd $tmpdir; echo | latex $fileroot $redir; echo | latex $fileroot $redir; echo | latex $fileroot\ $redir; " );  system ( "cd $tmpdir; echo | latex $fileroot $redir; makeindex $fileroot.idx; echo | latex $fileroot $redir; echo | latex $fileroot\ $redir; " );
   
 print "Running dvips...\n";  print "Running dvips...\n";
 system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps  " );  system ( "cd $tmpdir; dvips -Ppdf -G0 -f $fileroot.dvi > $fileroot.ps  " );
   
 print "Copying ps file...\n";  print "Copying ps file...\n";
 system ( "cp $tmpdir/$fileroot.ps .");  system ( "cp $tmpdir/$fileroot.ps .");

Removed from v.1.8  
changed lines
  Added in v.1.13


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>