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

Diff for /loncom/interface/printout.pl between versions 1.115 and 1.119

version 1.115, 2006/12/06 12:10:16 version 1.119, 2006/12/19 10:39:28
Line 527  foreach $texfile (@texfile) { Line 527  foreach $texfile (@texfile) {
      \%prog_state, $dvi_file);       \%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 555  foreach $texfile (@texfile) { Line 555  foreach $texfile (@texfile) {
       #        #
       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");
       if (-e $missfonts_file) {        if (-e $missfonts_file) {
   print "<br />Missing fonts file exists\n";    #print("<br />Missing fonts file exists\n");
   &create_missing_fonts($missfonts_file);    &create_missing_fonts($missfonts_file);
   unlink($missfonts_file, \%prog_state);    &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 generated missing fonts",       "for $status_statement dvips generated missing fonts",
      \%prog_state, $new_name_file);       \%prog_state, $new_name_file);
       }        }
Line 606  foreach $texfile (@texfile) { Line 605  foreach $texfile (@texfile) {
 #  unlink @garb;  #  unlink @garb;
       unlink $duefile;        unlink $duefile;
       print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>";        print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>";
         unlink $missfonts_file;
   
   }    }
   if ($advanced_role) {      if ($advanced_role) {  
       print "<br /><br />";        print "<br /><br />";
Line 627  foreach $texfile (@texfile) { Line 628  foreach $texfile (@texfile) {
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";        print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
       print "\n";        print "\n";
   }    }
   
       } else {        } else {
   #LaTeX successfully parsed tex file     #LaTeX successfully parsed tex file 
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
Line 664  foreach $texfile (@texfile) { Line 666  foreach $texfile (@texfile) {
   #    #
   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");
   if (-e $missfonts_file) {    if (-e $missfonts_file) {
       print "<br />Missing fonts file exists\n";        #print("<br />Missing fonts file exists\n");
       &create_missing_fonts($missfonts_file);        &create_missing_fonts($missfonts_file);
       unlink($missfonts_file, \%prog_state);        &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 generated missing fonts",   "for $status_statement dvips generated missing fonts",
  \%prog_state, $new_name_file);   \%prog_state, $new_name_file);
   }    }
Line 759  foreach $texfile (@texfile) { Line 760  foreach $texfile (@texfile) {
       print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";        print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";
       print "\n";        print "\n";
   }    }
     unlink $missfonts_file;
   
       }          }  
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
Line 962  sub create_missing_fonts { Line 965  sub create_missing_fonts {
     # Open and read in the font file..we'll read it into the array      # Open and read in the font file..we'll read it into the array
     #  font_commands.      #  font_commands.
     #      #
     my $font_handle = IO::File->new($fontfile);      open(my $font_handle, $fontfile);
     my @font_commands = <$font_handle>;      my @font_commands = <$font_handle>;
       
       # make the list contain each command only once
       my %uniq;
       @font_commands = map { $uniq{$_}++ == 0 ? $_ : () } @font_commands;
   
     #  Now process each command replacing the appropriate 8000's with      #  Now process each command replacing the appropriate 8000's with
     #  600's ensuring that font names with 8000's in them are not corrupted.      #  600's ensuring that font names with 8000's in them are not corrupted.
     #  and if the --mfmode is not ljfour we turn it into ljfour.      #  and if the --mfmode is not ljfour we turn it into ljfour.
     #   Then we execute the command.      #   Then we execute the command.
     #      #
       
     foreach my $command (@font_commands) {      foreach my $command (@font_commands) {
  print "<br />Raw command: $command";   #print("<br />Raw command: $command");
  $command =~ s/ 8000/ 600/g;    # dpi directives.   $command =~ s/ 8000/ 600/g;    # dpi directives.
  $command =~ s/\/8000/\/600/g;  # mag directives.   $command =~ s/\/8000/\/600/g;  # mag directives.
  print "<br />After dpi replacements: $command";   #print("<br />After dpi replacements: $command");
   
  my @cmdarray = split(/ /,$command);   my @cmdarray = split(/ /,$command);
  for (my $i =0; $i < scalar(@cmdarray); $i++) {   for (my $i =0; $i < scalar(@cmdarray); $i++) {
Line 984  sub create_missing_fonts { Line 990  sub create_missing_fonts {
  $cmdarray[$i+1] = "ljfour";   $cmdarray[$i+1] = "ljfour";
     }      }
  }   }
  print "<br /> before reassembly : (@cmdarray)";   #print("<br /> before reassembly : (@cmdarray)");
  $command = join(" ", (@cmdarray));   $command = join(" ", (@cmdarray));
   
  print "<br />Creating fonts via command: $command";   #print("<br />Creating fonts via command: $command");
  &busy_wait_command("$command 1>dev/null 2>/dev/null",   &busy_wait_command("$command 1>/dev/null 2>/dev/null",
    "Creating missing font",     "Creating missing font",
    $state, $command);     $state, $command);
         
Removed from v.1.115  
changed lines
  Added in v.1.119

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.