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

Diff for /loncom/interface/printout.pl between versions 1.140 and 1.146.4.1

version 1.140, 2009/03/24 10:29:39 version 1.146.4.1, 2010/08/26 08:32:58
Line 45  use strict; Line 45  use strict;
   
 my $busy_wait_timeout = 30;   my $busy_wait_timeout = 30; 
   
   
   my $debugging = 0;
   
 sub debug {  sub debug {
     my ($text) = @_;      if ($debugging) {
     print "$text <br />\n";   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.
Line 118  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:
   
Line 137  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 166  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';  $env{'request.noversionuri'} = '/cgi-bin/printout.pl';
 print(&Apache::loncommon::start_page('Creating PDF'));  # 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 $identifier = $ENV{'QUERY_STRING'};
 my $texfile = $env{'cgi.'.$identifier.'.file'};  my $texfile = $env{'cgi.'.$identifier.'.file'};
Line 211  $duefile =~ s/^(.*_printout)_\d+_\d+_\d+ Line 226  $duefile =~ s/^(.*_printout)_\d+_\d+_\d+
 #   it contains the names of the files that need to be converted, one per line.  #   it contains the names of the files that need to be converted, one per line.
 #  #
   
   &debug("Figure file is $figfile");
   
 if (-e $figfile) {  if (-e $figfile) {
     # print "$figfile exists\n";      &debug( "Figure file exists");
       &debug("$figfile exists");
     my %done_conversion;      my %done_conversion;
     my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n";      my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n";
     my @content_of_file = <$temporary_file>;      my @content_of_file = <$temporary_file>;
Line 223  if (-e $figfile) { Line 241  if (-e $figfile) {
     print('<br />');      print('<br />');
     foreach my $not_eps (@content_of_file) {      foreach my $not_eps (@content_of_file) {
  chomp($not_eps);   chomp($not_eps);
    &debug( "Being asked to convert $not_eps");
  if ($not_eps ne '') {   if ($not_eps ne '') {
     $not_eps=~s|\/\.\/|\/|g;      $not_eps=~s|\/\.\/|\/|g;
     if (!$done_conversion{$not_eps}) { #  Only convert multiple includes once.      if (!$done_conversion{$not_eps}) { #  Only convert multiple includes once.
Line 460  foreach $texfile (@texfile) { Line 479  foreach $texfile (@texfile) {
       $papera=~s/t/p/;        $papera=~s/t/p/;
       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 492  foreach $texfile (@texfile) { Line 513  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 846  sub create_missing_fonts { Line 867  sub create_missing_fonts {
 #  #
 sub convert_figure {  sub convert_figure {
     my ($not_eps) = @_;      my ($not_eps) = @_;
       &debug("in convert_figure");
   
     my $status_statement='EPS picture for '.$not_eps;      my $status_statement='EPS picture for '.$not_eps;
     my $eps_f = $not_eps;      my $eps_f = $not_eps;
Line 889  sub convert_figure { Line 911  sub convert_figure {
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,      &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,
   'Converting to EPS '.$prettyname);    'Converting to EPS '.$prettyname);
  }   }
  system("convert $not_eps $eps_f");   #
    #  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");
    } else {
       system("convert $not_eps $eps_f");
    }
   
  if (not -e $eps_f) {   if (not -e $eps_f) {
     # converting an animated gif creates either:      # converting an animated gif creates either:
Line 1026  sub analyze_logfile { Line 1065  sub analyze_logfile {
     #    $name_file     - is the name of the LaTeX file.      #    $name_file     - is the name of the LaTeX file.
     #    $identifier    - is the unique LaTeX identifier.l      #    $identifier    - is the unique LaTeX identifier.l
           
             print "<br />";              print '<p class="LC_error">';
     if ($badtext) {      if ($badtext) {
                 print &mt('There are errors in [_1].',$badtext);                  print &mt('There are errors in [_1].',$badtext);
             } else {              } else {
                 print &mt('There are errors.');                  print &mt('There are errors.');
             }              }
     print "<br />".&mt('These errors prevent this resource from printing correctly.');              print '</p>'
                    .&mt('These errors prevent this resource from printing correctly.');
   
     my $tex_handle = IO::File->new($texfile);      my $tex_handle = IO::File->new($texfile);
     my @tex_contents = <$tex_handle>;      my @tex_contents = <$tex_handle>;
     &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);      &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
Removed from v.1.140  
changed lines
  Added in v.1.146.4.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>