--- loncom/interface/printout.pl 2002/04/10 16:23:24 1.5 +++ loncom/interface/printout.pl 2002/08/23 20:02:22 1.20 @@ -1,67 +1,118 @@ #!/usr/bin/perl - use Image::Magick; -print "Content-type: text/html\n\n"; -print "\n"; -print "

OUTPUT is in the PDF FILE below

\n"; -my ($texfile,$laystyle,$notepslist) = split(/&/,$ENV{'QUERY_STRING'}); +use IO::File; +use Image::Magick; + print "Content-type: text/html\n\n"; + print "\n"; + my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'}); + my $figfile = $texfile; + $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; + my $duefile = $texfile; + $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; + #do we have figures? + if (-e $figfile) { + my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; + my @content_of_file = <$temporary_file>; + close $temporary_file; + my $noteps; + foreach $not_eps (@content_of_file) { + if ($not_eps ne '') { + my $eps_f = $not_eps; + $eps_f =~ s/\.[^.]*$/\.eps/i; + $_ = $eps_f; + m/\/([^\/]+)$/; + $eps_f = '/home/httpd/prtspool/'.$1; + my $image = Image::Magick->new; + $not_eps =~ s/^\s+//; + $not_eps =~ s/\s+$//; + $status = $image->Read($not_eps); + if ($status) {print " $status ";} + $image->Set(page => '+100+200'); + $status = $image->Write($eps_f); + if ($status) {print " $status ";} + #check is eps exist in prtspool + if(not -e $eps_f) { + for (my $i=0;$i<10000;$i++) { + if (-e $eps_f.'.'.$i) { + rename $eps_f.'.'.$i, $eps_f; + last; + } + } + } + } + } + unlink $figfile; + } + #print "$texfile\n"; #name of the tex file for debugging only + $texfile =~ m/^(.*)\/([^\/]+)$/; + my $name_file = $2; + my $path_file = $1.'/'; + chdir $path_file; + system("latex $name_file 1>/dev/null 2>/dev/null"); + #Do we have a latex error in the log file? + my $logfilename = $texfile; + $logfilename =~ s/\.tex$/\.log/; + my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n"; + my @content_of_file = <$temporary_file>; + close $temporary_file; + my $body_log_file = join(' ',@content_of_file); + if ($body_log_file=~m/!\s+Emergency stop/) { + #LaTeX failed to parse tex file + print "

LaTeX could not successfully parse your tex file.

"; + print "

It probably has errors in it.

"; + print "Here are the error messages in the LaTeX log file
"; + my $sygnal = 0; + for (my $i=0;$i<=$#content_of_file;$i++) { + if ($content_of_file[$i]=~m/^!/) { + $sygnal = 1; + } + if ($content_of_file[$i]=~m/Here is how much of/) { + $sygnal = 0; + } + if ($sygnal) { + print "$content_of_file[$i]
"; + } + } + } else { + #LaTeX successfully parsed tex file + $name_file =~ s/\.tex/\.dvi/; + my $new_name_file = $name_file; + $new_name_file =~ s/\.dvi/\.ps/; + my $comma = "dvips -o $new_name_file"; + system("$comma $name_file"); + if (-e $new_name_file) { + print "

OUTPUT is in the PDF FILE (see link below)

\n"; + $new_name_file =~ m/^(.*)\./; + my $tempo_file = $1.'temporar.ps'; + my $name_file = $1.'.pdf'; + if ($laystyle eq 'album') { + $comma = "psnup -2 -s1.0 $new_name_file"; + system("$comma $tempo_file"); + system("ps2pdf $tempo_file $name_file"); + } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { + $comma = 'pstops -pletter "2:0+1(0.5w,0)"'; + system("$comma $new_name_file $tempo_file"); + system("ps2pdf $tempo_file $name_file"); + } else { + system("ps2pdf $new_name_file $name_file"); + } + my $texlog = $texfile; + my $texaux = $texfile; + my $texdvi = $texfile; + my $texps = $texfile; + $texlog =~ s/\.tex/\.log/; + $texaux =~ s/\.tex/\.aux/; + $texdvi =~ s/\.tex/\.dvi/; + $texps =~ s/\.tex/\.ps/; + my @garb = ($texlog,$texaux,$texdvi,$texps); + #unlink @garb; + unlink $duefile; + print "Your PDF document"; + print "\n"; + } + } -#if ($notepslist ne '') { -# my $image = Image::Magick->new; - my $newnotepslist = $notepslist; - $newnotepslist =~ s/\.eps/\.gif/; -# $image->Read("gif:$newnotepslist"); -# $image->Set(page => '+100+200'); - $_ = $notepslist; - m/\/(\w+\.eps)/; - $notepslist = $1; -# $image->Write("eps:$notepslist"); -# open(EPS,$notepslist) or die "Couldn't open the EPS file: $!"; -# undef $/; -# my $eps = ; -# close EPS; - $notepslist = '/home/httpd/prtspool/'.$1; -# open(OUT,'>'.$notepslist) or die "Couldn't open the output EPS file: $!"; -# print OUT </dev/null 2>/dev/null"); - $name_file =~ s/\.tex/\.dvi/; -my $new_name_file = $name_file; - $new_name_file =~ s/\.dvi/\.ps/; -my $comma = "dvips -o $new_name_file"; - system("$comma $name_file"); - $_ = $new_name_file; - m/^(.*)\./; -my $tempo_file = $1.'temporar.ps'; -my $name_file = $1.'.pdf'; -if ($laystyle eq 'album') { - $comma = "psnup -2 -s1.0 $new_name_file"; - system("$comma $tempo_file"); - system("ps2pdf $tempo_file $name_file"); -} elsif ($laystyle eq 'book') { - system("ps2pdf $new_name_file $name_file"); -} - - - -print "Your PDF document\n"; -print "\n"; +