version 1.118, 2006/12/18 21:03:10
|
version 1.120, 2007/01/19 20:22:33
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. |
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. |
# |
# |
|
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
Line 559 foreach $texfile (@texfile) {
|
Line 560 foreach $texfile (@texfile) {
|
if (-e $missfonts_file) { |
if (-e $missfonts_file) { |
#print("<br />Missing fonts file exists\n"); |
#print("<br />Missing fonts file exists\n"); |
&create_missing_fonts($missfonts_file); |
&create_missing_fonts($missfonts_file); |
unlink($missfonts_file, \%prog_state); |
|
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement dvips generated missing fonts", |
"for $status_statement dvips generated missing fonts", |
\%prog_state, $new_name_file); |
\%prog_state, $new_name_file); |
Line 604 foreach $texfile (@texfile) {
|
Line 604 foreach $texfile (@texfile) {
|
$texps =~ s/\.tex/\.ps/; |
$texps =~ s/\.tex/\.ps/; |
my @garb = ($texaux,$texdvi,$texps); |
my @garb = ($texaux,$texdvi,$texps); |
# unlink @garb; |
# unlink @garb; |
unlink $duefile; |
unlink($duefile); |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
|
unlink($missfonts_file); |
|
|
} |
} |
if ($advanced_role) { |
if ($advanced_role) { |
print "<br /><br />"; |
print "<br /><br />"; |
Line 627 foreach $texfile (@texfile) {
|
Line 629 foreach $texfile (@texfile) {
|
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
print "\n"; |
print "\n"; |
} |
} |
|
|
} else { |
} else { |
#LaTeX successfully parsed tex file |
#LaTeX successfully parsed tex file |
$name_file =~ s/\.tex/\.dvi/; |
$name_file =~ s/\.tex/\.dvi/; |
Line 668 foreach $texfile (@texfile) {
|
Line 671 foreach $texfile (@texfile) {
|
if (-e $missfonts_file) { |
if (-e $missfonts_file) { |
#print("<br />Missing fonts file exists\n"); |
#print("<br />Missing fonts file exists\n"); |
&create_missing_fonts($missfonts_file); |
&create_missing_fonts($missfonts_file); |
unlink($missfonts_file); |
|
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement dvips generated missing fonts", |
"for $status_statement dvips generated missing fonts", |
\%prog_state, $new_name_file); |
\%prog_state, $new_name_file); |
Line 755 foreach $texfile (@texfile) {
|
Line 757 foreach $texfile (@texfile) {
|
$texps =~ s/\.tex/\.ps/; |
$texps =~ s/\.tex/\.ps/; |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
# unlink @garb; |
# unlink @garb; |
unlink $duefile; |
unlink($duefile); |
print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>"; |
print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>"; |
print "\n"; |
print "\n"; |
} |
} |
|
unlink($missfonts_file); |
|
|
} |
} |
} else { |
} else { |
print "LaTeX file $texfile was not created successfully"; |
print "LaTeX file $texfile was not created successfully"; |
Line 862 sub repaginate {
|
Line 866 sub repaginate {
|
# |
# |
|
|
if ($line =~ /^%%Page:/) { |
if ($line =~ /^%%Page:/) { |
my @pageinfo = split(/ /, $line); |
my @pageinfo = split(/\s+/, $line); |
if ($page_number < $pageinfo[1]) { |
if ($page_number < $pageinfo[1]) { |
$page_number = $pageinfo[1]; |
$page_number = $pageinfo[1]; |
} elsif ($pageinfo[2] ne 1) { |
} elsif ($pageinfo[2] ne 1) { |