--- loncom/interface/printout.pl 2002/07/30 14:11:17 1.10 +++ loncom/interface/printout.pl 2004/02/06 14:16:39 1.45 @@ -1,77 +1,368 @@ #!/usr/bin/perl +# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. +# +# $Id: printout.pl,v 1.45 2004/02/06 14:16:39 sakharuk Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# +# http://www.lon-capa.org/ +# + +use lib '/home/httpd/lib/perl'; +use Time::Local; +use LONCAPA::loncgi(); +use File::Path; use IO::File; use Image::Magick; -print "Content-type: text/html\n\n"; -print "\n"; -print "

OUTPUT is in the PDF FILE (see link below)

\n"; -my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'}); -my $figfile = $texfile; -$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; -my $duefile = $texfile; -$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; -my $tblfile = $texfile; -$tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/; -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/; - $_ = $eps_f; - m/\/(\w+\.eps)/; - $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 ";} - } + +if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { + print < +Bad Cookie + +Your cookie information is incorrect. + + +END + return; +} + + print "Content-type: text/html\n\n"; + print "\n"; + + my $identifier = $ENV{'QUERY_STRING'}; + my $texfile = $ENV{'cgi.'.$identifier.'.file'}; + my $laystyle = $ENV{'cgi.'.$identifier.'.layout'}; + my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'}; + my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; + my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; + my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; + my $advans_role = $ENV{'cgi.'.$identifier.'role'}; + my $back_ref = $ENV{'cgi.'.$identifier.'backref'}; + my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; + my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; + + my @names_pack=(); + if ($student_names=~/_END_/) { + @names_pack=split(/_ENDPERSON_/,$student_names); + } + + 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 %done_conversion; + 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; + &Create_StatWin ('Starting eps pictures creation', 'Pictires Status window'); + foreach $not_eps (@content_of_file) { + if ($not_eps ne '') { + my $status_statement='EPS picture for '.$not_eps; + &Update_StaWin ($status_statement); + $not_eps=~s|\/\.\/|\/|g; + my $eps_f = $not_eps; + $eps_f =~ s/\.[^.]*$/\.eps/i; + if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { + $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; + $eps_f = '/home/httpd/prtspool/'.$eps_f; + } else { + $eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; + $eps_f = '/home/httpd/prtspool/'.$1; + } + my $path=$eps_f; + $path=~s/\/([^\/]+)\.eps$//; + File::Path::mkpath($path,0,0777); + my $image = Image::Magick->new; + $not_eps =~ s/^\s+//; + $not_eps =~ s/\s+$//; + if ( exists($done_conversion{$not_eps})) { + next; + } + $done_conversion{$not_eps}=1; + $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; + } + } + } + } + } + &Close_StatWin(); + } + #print "$texfile\n"; #name of the tex file for debugging only + my @texfile=($texfile); + if ($number_of_files>1) { + for (my $i=1;$i<=$number_of_files-1;$i++) { + my $new_texfile=$texfile; + $new_texfile=~s/\.tex/_add$i\.tex/; + push @texfile,$new_texfile; + } + } +my $ind=-1; +&Create_StatWin ('Starting PDF production for students', 'PDF Status window'); +foreach $texfile (@texfile) { + my $final_statement="Link to your PDF document: "; + my $status_statement='PDF document for '; + if ($number_of_files>1) { + $ind++; + my @stud_info=split(/_END_/,$names_pack[$ind]); + my @tempo_array=split(/:/,$stud_info[0]); + $final_statement='Link to PDF document for '.$tempo_array[3].' '; + $status_statement.=$tempo_array[3]; + if ($#stud_info>0) { + @tempo_array=split(/:/,$stud_info[-1]); + $final_statement.='- '.$tempo_array[3].': '; + $status_statement.=' - '.$tempo_array[3]; + } + } +&Update_StaWin ($status_statement); + if (-e $texfile) { + $texfile =~ m/^(.*)\/([^\/]+)$/; + my $name_file = $2; + my $path_file = $1.'/'; + chdir $path_file; + system("latex $name_file 1>/dev/null 2>/dev/null"); + if ($tableofcontents eq 'yes') { + system("latex $name_file 1>/dev/null 2>/dev/null"); + } #to create table of contents + my $idxname=$name_file; + $idxname=~s/\.tex$/\.idx/; + if ($tableofindex eq 'yes') { + system("makeindex $idxname"); + system("latex $name_file 1>/dev/null 2>/dev/null"); + } #to create index + #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); + $logfilename =~ s/\.log$/\.html/; + $temporary_file = IO::File->new('>'.$logfilename); + print $temporary_file 'LOGFILE
'.$body_log_file.'
'."\n"; + 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.
"; + my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART'; + my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND'; + if ($whereitbegins!=-1 and $whereitends!=-1) { + print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."

"; + } + 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/^Runaway argument?/ or $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]
"; + } + } + if ($advans_role) { + print "The link to "; + $logfilename=~s/\/home\/httpd//; + print "Your log file "; + print "\n"; + #link tooriginal LaTeX file (included according Michael Hamlin desire) + my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n"; + my @tex_content_of_file = <$tex_temporary_file>; + close $tex_temporary_file; + my $body_tex_file = join(' ',@tex_content_of_file); + $texfile =~ s/\.tex$/aaaaa\.html/; + $tex_temporary_file = IO::File->new('>'.$texfile); + print $tex_temporary_file 'LOGFILE
'.$body_tex_file.'
'."\n"; + print "

"; + print "The link to "; + $texfile=~s/\/home\/httpd//; + print "Your original LaTeX file "; + print "\n"; + } + + } elsif ($body_log_file=~m//) { + my $whereitbegins = index $body_log_file,''; + print "You are running LaTeX in the batch mode."; + while ($whereitbegins != -1) { + my $tempobegin=$whereitbegins; + $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins; + my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins; + print "
It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."
and corrected it.\n"; + print "Usually this correction is valid but you probably need to check the indicated resource one more time and implement neccessary corrections by yourself.\n"; + $whereitbegins = index $body_log_file,'',$tempobegin+10; + } + $name_file =~ s/\.tex/\.dvi/; + my $new_name_file = $name_file; + $new_name_file =~ s/\.dvi/\.ps/; + my $comma = "dvips -Ppdf -G0 -o $new_name_file"; + system("$comma $name_file 1>/dev/null 2>/dev/null"); + if (-e $new_name_file) { + print "

PDF output file (see link below)

\n"; + $new_name_file =~ m/^(.*)\./; + my $tempo_file = $1.'temporar.ps'; + my $name_file = $1.'.pdf'; + if ($laystyle eq 'album' and $numberofcolumns eq '2') { + $comma = "psnup -2 -s1.0 $new_name_file"; + system("$comma $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); + } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { + $comma = 'pstops -pletter "2:0+1(0.48w,0)"'; + system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); + } else { + system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null"); + } + 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 = ($texaux,$texdvi,$texps); +# unlink @garb; + unlink $duefile; + print "Your PDF document"; + if ($advans_role) { + print "

"; + print "The link to "; + $logfilename=~s/\/home\/httpd//; + print "Your log file "; + print "\n"; + #link tooriginal LaTeX file (included according Michael Hamlin desire) + my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n"; + my @tex_content_of_file = <$tex_temporary_file>; + close $tex_temporary_file; + my $body_tex_file = join(' ',@tex_content_of_file); + $texfile =~ s/\.tex$/aaaaa\.html/; + $tex_temporary_file = IO::File->new('>'.$texfile); + print $tex_temporary_file 'LOGFILE
'.$body_tex_file.'
'."\n"; + print "

"; + print "The link to "; + $texfile=~s/\/home\/httpd//; + print "Your original LaTeX file "; + print "\n"; + } + } + } 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 -Ppdf -G0 -o $new_name_file"; + system("$comma $name_file 1>/dev/null 2>/dev/null"); + if (-e $new_name_file) { + print "
$final_statement "; + $new_name_file =~ m/^(.*)\./; + my $tempo_file = $1.'temporar.ps'; + my $name_file = $1.'.pdf'; + if ($laystyle eq 'album' and $numberofcolumns eq '2') { + $comma = "psnup -2 -s1.0 $new_name_file"; + system("$comma $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); + } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { + $comma = 'pstops -pletter "2:0+1(0.48w,0)"'; + system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); + } else { + system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null"); + } + 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"; + } + } + } else { + print "LaTeX file $texfile was not created successfully"; + } +} +print "
"; +if ($number_of_files>1) { + my $zipfile=$texfile[0]; + $zipfile=~s/\.tex/\.zip/; + my $statement="zip $zipfile"; + foreach my $file (@texfile) { + $file=~s/\.tex/.\pdf/; + $statement.=' '.$file; } - unlink $figfile; + system("$statement"); + $zipfile=~s/\/home\/httpd//; + print "
Your ZIP file is here"; +} +&Close_StatWin(); + + +sub Create_StatWin { + my ($title, $heading)=@_; + print('"); +} + +sub Update_StaWin { + my ($info)=@_; + print(''); +} + +sub Close_StatWin { + print(''."\n"); + } -print "$texfile\n"; - $_ = $texfile; - m/^(.*)\/([^\/]+)$/; -my $name_file = $2; -my $path_file = $1.'/'; - chdir $path_file; - system("latex $name_file 1>/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"); -} -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; -unlink $tblfile; -print "Your PDF document\n"; -print "\n";