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.45 and 1.60

version 1.45, 2004/02/06 14:16:39	version 1.60, 2004/07/29 19:45:41
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;
	use Apache::loncommon;
	use Apache::lonlocal;

	use strict;
	$\|=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;
foreach $not_eps (@content_of_file) {	if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); }
	foreach my $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;
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {	if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;	$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
$eps_f = '/home/httpd/prtspool/'.$eps_f;	$eps_f = '/home/httpd/prtspool/'.$eps_f;
} else {	} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) {
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;	$eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$1;
	} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) {
	$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
	$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
}	}
my $path=$eps_f;	my $path=$eps_f;
$path=~s/\/([^\/]+)\.eps$//;	$path=~s/\/([^\/]+)\.eps$//;
Line 102 END	Line 116 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\|$Apache::lonnet::perlvar{'lonDocRoot'}/\|/\|;
	&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);	my $status = $image->Read($not_eps);
if ($status) {print " $status ";}	if ($status) {print " $status ";}
$image->Set(page => '+100+200');	$image->Set(page => '+100+200');
$status = $image->Write($eps_f);	$status = $image->Write($eps_f);
Line 119 END	Line 138 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','80'); }
	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;
my $path_file = $1.'/';	my $path_file = $1.'/';
chdir $path_file;	chdir $path_file;
system("latex $name_file 1>/dev/null 2>/dev/null");	my $dvi_file= $name_file; $dvi_file =~ s/\.tex/\.dvi/;
	&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
	"for $status_statement now LaTeXing file",
	\%prog_state,$dvi_file);
if ($tableofcontents eq 'yes') {	if ($tableofcontents eq 'yes') {
system("latex $name_file 1>/dev/null 2>/dev/null");	system("latex $name_file 1>/dev/null 2>/dev/null");
} #to create table of contents	} #to create table of contents
Line 217 foreach $texfile (@texfile) {	Line 253 foreach $texfile (@texfile) {

} elsif ($body_log_file=~m/<inserted text>/) {	} elsif ($body_log_file=~m/<inserted text>/) {
my $whereitbegins = index $body_log_file,'<inserted text>';	my $whereitbegins = index $body_log_file,'<inserted text>';
print "You are running LaTeX in the <b>batch mode</b>.";	print "You are running LaTeX in <b>batch mode</b>.";
while ($whereitbegins != -1) {	while ($whereitbegins != -1) {
my $tempobegin=$whereitbegins;	my $tempobegin=$whereitbegins;
$whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;	$whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
Line 230 foreach $texfile (@texfile) {	Line 266 foreach $texfile (@texfile) {
my $new_name_file = $name_file;	my $new_name_file = $name_file;
$new_name_file =~ s/\.dvi/\.ps/;	$new_name_file =~ s/\.dvi/\.ps/;
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");	&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
	"for $status_statement now Converting to PS",
	\%prog_state,$new_name_file);
if (-e $new_name_file) {	if (-e $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 $tempo_file = $1.'temporar.ps';	my $ps_file = my $tempo_file = $1.'temporar.ps';
my $name_file = $1.'.pdf';	my $pdf_file = $1.'.pdf';
if ($laystyle eq 'album' and $numberofcolumns eq '2') {	if ($laystyle eq 'album' and $numberofcolumns eq '2') {
$comma = "psnup -2 -s1.0 $new_name_file";	$comma = "psnup -2 -s1.0 $new_name_file";
system("$comma $tempo_file 1>/dev/null 2>/dev/null");	&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");	"for $status_statement now Modifying PS layout",
	\%prog_state,$tempo_file);
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {	} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
$comma = 'pstops -pletter "2:0+1(0.48w,0)"';	$comma = 'pstops -pletter "2:0+1(0.48w,0)"';
system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");	&busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");	"for $status_statement now Modifying PS layout",
	\%prog_state,$tempo_file);
} else {	} else {
system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");	$ps_file=$new_name_file;
}	}
	&busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
	"for $status_statement now Converting PS to PDF",
	\%prog_state, $pdf_file);

my $texlog = $texfile;	my $texlog = $texfile;
my $texaux = $texfile;	my $texaux = $texfile;
my $texdvi = $texfile;	my $texdvi = $texfile;
Line 258 foreach $texfile (@texfile) {	Line 302 foreach $texfile (@texfile) {
my @garb = ($texaux,$texdvi,$texps);	my @garb = ($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/$pdf_file\">Your PDF document</a>";
if ($advans_role) {	if ($advans_role) {
print "<br /><br />";	print "<br /><br />";
print "<b><big>The link to ";	print "<b><big>The link to ";
Line 286 foreach $texfile (@texfile) {	Line 330 foreach $texfile (@texfile) {
my $new_name_file = $name_file;	my $new_name_file = $name_file;
$new_name_file =~ s/\.dvi/\.ps/;	$new_name_file =~ s/\.dvi/\.ps/;
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");	&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
	"for $status_statement now Converting to PS",
	\%prog_state,$new_name_file);
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 $ps_file = my $tempo_file = $1.'temporar.ps';
my $name_file = $1.'.pdf';	my $pdf_file = $1.'.pdf';
if ($laystyle eq 'album' and $numberofcolumns eq '2') {	if ($laystyle eq 'album' and $numberofcolumns eq '2') {
$comma = "psnup -2 -s1.0 $new_name_file";	$comma = "psnup -2 -s1.0 $new_name_file";
system("$comma $tempo_file 1>/dev/null 2>/dev/null");	&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");	"for $status_statement now Modifying PS layout",
	\%prog_state,$tempo_file);
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {	} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
$comma = 'pstops -pletter "2:0+1(0.48w,0)"';	$comma = 'pstops -pletter "2:0+1(0.48w,0)"';
system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");	&busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");	"for $status_statement now Modifying PS layout",
	\%prog_state,$tempo_file);
} else {	} else {
system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");	$ps_file=$new_name_file;
}	}
	&busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
	"for $status_statement now Converting PS to PDF",
	\%prog_state,$pdf_file);

my $texlog = $texfile;	my $texlog = $texfile;
my $texaux = $texfile;	my $texaux = $texfile;
my $texdvi = $texfile;	my $texdvi = $texfile;
Line 314 foreach $texfile (@texfile) {	Line 367 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/$pdf_file\">$link_text</a>";
print "\n";	print "\n";
}	}
}	}
Line 331 if ($number_of_files>1) {	Line 384 if ($number_of_files>1) {
$file=~s/\.tex/.\pdf/;	$file=~s/\.tex/.\pdf/;
$statement.=' '.$file;	$statement.=' '.$file;
}	}
system("$statement");	print("<pre>Zip Output:\n");
	system($statement);
	print("</pre>");
$zipfile=~s/\/home\/httpd//;	$zipfile=~s/\/home\/httpd//;
print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>";	print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";
}	}
&Close_StatWin();	if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }

	my $done;
sub Create_StatWin {	sub REAPER {
my ($title, $heading)=@_;	$done=1;
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 {	sub busy_wait_command {
my ($info)=@_;	my ($command,$message,$progress_win,$output_file)=@_;
print('<script>popwin.document.popremain.remaining.value="'.
$info.'";'.'</script>');	$SIG{CHLD} = \&REAPER;
}	$done=0;
	my $pid=open(CMD,"$command \|");
sub Close_StatWin {	if ($adv) {
print('<script>popwin.window.close()</script>'."\n");	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
	}
	while(!$done) {
	sleep 1;
	my $extra_msg;
	if ($output_file) {
	my $size=(stat($output_file))[7];
	$extra_msg=", $size bytes generated";
	}
	if ($adv) {
	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,
	$message.$extra_msg);
	}
	}
	$SIG{CHLD}='IGNORE';
	close(CMD);
}	}

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

Removed from v.1.45
changed lines
	Added in v.1.60