[BACK]Return to render.texxml.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / help

Diff for /doc/help/render.texxml.pl between versions 1.6 and 1.14

version 1.6, 2002/07/30 18:24:44 version 1.14, 2003/07/24 14:47:58
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);
 }  }
   
 my $epssource = "/home/httpd/html/adm/help/eps";  my $epssource = "../../loncom/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 67  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
   #my $redir = ">> error_log.txt";
   
 mkdir $tmpdir, 0755;  mkdir $tmpdir, 0755;
   
Line 76  system ( "perl texxml2latex.pl $fileroot Line 77  system ( "perl texxml2latex.pl $fileroot
 print "Copying .eps files...\n";  print "Copying .eps files...\n";
 system ( "cp $epssource/* $tmpdir/" );  system ( "cp $epssource/* $tmpdir/" );
   
 # \scrollmode\input causes LaTeX to not stop on errors  
 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; echo | latex $fileroot $redir; makeindex $fileroot.idx; echo | latex $fileroot\ $redir; " );
   
 print "Running dvips...\n";  print "Running dvips...\n";
 system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps $redir " );  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 .");
   
   print "Converting to PDF (may take a bit)...\n";
   system ( "ps2pdf $fileroot.ps $fileroot.pdf" );
   
 print "Clearing temp directory...\n";  print "Clearing temp directory...\n";
 #system ( "rm -rf $tmpdir" );  system ( "rm -rf $tmpdir" );
   
 if ( -e $fileroot . ".ps" )  if ( -e $fileroot . ".ps" )
 {  {
     print "$fileroot.ps is ready.\n";      print "$fileroot.ps and $fileroot.pdf are ready.\n";
 }  }
 else  else
 {  {
Removed from v.1.6  
changed lines
  Added in v.1.14

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