version 1.9, 2002/07/11 20:06:37
|
version 1.10, 2002/07/30 14:11:17
|
Line 7 print "<h1>OUTPUT is in the PDF FILE (se
|
Line 7 print "<h1>OUTPUT is in the PDF FILE (se
|
my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'}); |
my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'}); |
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
my $duefile = $figfile; |
my $duefile = $texfile; |
$duefile =~ s/\.dat$/\.due/; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
|
my $tblfile = $texfile; |
|
$tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/; |
if (-e $figfile) { |
if (-e $figfile) { |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
Line 67 $texps =~ s/\.tex/\.ps/;
|
Line 69 $texps =~ s/\.tex/\.ps/;
|
my @garb = ($texlog,$texaux,$texdvi,$texps); |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
unlink @garb; |
unlink @garb; |
unlink $duefile; |
unlink $duefile; |
|
unlink $tblfile; |
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n"; |
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n"; |
print "\n"; |
print "\n"; |
|
|