version 1.7, 2002/05/09 15:46:01
|
version 1.8, 2002/05/23 20:20:17
|
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/; |
|
print "GLYDI SUDY $figfile ENS"; |
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>; |