version 1.137, 2008/08/27 01:38:10
|
version 1.151, 2011/12/21 21:25:40
|
Line 44 use LONCAPA::Configuration;
|
Line 44 use LONCAPA::Configuration;
|
use strict; |
use strict; |
|
|
my $busy_wait_timeout = 30; |
my $busy_wait_timeout = 30; |
|
my $pdfs_converted = 0; # non zero if PDF includes (need to fixps). |
|
|
|
my $debugging = 0; |
|
|
sub debug { |
sub debug { |
my ($text) = @_; |
if ($debugging) { |
print "$text <br />\n"; |
my ($text) = @_; |
|
print "$text <br />\n"; |
|
} |
} |
} |
|
|
# 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. |
Line 118 sub send_error_mail {
|
Line 123 sub send_error_mail {
|
|
|
if (&is_student()) { |
if (&is_student()) { |
# build the subject and message body: |
# build the subject and message body: |
# print "sending message to course coordinators.<br />"; |
&debug("sending message to course coordinators."); |
|
|
# Todo: Convert badurl into a url from file path: |
# Todo: Convert badurl into a url from file path: |
|
|
Line 137 sub send_error_mail {
|
Line 142 sub send_error_mail {
|
} |
} |
my (undef, %receivers) = &Apache::lonmsg::decide_receiver(undef, 0, |
my (undef, %receivers) = &Apache::lonmsg::decide_receiver(undef, 0, |
1,1,1); |
1,1,1); |
# print "<br /> sending...section: $env{'request.course.sec'}"; |
&debug("sending...section: $env{'request.course.sec'}"); |
foreach my $dest (keys %receivers) { |
foreach my $dest (keys %receivers) { |
# print "<br /> dest is $dest"; |
&debug("dest is $dest"); |
my @destinfo = split(/:/,$dest); |
my @destinfo = split(/:/,$dest); |
my $user = $destinfo[0]; |
my $user = $destinfo[0]; |
my $dom = $destinfo[1]; |
my $dom = $destinfo[1]; |
Line 166 Your cookie information is incorrect.
|
Line 171 Your cookie information is incorrect.
|
</body> |
</body> |
</html> |
</html> |
END |
END |
return; |
exit; |
} |
} |
|
|
my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
&Apache::loncommon::content_type(undef,'text/html'); |
&Apache::loncommon::content_type(undef,'text/html'); |
$env{'request.noversionuri'} = '/cgi-bin/printout.pl'; |
$env{'request.noversionuri'} = '/cgi-bin/printout.pl'; |
print(&Apache::loncommon::start_page('Creating PDF')); |
# Breadcrumbs |
|
#FIXME: Choose better/different breadcrumbs?!? Links? |
|
my $brcrum = [{'href' => '', |
|
'text' => 'Helper'}, #FIXME: Different origin possible than print out helper? |
|
{'href' => '', |
|
'text' => 'Preparing Printout'}, |
|
{'href' => '', |
|
'text' => 'Creating PDF'}]; |
|
print(&Apache::loncommon::start_page('Creating PDF', |
|
undef, |
|
{'bread_crumbs' => $brcrum,})); |
|
|
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
my $texfile = $env{'cgi.'.$identifier.'.file'}; |
my $texfile = $env{'cgi.'.$identifier.'.file'}; |
Line 211 $duefile =~ s/^(.*_printout)_\d+_\d+_\d+
|
Line 226 $duefile =~ s/^(.*_printout)_\d+_\d+_\d+
|
# it contains the names of the files that need to be converted, one per line. |
# it contains the names of the files that need to be converted, one per line. |
# |
# |
|
|
|
&debug("Figure file is $figfile"); |
|
|
if (-e $figfile) { |
if (-e $figfile) { |
# print "$figfile exists\n"; |
&debug( "Figure file exists"); |
|
&debug("$figfile exists"); |
my %done_conversion; |
my %done_conversion; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n"; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile 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; |
my %prog_state; |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Converting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$#content_of_file); } |
print('<br />'); |
print('<br />'); |
foreach my $not_eps (@content_of_file) { |
foreach my $not_eps (@content_of_file) { |
chomp($not_eps); |
chomp($not_eps); |
|
&debug( "Being asked to convert $not_eps"); |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
$not_eps=~s|\/\.\/|\/|g; |
$not_eps=~s|\/\.\/|\/|g; |
if (!$done_conversion{$not_eps}) { # Only convert multiple includes once. |
if (!$done_conversion{$not_eps}) { # Only convert multiple includes once. |
Line 264 my $ind=-1;
|
Line 283 my $ind=-1;
|
|
|
my %prog_state; |
my %prog_state; |
if ($advanced_role) { |
if ($advanced_role) { |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status',&mt('Class Print Status'),$number_of_files,'inline','80'); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$number_of_files); |
} |
} |
print "<br />"; |
print "<br />"; |
my $num_files = @texfile; # How does this differ from $number_of_files , can that be 0? |
my $num_files = @texfile; # How does this differ from $number_of_files , can that be 0? |
Line 353 foreach $texfile (@texfile) {
|
Line 372 foreach $texfile (@texfile) {
|
|
|
print "<br/>"; |
print "<br/>"; |
if ($advanced_role) { |
if ($advanced_role) { |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt('Creating PDF for: [_1]',$status_statement)); |
} |
} |
|
|
if (-e $texfile) { # Ensure the tex file exists: |
if (-e $texfile) { # Ensure the tex file exists: |
Line 403 foreach $texfile (@texfile) {
|
Line 422 foreach $texfile (@texfile) {
|
my $papera=$paper; |
my $papera=$paper; |
if ($papera eq 'letter') {$papera='';} |
if ($papera eq 'letter') {$papera='';} |
if ($papera ne '') {$papera='-t'.$papera;} |
if ($papera ne '') {$papera='-t'.$papera;} |
my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file"; |
my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps'; |
|
my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file"; |
&busy_wait_command("$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", |
"for $status_statement now Converting to PS", |
\%prog_state,$new_name_file); |
\%prog_state,$new_name_file); |
Line 457 foreach $texfile (@texfile) {
|
Line 477 foreach $texfile (@texfile) {
|
my $ps_file = my $tempo_file = $1.'temporar.ps'; |
my $ps_file = my $tempo_file = $1.'temporar.ps'; |
my $pdf_file = $1.'.pdf'; |
my $pdf_file = $1.'.pdf'; |
$papera=~s/t/p/; |
$papera=~s/t/p/; |
|
#---- |
|
# The code below uses fixps to make pdf include in sequences work. |
|
# |
|
# $comma = "fixps --force $new_name_file"; |
|
# &debug("FIXPS command: $comma"); |
|
# &busy_wait_command("$comma 1>$tempo_file 2>/dev/null", |
|
# "for $status_statement now validating PS", |
|
# \%prog_state,$tempo_file); |
|
|
|
#--- |
|
# The code below uses gs to make pdf includes in sequences work |
|
|
|
# Use gs to fix the postscript -> level 1.5 |
|
# .. if pdfs were included |
|
|
|
if ($pdfs_converted > 0) { |
|
$comma = "gs -sDEVICE=pswrite -dLanguageLevel=1.5 "; |
|
&busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null", |
|
"for $status_statement now validating PS", |
|
\%prog_state, $tempo_file); |
|
|
|
#--- |
|
&busy_wait_command("mv $tempo_file $new_name_file", |
|
'File move', \%prog_state, $new_name_file); |
|
} |
if ($laystyle eq 'album' and $numberofcolumns eq '2') { |
if ($laystyle eq 'album' and $numberofcolumns eq '2') { |
$comma = "psnup $papera -2 -s1.0 $new_name_file"; |
$comma = "psnup $papera -2 -s1.0 $new_name_file"; |
|
&debug("PSNUP command: $comma"); |
&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", |
"for $status_statement now Modifying PS layout", |
"for $status_statement now Modifying PS layout", |
\%prog_state,$tempo_file); |
\%prog_state,$tempo_file); |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
$comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"'; |
$comma = 'pstops '.$papera.' "2:0+1(0.48w,0)" '.$new_name_file; |
&busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null", |
&debug("PSTOPS command: $comma "); |
|
&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null", |
"for $status_statement now Modifying PS layout", |
"for $status_statement now Modifying PS layout", |
\%prog_state,$tempo_file); |
\%prog_state,$tempo_file); |
} else { |
} else { |
Line 491 foreach $texfile (@texfile) {
|
Line 538 foreach $texfile (@texfile) {
|
close(FFHS); |
close(FFHS); |
$ps_file=$new_ps_file; |
$ps_file=$new_ps_file; |
} |
} |
&busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("ps2pdf13 $ps_file $pdf_file 1>/dev/null 2>/dev/null", |
"for $status_statement now Converting PS to PDF", |
"for $status_statement now Converting PS to PDF", |
\%prog_state,$pdf_file); |
\%prog_state,$pdf_file); |
|
|
Line 582 sub busy_wait_command {
|
Line 629 sub busy_wait_command {
|
} |
} |
} |
} |
if ($advanced_role) { |
if ($advanced_role) { |
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win, |
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message.$extra_msg); |
$message.$extra_msg); |
|
} |
} |
} |
} |
$SIG{CHLD}='IGNORE'; |
$SIG{CHLD}='IGNORE'; |
Line 680 sub repaginate {
|
Line 726 sub repaginate {
|
my @pages_in_student; # For each student his/her initial page count. |
my @pages_in_student; # For each student his/her initial page count. |
my $max_pages = 0; # Pages in 'longest' student. |
my $max_pages = 0; # Pages in 'longest' student. |
my $page_number = 0; |
my $page_number = 0; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]",1)); |
&mt("Counting pages for student: [_1]",1)); |
|
|
|
while ($line = <PSFILE>) { |
while ($line = <PSFILE>) { |
|
|
Line 709 sub repaginate {
|
Line 754 sub repaginate {
|
# - save the page_number, reset and, if necessary |
# - save the page_number, reset and, if necessary |
# update max_pages. |
# update max_pages. |
push(@pages_in_student, $page_number); |
push(@pages_in_student, $page_number); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]", scalar(@pages_in_student))); |
&mt("Counting pages for student: [_1]", scalar(@pages_in_student))); |
|
if ($page_number > $max_pages) { |
if ($page_number > $max_pages) { |
$max_pages = $page_number; |
$max_pages = $page_number; |
} |
} |
Line 722 sub repaginate {
|
Line 766 sub repaginate {
|
} |
} |
# file ended so one more student |
# file ended so one more student |
push(@pages_in_student, $page_number); |
push(@pages_in_student, $page_number); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Counting pages for student: [_1]",scalar(@pages_in_student))); |
&mt("Counting pages for student: [_1]",scalar(@pages_in_student))); |
|
if ($page_number > $max_pages) { |
if ($page_number > $max_pages) { |
$max_pages = $page_number; |
$max_pages = $page_number; |
} |
} |
Line 750 sub repaginate {
|
Line 793 sub repaginate {
|
|
|
|
|
my $student_number = 0; # Index of student we're working on. |
my $student_number = 0; # Index of student we're working on. |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Repaginating student: [_1]",$student_number+1)); |
"Repaginating student ".$student_number+1); |
|
|
|
while (my $line = <LATEXIN>) { |
while (my $line = <LATEXIN>) { |
if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") { |
if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") { |
Line 768 sub repaginate {
|
Line 810 sub repaginate {
|
} |
} |
|
|
$student_number++; |
$student_number++; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Repaginating student: [_1]",$student_number+1)); |
"Repaginating student ".$student_number+1); |
|
|
|
} else { |
} else { |
print LATEXOUT $line; |
print LATEXOUT $line; |
Line 845 sub create_missing_fonts {
|
Line 886 sub create_missing_fonts {
|
# |
# |
sub convert_figure { |
sub convert_figure { |
my ($not_eps) = @_; |
my ($not_eps) = @_; |
|
&debug("in convert_figure"); |
|
|
my $status_statement='EPS picture for '.$not_eps; |
my $status_statement='EPS picture for '.$not_eps; |
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
|
|
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { |
if ($eps_f=~/\/home\/httpd\/html\/priv\/[^\/]+\/([^\/]+)\//) { |
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; |
$eps_f=~s/\/home\/httpd\/html\/priv\/[^\/]+\/([^\/]+)/$1/; |
} elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) { |
} elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) { |
$eps_f=~ s/$perlvar{'lonDocRoot'}\/res\/(.+)/$1/; |
$eps_f=~ s/$perlvar{'lonDocRoot'}\/res\/(.+)/$1/; |
} elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) { |
} elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) { |
Line 881 sub convert_figure {
|
Line 923 sub convert_figure {
|
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/ /\\ /g; |
$not_eps =~ s/ /\\ /g; |
|
my $prettyname=$not_eps; |
if ($advanced_role) { |
if ($advanced_role) { |
my $prettyname=$not_eps; |
|
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
|
$prettyname=~s|$perlvar{'lonDocRoot'}/|/|; |
$prettyname=~s|$perlvar{'lonDocRoot'}/|/|; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt('Converting to EPS: [_1]',$prettyname)); |
'Converting to EPS '.$prettyname); |
} |
|
# |
|
# If the file is a PDF, need to use pdftops to convert it to a ps file. |
|
# otherwise use imagemagik: |
|
# |
|
if($not_eps =~/\.(pdf|PDF)$/) { |
|
|
|
# |
|
# For whatever reason, pure postscript conversions have to be |
|
# in the same dir as the base file: |
|
# |
|
$eps_f = &basename($eps_f); |
|
$eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f; |
|
|
|
&debug("Converting pdf $not_eps to postscript: $eps_f"); |
|
system("pdftops $not_eps $eps_f"); |
|
$pdfs_converted++; # Need to fix ps in last pass. |
|
} else { |
|
system("convert $not_eps $eps_f"); |
|
if($? and $advanced_role){ |
|
print "<p class=\"LC_warning\">" |
|
.mt("An error occured during the conversion of [_1].[_2]" |
|
."If possible try to save this image using different settings and republish it.", |
|
"<span class=\"LC_filename\">".$prettyname."</span>", "<br/>") |
|
."</p>"; |
|
} |
} |
} |
system("convert $not_eps $eps_f"); |
|
|
|
if (not -e $eps_f) { |
if (not -e $eps_f) { |
# converting an animated gif creates either: |
# converting an animated gif creates either: |
Line 972 sub analyze_logfile {
|
Line 1037 sub analyze_logfile {
|
|
|
if ($advanced_role) { |
if ($advanced_role) { |
#LaTeX failed to parse tex file |
#LaTeX failed to parse tex file |
print "<h2>".&mt('LaTeX could not successfully parse your tex file.')."</h2>"; |
print "<h2>".&mt('LaTeX could not successfully parse your TeX file.')."</h2>"; |
print &mt('It probably has errors in it.')."<br />"; |
print &mt('It probably has errors in it.')."<br />"; |
if ($badtext) { |
if ($badtext) { |
print &mt('With very high probability this error occured in [_1].',$badtext) |
print &mt('With very high probability this error occured in [_1].',$badtext) |
Line 1025 sub analyze_logfile {
|
Line 1090 sub analyze_logfile {
|
# $name_file - is the name of the LaTeX file. |
# $name_file - is the name of the LaTeX file. |
# $identifier - is the unique LaTeX identifier.l |
# $identifier - is the unique LaTeX identifier.l |
|
|
print "<br />"; |
print '<p class="LC_error">'; |
if ($badtext) { |
if ($badtext) { |
print &mt('There are errors in [_1].',$badtext); |
print &mt('There are errors in [_1].',$badtext); |
} else { |
} else { |
print &mt('There are errors.'); |
print &mt('There are errors.'); |
} |
} |
print "<br />".&mt('These errors prevent this resource from printing correctly.'); |
print '</p>' |
|
.&mt('These errors prevent this resource from printing correctly.'); |
|
|
my $tex_handle = IO::File->new($texfile); |
my $tex_handle = IO::File->new($texfile); |
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); |