version 1.10, 2003/04/01 04:30:10
|
version 1.11, 2003/07/01 18:20:52
|
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 |
#my $redir = ">> /home/jerf/work/loncapa/doc/help/error_log.txt"; |
my $redir = ">> error_log.txt"; |
|
|
mkdir $tmpdir, 0755; |
mkdir $tmpdir, 0755; |
|
|
Line 90 print "Converting to PDF (may take a bit
|
Line 90 print "Converting to PDF (may take a bit
|
system ( "ps2pdf $fileroot.ps $fileroot.pdf" ); |
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" ) |
{ |
{ |