version 1.1, 2002/07/16 20:45:05
|
version 1.2, 2002/07/18 14:58:03
|
Line 29 use strict;
|
Line 29 use strict;
|
use Fcntl; |
use Fcntl; |
use POSIX qw(tmpnam); |
use POSIX qw(tmpnam); |
|
|
if ( scalar(@ARGV) < 2 and 0 ) |
if ( scalar(@ARGV) < 2 ) |
{ |
{ |
print (<<USAGE); |
print (<<USAGE); |
Usage: $0 texxml_file_name or |
Usage: $0 texxml_file_name or |
Line 41 $0 renders texxml files into dvi files b
|
Line 41 $0 renders texxml files into dvi files b
|
resulting from from texxml2latex.pl and the referenced eps files |
resulting from from texxml2latex.pl and the referenced eps files |
into a temporary directory and running LaTeX on the .tex file. |
into a temporary directory and running LaTeX on the .tex file. |
|
|
|
If a second argument is passed, it is used as the location of the |
|
.eps files the document uses. |
|
|
Must be run as somebody with permissions to write temp files and |
Must be run as somebody with permissions to write temp files and |
access /home/httpd/html/adm/help/eps. |
access /home/httpd/html/adm/help/eps. |
USAGE |
USAGE |
Line 50 USAGE
|
Line 53 USAGE
|
|
|
my $tmpdir = tmpnam(); |
my $tmpdir = tmpnam(); |
my $fileroot = $ARGV[1]; |
my $fileroot = $ARGV[1]; |
print $fileroot . "\n"; |
my $epssource = "/home/httpd/html/adm/help/eps"; |
|
|
|
if ( defined ( $ARGV[2] ) ) # override eps source, for build on install |
|
{ |
|
$epssource = $ARGV[2]; |
|
} |
|
|
mkdir $tmpdir; |
mkdir $tmpdir; |
|
|
Line 58 print "Converting texxml to tex...\n";
|
Line 66 print "Converting texxml to tex...\n";
|
system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" ); |
system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" ); |
|
|
print "Copying .eps files...\n"; |
print "Copying .eps files...\n"; |
system ( "cp /home/httpd/html/adm/help/eps/* $tmpdir/" ); |
system ( "cp $epssource/* $tmpdir/" ); |
|
|
print "Running Latex...\n"; |
print "Running Latex...\n"; |
system ( "cd $tmpdir; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; " ); |
system ( "cd $tmpdir; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; " ); |
|
|
print "dvips...\n"; |
print "Running dvips...\n"; |
system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps " ); |
system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps >& /dev/null " ); |
|
|
print "Copying dvi file...\n"; |
print "Copying ps file...\n"; |
system ( "cp $tmpdir/$fileroot.ps ."); |
system ( "cp $tmpdir/$fileroot.ps ."); |
|
|
print "Clearing temp directory...\n"; |
print "Clearing temp directory...\n"; |