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

Diff for /loncom/interface/printout.pl between versions 1.41 and 1.47

version 1.41, 2004/01/08 19:50:47 version 1.47, 2004/02/13 21:17:50
Line 27 Line 27
 #  #
   
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
   use Time::Local;
 use LONCAPA::loncgi();  use LONCAPA::loncgi();
 use File::Path;  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
   use Apache::lonhtmlcommon;
   
   
   my %origENV=%ENV;
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
     print <<END;      print <<END;
 Content-type: text/html  Content-type: text/html
Line 57  END Line 61  END
   my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};    my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
   my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};    my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};    my $advans_role = $ENV{'cgi.'.$identifier.'role'};
     my $back_ref = $ENV{'cgi.'.$identifier.'backref'};
     my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
     my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
     my $backref = $ENV{'cgi.'.$identifier.'backref'};
   
     my @names_pack=();
     if ($student_names=~/_END_/) {  
         @names_pack=split(/_ENDPERSON_/,$student_names);
     }
     #got what we needed reset ENV in case it is to big for system
     %ENV=%origENV;
   
   my $figfile = $texfile;    my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;    $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
Line 64  END Line 79  END
   $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;    $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
   #do we have figures?    #do we have figures?
   if (-e $figfile) {    if (-e $figfile) {
         my %done_conversion;
       my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";        my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;          close $temporary_file;  
       my $noteps;        my $noteps;
         my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Pictures CreationPrint Status','Pictires Status window',$#content_of_file);
       foreach $not_eps (@content_of_file) {        foreach $not_eps (@content_of_file) {
   if ($not_eps ne '') {    if ($not_eps ne '') {
                 my $status_statement='EPS picture for '.$not_eps;
         &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$not_eps); 
       $not_eps=~s|\/\.\/|\/|g;        $not_eps=~s|\/\.\/|\/|g;
       my $eps_f = $not_eps;        my $eps_f = $not_eps;
       $eps_f =~ s/\.[^.]*$/\.eps/i;        $eps_f =~ s/\.[^.]*$/\.eps/i;
Line 86  END Line 105  END
       my $image = Image::Magick->new;        my $image = Image::Magick->new;
       $not_eps =~ s/^\s+//;        $not_eps =~ s/^\s+//;
       $not_eps =~ s/\s+$//;        $not_eps =~ s/\s+$//;
         if ( exists($done_conversion{$not_eps})) {
     next;
         }
         $done_conversion{$not_eps}=1;
       $status = $image->Read($not_eps);        $status = $image->Read($not_eps);
       if ($status) {print "  $status  ";}        if ($status) {print "  $status  ";}
       $image->Set(page => '+100+200');         $image->Set(page => '+100+200'); 
Line 102  END Line 125  END
       }          }  
   }    }
       }        }
         &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
     }
     #print "$texfile\n"; #name of the tex file for debugging only   
     my @texfile=($texfile);
     if ($number_of_files>1) {
         for (my $i=1;$i<=$number_of_files-1;$i++) {
     my $new_texfile=$texfile;
     $new_texfile=~s/\.tex/_add$i\.tex/;
     push @texfile,$new_texfile;
         } 
     }
   my $ind=-1;
   my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files);
   foreach $texfile (@texfile) {
     my $final_statement="<a href=\"$backref\"><b>Back to where you started</b></a><br /><br /><b>Link to your PDF document:</b> ";
     my $status_statement='PDF document for ';
     if ($number_of_files>1) {
         $ind++;
         my @stud_info=split(/_END_/,$names_pack[$ind]);
         my @tempo_array=split(/:/,$stud_info[0]);
         $final_statement='Link to PDF document for <b>'.$tempo_array[3].'</b> ';
         $status_statement.=$tempo_array[3];
         if ($#stud_info>0) {
     @tempo_array=split(/:/,$stud_info[-1]);
     $final_statement.='- <b>'.$tempo_array[3].':</b>  ';
     $status_statement.=' -  '.$tempo_array[3];
         } 
   }    }
   #print "$texfile\n"; #name of the tex file for debugging only  &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement); 
   if (-e $texfile) {    if (-e $texfile) {
       $texfile =~ m/^(.*)\/([^\/]+)$/;         $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;        my $name_file = $2;
Line 136  END Line 186  END
   my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';    my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
   my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';    my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
   if ($whereitbegins!=-1 and $whereitends!=-1) {    if ($whereitbegins!=-1 and $whereitends!=-1) {
       print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";         print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";
   }    }
   print "Here are the error messages in the LaTeX log file</br><br />";    print "Here are the error messages in the LaTeX log file</br><br />";
   my $sygnal = 0;    my $sygnal = 0;
Line 244  END Line 294  END
   my $comma = "dvips -Ppdf -G0 -o $new_name_file";    my $comma = "dvips -Ppdf -G0 -o $new_name_file";
   system("$comma $name_file 1>/dev/null 2>/dev/null");    system("$comma $name_file 1>/dev/null 2>/dev/null");
   if (-e $new_name_file) {    if (-e $new_name_file) {
       print "<h1>Successfully created PDF output file (see link below)</h1>\n";        print "<br />$final_statement ";
       $new_name_file =~ m/^(.*)\./;        $new_name_file =~ m/^(.*)\./;
       my $tempo_file = $1.'temporar.ps';        my $tempo_file = $1.'temporar.ps';
       my $name_file = $1.'.pdf';        my $name_file = $1.'.pdf';
Line 277  END Line 327  END
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
   }    }
   }
   print "<br />";
     if ($number_of_files>1) {
       my $zipfile=$texfile[0];
       $zipfile=~s/\.tex/\.zip/;
       my $statement="zip $zipfile";
       foreach my $file (@texfile) {
    $file=~s/\.tex/.\pdf/;
    $statement.=' '.$file; 
       }
       system("$statement");
       $zipfile=~s/\/home\/httpd//;
       print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>";
   }
   &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
   
   
   
Removed from v.1.41  
changed lines
  Added in v.1.47

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