version 1.10, 2003/04/01 04:30:10
|
version 1.16, 2003/09/02 18:41:11
|
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 = ">> /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 -Ppdf -G0 -f $fileroot.dvi > $fileroot.ps " ); |
system ( "cd $tmpdir; dvips -Ppdf -G0 -f $fileroot.dvi > $fileroot.ps " ); |