loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2002/05/09 15:46:01	version 1.9, 2002/07/11 20:06:37
Line 6 print "<body bgcolor=\"#FFFFFF\">\n";	Line 6 print "<body bgcolor=\"#FFFFFF\">\n";
print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";	print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";
my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});	my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/\.tex/\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
	my $duefile = $figfile;
	$duefile =~ s/\.dat$/\.due/;
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 64 $texdvi =~ s/\.tex/\.dvi/;	Line 66 $texdvi =~ s/\.tex/\.dvi/;
$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;

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