[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.5 and 1.14

version 1.5, 2002/07/25 15:19:03 version 1.14, 2003/07/24 14:47:58
Line 34  if ( scalar(@ARGV) < 2 ) Line 34  if ( scalar(@ARGV) < 2 )
     print (<<USAGE);      print (<<USAGE);
 Usage: $0 texxml_file_name or  Usage: $0 texxml_file_name or
        perl $0 -- texxml_file_name         perl $0 -- texxml_file_name
        where "texxml_file_name" does not include the .texxml suffix         where "texxml_file_name" optionally includes the extension
 Output: texxml_file_name.dvi  Output: texxml_file_name.dvi
   
 $0 renders texxml files into dvi files by copying the tex file  $0 renders texxml files into dvi files by copying the tex file
Line 53  USAGE Line 53  USAGE
   
 my $tmpdir = tmpnam();  my $tmpdir = tmpnam();
 my $fileroot = $ARGV[1];  my $fileroot = $ARGV[1];
 my $epssource = "/home/httpd/html/adm/help/eps";  
   if (substr($fileroot, -7) eq ".texxml")
   {
       $fileroot = substr($fileroot, 0, -7);
   }
   
   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 61  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 70  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.5  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.