#!/usr/bin/perl # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. # # $Id: printout.pl,v 1.59 2004/07/28 22:00:14 albertel 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 LONCAPA::loncgi(); use File::Path; use IO::File; use Image::Magick; use Apache::lonhtmlcommon; use Apache::loncommon; use Apache::lonlocal; use strict; $|=1; my %origENV=%ENV; if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { print < Bad Cookie Your cookie information is incorrect. END return; } &Apache::lonlocal::get_language_handle(); &Apache::loncommon::content_type(undef,'text/html'); my $bodytag=&Apache::loncommon::bodytag('Creating PDF','',''); print $bodytag; 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 $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; my $backref = $ENV{'cgi.'.$identifier.'backref'}; my $adv = $ENV{'request.role.adv'}; my @names_pack=(); if ($student_names=~/_END_/) { @names_pack=split(/_ENDPERSON_/,$student_names); } #got what we needed reset ENV in case it is to big for system %ENV=%origENV; 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; my %prog_state; if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } foreach my $not_eps (@content_of_file) { chomp($not_eps); if ($not_eps ne '') { my $status_statement='EPS picture for '.$not_eps; $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; } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) { $eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/; $eps_f = '/home/httpd/prtspool/'.$1; } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) { $eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; } 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; } if ($adv) { my $prettyname=$not_eps; $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; $prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } $done_conversion{$not_eps}=1; my $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; } } } } } if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } unlink($figfile); } #print "$texfile\n"; #name of the tex file for debugging only my @texfile=($texfile); if ($number_of_files>1) { @texfile=(); for (my $i=1;$i<=$number_of_files;$i++) { my $new_texfile=$texfile; $new_texfile=~s/\.tex/_$i\.tex/; push @texfile,$new_texfile; } } my $ind=-1; my %prog_state; if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } my $final_statement="Return to last resource.

Generated PDF File for:
"; foreach $texfile (@texfile) { my $status_statement=''; my $link_text='download PDF'; $ind++; my @stud_info=split(/_END_/,$names_pack[$ind]); my @tempo_array=split(/:/,$stud_info[0]); my $name; if ($tempo_array[3]) { $name=$tempo_array[3]; } else { $name=$tempo_array[0].'@'.$tempo_array[1]; } $link_text=''.$name.' '; $status_statement.=$name; if ($#stud_info>0) { @tempo_array=split(/:/,$stud_info[-1]); if ($tempo_array[3]) { $name=$tempo_array[3]; } else { $name=$tempo_array[0].'@'.$tempo_array[1]; } $link_text.='- '.$name.': '; $status_statement.=' - '.$name; } if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); } if (-e $texfile) { $texfile =~ m/^(.*)\/([^\/]+)$/; my $name_file = $2; my $path_file = $1.'/'; chdir $path_file; my $dvi_file= $name_file; $dvi_file =~ s/\.tex/\.dvi/; &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", "for $status_statement now LaTeXing file", \%prog_state,$dvi_file); 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 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"; &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", "for $status_statement now Converting to PS", \%prog_state,$new_name_file); if (-e $new_name_file) { print "

PDF output file (see link below)

\n"; $new_name_file =~ m/^(.*)\./; my $ps_file = my $tempo_file = $1.'temporar.ps'; my $pdf_file = $1.'.pdf'; if ($laystyle eq 'album' and $numberofcolumns eq '2') { $comma = "psnup -2 -s1.0 $new_name_file"; &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", "for $status_statement now Modifying PS layout", \%prog_state,$tempo_file); } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { $comma = 'pstops -pletter "2:0+1(0.48w,0)"'; &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null", "for $status_statement now Modifying PS layout", \%prog_state,$tempo_file); } else { $ps_file=$new_name_file; } &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null", "for $status_statement now Converting PS to PDF", \%prog_state, $pdf_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 = ($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"; &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", "for $status_statement now Converting to PS", \%prog_state,$new_name_file); if (-e $new_name_file) { print "
$final_statement "; $final_statement=''; $new_name_file =~ m/^(.*)\./; my $ps_file = my $tempo_file = $1.'temporar.ps'; my $pdf_file = $1.'.pdf'; if ($laystyle eq 'album' and $numberofcolumns eq '2') { $comma = "psnup -2 -s1.0 $new_name_file"; &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", "for $status_statement now Modifying PS layout", \%prog_state,$tempo_file); } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { $comma = 'pstops -pletter "2:0+1(0.48w,0)"'; &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null", "for $status_statement now Modifying PS layout", \%prog_state,$tempo_file); } else { $ps_file=$new_name_file; } &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null", "for $status_statement now Converting PS to PDF", \%prog_state,$pdf_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 "$link_text"; 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; } print("

Zip Output:\n");
    system($statement);
    print("

"); $zipfile=~s/\/home\/httpd//; print "
A ZIP file of all the PDFs."; } if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } my $done; sub REAPER { $done=1; } sub busy_wait_command { my ($command,$message,$progress_win,$output_file)=@_; $SIG{CHLD} = \&REAPER; $done=0; my $pid=open(CMD,"$command |"); &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message); while(!$done) { sleep 1; my $extra_msg; if ($output_file) { my $size=(stat($output_file))[7]; $extra_msg=", $size bytes generated"; } &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win, $message.$extra_msg); } $SIG{CHLD}='IGNORE'; close(CMD); }