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

Diff for /loncom/interface/printout.pl between versions 1.44 and 1.55

version 1.44, 2004/02/05 18:38:12 version 1.55, 2004/05/06 06:45:13
Line 32  use LONCAPA::loncgi(); Line 32  use LONCAPA::loncgi();
 use File::Path;  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
   use Apache::lonhtmlcommon;
   use Apache::loncommon;
   use Apache::lonlocal;
   
   $|=1;
   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 46  Your cookie information is incorrect. Line 51  Your cookie information is incorrect.
 END  END
     return;      return;
 }  }
    &Apache::lonlocal::get_language_handle();
  print "Content-type: text/html\n\n";   &Apache::loncommon::content_type(undef,'text/html');
  print "<body bgcolor=\"#FFFFFF\">\n";   my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');
    print $bodytag;
   
   my $identifier = $ENV{'QUERY_STRING'};    my $identifier = $ENV{'QUERY_STRING'};
   my $texfile = $ENV{'cgi.'.$identifier.'.file'};    my $texfile = $ENV{'cgi.'.$identifier.'.file'};
Line 58  END Line 64  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 $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
   my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};    my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
     my $backref = $ENV{'cgi.'.$identifier.'backref'};
   
     my $adv = $ENV{'request.role.adv'};
     
   my @names_pack=();    my @names_pack=();
   if ($student_names=~/_END_/) {      if ($student_names=~/_END_/) {  
       @names_pack=split(/_ENDPERSON_/,$student_names);        @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 78  END Line 88  END
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;          close $temporary_file;  
       my $noteps;        my $noteps;
       &Create_StatWin ('Starting eps pictures creation', 'Pictires Status window');        my %prog_state;
         if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','75');  }
       foreach $not_eps (@content_of_file) {        foreach $not_eps (@content_of_file) {
     chomp($not_eps);
   if ($not_eps ne '') {    if ($not_eps ne '') {
               my $status_statement='EPS picture for '.$not_eps;                my $status_statement='EPS picture for '.$not_eps;
       &Update_StaWin ($status_statement);  
       $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 102  END Line 113  END
       if ( exists($done_conversion{$not_eps})) {        if ( exists($done_conversion{$not_eps})) {
   next;    next;
       }        }
         if ($adv) {
     my $prettyname=$not_eps;
     $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|;
     $prettyname=~s|/home/httpd/html/|/|;
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); }
       $done_conversion{$not_eps}=1;        $done_conversion{$not_eps}=1;
       $status = $image->Read($not_eps);        $status = $image->Read($not_eps);
       if ($status) {print "  $status  ";}        if ($status) {print "  $status  ";}
Line 119  END Line 135  END
       }          }  
   }    }
       }        }
       &Close_StatWin();        if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
         unlink($figfile);
   }    }
   #print "$texfile\n"; #name of the tex file for debugging only       #print "$texfile\n"; #name of the tex file for debugging only   
   my @texfile=($texfile);    my @texfile=($texfile);
   if ($number_of_files>1) {    if ($number_of_files>1) {
       for (my $i=1;$i<=$number_of_files-1;$i++) {        @texfile=();
         for (my $i=1;$i<=$number_of_files;$i++) {
   my $new_texfile=$texfile;    my $new_texfile=$texfile;
   $new_texfile=~s/\.tex/_add$i\.tex/;    $new_texfile=~s/\.tex/_$i\.tex/;
   push @texfile,$new_texfile;    push @texfile,$new_texfile;
       }         } 
   }    }
   
 my $ind=-1;  my $ind=-1;
 &Create_StatWin ('Starting PDF production for students', 'PDF Status window');  my %prog_state;
   if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','75'); }
   my $final_statement="<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />Generated PDF File for:<br />";
 foreach $texfile (@texfile) {  foreach $texfile (@texfile) {
   my $final_statement="<b>Link to your PDF document:</b> ";    my $status_statement='';
   my $status_statement='PDF document for ';    my $link_text='download PDF';
   if ($number_of_files>1) {    $ind++;
       $ind++;    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]);    my $name;
       $final_statement='Link to PDF document for <b>'.$tempo_array[3].'</b> ';    if ($tempo_array[3]) {
       $status_statement.=$tempo_array[3];        $name=$tempo_array[3];
       if ($#stud_info>0) {    } else {
   @tempo_array=split(/:/,$stud_info[-1]);        $name=$tempo_array[0].'@'.$tempo_array[1];
   $final_statement.='- <b>'.$tempo_array[3].':</b>  ';  
   $status_statement.=' -  '.$tempo_array[3];  
       }   
   }    }
 &Update_StaWin ($status_statement);    $link_text='<b>'.$name.'</b> ';
     $status_statement.=$name;
     if ($#stud_info>0) {
         @tempo_array=split(/:/,$stud_info[-1]);
         if ($tempo_array[3]) {
     $name=$tempo_array[3];
         } else {
     $name=$tempo_array[0].'@'.$tempo_array[1];
         }
         $link_text.='- <b>'.$name.':</b>  ';
         $status_statement.=' -  '.$name;
     } 
     if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }
   if (-e $texfile) {    if (-e $texfile) {
       $texfile =~ m/^(.*)\/([^\/]+)$/;         $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;        my $name_file = $2;
Line 289  foreach $texfile (@texfile) { Line 319  foreach $texfile (@texfile) {
   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 "<br />$final_statement ";        print "<br />$final_statement ";
         $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 314  foreach $texfile (@texfile) { Line 345  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/$name_file\">Your PDF document</a>";        print "<a href=\"/prtspool/$name_file\">$link_text</a>";
       print "\n";        print "\n";
   }    }
       }        }
Line 322  foreach $texfile (@texfile) { Line 353  foreach $texfile (@texfile) {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
   }    }
 }  }
   print "<br />";
 if ($number_of_files>1) {  if ($number_of_files>1) {
     my $statement='';      my $zipfile=$texfile[0];
       $zipfile=~s/\.tex/\.zip/;
       my $statement="zip $zipfile";
     foreach my $file (@texfile) {      foreach my $file (@texfile) {
        $file=~s/\.tex/.\pdf/;
    $statement.=' '.$file; 
     }      }
       print("<pre>Zip Output:\n");
       system($statement);
       print("</pre>");
       $zipfile=~s/\/home\/httpd//;
       print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";
 }  }
 &Close_StatWin();  if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
   
   
 sub Create_StatWin {  
     my ($title, $heading)=@_;  
     print('<script>'.  
     "popwin=window.open('','popwin','width=400,height=100');".  
     "popwin.document.writeln('<html><head><title>$title</title></head>".  
       "<body bgcolor=\"#88DDFF\">".  
               "<h4>$heading</h4>".  
               "<form name=popremain>".  
               '<input type="text" size="55" name="remaining" value="'.  
       'Starting'.'"></form>'.  
               "</body></html>');".  
     "popwin.document.close();".  
     "</script>");  
 }  
   
 sub Update_StaWin {  
     my ($info)=@_;  
     print('<script>popwin.document.popremain.remaining.value="'.  
       $info.'";'.'</script>');  
 }  
      
 sub Close_StatWin {  
     print('<script>popwin.window.close()</script>'."\n");  
   
 }  
   
   
   
Removed from v.1.44  
changed lines
  Added in v.1.55

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