[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.127 and 1.154

version 1.127, 2007/09/21 21:11:20 version 1.154, 2013/03/18 21:33:08
Line 43  use LONCAPA::Configuration; Line 43  use LONCAPA::Configuration;
   
 use strict;  use strict;
   
   my $busy_wait_timeout = 30; 
   my $pdfs_converted    = 0; # non zero if PDF includes (need to fixps).
   
   my $debugging = 0;
   
   sub debug {
       if ($debugging) {
    my ($text) = @_;
    print "$text <br />\n";
       }
   }
   
 #   Determine if a user is operating as a student for this course/domain.  #   Determine if a user is operating as a student for this course/domain.
 #Parameters:  #Parameters:
Line 112  sub send_error_mail { Line 123  sub send_error_mail {
   
  if (&is_student()) {   if (&is_student()) {
     # build the subject and message body:      # build the subject and message body:
     # print "sending message to course coordinators.<br />";      &debug("sending message to course coordinators.");
   
     # Todo: Convert badurl into a url from file path:      # Todo: Convert badurl into a url from file path:
   
     my $subject  = "Error [$badurl] Print failed for $user".'@'.$domain;      my $subject  = "Error [$badurl] Print failed for $user".':'.$domain;
     my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";      my $message .= "Print failed to render LaTeX for $user".':'."$domain\n";
     $message    .= "  User was attempting to print: \n";      $message    .= "  User was attempting to print: \n";
     foreach my $resource (split(/:/,$resources)) {      foreach my $resource (split(/:/,$resources)) {
  $message    .= "       $resource\n";   $message    .= "       $resource\n";
Line 131  sub send_error_mail { Line 142  sub send_error_mail {
     }      }
     my (undef, %receivers) = &Apache::lonmsg::decide_receiver(undef, 0,      my (undef, %receivers) = &Apache::lonmsg::decide_receiver(undef, 0,
       1,1,1);        1,1,1);
     # print "<br /> sending...section:  $env{'request.course.sec'}";      &debug("sending...section:  $env{'request.course.sec'}");
     foreach my $dest (keys %receivers) {      foreach my $dest (keys %receivers) {
  # print "<br /> dest is $dest";   &debug("dest is $dest");
  my @destinfo = split(/:/,$dest);   my @destinfo = split(/:/,$dest);
  my $user = $destinfo[0];   my $user = $destinfo[0];
  my $dom  = $destinfo[1];   my $dom  = $destinfo[1];
Line 160  Your cookie information is incorrect. Line 171  Your cookie information is incorrect.
 </body>  </body>
 </html>  </html>
 END  END
     return;      exit;
 }  }
   
 my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};  my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};
  &Apache::lonlocal::get_language_handle();  &Apache::lonlocal::get_language_handle();
  &Apache::loncommon::content_type(undef,'text/html');  &Apache::loncommon::content_type(undef,'text/html');
   $env{'request.noversionuri'} = '/cgi-bin/printout.pl';
   # Breadcrumbs
   #FIXME: Choose better/different breadcrumbs?!? Links?
   my $brcrum = [{'href' => '',
                  'text' => 'Helper'}, #FIXME: Different origin possible than print out helper?
                 {'href' => '',
                  'text' => 'Preparing Printout'},
                 {'href' => '',
                  'text' => 'Creating PDF'}];
   print(&Apache::loncommon::start_page('Creating PDF',
                                        undef,
                                        {'bread_crumbs' => $brcrum,}));
   
   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 $advanced_role = $env{'cgi.'.$identifier.'.role'};
   my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1;
   my $student_names = $env{'cgi.'.$identifier.'.studentnames'};
   my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});
   
   
   my @names_pack=();
   if ($student_names=~/_END_/) {  
       @names_pack=split(/_ENDPERSON_/,$student_names);
   }
   if ($backref) {
       print('<p>'.&mt("[_1]Return[_2] to editing resource.",
       "<a href=\"$backref\"><b>","</b></a>").'</p>');
   }
   my $figfile = $texfile;
   $figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;
   my $duefile = $texfile;
   $duefile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.due/;
   
   print(&Apache::loncommon::start_page('Creating PDF'));  
   
   my $identifier = $ENV{'QUERY_STRING'};  #-------------------------------------------------------------------------------------
   my $texfile = $env{'cgi.'.$identifier.'.file'};  #
   my $laystyle = $env{'cgi.'.$identifier.'.layout'};  #   Each print may have associated with it a file that contains a set of figures
   my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};  #   that need to be converted to .eps from whatever form they were in when included
   my $paper = $env{'cgi.'.$identifier.'.paper'};  #   in the resource.  The name of the figure file is in $figfile.  If it exists,
   my $selectionmade = $env{'cgi.'.$identifier.'.selection'};  #   it contains the names of the files that need to be converted, one per line.
   my $tableofcontents = $env{'cgi.'.$identifier.'.tableofcontents'};  #
   my $tableofindex = $env{'cgi.'.$identifier.'.tableofindex'};  
   my $advanced_role = $env{'cgi.'.$identifier.'.role'};  
   my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1;  
   my $student_names = $env{'cgi.'.$identifier.'.studentnames'};  
   my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});  
   
     &debug("Figure file is $figfile");
   my @names_pack=();  
   if ($student_names=~/_END_/) {    
       @names_pack=split(/_ENDPERSON_/,$student_names);  
   }  
   
 print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />";  if (-e $figfile) {
       &debug( "Figure file exists");
       &debug("$figfile exists");
       my %done_conversion;
       my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n";
       my @content_of_file = <$temporary_file>;
       close $temporary_file;  
       my $noteps;
       my %prog_state;
       if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$#content_of_file);  }
       print('<br />');
       foreach my $not_eps (@content_of_file) {
    chomp($not_eps);
    &debug( "Being asked to convert $not_eps");
    if ($not_eps ne '') {
       $not_eps=~s|\/\.\/|\/|g;
       if (!$done_conversion{$not_eps}) { #  Only convert multiple includes once.
    &convert_figure($not_eps);
    $done_conversion{$not_eps} = 1;
       }
    }
       }
       if ($advanced_role) { 
    &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); 
       }
       unlink($figfile);
   }
   #     End of figure conversion section:
   #
   #--------------------------------------------------------------------------------------------
   #
   #  Figure out which Tex files we need to process.  If this is a large class e.g.
   #  the instructor may have asked that the printout be by section, one section per file
   #  in that case, the output tex fiels will be the base filename with 3 digit serial numbers
   #  just prior to the .tex file type.
   #  By the time this loop exits, @texfile is an array of the files to process.
   #
   
   my $figfile = $texfile;  my @texfile=($texfile);
   $figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;  if ($number_of_files>1) {
   my $duefile = $texfile;      @texfile=();
   $duefile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.due/;      for (my $i=1;$i<=$number_of_files;$i++) {
   #do we have figures?   my $new_texfile=$texfile;
   # print "Figure file: $figfile\n";   $new_texfile=~s/\.tex//;
   if (-e $figfile) {   $new_texfile = sprintf("%s_%03d.tex", $new_texfile,$i);
       # print "$figfile exists\n";   push @texfile,$new_texfile;
       my %done_conversion;      } 
       my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n";  }
       my @content_of_file = <$temporary_file>;  
       close $temporary_file;    
       my $noteps;  
       my %prog_state;  
       if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80');  }  
       print('<br />');  
       foreach my $not_eps (@content_of_file) {  
   chomp($not_eps);  
   if ($not_eps ne '') {  
        # print "Converting $not_eps"; # Debugging.  
               my $status_statement='EPS picture for '.$not_eps;  
       # print "$status_statement\n";  
       $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 = $perlvar{'lonPrtDir'}.'/'.$eps_f;  
       } elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) {  
   $eps_f=~m/$perlvar{'lonDocRoot'}\/res\/(.+)/;  
   $eps_f = $perlvar{'lonPrtDir'}.'/'.$1;  
       } elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) {  
   $eps_f=~/$perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;  
   $eps_f = $perlvar{'lonPrtDir'}.'/'.$1.'/'.$2;  
       }  
       $eps_f  =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX.  
       #   
       # If the file is already an .eps or .ps file,  
       # We really just need to copy it from where it was to prtspool  
       # but with the spaces substituted to _'s.  
       #  
       my ($nsname,$path, $sext) = &fileparse($eps_f, qr/\.(ps|eps)/i);  
       if ($sext =~/ps$/i) {  
   # print "$not_eps is a postscript file. copy to $path\n";  
   &File::Path::mkpath($path,0,0777);  
   #print("Made path: $path");  
   #$not_eps =~ s/^\s+//;  
   #$not_eps =~ s/\s+$//;  
   #$not_eps =~ s/ /\__/g;  
   #print("Copying $not_eps to $eps_f\n");  
   copy("$not_eps", "$eps_f");   
   # print "Copy complete\n";  
       } else {  
         
   $eps_f .= '.eps'; # Just append the eps ext.  
   my $path=$eps_f;  
   $path =~ s/\/([^\/]+)\.eps$//;  
   # print "Final file path: $path "; # Debugging  
   &File::Path::mkpath($path,0,0777);  
   $not_eps =~ s/^\s+//;  
   $not_eps =~ s/\s+$//;  
   $not_eps =~ s/ /\\ /g;  
   if ( exists($done_conversion{$not_eps})) { next; }  
   if ($advanced_role) {  
       my $prettyname=$not_eps;  
       $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|;  
       $prettyname=~s|$perlvar{'lonDocRoot'}/|/|;  
       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,  
     'Converting to EPS '.$prettyname);  
   }  
   $done_conversion{$not_eps}=1;  
   # print "Converting $not_eps -> $eps_f"; # Debugging  
   system("convert $not_eps $eps_f");  
   # check is eps exist in prtspool  
   if (not -e $eps_f) {  
       # converting an animated gif creates either:  
       # anim.gif.eps.0  
       # or  
       # anim.gif-0.eps  
       for (my $i=0;$i<10000;$i++) {  
   if (-e $eps_f.'.'.$i) {  
       rename($eps_f.'.'.$i, $eps_f);  
       last;  
   }  
   my $anim_eps = $eps_f;  
   $anim_eps =~ s/(\.[^.]*)\.eps$/$1-$i\.eps/i;  
   if (-e $anim_eps) {  
       rename($anim_eps, $eps_f);  
       last;  
   }  
       }  
   }  
     
   # imagemagick 6.2.0-6.2.7 fails to properly handle  
   # convert anim.gif anim.gif.eps  
   # it creates anim.eps instead.   
   if (not -e $eps_f) {  
       my $eps_f2 = $eps_f;  
       $eps_f2 =~ s/\.[^.]*\.eps$/\.eps/i;  
       if(-e $eps_f2) {  
   rename($eps_f2,$eps_f);  
       }  
   }  
       }  
   
   }  #--------------------------------------------------------------------------------------------
       }  
       if ($advanced_role) {   
   &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//;  
   $new_texfile = sprintf("%s_%03d.tex", $new_texfile,$i);  
   push @texfile,$new_texfile;  
       }   
   }  
   
 my $ind=-1;  my $ind=-1;
   
 my %prog_state;  my %prog_state;
 if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); }  if ($advanced_role) { 
       %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$number_of_files); 
   }
 print "<br />";  print "<br />";
 my $num_files = @texfile;  my $num_files = @texfile; # How does this differ from $number_of_files , can that be 0?
   
   
   
   
 foreach $texfile (@texfile) {  foreach $texfile (@texfile) {
   my $status_statement='';    my $status_statement='';
   my $link_text='download PDF';    my $link_text='download PDF';
   $ind++;    $ind++;
   
     #---------------------------------------------------------------------------------------
     #  This chunk of code 
     #  determines the status message for the printout, and the download link text.
     #  If the print is for one or more students, both will contain the range of students
     #  covered by this file.
     #  
   
   my @stud_info=split(/_END_/,$names_pack[$ind]);    my @stud_info=split(/_END_/,$names_pack[$ind]);
   my @tempo_array=split(/:/,$stud_info[0]);    my @tempo_array=split(/:/,$stud_info[0]);       # username:domain:section:full name:...
   my $name;    my $name;
   my $name_range='';    my $name_range='';
   
     # $name       -> Either user's full name or username:domain
     # $name_range -> Either user's last name or usrname.
   
   if ($tempo_array[3]) {    if ($tempo_array[3]) {
       $name=$tempo_array[3];        $name=$tempo_array[3];
       ($name_range) = split(/,/,$name, 2);        ($name_range) = split(/,/,$name, 2);
   } else {    } else {
       $name=$tempo_array[0].'@'.$tempo_array[1];        $name=$tempo_array[0].':'.$tempo_array[1];
       $name_range = $tempo_array[0];        $name_range = $tempo_array[0];
   }    }
   if (($name ne "") && ($name ne '@') ) { # Could be printing codes...  
     # If there truly is a name add it to the status text so we know which
     # user is getting printed.
     #
   
     if (($name ne "") && ($name ne ':') ) { # Could be printing codes...
       $link_text='<b>'.$name.'</b>';        $link_text='<b>'.$name.'</b>';
       $status_statement.=$name;        $status_statement.=$name;
   }    }
   
     # Group of students being printed...
     # $name_range -> first student's name - last student's name
     #
   
   if ($#stud_info>0) {    if ($#stud_info>0) {
       @tempo_array=split(/:/,$stud_info[-1]);        @tempo_array=split(/:/,$stud_info[-1]);
       if ($tempo_array[3]) {        if ($tempo_array[3]) {
Line 345  foreach $texfile (@texfile) { Line 339  foreach $texfile (@texfile) {
   my ($lastname) = split(/,/, $name,2);    my ($lastname) = split(/,/, $name,2);
   $name_range .= "-".$lastname;    $name_range .= "-".$lastname;
       } else {        } else {
   $name=$tempo_array[0].'@'.$tempo_array[1];    $name=$tempo_array[0].':'.$tempo_array[1];
   $name_range .= '-'.$tempo_array[0];    $name_range .= '-'.$tempo_array[0];
       }        }
       if (($name ne "") && ($name ne '@')) {        if (($name ne "") && ($name ne ':')) {
   $link_text.=' - <b>'.$name.'</b>';    $link_text.=' - <b>'.$name.'</b>';
   $status_statement.=' -  '.$name;    $status_statement.=' -  '.$name;
       
       }        }
   }    }
   if(($num_files > 1) && ($link_text eq 'download PDF')) { # Printing codes  
     # $name_range is the range of names in this file.
     # $name is the first of the names in this file.
     #
     #-----------------------------------------------------------------------
   
     #  If the number of files is > 1, but we don't have multiple
     #  student names, we must be printing an exam from codes.
     #  The download link becomes the filename (basename.tex
     #  The status info has the basename appended to it.
     #
     if(($num_files > 1) && ($link_text eq 'download PDF')) {
       $link_text = '<b>'.basename($texfile,'.tex').'.pdf</b>';        $link_text = '<b>'.basename($texfile,'.tex').'.pdf</b>';
       $status_statement .= basename($texfile);        $status_statement .= basename($texfile);
   }    }
   
   
     #------------------------------------------------------------------------
   
   $name_range =~ s/'//g; # O'Neil -> ONeil e.g.    $name_range =~ s/'//g; # O'Neil -> ONeil e.g.
   
   
   print "<br/>";    print "<br/>";
   if ($advanced_role) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }    if ($advanced_role) { 
   #  This little piece of dirt puts username ranges into the original tex        &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt('Creating PDF for: [_1]',$status_statement)); 
   #  Tex filename from which they'll propagate into the other filenames as well.    }
   #  
   if (-e $texfile) {    if (-e $texfile) { # Ensure the tex file exists:
   
         #---------------------------------------------------------------------
         #
         #  Put username ranges into the original tex
         #  Tex filename from which they'll propagate into the other filenames as well.
         #
   
       if (($name_range ne '') && ($num_files > 1)) {        if (($name_range ne '') && ($num_files > 1)) {
   my $newtexfile = $texfile;    my $newtexfile = $texfile;
   $newtexfile    =~ s/\.tex/$name_range\.tex/;    $newtexfile    =~ s/\.tex/$name_range\.tex/;
   rename($texfile, $newtexfile);    rename($texfile, $newtexfile);
   $texfile       = $newtexfile;    $texfile       = $newtexfile;
       }        }
   
         #---------------------------------------------------------------------
   
       $texfile =~ m/^(.*)\/([^\/]+)$/;         $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;        my $name_file = $2;
       my $path_file = $1.'/';        my $path_file = $1.'/';
       chdir $path_file;        chdir $path_file;
       my $dvi_file= $name_file; $dvi_file =~ s/\.tex/$name_range\.dvi/;        my $dvi_file= $name_file; $dvi_file =~ s/\.tex$/\.dvi/;
       &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",        &make_dvi_file($name_file,
  "for $status_statement now LaTeXing file",       $dvi_file,
  \%prog_state,$dvi_file);       $tableofcontents,
       if ($tableofcontents eq 'yes') {       $tableofindex,
       &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",       $status_statement,
  "for $status_statement First LaTeX of file for table of contents",       \%prog_state,
  \%prog_state,$dvi_file);       $busy_wait_timeout);
       &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",  
  "for $status_statement Second LaTeX of 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 log file $logfilename 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/) {  
   my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';  
   my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';  
   my $badresource;  
   my $badtext;  
   if ($whereitbegins!=-1 and $whereitends!=-1) {  
       $badtext = substr($body_log_file,$whereitbegins+26, $whereitends-$whereitbegins-26);  
       $whereitbegins  = rindex $badtext,'located in';  
       if ($whereitbegins != -1) {  
     
   $badresource = substr($badtext, $whereitbegins+27,   
  length($badtext) - $whereitbegins - 48);  
   # print "<br />failing resourcename: $badresource<br />";  
       }  
   }  
     
           if ($advanced_role) {    
       #LaTeX failed to parse tex file   
       print "<h2>LaTeX could not successfully parse your tex file.</h2>";  
       print "It probably has errors in it.<br />";  
       print "With very high probability this error occured in ".$badtext."<br /><br />";  
       print "Here are the error messages in the LaTeX log file<br /><pre>";  
   
       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]";  
   }    
       }  
       print "</pre>\n";  
       # print "<br /> Advanced role <br />";  
               print "<b><big>The link to ";  
               $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};  
       print "<a href=\"$logfilename\">Your log file </a></big></b>";  
       print "\n";  
               #link tooriginal LaTeX file (included according Michael Hamlin desire)  
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 "<br /><br />";  
       print "<b><big>The link to ";  
               $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};  
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";  
       print "\n";  
       my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");  
       print ("$help_text");  
   
   } else { # Student role...  
       #  at this point:  
       #    $body_log_file - contains the log file.  
               #    $name_file     - is the name of the LaTeX file.  
               #    $identifier    - is the unique LaTeX identifier.l  
   
       print "<br />There are errors in $badtext";  
       print "<br />These errors prevent this resource from printing correctly";  
       my $tex_handle = IO::File->new($name_file);  
       my @tex_contents = <$tex_handle>;  
       &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);  
       print "<br />A message has been sent to the instructor describing this failure<br />";  
       my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");  
       print  ("$help_text");  
   
   }  
   
       } elsif ($body_log_file=~m/<inserted text>/) {  
   my $whereitbegins = index $body_log_file,'<inserted text>';  
   print "You are running LaTeX in <b>batch mode</b>.";  
   while ($whereitbegins != -1) {  
       my $tempobegin=$whereitbegins;  
       $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;  
       my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;  
       print "<br />It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." <br /> 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 $papera=$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) {  
       my $latex_file = $name_file;  
       $latex_file    =~ s/\.dvi/\.tex/;  
       &repaginate($new_name_file, $latex_file, $numberofcolumns);  
       #  
       #  Now have to re-latex, re dvips again to   
       #  get the repaginated postscript.  
       #  
       &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
  "for $status_statement first latex to repaginate",  
  \%prog_state, $name_file);  
       if ($tableofcontents eq 'yes') {  
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
      "for $status_statement second latex to repaginate",  
      \%prog_state, $name_file);  
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
      "for $status_statement third latex to repaginate",  
      \%prog_state, $name_file);  
       }  
       if ($tableofindex eq 'yes') {  
   my $idxname = $latex_file;  
   $idxname =~ s/\.tex$/\.idx/;  
   &busy_wait_command("makeindex $idxname",  
      "Re-creating index file",  
      \%prog_state, $idxname);  
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
      "for $status_statement now Recreting index (latex)",  
      \%prog_state, $dvi_file);  
   
       }        #Do we have a latex error in the log file?
       &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",  
  "for $status_statement dvips to repaginate",  
  \%prog_state, $new_name_file);  
       #  
       #  One last little hinky kinky thing.  
       #  It's just possible that some fonts could not be maded  
       #  at the resolution of the pdf print driver.  
       #  In that case a file called missfont.log will have been  
       #  created that will contain the commands that were attempted  
       # to create the missing fonts.  If we basically  
       # take all the 8000 strings in that file, and  
       # replace them with 600 (the ljfour resolution)  
       # run the commands in that file and redvips,  
       # we'll be able to print the missing glyphs at 600dpi.  
       #  
       # Supposedly it is possible to tune TeX/Metafont to do this  
       # right but I failed to get that to work when following the  
       # docs at the tug site, hence this rather kludgey fix.  
       #  
       #  We make the (I think) reasonable assumption that  
       #  missing glyphs won't change the pagination and I think  
       #  this is true because TeX/dvips will leave a space  
       #  instead of these glyphs based on the font metrics  
       #  (fancy way to say there will be a blank the size of the missing  
       #  glyphs).  
       #  
       my $print_directory = dirname($name_file);  
       my $missfonts_file  = $print_directory."/missfont.log";  
       #print("<br /> Missing fonts file is: $missfonts_file");  
       if (-e $missfonts_file) {  
   #print("<br />Missing fonts file exists\n");  
   &create_missing_fonts($missfonts_file,\%prog_state);  
   &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",  
      "for $status_statement dvips generated missing fonts",  
      \%prog_state, $new_name_file);  
       }  
   
       #  
       print "\n<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') {  
   my $papera=$paper;  
                   if ($papera eq 'letter') {$papera='';}  
   if ($papera ne '') {$papera='-p'.$papera;}  
   $comma = "psnup $papera -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 $papera=$paper;  
                   if ($papera eq 'letter') {$papera='';}  
   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 {        my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/;
   $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>";  
       unlink($missfonts_file);  
   
   }        if (&analyze_logfile($logfilename, $texfile, $advanced_role)) {
   if ($advanced_role) {      
       print "<br /><br />";  
       print "<b><big>The link to ";  
               $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};  
       print "<a href=\"$logfilename\">Your log file </a></big></b>";  
       print "\n";  
       #link tooriginal LaTeX file (included according Michael Hamlin desire)  
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 "<br /><br />";  
       print "<b><big>The link to ";  
               $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};  
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";  
       print "\n";  
   }  
   
       } else {  
   #LaTeX successfully parsed tex file     #LaTeX successfully parsed tex file 
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
   my $new_name_file = $name_file;    my $new_name_file = $name_file;
Line 641  foreach $texfile (@texfile) { Line 422  foreach $texfile (@texfile) {
   my $papera=$paper;    my $papera=$paper;
   if ($papera eq 'letter') {$papera='';}    if ($papera eq 'letter') {$papera='';}
   if ($papera ne '') {$papera='-t'.$papera;}    if ($papera ne '') {$papera='-t'.$papera;}
   my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";    my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
     my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";
   &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Converting to PS",       "for $status_statement now Converting to PS",
      \%prog_state,$new_name_file);       \%prog_state,$new_name_file);
Line 661  foreach $texfile (@texfile) { Line 443  foreach $texfile (@texfile) {
   # right but I failed to get that to work when following the    # right but I failed to get that to work when following the
   # docs at the tug site, hence this rather kludgey fix.    # docs at the tug site, hence this rather kludgey fix.
   #    #
   #  We make the (I think) reasonable assumption that  
   #  missing glyphs won't change the pagination and I think  
   #  this is true because TeX/dvips will leave a space  
   #  instead of these glyphs based on the font metrics  
   #  (fancy way to say there will be a blank the size of the missing  
   #  glyphs).  
   #  
   my $print_directory = dirname($name_file);    my $print_directory = dirname($name_file);
   my $missfonts_file  = $print_directory."/missfont.log";    my $missfonts_file  = $print_directory."/missfont.log";
   #print("<br /> Missing fonts file is: $missfonts_file");    #print("<br /> Missing fonts file is: $missfonts_file");
Line 682  foreach $texfile (@texfile) { Line 458  foreach $texfile (@texfile) {
       my $latex_file = $name_file;        my $latex_file = $name_file;
       $latex_file =~ s/\.dvi/\.tex/;        $latex_file =~ s/\.dvi/\.tex/;
       &repaginate($new_name_file, $latex_file,  $numberofcolumns);        &repaginate($new_name_file, $latex_file,  $numberofcolumns);
       &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
  "for $status_statement first latex to repaginate",        &make_dvi_file($latex_file,
  \%prog_state, $name_file);       $name_file,
       if ($tableofcontents eq 'yes') {       $tableofcontents,
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",       $tableofindex,
      "for $status_statement second latex to repaginate",       $status_statement,
      \%prog_state, $name_file);       \%prog_state,
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",       $busy_wait_timeout);
      "for $status_statement third latex to repaginate",  
      \%prog_state, $name_file);  
       }  
       if ($tableofindex eq 'yes') {  
   my $idxname = $latex_file;  
   $idxname    =~ s/\.tex$/\.idx/;  
   &busy_wait_command("makeindex $idxname",  
      "Re-creating index file",  
      \%prog_state, $idxname);  
   &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",  
      "for $status_statement now Recreting index (latex)",  
      \%prog_state, $dvi_file);  
       }  
       &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",        &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
  "for $status_statement dvips to repaginate",   "for $status_statement dvips to repaginate",
  \%prog_state, $new_name_file);   \%prog_state, $new_name_file);
Line 712  foreach $texfile (@texfile) { Line 477  foreach $texfile (@texfile) {
       my $ps_file = my $tempo_file = $1.'temporar.ps';        my $ps_file = my $tempo_file = $1.'temporar.ps';
       my $pdf_file = $1.'.pdf';        my $pdf_file = $1.'.pdf';
       $papera=~s/t/p/;        $papera=~s/t/p/;
   #----
   # The code below uses fixps to make pdf include in sequences work.
   #
   #              $comma = "fixps --force $new_name_file";
   #              &debug("FIXPS command: $comma");
   #              &busy_wait_command("$comma 1>$tempo_file  2>/dev/null",
   #                                 "for $status_statement now validating PS",
   #                                 \%prog_state,$tempo_file);
   
   #--- 
   #  The code below uses gs to make pdf includes in sequences work
   
         # Use gs to fix the postscript -> level 1.5 
         # .. if pdfs were included
   
         if ($pdfs_converted > 0) {
     $comma = "gs -sDEVICE=pswrite -dLanguageLevel=1.5 ";
     &busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null",
        "for $status_statement now validating PS",
        \%prog_state, $tempo_file);
     
   #---
     &busy_wait_command("mv $tempo_file $new_name_file",
        'File move', \%prog_state, $new_name_file);
         }
       if ($laystyle eq 'album' and $numberofcolumns eq '2') {        if ($laystyle eq 'album' and $numberofcolumns eq '2') {
   $comma = "psnup $papera -2 -s1.0 $new_name_file";    $comma = "psnup $papera -2 -s1.0 $new_name_file";
     &debug("PSNUP command: $comma");
   &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);       \%prog_state,$tempo_file);
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';    $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)" '.$new_name_file;
   &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",    &debug("PSTOPS command: $comma ");
     &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);        \%prog_state,$tempo_file); 
       } else {        } else {
Line 746  foreach $texfile (@texfile) { Line 538  foreach $texfile (@texfile) {
   close(FFHS);    close(FFHS);
   $ps_file=$new_ps_file;      $ps_file=$new_ps_file;  
       }        }
       &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",        &busy_wait_command("ps2pdf13 $ps_file $pdf_file 1>/dev/null 2>/dev/null",
  "for $status_statement now Converting PS to PDF",   "for $status_statement now Converting PS to PDF",
  \%prog_state,$pdf_file);   \%prog_state,$pdf_file);
           
Line 761  foreach $texfile (@texfile) { Line 553  foreach $texfile (@texfile) {
       my @garb = ($texlog,$texaux,$texdvi,$texps);        my @garb = ($texlog,$texaux,$texdvi,$texps);
 #  unlink @garb;  #  unlink @garb;
       unlink($duefile);        unlink($duefile);
       print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";        print
       print "\n";                    '<p>'
                    .&mt('[_1] - [_2]Your PDF file[_3] is ready for download.',
                         $link_text,'<a href="/prtspool/'.$pdf_file.'">','</a>')
                    .'</p>'."\n";
   }    }
   unlink($missfonts_file);    unlink($missfonts_file);
   
       }          }  
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print
             '<p class="LC_error">'
            .&mt('The LaTeX file [_1] was not created successfully.',
                 '<span class="LC_filename">'.$texfile.'</span>')
            .'</p>';
   }    }
 }  }
 print "<br />";  print "<br />";
Line 780  if ($number_of_files>1) { Line 579  if ($number_of_files>1) {
  $file=~s/\.tex/.\pdf/;   $file=~s/\.tex/.\pdf/;
  $statement.=' '.$file;    $statement.=' '.$file; 
     }      }
     print("<pre>Zip Output:\n");      print('<p>'.&mt('Zip Output:')."\n<pre>\n");
     system($statement);      system($statement);
     print("</pre>");      print("</pre></p>\n");
     $zipfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};      $zipfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
     print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";      print
           '<p>'
          .&mt('A [_1]ZIP file[_2] of all the PDF files is ready for download.',
               '<a href="'.$zipfile.'">','</a>')
          .'</p>';
 }  }
 if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }  if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
 print(&Apache::loncommon::end_page());  print(&Apache::loncommon::end_page());
Line 793  my $done; Line 596  my $done;
 sub REAPER {  sub REAPER {
     $done=1;      $done=1;
 }  }
   #
   #  Execute a command updating the status window as the command's
   #  output file builds up (at intervals of a second).
   #
   #   If the timeout argument defined, then if that many seconds
   #   elapses without an increase in the size of the output file,
   #   the command will be killed (this deals with the case when
   #   latex crawls into an infinite loop).
   #
 sub busy_wait_command {  sub busy_wait_command {
     my ($command,$message,$progress_win,$output_file)=@_;      my ($command,$message,$progress_win,$output_file, $timeout)=@_;
           
     $SIG{CHLD} = \&REAPER;      $SIG{CHLD} = \&REAPER;
     $done=0;      $done=0;
Line 803  sub busy_wait_command { Line 614  sub busy_wait_command {
     if ($advanced_role) {      if ($advanced_role) {
  &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);   &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
     }      }
       my $last_size      = 0;
       my $unchanged_time = 0;
     while(!$done) {      while(!$done) {
  sleep 1;   sleep 1;
  my $extra_msg;   my $extra_msg;
  if ($output_file) {   if ($output_file) {
     my $size=(stat($output_file))[7];      my $size=(stat($output_file))[7];
     $extra_msg=", $size bytes generated";      $extra_msg=", $size bytes generated";
       if ($size == $last_size) {
    $unchanged_time++;
    if ($timeout && ($unchanged_time > $timeout)) {
       print '<p class="LC_error">'.&mt('Operation timed out!')."</p>\n";
       print "<p>Executing $command, the output file $output_file did not grow\n";
       print "after $timeout seconds.  This <em>may</em> indicate $command\n";
       print "is in an infinite loop.\n";
       print "See if printing fewer copies helps.  Please contact LON-CAPA\n";
       print "support about this in any event.";
       print "</p>";
       kill(9, $pid); # Reaper will do the rest...I hope there's errors in the log.
    }
       } else {
    $last_size      = $size;
    $unchanged_time = 0;
       }
  }   }
  if ($advanced_role) {   if ($advanced_role) {
     &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,      &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message.$extra_msg);
   $message.$extra_msg);  
  }   }
     }      }
     $SIG{CHLD}='IGNORE';      $SIG{CHLD}='IGNORE';
     close(CMD);      close(CMD);
 }  }
   
   # Make the dvi file (or rather try to), from the latex file and the
   # various bits and pieces that control how the latex file is processed:
   # LaTeX is run as many times a needed to make this all happen... this may
   # result in several runs of LaTeX that just are errors if the LaTeX is
   # bad, but the printing subsystem is _supposed_ to not do that.
   #
   # Parameters:
   #   name_file        - Name of the LaTeX file to process.
   #   dvi_file         - Name of resulting dvi file.
   #   tableofcontents  - "yes" if we are supposed to make a table of contents.
   #   tableofindex     - "yes" if we are suposed to make an index.
   #   status_statement - Part of the status statement for ths status window.
   #   prog_state       - Reference to the program state hash.
   #   busy_wait_timeout- Seconds without any progress that imply a problem.
   #
   #
   sub make_dvi_file {
       my ($name_file,
    $dvi_file,
    $tableofcontents,
    $tableofindex,
    $status_statement,
    $prog_state,
    $busy_wait_timeout) = @_;
       
       
       &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
          "for $status_statement now LaTeXing file",
          $prog_state,$dvi_file, $busy_wait_timeout);
   
       # If the tableof contents was requested, we need to run 
       # LaTex a couple more times to get all the references sorted out.
   
       if ($tableofcontents eq 'yes') {
    &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
      "for $status_statement First LaTeX of file for table of contents",
      $prog_state,$dvi_file, $busy_wait_timeout);
    &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
      "for $status_statement Second LaTeX of file for table of contents",
      $prog_state,$dvi_file,$busy_wait_timeout);
       } 
   
       # And makeindex and another run of LaTeX to incorporate it if the index
       # is enabled.
   
   
       if ($tableofindex eq 'yes') {
    my $idxname=$name_file;
    $idxname=~s/\.tex$/\.idx/;
    &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, $busy_wait_timeout);
       } 
       
   }    
   
   
 #  Repagninate  #  Repagninate
 #  What we need to do:  #  What we need to do:
 #   - Count the number of pages in each student.  #   - Count the number of pages in each student.
Line 849  sub repaginate { Line 737  sub repaginate {
     my @pages_in_student; # For each student his/her initial page count.      my @pages_in_student; # For each student his/her initial page count.
     my $max_pages = 0; # Pages in 'longest' student.      my $max_pages = 0; # Pages in 'longest' student.
     my $page_number = 0;      my $page_number = 0;
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]",1));
   &mt("Counting pages for student: [_1]",1));  
   
     while ($line = <PSFILE>) {      while ($line = <PSFILE>) {
   
Line 878  sub repaginate { Line 765  sub repaginate {
  # - save the page_number, reset and, if necessary   # - save the page_number, reset and, if necessary
  #    update max_pages.   #    update max_pages.
  push(@pages_in_student, $page_number);   push(@pages_in_student, $page_number);
  &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,    &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]", scalar(@pages_in_student)));
       &mt("Counting pages for student: [_1]", scalar(@pages_in_student)));  
  if ($page_number > $max_pages) {   if ($page_number > $max_pages) {
     $max_pages = $page_number;      $max_pages = $page_number;
  }   }
Line 891  sub repaginate { Line 777  sub repaginate {
     }      }
     # file ended so one more student      # file ended so one more student
     push(@pages_in_student, $page_number);      push(@pages_in_student, $page_number);
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]",scalar(@pages_in_student)));
   &mt("Counting pages for student: [_1]",scalar(@pages_in_student)));  
     if ($page_number > $max_pages) {      if ($page_number > $max_pages) {
  $max_pages = $page_number;   $max_pages = $page_number;
     }      }
Line 919  sub repaginate { Line 804  sub repaginate {
   
   
     my $student_number    = 0; # Index of student we're working on.      my $student_number    = 0; # Index of student we're working on.
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Repaginating student: [_1]",$student_number+1));
   "Repaginating student ".$student_number+1);  
   
     while (my $line = <LATEXIN>) {      while (my $line = <LATEXIN>) {
  if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") {   if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") {
Line 937  sub repaginate { Line 821  sub repaginate {
     }      }
           
     $student_number++;      $student_number++;
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Repaginating student: [_1]",$student_number+1));
   "Repaginating student ".$student_number+1);  
           
  } else {   } else {
     print LATEXOUT $line;      print LATEXOUT $line;
Line 1005  sub create_missing_fonts { Line 888  sub create_missing_fonts {
     }      }
   
 }  }
   #
   #  Convert a figure file to encapsulated postscript:
   #  At present, this is using a lot of file scoped globals to pass data around. 
   # Parameters:
   #    not_eps  - The name of the file to convert which, presumably, is not
   #               already an eps file.
   #
   sub convert_figure {
       my ($not_eps) = @_;
       &debug("in convert_figure");
   
       my $status_statement='EPS picture for '.$not_eps;
       my $eps_f = $not_eps;
   
       if ($eps_f=~/\/home\/httpd\/html\/priv\/[^\/]+\/([^\/]+)\//) {
    $eps_f=~s/\/home\/httpd\/html\/priv\/[^\/]+\/([^\/]+)/$1/;
       } elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) {
    $eps_f=~ s/$perlvar{'lonDocRoot'}\/res\/(.+)/$1/;
       } elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) {
    $eps_f=~ s/$perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/$1\/$2/;
       }
   
       $eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f;
   
       # Spaces are problematic for system commands and LaTeX, replace with _
   
       $eps_f  =~ s/ /\_/g; 
   
       # 
       # If the file is already an .eps or .ps file (eps_f still has the original
       # file type),
       # We really just need to copy it from where it was to prtspool
       # but with the spaces substituted to _'s.
       #
       my ($nsname,$path, $sext) = &fileparse($eps_f, qr/\.(ps|eps)/i);
       if ($sext =~/ps$/i) {
    &File::Path::mkpath($path,0,0777);
    copy("$not_eps", "$eps_f"); 
       } else {
   
    $eps_f .= '.eps'; # Just append the eps ext.
    my $path= &dirname($eps_f);
    &File::Path::mkpath($path,0,0777);
    $not_eps =~ s/^\s+//;
    $not_eps =~ s/\s+$//;
    $not_eps =~ s/ /\\ /g;
       my $prettyname=$not_eps;
    if ($advanced_role) {
       $prettyname=~s|$perlvar{'lonDocRoot'}/|/|;
       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt('Converting to EPS: [_1]',$prettyname));
    }
    #
    #  If the file is a PDF, need to use pdftops to convert it to a ps file.
    #  otherwise use imagemagik:
    #
    if($not_eps =~/\.(pdf|PDF)$/) {
   
       #
       # For whatever reason, pure postscript conversions have to be
       # in the same dir as the base file:
       #
       $eps_f = &basename($eps_f);
       $eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f;
   
       &debug("Converting pdf $not_eps to postscript: $eps_f");
       system("pdftops $not_eps $eps_f");
       $pdfs_converted++; # Need to fix ps in last pass.
    } else {
       system("convert $not_eps $eps_f");
           if($? and $advanced_role){
               print "<p class=\"LC_warning\">"
                     .mt("An error occured during the conversion of [_1].[_2]"
                     ."If possible try to save this image using different settings and republish it.",
                     "<span class=\"LC_filename\">".$prettyname."</span>", "<br/>")
                     ."</p>";
           }
    }
   
    if (not -e $eps_f) {
       # converting an animated gif creates either:
       # anim.gif.eps.0
       # or
       # anim.gif-0.eps
       for (my $i=0;$i<10000;$i++) {
    if (-e $eps_f.'.'.$i) {
       rename($eps_f.'.'.$i, $eps_f);
       last;
    }
    my $anim_eps = $eps_f;
    $anim_eps =~ s/(\.[^.]*)\.eps$/$1-$i\.eps/i;
    if (-e $anim_eps) {
       rename($anim_eps, $eps_f);
       last;
    }
       }
    }
   
    # imagemagick 6.2.0-6.2.7 fails to properly handle
    # convert anim.gif anim.gif.eps
    # it creates anim.eps instead. 
    if (not -e $eps_f) {
       my $eps_f2 = $eps_f;
       $eps_f2 =~ s/\.[^.]*\.eps$/\.eps/i;
       if(-e $eps_f2) {
    rename($eps_f2,$eps_f);
       }
    }
       }
       
   }
   #
   #   Analyze a LaTeX logfile producing appropriate  output on error and 
   #   returning a boolean to let the caller know if, in our opinion, it's
   #   worth continuing on to produce the PDF file.
   #
   # Parameters:
   #   logfilename   - Name of the logfile.
   #   texfile       - Name of the LaTeX file that was being processed.
   #   advanced_role - True if the user is privileged with respect to the printout
   #                   (e.g. is the course coordinator or some such thing).
   # Returns:
   #    1            - Caller is advised to continue to create the PDF.
   #    0            - Caller need not bother creating the PDF.
   # Side Effects:
   #   Messages are printed to describe any errors that have been encountered.
   # NOTE:
   #    The current policy is to assume that if LaTeX decided to insert some text
   #    it has salvaged the resource and the resource can be printed.. in that case
   #    a message is emitted from this sub.
   #
   sub analyze_logfile {
       my ($logfilename, $texfile, $advanced_role) = @_;
   
       my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename 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/) {
    my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
    my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
    my $badresource;
    my $badtext;
    if ($whereitbegins!=-1 and $whereitends!=-1) {
       $badtext = substr($body_log_file,$whereitbegins+26, $whereitends-$whereitbegins-26);
       $whereitbegins  = rindex $badtext,'located in';
       if ($whereitbegins != -1) {
   
    $badresource = substr($badtext, $whereitbegins+27, 
         length($badtext) - $whereitbegins - 48);
    # print "<br />failing resourcename: $badresource<br />";
       }
           }
   
    # Guys with privileged roles get a more detailed error output:
   
    if ($advanced_role) {  
       #LaTeX failed to parse tex file 
       print "<h2>".&mt('LaTeX could not successfully parse your TeX file.')."</h2>";
       print &mt('It probably has errors in it.')."<br />";
       if ($badtext) {
                   print &mt('With very high probability this error occured in [_1].',$badtext)
                        ."<br /><br />";
               }
       print &mt('Here are the error messages in the LaTeX log file:')
                    ."<br /><pre>";
       
       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]";
    }  
       }
       print "</pre>\n";
       # print "<br /> Advanced role <br />";
       $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
       print "<b><big>"
                    .&mt('The link to [_1]Your log file[_2]','<a href="'.$logfilename.'">','</a>')
            ."</big></b>\n";
       #link to original LaTeX file
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 "<br /><br />";
       $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
       print "<b><big>"
                    .&mt('The link to [_1]Your original LaTeX file[_2]','<a href="'.$texfile.'">','</a>')
            ."</big></b><br /><br />\n";
       my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", &mt('Help on printing'));
       print ("$help_text");
   
       # Students on the other hand get a minimal error message, since they won't
       # be able to correct the error message. A message is sent to the 
       # instructor:
   
    } else { # Student role...
       #  at this point:
       #    $body_log_file - contains the log file.
       #    $name_file     - is the name of the LaTeX file.
       #    $identifier    - is the unique LaTeX identifier.l
       
               print '<p class="LC_error">';
       if ($badtext) {
                   print &mt('There are errors in [_1].',$badtext);
               } else {
                   print &mt('There are errors.');
               }
               print '</p>'
                    .&mt('These errors prevent this resource from printing correctly.');
   
       my $tex_handle = IO::File->new($texfile);
       my @tex_contents = <$tex_handle>;
       &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
       print "<p>"
                    .&mt('A message has been sent to the instructor describing this failure.')
                    ."</p>";
       my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", &mt('Help on printing'));
       print  ("$help_text");
       
     }
   
    # Either way, an emergency stop does not allow us to continue so:
   
    return 0;
   
    # The branch of code below is taken if it appears that 
    # there was no emergency stop but LaTeX had to correct the
    # input file to run.
    # In that case we need to provide error feedback, as the correction >may< not be
    # sufficient, we can let the game continue as there's a dvi file to process.
   
       } elsif ($body_log_file=~m/<inserted text>/) {
    my $whereitbegins = index $body_log_file,'<inserted text>';
    print &mt('You are running LaTeX in [_1]batch mode[_2].','<b>','</b>');
    while ($whereitbegins != -1) {
       my $tempobegin=$whereitbegins;
       $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
       my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;
       print "<br />"
                    .&mt('It has found an error in [_1][_2]and corrected it.',substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26),"<br />")."\n";
       print &mt('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;
    }
   
    if ($advanced_role) {  
       print "<br /><br />";
       $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
       print "<b><big>"
                    .&mt('The link to [_1]Your log file[_2]'
                        ,'<a href="'.$logfilename.'">','</a>')
            ."</big></b>\n";
       #link to original LaTeX file
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 "<br /><br />";
       $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
       print "<b><big>"
                     .&mt('The link to [_1]Your original LaTeX file[_2]','<a href="'.$texfile.'">','</a>');
       print "</big></b>\n";
    }
    return 1;
       }
       return 1; # NO log file issues at all.
   }
Removed from v.1.127  
changed lines
  Added in v.1.154

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.