loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.88 and 1.100

version 1.88, 2005/08/03 10:34:03	version 1.100, 2006/06/12 11:21:07
Line 31 use File::Path;	Line 31 use File::Path;
use File::Basename;	use File::Basename;
use IO::File;	use IO::File;
use Image::Magick;	use Image::Magick;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsg;	use Apache::lonmsg();
use LONCAPA::Enrollment;	use LONCAPA::Enrollment;

use strict;	use strict;


#
# 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.
#
#
#Parameters:	#Parameters:
# course - The course id.	# none
# cdom - The course domain.
#
#Implicit:	#Implicit:
# $env{request.role} contains the role under which this user operated this	# $env{request.role} contains the role under which this user operated this
# this request.	# this request.
sub is_student {	sub is_student {
return (! $env{'request.role.adv'});	return ($env{'request.role'}=~/^st\./);
}	}

#	#
Line 112 sub send_error_mail {	Line 107 sub send_error_mail {
# The user is a student in the course:	# The user is a student in the course:
#	#

if (&is_student( $courseid, $coursedom)) {	if (&is_student()) {
# build the subject and message body:	# build the subject and message body:
# print "sending message to course coordinators.<br />";	# print "sending message to course coordinators.<br />";

Line 121 sub send_error_mail {	Line 116 sub send_error_mail {
my $subject = "Error [$badurl] Print failed for $user".'@'.$domain;	my $subject = "Error [$badurl] Print failed for $user".'@'.$domain;
my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";	my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
$message .= " User was attempting to print: \n";	$message .= " User was attempting to print: \n";
$message .= " $resources\n";	foreach my $resource (split(/:/,$resources)) {
	$message .= " $resource\n";
	}
$message .= "--------------------LaTeX logfile:------------ \n";	$message .= "--------------------LaTeX logfile:------------ \n";
$message .= $logfile;	$message .= $logfile;
$message .= "-----------------LaTeX source file: ------------\n";	$message .= "-----------------LaTeX source file: ------------\n";
Line 164 END	Line 161 END
}	}
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
&Apache::loncommon::content_type(undef,'text/html');	&Apache::loncommon::content_type(undef,'text/html');
my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');	print(&Apache::loncommon::start_page('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 180 END	Line 176 END
my $student_names = $env{'cgi.'.$identifier.'.studentnames'};	my $student_names = $env{'cgi.'.$identifier.'.studentnames'};
my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});	my $backref = &Apache::lonnet::unescape($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);
}	}

	print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />";

my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;	my $duefile = $texfile;
Line 202 END	Line 198 END
close $temporary_file;	close $temporary_file;
my $noteps;	my $noteps;
my %prog_state;	my %prog_state;
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); }	if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); }
	print('<br />');
foreach my $not_eps (@content_of_file) {	foreach my $not_eps (@content_of_file) {
chomp($not_eps);	chomp($not_eps);
if ($not_eps ne '') {	if ($not_eps ne '') {
Line 232 END	Line 229 END
$not_eps =~ s/\s+$//;	$not_eps =~ s/\s+$//;
$not_eps =~ s/ /\\ /g;	$not_eps =~ s/ /\\ /g;
if ( exists($done_conversion{$not_eps})) { next; }	if ( exists($done_conversion{$not_eps})) { next; }
if ($adv) {	if ($advanced_role) {
my $prettyname=$not_eps;	my $prettyname=$not_eps;
$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;	$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;
$prettyname=~s\|$Apache::lonnet::perlvar{'lonDocRoot'}/\|/\|;	$prettyname=~s\|$Apache::lonnet::perlvar{'lonDocRoot'}/\|/\|;
Line 241 END	Line 238 END
$done_conversion{$not_eps}=1;	$done_conversion{$not_eps}=1;
# print "Converting $not_eps -> $eps_f"; # Debugging	# print "Converting $not_eps -> $eps_f"; # Debugging
system("convert $not_eps $eps_f");	system("convert $not_eps $eps_f");
#check is eps exist in prtspool	# check is eps exist in prtspool
if(not -e $eps_f) {	if (not -e $eps_f) {
	# converting an animated gif creates either:
	# anim.gif.eps.0
	# or
	# anim.gif-0.eps
for (my $i=0;$i<10000;$i++) {	for (my $i=0;$i<10000;$i++) {
if (-e $eps_f.'.'.$i) {	if (-e $eps_f.'.'.$i) {
rename $eps_f.'.'.$i, $eps_f;	rename($eps_f.'.'.$i, $eps_f);
	last;
	}
	my $anim_eps = $eps_f;
	$anim_eps =~ s/(\.[^.]*)\.eps$/$1-$i\.eps/i;
	if (-e $anim_eps) {
	rename($anim_eps, $eps_f);
last;	last;
}	}
}	}
}	}
	# imagemagick 6.2.0-6.2.7 fails to properly handle
	# convert anim.gif anim.gif.eps
	# it creates anim.eps instead.
	if (not -e $eps_f) {
	my $eps_f2 = $eps_f;
	$eps_f2 =~ s/\.[^.]*\.eps$/\.eps/i;
	if(-e $eps_f2) {
	rename($eps_f2,$eps_f);
	}
	}

}	}
}	}
if ($adv) {	if ($advanced_role) {
&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
}	}
unlink($figfile);	unlink($figfile);
Line 271 END	Line 289 END

my $ind=-1;	my $ind=-1;
my %prog_state;	my %prog_state;
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />";	if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); }
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); }
print "<br />";	print "<br />";
my $num_files = @texfile;	my $num_files = @texfile;
foreach $texfile (@texfile) {	foreach $texfile (@texfile) {
Line 285 foreach $texfile (@texfile) {	Line 302 foreach $texfile (@texfile) {
my $name_range='';	my $name_range='';
if ($tempo_array[3]) {	if ($tempo_array[3]) {
$name=$tempo_array[3];	$name=$tempo_array[3];
my @full_names = split(/,/,$name); # split last name from others...	($name_range) = split(/,/,$name, 2);
$name_range = $full_names[0];
} else {	} else {
$name=$tempo_array[0].'@'.$tempo_array[1];	$name=$tempo_array[0].'@'.$tempo_array[1];
$name_range = $tempo_array[0];	$name_range = $tempo_array[0];
Line 299 foreach $texfile (@texfile) {	Line 315 foreach $texfile (@texfile) {
@tempo_array=split(/:/,$stud_info[-1]);	@tempo_array=split(/:/,$stud_info[-1]);
if ($tempo_array[3]) {	if ($tempo_array[3]) {
$name=$tempo_array[3];	$name=$tempo_array[3];
my @full_names = split(/,/, $name);	my ($lastname) = split(/,/, $name,2);
$name_range .= "-".$full_names[0];	$name_range .= "-".$lastname;
} else {	} else {
$name=$tempo_array[0].'@'.$tempo_array[1];	$name=$tempo_array[0].'@'.$tempo_array[1];
$name_range .= '-'.$tempo_array[0];	$name_range .= '-'.$tempo_array[0];
Line 317 foreach $texfile (@texfile) {	Line 333 foreach $texfile (@texfile) {
}	}
$name_range =~ s/'//g; # O'Neil -> ONeil e.g.	$name_range =~ s/'//g; # O'Neil -> ONeil e.g.
print "<br/>";	print "<br/>";
if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }	if ($advanced_role) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }
# This little piece of dirt puts username ranges into the original tex	# This little piece of dirt puts username ranges into the original tex
# Tex filename from which they'll propagate into the other filenames as well.	# Tex filename from which they'll propagate into the other filenames as well.
#	#
Line 338 foreach $texfile (@texfile) {	Line 354 foreach $texfile (@texfile) {
\%prog_state,$dvi_file);	\%prog_state,$dvi_file);
if ($tableofcontents eq 'yes') {	if ($tableofcontents eq 'yes') {
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",	&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
"for $status_statement now LaTeXing file for table of contents",	"for $status_statement First LaTeX of file for table of contents",
	\%prog_state,$dvi_file);
	&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
	"for $status_statement Second LaTeX of file for table of contents",
\%prog_state,$dvi_file);	\%prog_state,$dvi_file);
} #to create table of contents	} #to create table of contents
my $idxname=$name_file;	my $idxname=$name_file;
Line 382 foreach $texfile (@texfile) {	Line 401 foreach $texfile (@texfile) {
print "It probably has errors in it.<br />";	print "It probably has errors in it.<br />";
print "With very high probability this error occured in ".$badtext."<br /><br />";	print "With very high probability this error occured in ".$badtext."<br /><br />";
print "Here are the error messages in the LaTeX log file<br /><pre>";	print "Here are the error messages in the LaTeX log file<br /><pre>";

my $sygnal = 0;	my $sygnal = 0;
for (my $i=0;$i<=$#content_of_file;$i++) {	for (my $i=0;$i<=$#content_of_file;$i++) {
if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {	if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
Line 413 foreach $texfile (@texfile) {	Line 433 foreach $texfile (@texfile) {
$texfile=~s/\/home\/httpd//;	$texfile=~s/\/home\/httpd//;
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";
	my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");
	print ("$help_text");

} else { # Student role...	} else { # Student role...
# at this point:	# at this point:
# $body_log_file - contains the log file.	# $body_log_file - contains the log file.
Line 424 foreach $texfile (@texfile) {	Line 447 foreach $texfile (@texfile) {
my $tex_handle = IO::File->new($name_file);	my $tex_handle = IO::File->new($name_file);
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);
print "<br />A message has been sent to the instructor describing this failure<br />"	print "<br />A message has been sent to the instructor describing this failure<br />";
	my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");
	print ("$help_text");

}	}

} elsif ($body_log_file=~m/<inserted text>/) {	} elsif ($body_log_file=~m/<inserted text>/) {
Line 449 foreach $texfile (@texfile) {	Line 475 foreach $texfile (@texfile) {
"for $status_statement now Converting to PS",	"for $status_statement now Converting to PS",
\%prog_state,$new_name_file);	\%prog_state,$new_name_file);
if (-e $new_name_file) {	if (-e $new_name_file) {
	&repaginate_postscript($new_name_file);
print "<h1>PDF output file (see link below)</h1>\n";	print "<h1>PDF output file (see link below)</h1>\n";
$new_name_file =~ m/^(.*)\./;	$new_name_file =~ m/^(.*)\./;
my $ps_file = my $tempo_file = $1.'temporar.ps';	my $ps_file = my $tempo_file = $1.'temporar.ps';
Line 523 foreach $texfile (@texfile) {	Line 550 foreach $texfile (@texfile) {
"for $status_statement now Converting to PS",	"for $status_statement now Converting to PS",
\%prog_state,$new_name_file);	\%prog_state,$new_name_file);
if (-e $new_name_file) {	if (-e $new_name_file) {
	&repaginate_postscript($new_name_file);
print "<br />";	print "<br />";
$new_name_file =~ m/^(.*)\./;	$new_name_file =~ m/^(.*)\./;
my $ps_file = my $tempo_file = $1.'temporar.ps';	my $ps_file = my $tempo_file = $1.'temporar.ps';
Line 600 if ($number_of_files>1) {	Line 628 if ($number_of_files>1) {
$zipfile=~s/\/home\/httpd//;	$zipfile=~s/\/home\/httpd//;
print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";	print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";
}	}
if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }	if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
	print(&Apache::loncommon::end_page());
my $done;	my $done;
sub REAPER {	sub REAPER {
$done=1;	$done=1;
Line 613 sub busy_wait_command {	Line 641 sub busy_wait_command {
$SIG{CHLD} = \&REAPER;	$SIG{CHLD} = \&REAPER;
$done=0;	$done=0;
my $pid=open(CMD,"$command \|");	my $pid=open(CMD,"$command \|");
if ($adv) {	if ($advanced_role) {
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
}	}
while(!$done) {	while(!$done) {
Line 623 sub busy_wait_command {	Line 651 sub busy_wait_command {
my $size=(stat($output_file))[7];	my $size=(stat($output_file))[7];
$extra_msg=", $size bytes generated";	$extra_msg=", $size bytes generated";
}	}
if ($adv) {	if ($advanced_role) {
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,
$message.$extra_msg);	$message.$extra_msg);
}	}
Line 633 sub busy_wait_command {	Line 661 sub busy_wait_command {
}	}


	# Repagninate a postscript file.
	# What we need to do:
	# - Count the number of pages in each student.
	# - Add pages between each student so that each student's output is
	# the maximum number of pages.
	#
	sub repaginate_postscript {

	# We will try to do this in 2 passes through the postscript since
	# the postscript is potentially large, to do 2 passes, the first pass
	# must be able to calculate the total number of document pages so that
	# at the beginning of the second pass we already know how to replace
	# %%Pages:

	# Figure out
	# 1. Number of pages in the document
	# 2. Maximum number of pages in a student
	# 3. Number of pages in each student.

	my ($postscript_filename) = @_;
	open(PSFILE, "<$postscript_filename");
	my $line;
	my $total_pages; # Total pages in document.
	my $seen_pages = 0; # There are several %%Pages only the first is useful
	my $student_number = 0; # Index of student we're working on.
	my @pages_in_student; # For each student his/her initial page count.
	my $max_pages = 0; # Pages in 'longest' student.
	while ($line = <PSFILE>) {
	my $page_number = 0;

	# Check for total pages (%%Pages:)

	if (($line =~ "^%%Pages:") && (!$seen_pages)) {
	my @pageinfo = split(/ /,$line);
	$total_pages = $pageinfo[1];
	$seen_pages = 1;
	}
	# Check for %%Page: n m $page_number will be the
	# biggest of these until we see an endofstudent.
	# Note that minipages generate spurious %Page: 1 1's so
	# we only are looking for the largest n (n is page number at the
	# bottom of the page, m the page number within the document.
	#
	if ($line =~ "^%%Page:") {
	my @pageinfo = split(/ /, $line);
	if ($page_number < $pageinfo[1]) {
	$page_number = $pageinfo[1];
	}
	}
	# ENDOFSTUDENTSTAMP - save the page_number, reset and, if necessary
	# udpate max_pages.
	#
	if ($line =~ "ENDOFSTUDENTSTAMP") {
	$pages_in_student[$student_number] = $page_number;
	$student_number++;

	if ($page_number > $max_pages) {
	$max_pages = $page_number;
	}
	$page_number = 0;

	}


	}
	close(PSFILE);

	# Figure out how many total pages we need to add and adjust the
	# $total_pages accordingly:
	#
	my $add_pages = 0;
	for (my $i =0; $i < $student_number; $i++) {
	$add_pages += ($max_pages - $pages_in_student[$i]);
	}
	# If we don't need to add any pages, we're done!
	# You might think that we don't need to do anything if
	# there are no pages to add, however we still need to at least strip out
	# the ENDOFSTUDENTSTAMP stamps...as they are not postscript comments!!


	# Now pass 2; we're going to write the new. ps file:
	# - Modify its first %%Pages: line so that it has the new correct number of
	# pages
	# - For each student, insert as many blank pages as needed (and
	# associated structured comments) to expand a student out to
	# max_pages pages.
	# - Remove the ENDOFSTUDENTSTAMP lines.
	#

	$total_pages += $add_pages;
	$student_number = 0;

	open(PSFILE, "<$postscript_filename");
	open(PSOFILE,">$postscript_filename"."repaginating"); # unique if original fname is.
	$seen_pages = 0; # Reset seen %%Pages flag...
	while ($line = <PSFILE>) {
	if (($line =~ "^%%Pages:") && (!$seen_pages)) {
	$line = "%%Pages: $total_pages\n";
	$seen_pages = 1;
	}
	if ($line =~ "ENDOFSTUDENTSTAMP") {
	$add_pages = ($max_pages - $pages_in_student[$student_number]);
	$line = "\n";
	my $last_student_page = $pages_in_student[$student_number];
	my $last_total_page = $student_number*$max_pages + $last_student_page;
	while ($add_pages) {
	$line .= "%Page: $last_student_page $last_total_page\n";
	my $bop = $last_total_page-1;
	$line .= "TeXDict begin $last_student_page $bop bop eop end\n";
	$last_student_page++;
	$last_total_page++;
	$add_pages--;
	}
	$student_number++;
	}
	print PSOFILE $line;
	}
	close PSOFILE;
	close PSFILE;

	rename($postscript_filename."repaginating", $postscript_filename);

	}

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

Removed from v.1.88
changed lines
	Added in v.1.100