version 1.119, 2006/12/19 10:39:28
|
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 603 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; |
unlink($missfonts_file); |
|
|
} |
} |
if ($advanced_role) { |
if ($advanced_role) { |
Line 756 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; |
unlink($missfonts_file); |
|
|
} |
} |
} else { |
} else { |
Line 865 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) { |