loncom/interface/printout.pl - view

File: [LON-CAPA] / loncom / interface / printout.pl
Revision 1.66: download - view: text, annotated - select for diffs
Fri Aug 13 17:14:48 2004 UTC (20 years, 5 months ago) by sakharuk
Branches: MAIN
CVS tags: HEAD

"lender/tabloid" is supported for two column output in 'book' layout.

#!/usr/bin/perl # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. # # $Id: printout.pl,v 1.66 2004/08/13 17:14:48 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 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 <<END; Content-type: text/html <html> <head><title>Bad Cookie</title></head> <body> Your cookie information is incorrect. </body> </html> 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 $paper = $ENV{'cgi.'.$identifier.'.paper'}; 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; print "<a href=\"$backref\">Return</a> to last resource. "; if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } print " "; 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') { &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", "for $status_statement now LaTeXing file for table of contents", \%prog_state,$dvi_file); } #to create table of contents my $idxname=$name_file; $idxname=~s/\.tex$/\.idx/; if ($tableofindex eq 'yes') { &busy_wait_command("makeindex $idxname", "making index file", \%prog_state,$idxname); &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", "for $status_statement now LaTeXing file for index section", \%prog_state,$dvi_file); } #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 '<html><head><title>LOGFILE</title></head><body><pre>'.$body_log_file.'</pre></body></html>'."\n"; if ($body_log_file=~m/!\s+Emergency stop/) { #LaTeX failed to parse tex file print "<h2>LaTeX could not successfully parse your tex file.</h2>"; 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 "<big>The link to "; $logfilename=~s/\/home\/httpd//; print "<a href=\"$logfilename\">Your log file </a></big>"; 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 '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; print " "; print "<big>The link to "; $texfile=~s/\/home\/httpd//; print "<a href=\"$texfile\">Your original LaTeX file </a></big>"; print "\n"; } } elsif ($body_log_file=~m/<inserted text>/) { my $whereitbegins = index $body_log_file,'<inserted text>'; 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,'<inserted text>',$tempobegin+10; } $name_file =~ s/\.tex/\.dvi/; my $new_name_file = $name_file; $new_name_file =~ s/\.dvi/\.ps/; my @papers=('letter','legal','tabloid','executive','','a3','a4','a5',''); my $papera=$papers[$paper]; if ($papera eq 'letter') {$papera='';} if ($papera ne '') {$papera='-t'.$papera;} my $comma = "dvips $papera -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 "<h1>PDF output file (see link below)</h1>\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') { my @papers=('letter','legal','tabloid','executive','','a3','a4','a5',''); my $papera=$papers[$paper]; if ($papera ne '') {$papera='-p'.$papera;} $comma = 'pstops '.$papera.' "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 "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; if ($advans_role) { print " "; print "<big>The link to "; $logfilename=~s/\/home\/httpd//; print "<a href=\"$logfilename\">Your log file </a></big>"; 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 '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; print " "; print "<big>The link to "; $texfile=~s/\/home\/httpd//; print "<a href=\"$texfile\">Your original LaTeX file </a></big>"; 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 @papers=('letter','legal','tabloid','executive','','a3','a4','a5',''); my $papera=$papers[$paper]; if ($papera eq 'letter') {$papera='';} if ($papera ne '') {$papera='-t'.$papera;} my $comma = "dvips $papera -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 " "; $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') { $papera=~s/t/p/; $comma = 'pstops '.$papera.' "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; } if (($paper eq '6') or ($paper eq '1') or ($paper eq '2') or ($paper eq '3') or ($paper eq '4') or ($paper eq '5') or ($paper eq '7') or ($paper eq '8')) { open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n"; my $new_ps_file='new'.$ps_file; open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n"; my $i=-1; while (<FFH>) { $i++; if ($i==0) { if ($paper eq '6') {print FFHS '<< /PageSize [595.2 842] >> setpagedevice'."\n";} if ($paper eq '1') {print FFHS '<< /PageSize [612 1008] >> setpagedevice'."\n";} if ($paper eq '2') {print FFHS '<< /PageSize [792 1224] >> setpagedevice'."\n";} if ($paper eq '3') {print FFHS '<< /PageSize [542 722.7] >> setpagedevice'."\n";} if ($paper eq '4') {print FFHS '<< /PageSize [1195.02 1690.09] >> setpagedevice'."\n";} if ($paper eq '5') {print FFHS '<< /PageSize [842 1195.02] >> setpagedevice'."\n";} if ($paper eq '7') {print FFHS '<< /PageSize [421.1 595.2] >> setpagedevice'."\n";} if ($paper eq '8') {print FFHS '<< /PageSize [298.75 421.1] >> setpagedevice'."\n";} } print FFHS $_; } close(FFH); close(FFHS); $ps_file=$new_ps_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 "<a href=\"/prtspool/$pdf_file\">$link_text</a>"; 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("<pre>Zip Output:\n"); system($statement); print("</pre>"); $zipfile=~s/\/home\/httpd//; print " A <a href=\"$zipfile\">ZIP file</a> 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 |"); if ($adv) { &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"; } if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win, $message.$extra_msg); } } $SIG{CHLD}='IGNORE'; close(CMD); }