![]() ![]() | ![]() |
Added more verbose logging to die messages.
1: #!/usr/bin/perl 2: # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. 3: # 4: # $Id: printout.pl,v 1.69 2004/09/09 15:30:49 matthew Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: use lib '/home/httpd/lib/perl'; 30: use LONCAPA::loncgi(); 31: use File::Path; 32: use IO::File; 33: use Image::Magick; 34: use Apache::lonhtmlcommon; 35: use Apache::loncommon; 36: use Apache::lonlocal; 37: 38: use strict; 39: $|=1; 40: my %origENV=%ENV; 41: if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { 42: print <<END; 43: Content-type: text/html 44: 45: <html> 46: <head><title>Bad Cookie</title></head> 47: <body> 48: Your cookie information is incorrect. 49: </body> 50: </html> 51: END 52: return; 53: } 54: &Apache::lonlocal::get_language_handle(); 55: &Apache::loncommon::content_type(undef,'text/html'); 56: my $bodytag=&Apache::loncommon::bodytag('Creating PDF','',''); 57: print $bodytag; 58: 59: my $identifier = $ENV{'QUERY_STRING'}; 60: my $texfile = $ENV{'cgi.'.$identifier.'.file'}; 61: my $laystyle = $ENV{'cgi.'.$identifier.'.layout'}; 62: my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'}; 63: my $paper = $ENV{'cgi.'.$identifier.'.paper'}; 64: my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; 65: my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; 66: my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; 67: my $advans_role = $ENV{'cgi.'.$identifier.'role'}; 68: my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; 69: my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; 70: my $backref = $ENV{'cgi.'.$identifier.'backref'}; 71: 72: 73: my $adv = $ENV{'request.role.adv'}; 74: 75: my @names_pack=(); 76: if ($student_names=~/_END_/) { 77: @names_pack=split(/_ENDPERSON_/,$student_names); 78: } 79: #got what we needed reset ENV in case it is to big for system 80: %ENV=%origENV; 81: 82: my $figfile = $texfile; 83: $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; 84: my $duefile = $texfile; 85: $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; 86: #do we have figures? 87: if (-e $figfile) { 88: my %done_conversion; 89: my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n"; 90: my @content_of_file = <$temporary_file>; 91: close $temporary_file; 92: my $noteps; 93: my %prog_state; 94: if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } 95: foreach my $not_eps (@content_of_file) { 96: chomp($not_eps); 97: if ($not_eps ne '') { 98: my $status_statement='EPS picture for '.$not_eps; 99: $not_eps=~s|\/\.\/|\/|g; 100: my $eps_f = $not_eps; 101: $eps_f =~ s/\.[^.]*$/\.eps/i; 102: if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { 103: $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; 104: $eps_f = '/home/httpd/prtspool/'.$eps_f; 105: } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) { 106: $eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/; 107: $eps_f = '/home/httpd/prtspool/'.$1; 108: } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) { 109: $eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; 110: $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; 111: } 112: my $path=$eps_f; 113: $path=~s/\/([^\/]+)\.eps$//; 114: File::Path::mkpath($path,0,0777); 115: my $image = Image::Magick->new; 116: $not_eps =~ s/^\s+//; 117: $not_eps =~ s/\s+$//; 118: if ( exists($done_conversion{$not_eps})) { 119: next; 120: } 121: if ($adv) { 122: my $prettyname=$not_eps; 123: $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; 124: $prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; 125: &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } 126: $done_conversion{$not_eps}=1; 127: my $status = $image->Read($not_eps); 128: if ($status) {print " $status ";} 129: $image->Set(page => '+100+200'); 130: $status = $image->Write($eps_f); 131: if ($status) {print " $status ";} 132: #check is eps exist in prtspool 133: if(not -e $eps_f) { 134: for (my $i=0;$i<10000;$i++) { 135: if (-e $eps_f.'.'.$i) { 136: rename $eps_f.'.'.$i, $eps_f; 137: last; 138: } 139: } 140: } 141: } 142: } 143: if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } 144: unlink($figfile); 145: } 146: #print "$texfile\n"; #name of the tex file for debugging only 147: my @texfile=($texfile); 148: if ($number_of_files>1) { 149: @texfile=(); 150: for (my $i=1;$i<=$number_of_files;$i++) { 151: my $new_texfile=$texfile; 152: $new_texfile=~s/\.tex/_$i\.tex/; 153: push @texfile,$new_texfile; 154: } 155: } 156: 157: my $ind=-1; 158: my %prog_state; 159: print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />"; 160: if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } 161: print "<br />"; 162: foreach $texfile (@texfile) { 163: my $status_statement=''; 164: my $link_text='download PDF'; 165: $ind++; 166: my @stud_info=split(/_END_/,$names_pack[$ind]); 167: my @tempo_array=split(/:/,$stud_info[0]); 168: my $name; 169: if ($tempo_array[3]) { 170: $name=$tempo_array[3]; 171: } else { 172: $name=$tempo_array[0].'@'.$tempo_array[1]; 173: } 174: $link_text='<b>'.$name.'</b>'; 175: $status_statement.=$name; 176: if ($#stud_info>0) { 177: @tempo_array=split(/:/,$stud_info[-1]); 178: if ($tempo_array[3]) { 179: $name=$tempo_array[3]; 180: } else { 181: $name=$tempo_array[0].'@'.$tempo_array[1]; 182: } 183: $link_text.=' - <b>'.$name.'</b>'; 184: $status_statement.=' - '.$name; 185: } 186: if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); } 187: if (-e $texfile) { 188: $texfile =~ m/^(.*)\/([^\/]+)$/; 189: my $name_file = $2; 190: my $path_file = $1.'/'; 191: chdir $path_file; 192: my $dvi_file= $name_file; $dvi_file =~ s/\.tex/\.dvi/; 193: &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", 194: "for $status_statement now LaTeXing file", 195: \%prog_state,$dvi_file); 196: if ($tableofcontents eq 'yes') { 197: &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", 198: "for $status_statement now LaTeXing file for table of contents", 199: \%prog_state,$dvi_file); 200: } #to create table of contents 201: my $idxname=$name_file; 202: $idxname=~s/\.tex$/\.idx/; 203: if ($tableofindex eq 'yes') { 204: &busy_wait_command("makeindex $idxname", 205: "making index file", 206: \%prog_state,$idxname); 207: &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", 208: "for $status_statement now LaTeXing file for index section", 209: \%prog_state,$dvi_file); 210: } #to create index 211: #Do we have a latex error in the log file? 212: my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/; 213: my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename for reading: $!\n"; 214: my @content_of_file = <$temporary_file>; 215: close $temporary_file; 216: my $body_log_file = join(' ',@content_of_file); 217: $logfilename =~ s/\.log$/\.html/; 218: $temporary_file = IO::File->new('>'.$logfilename); 219: print $temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_log_file.'</pre></body></html>'."\n"; 220: if ($body_log_file=~m/!\s+Emergency stop/) { 221: #LaTeX failed to parse tex file 222: print "<h2>LaTeX could not successfully parse your tex file.</h2>"; 223: print "It probably has errors in it.<br />"; 224: my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART'; 225: my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND'; 226: if ($whereitbegins!=-1 and $whereitends!=-1) { 227: print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />"; 228: } 229: print "Here are the error messages in the LaTeX log file</br><br />"; 230: my $sygnal = 0; 231: for (my $i=0;$i<=$#content_of_file;$i++) { 232: if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) { 233: $sygnal = 1; 234: } 235: if ($content_of_file[$i]=~m/Here is how much of/) { 236: $sygnal = 0; 237: } 238: if ($sygnal) { 239: print "$content_of_file[$i]<br />"; 240: } 241: } 242: if ($advans_role) { 243: print "<b><big>The link to "; 244: $logfilename=~s/\/home\/httpd//; 245: print "<a href=\"$logfilename\">Your log file </a></big></b>"; 246: print "\n"; 247: #link tooriginal LaTeX file (included according Michael Hamlin desire) 248: my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; 249: my @tex_content_of_file = <$tex_temporary_file>; 250: close $tex_temporary_file; 251: my $body_tex_file = join(' ',@tex_content_of_file); 252: $texfile =~ s/\.tex$/aaaaa\.html/; 253: $tex_temporary_file = IO::File->new('>'.$texfile); 254: print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; 255: print "<br /><br />"; 256: print "<b><big>The link to "; 257: $texfile=~s/\/home\/httpd//; 258: print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; 259: print "\n"; 260: } 261: 262: } elsif ($body_log_file=~m/<inserted text>/) { 263: my $whereitbegins = index $body_log_file,'<inserted text>'; 264: print "You are running LaTeX in <b>batch mode</b>."; 265: while ($whereitbegins != -1) { 266: my $tempobegin=$whereitbegins; 267: $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins; 268: my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins; 269: print "<br />It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." <br /> and corrected it.\n"; 270: 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"; 271: $whereitbegins = index $body_log_file,'<inserted text>',$tempobegin+10; 272: } 273: $name_file =~ s/\.tex/\.dvi/; 274: my $new_name_file = $name_file; 275: $new_name_file =~ s/\.dvi/\.ps/; 276: my $papera=$paper; 277: if ($papera eq 'letter') {$papera='';} 278: if ($papera ne '') {$papera='-t'.$papera;} 279: my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file"; 280: &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", 281: "for $status_statement now Converting to PS", 282: \%prog_state,$new_name_file); 283: if (-e $new_name_file) { 284: print "<h1>PDF output file (see link below)</h1>\n"; 285: $new_name_file =~ m/^(.*)\./; 286: my $ps_file = my $tempo_file = $1.'temporar.ps'; 287: my $pdf_file = $1.'.pdf'; 288: if ($laystyle eq 'album' and $numberofcolumns eq '2') { 289: $comma = "psnup -2 -s1.0 $new_name_file"; 290: &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", 291: "for $status_statement now Modifying PS layout", 292: \%prog_state,$tempo_file); 293: } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { 294: my $papera=$paper; 295: if ($papera eq 'letter') {$papera='';} 296: if ($papera ne '') {$papera='-p'.$papera;} 297: $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"'; 298: &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null", 299: "for $status_statement now Modifying PS layout", 300: \%prog_state,$tempo_file); 301: 302: } else { 303: $ps_file=$new_name_file; 304: } 305: &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null", 306: "for $status_statement now Converting PS to PDF", 307: \%prog_state, $pdf_file); 308: 309: my $texlog = $texfile; 310: my $texaux = $texfile; 311: my $texdvi = $texfile; 312: my $texps = $texfile; 313: $texlog =~ s/\.tex/\.log/; 314: $texaux =~ s/\.tex/\.aux/; 315: $texdvi =~ s/\.tex/\.dvi/; 316: $texps =~ s/\.tex/\.ps/; 317: my @garb = ($texaux,$texdvi,$texps); 318: # unlink @garb; 319: unlink $duefile; 320: print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; 321: if ($advans_role) { 322: print "<br /><br />"; 323: print "<b><big>The link to "; 324: $logfilename=~s/\/home\/httpd//; 325: print "<a href=\"$logfilename\">Your log file </a></big></b>"; 326: print "\n"; 327: #link tooriginal LaTeX file (included according Michael Hamlin desire) 328: my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; 329: my @tex_content_of_file = <$tex_temporary_file>; 330: close $tex_temporary_file; 331: my $body_tex_file = join(' ',@tex_content_of_file); 332: $texfile =~ s/\.tex$/aaaaa\.html/; 333: $tex_temporary_file = IO::File->new('>'.$texfile); 334: print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; 335: print "<br /><br />"; 336: print "<b><big>The link to "; 337: $texfile=~s/\/home\/httpd//; 338: print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; 339: print "\n"; 340: } 341: } 342: } else { 343: #LaTeX successfully parsed tex file 344: $name_file =~ s/\.tex/\.dvi/; 345: my $new_name_file = $name_file; 346: $new_name_file =~ s/\.dvi/\.ps/; 347: my $papera=$paper; 348: if ($papera eq 'letter') {$papera='';} 349: if ($papera ne '') {$papera='-t'.$papera;} 350: my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file"; 351: &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", 352: "for $status_statement now Converting to PS", 353: \%prog_state,$new_name_file); 354: if (-e $new_name_file) { 355: print "<br />"; 356: $new_name_file =~ m/^(.*)\./; 357: my $ps_file = my $tempo_file = $1.'temporar.ps'; 358: my $pdf_file = $1.'.pdf'; 359: if ($laystyle eq 'album' and $numberofcolumns eq '2') { 360: $comma = "psnup -2 -s1.0 $new_name_file"; 361: &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", 362: "for $status_statement now Modifying PS layout", 363: \%prog_state,$tempo_file); 364: } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { 365: $papera=~s/t/p/; 366: $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"'; 367: &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null", 368: "for $status_statement now Modifying PS layout", 369: \%prog_state,$tempo_file); 370: } else { 371: $ps_file=$new_name_file; 372: } 373: my $addtoPSfile={'legal'=>'<< /PageSize [612 1008] >> setpagedevice', 374: 'tabloid'=>'<< /PageSize [792 1224] >> setpagedevice', 375: 'executive'=>,'<< /PageSize [540 720] >> setpagedevice', 376: 'a2'=>'<< /PageSize [1195.02 1690.09] >> setpagedevice', 377: 'a3'=>'<< /PageSize [842 1195.02] >> setpagedevice', 378: 'a4'=>'<< /PageSize [595.2 842] >> setpagedevice', 379: 'a5'=>'<< /PageSize [421.1 595.2] >> setpagedevice', 380: 'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice', 381: }; 382: if ($paper ne 'letter') { 383: open(FFH,'<',$ps_file) || die "Couldn't open ps file $ps_file for reading: $!\n"; 384: my $new_ps_file='new'.$ps_file; 385: open(FFHS,'>',$new_ps_file) || die "Couldn't open new ps file $new_ps_file for reading: $!\n"; 386: print FFHS $addtoPSfile->{$paper}."\n"; 387: while (<FFH>) { 388: print FFHS $_; 389: } 390: close(FFH); 391: close(FFHS); 392: $ps_file=$new_ps_file; 393: } 394: &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null", 395: "for $status_statement now Converting PS to PDF", 396: \%prog_state,$pdf_file); 397: 398: my $texlog = $texfile; 399: my $texaux = $texfile; 400: my $texdvi = $texfile; 401: my $texps = $texfile; 402: $texlog =~ s/\.tex/\.log/; 403: $texaux =~ s/\.tex/\.aux/; 404: $texdvi =~ s/\.tex/\.dvi/; 405: $texps =~ s/\.tex/\.ps/; 406: my @garb = ($texlog,$texaux,$texdvi,$texps); 407: # unlink @garb; 408: unlink $duefile; 409: print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>"; 410: print "\n"; 411: } 412: } 413: } else { 414: print "LaTeX file $texfile was not created successfully"; 415: } 416: } 417: print "<br />"; 418: if ($number_of_files>1) { 419: my $zipfile=$texfile[0]; 420: $zipfile=~s/\.tex/\.zip/; 421: my $statement="zip $zipfile"; 422: foreach my $file (@texfile) { 423: $file=~s/\.tex/.\pdf/; 424: $statement.=' '.$file; 425: } 426: print("<pre>Zip Output:\n"); 427: system($statement); 428: print("</pre>"); 429: $zipfile=~s/\/home\/httpd//; 430: print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs."; 431: } 432: if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } 433: 434: my $done; 435: sub REAPER { 436: $done=1; 437: } 438: 439: sub busy_wait_command { 440: my ($command,$message,$progress_win,$output_file)=@_; 441: 442: $SIG{CHLD} = \&REAPER; 443: $done=0; 444: my $pid=open(CMD,"$command |"); 445: if ($adv) { 446: &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message); 447: } 448: while(!$done) { 449: sleep 1; 450: my $extra_msg; 451: if ($output_file) { 452: my $size=(stat($output_file))[7]; 453: $extra_msg=", $size bytes generated"; 454: } 455: if ($adv) { 456: &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win, 457: $message.$extra_msg); 458: } 459: } 460: $SIG{CHLD}='IGNORE'; 461: close(CMD); 462: } 463: 464: 465: 466: