--- loncom/interface/printout.pl 2003/09/01 03:30:57 1.37
+++ loncom/interface/printout.pl 2004/05/12 18:34:47 1.57
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.37 2003/09/01 03:30:57 albertel Exp $
+# $Id: printout.pl,v 1.57 2004/05/12 18:34:47 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,33 +26,102 @@
# http://www.lon-capa.org/
#
+use lib '/home/httpd/lib/perl';
+use Time::Local;
+use LONCAPA::loncgi();
+use File::Path;
use IO::File;
use Image::Magick;
- print "Content-type: text/html\n\n";
- print "
\n";
- my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
- my $advans_role=0;
- if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;}
+use Apache::lonhtmlcommon;
+use Apache::loncommon;
+use Apache::lonlocal;
+
+$|=1;
+my %origENV=%ENV;
+if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
+ print <
+Bad Cookie
+
+Your cookie information is incorrect.
+
+
+END
+ return;
+}
+ &Apache::lonlocal::get_language_handle();
+ &Apache::loncommon::content_type(undef,'text/html');
+ my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');
+ print $bodytag;
+
+ my $identifier = $ENV{'QUERY_STRING'};
+ my $texfile = $ENV{'cgi.'.$identifier.'.file'};
+ my $laystyle = $ENV{'cgi.'.$identifier.'.layout'};
+ my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'};
+ my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'};
+ my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
+ my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
+ my $advans_role = $ENV{'cgi.'.$identifier.'role'};
+ my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
+ my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
+ my $backref = $ENV{'cgi.'.$identifier.'backref'};
+
+ my $adv = $ENV{'request.role.adv'};
+
+ 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;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
#do we have figures?
if (-e $figfile) {
+ my %done_conversion;
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
my @content_of_file = <$temporary_file>;
close $temporary_file;
my $noteps;
+ 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) {
+ chomp($not_eps);
if ($not_eps ne '') {
+ my $status_statement='EPS picture for '.$not_eps;
+ $not_eps=~s|\/\.\/|\/|g;
my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;
- $_ = $eps_f;
- m/\/([^\/]+)$/;
- $eps_f = '/home/httpd/prtspool/'.$1;
+ if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
+ $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
+ $eps_f = '/home/httpd/prtspool/'.$eps_f;
+ } elsif ($eps_f=~/\/home\/httpd\/html\/res\//) {
+ $eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;
+ $eps_f = '/home/httpd/prtspool/'.$1;
+ } elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) {
+ $eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
+ $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
+ }
+ my $path=$eps_f;
+ $path=~s/\/([^\/]+)\.eps$//;
+ File::Path::mkpath($path,0,0777);
my $image = Image::Magick->new;
$not_eps =~ s/^\s+//;
$not_eps =~ s/\s+$//;
+ if ( exists($done_conversion{$not_eps})) {
+ 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;
$status = $image->Read($not_eps);
if ($status) {print " $status ";}
$image->Set(page => '+100+200');
@@ -69,19 +138,61 @@ use Image::Magick;
}
}
}
- unlink $figfile;
+ if ($adv) { &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/_$i\.tex/;
+ push @texfile,$new_texfile;
+ }
}
- #print "$texfile\n"; #name of the tex file for debugging only
+
+my $ind=-1;
+my %prog_state;
+if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','75'); }
+my $final_statement="Return to last resource.
Generated PDF File for:
";
+foreach $texfile (@texfile) {
+ my $status_statement='';
+ my $link_text='download PDF';
+ $ind++;
+ my @stud_info=split(/_END_/,$names_pack[$ind]);
+ my @tempo_array=split(/:/,$stud_info[0]);
+ my $name;
+ if ($tempo_array[3]) {
+ $name=$tempo_array[3];
+ } else {
+ $name=$tempo_array[0].'@'.$tempo_array[1];
+ }
+ $link_text=''.$name.' ';
+ $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.='- '.$name.': ';
+ $status_statement.=' - '.$name;
+ }
+ if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }
if (-e $texfile) {
$texfile =~ m/^(.*)\/([^\/]+)$/;
my $name_file = $2;
my $path_file = $1.'/';
chdir $path_file;
system("latex $name_file 1>/dev/null 2>/dev/null");
- if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents
+ if ($tableofcontents eq 'yes') {
+ system("latex $name_file 1>/dev/null 2>/dev/null");
+ } #to create table of contents
my $idxname=$name_file;
$idxname=~s/\.tex$/\.idx/;
- if ($selectionmade>=100) {
+ if ($tableofindex eq 'yes') {
system("makeindex $idxname");
system("latex $name_file 1>/dev/null 2>/dev/null");
} #to create index
@@ -102,7 +213,7 @@ use Image::Magick;
my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
if ($whereitbegins!=-1 and $whereitends!=-1) {
- print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."
";
+ print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."
";
}
print "Here are the error messages in the LaTeX log file
";
my $sygnal = 0;
@@ -210,7 +321,8 @@ use Image::Magick;
my $comma = "dvips -Ppdf -G0 -o $new_name_file";
system("$comma $name_file 1>/dev/null 2>/dev/null");
if (-e $new_name_file) {
- print "Successfully created PDF output file (see link below)
\n";
+ print "
$final_statement ";
+ $final_statement='';
$new_name_file =~ m/^(.*)\./;
my $tempo_file = $1.'temporar.ps';
my $name_file = $1.'.pdf';
@@ -236,16 +348,30 @@ use Image::Magick;
my @garb = ($texlog,$texaux,$texdvi,$texps);
# unlink @garb;
unlink $duefile;
- print "Your PDF document";
+ print "$link_text";
print "\n";
}
}
} else {
print "LaTeX file $texfile was not created successfully";
}
-
-
-
+}
+print "
";
+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;
+ }
+ print("Zip Output:\n");
+ system($statement);
+ print("
");
+ $zipfile=~s/\/home\/httpd//;
+ print "
A ZIP file of all the PDFs.";
+}
+if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }