[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.7 and 1.15

version 1.7, 2002/08/09 14:48:31 version 1.15, 2003/09/02 18:29: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
 {  {
     $epssource = $ARGV[2];      $epssource = $ARGV[2];
 }  }
   
 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 = ">> /home/jerf/error_log.txt";
   
 mkdir $tmpdir, 0755;  mkdir $tmpdir, 0755;
   
 print "Converting texxml to tex...\n";  print "Converting texxml to tex...\n";
 system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" );  if (system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" )) {
       $! = 1;
       die "Terminated render because texxml2latex failed; see previous error message.";
   };
   
 print "Copying .eps files...\n";  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; 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  " );  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.7  
changed lines
  Added in v.1.15

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