loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

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";