version 1.70, 2004/11/13 08:25:41
|
version 1.80, 2005/05/03 22:22:47
|
Line 27
|
Line 27
|
# |
# |
|
|
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
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::lonhtmlcommon; |
|
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonmsg; |
|
use LONCAPA::Enrollment; |
|
|
use strict; |
use strict; |
|
|
|
# Get the list of course coordinators authorized on this course: |
|
#Parameters: |
|
# id - Course id. |
|
# dom - Domain of course. |
|
#Returns: |
|
# A (possibly empty) list of course coordinators. Each course coordinator |
|
# is given as user:domain |
|
# |
|
sub get_cc_list { |
|
my ($id, $dom) = @_; |
|
my @personel = &Apache::lonnet::getkeys('nohist_userroles', $dom, $id); |
|
my @coordinators; |
|
foreach my $person (@personel) { |
|
my @info = split(/:/, $person); |
|
my $role = $info[0]; |
|
my $user = $info[1]; |
|
my $udom = $info[2]; |
|
if ($role eq 'cc') { |
|
my $isactive = &LONCAPA::Enrollment::check_user_status($udom, $user, $dom, $id, 'cc'); |
|
if ($isactive eq 'ok') { |
|
push @coordinators, $user.':'.$udom; |
|
} |
|
} |
|
} |
|
return (@coordinators); |
|
} |
|
# |
|
# Determine if a user is operating as a student for this course/domain. |
|
# |
|
# |
|
#Parameters: |
|
# course - The course id. |
|
# cdom - The course domain. |
|
# |
|
#Implicit: |
|
# $env{request.role} contains the role under which this user operated this |
|
# this request. |
|
sub is_student { |
|
my ($course, $cdom) = @_; |
|
my $active_role = $env{'request.role'}; |
|
my @role_fields = split(/\//, $active_role); |
|
|
|
|
|
if ( ($role_fields[0] eq 'st.') && ($role_fields[1] eq $cdom) && |
|
($role_fields[2] eq $course)) { |
|
return 1; |
|
} else { |
|
return 0; |
|
} |
|
|
|
|
|
} |
|
|
|
# |
|
# Debugging: Dump the environment for debugging. |
|
# |
|
sub dumpenv { |
|
print "<p>-------------------</p>"; |
|
foreach my $key (sort (keys %env)) { |
|
print "<br />$key -> $env{$key}"; |
|
} |
|
print "<p>-------------------</p>"; |
|
} |
|
|
|
# |
|
# This sub sends a message to the appropriate person if there was an error |
|
# rendering the latex At present, there's only one case to consider: |
|
# a student printing inside a course results in messages to the course coordinator. |
|
#Parmaeters: |
|
# identifier - The unique identifier of this cgi request. |
|
# logfile - The contents of the log file (included in the message). |
|
# texfile - reference to an array containing the LaTeX input file |
|
# (included in the message). |
|
#Implicit inputs: |
|
# From the environment: |
|
# cgi.$identifier.user - User doing the printing. |
|
# cgi.$identifier.domain - Domain the user is logged in on with printing. |
|
# cgi.$identifier.courseid - Id of the course (if this is a course). |
|
# cgi.$identifier.coursedom- Domain in which course was constituted. |
|
# cgi.$identifier.resources - List of resource URL's for which the print |
|
# was attempted. |
|
# |
|
sub send_error_mail { |
|
my ($identifier,$logfile, $texfile) = @_; |
|
my $user = $env{"cgi.$identifier.user"}; |
|
my $domain = $env{"cgi.$identifier.domain"}; |
|
my $courseid = $env{"cgi.$identifier.courseid"}; |
|
my $coursedom= $env{"cgi.$identifier.coursedom"}; |
|
my $resources= $env{"cgi.$identifier.resources"}; |
|
|
|
# &dumpenv(); |
|
|
|
|
|
|
|
# Only continue if there is a user, domain, courseid, course domain |
|
# and resources: |
|
|
|
if(defined($user) && defined($domain) && defined($courseid) && |
|
defined($coursedom) && defined($resources) ){ |
|
|
|
my @cclist = &get_cc_list($courseid, $coursedom); |
|
|
|
# Only mail if the conditions are ripe for it: |
|
# The user is a student in the course: |
|
# |
|
|
|
if (&is_student( $courseid, $coursedom)) { |
|
# build the subject and message body: |
|
print "sending message to course coordinators.<br />"; |
|
|
|
my $subject = "Print failed for $user".'@'.$domain; |
|
my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n"; |
|
$message .= " User was attempting to print: \n"; |
|
$message .= " $resources\n"; |
|
$message .= "--------------------LaTeX logfile:------------ \n"; |
|
$message .= $logfile; |
|
$message .= "-----------------LaTeX source file: ------------\n"; |
|
|
|
foreach my $line (@$texfile) { |
|
$message .= "$line\n"; |
|
} |
|
foreach my $dest (@cclist) { |
|
my @destinfo = split(/:/,$dest); |
|
my $user = $destinfo[0]; |
|
my $dom = $destinfo[1]; |
|
|
|
&Apache::lonmsg::user_normal_msg($user, $dom, |
|
$subject, $message); |
|
|
|
# No point in looking at the return status as there's no good |
|
# error action I can think of right now (log maybe?). |
|
} |
|
} |
|
} |
|
} |
|
|
$|=1; |
$|=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 57 END
|
Line 196 END
|
print $bodytag; |
print $bodytag; |
|
|
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
my $texfile = $ENV{'cgi.'.$identifier.'.file'}; |
my $texfile = $env{'cgi.'.$identifier.'.file'}; |
my $laystyle = $ENV{'cgi.'.$identifier.'.layout'}; |
my $laystyle = $env{'cgi.'.$identifier.'.layout'}; |
my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'}; |
my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'}; |
my $paper = $ENV{'cgi.'.$identifier.'.paper'}; |
my $paper = $env{'cgi.'.$identifier.'.paper'}; |
my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; |
my $selectionmade = $env{'cgi.'.$identifier.'.selection'}; |
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 $advanced_role = $env{'cgi.'.$identifier.'.role'}; |
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 $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'}); |
|
|
|
|
my $adv = $ENV{'request.role.adv'}; |
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/; |
my $duefile = $texfile; |
my $duefile = $texfile; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
#do we have figures? |
#do we have figures? |
|
# print "Figure file: $figfile\n"; |
if (-e $figfile) { |
if (-e $figfile) { |
|
# print "$figfile exists\n"; |
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>; |
Line 95 END
|
Line 234 END
|
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 '') { |
|
# print "Converting $not_eps"; # Debugging. |
my $status_statement='EPS picture for '.$not_eps; |
my $status_statement='EPS picture for '.$not_eps; |
|
# print "$status_statement\n"; |
$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 109 END
|
Line 250 END
|
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
} |
} |
|
$eps_f =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX. |
my $path=$eps_f; |
my $path=$eps_f; |
$path=~s/\/([^\/]+)\.eps$//; |
$path =~ s/\/([^\/]+)\.eps$//; |
|
# print "Final file path: $path "; # Debugging |
File::Path::mkpath($path,0,0777); |
File::Path::mkpath($path,0,0777); |
my $image = Image::Magick->new; |
|
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
if ( exists($done_conversion{$not_eps})) { |
$not_eps =~ s/ /\\ /g; |
next; |
if ( exists($done_conversion{$not_eps})) { next; } |
} |
|
if ($adv) { |
if ($adv) { |
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'}/|/|; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); |
|
} |
$done_conversion{$not_eps}=1; |
$done_conversion{$not_eps}=1; |
my $status = $image->Read($not_eps); |
# print "Converting $not_eps -> $eps_f"; # Debugging |
if ($status) {print " $status ";} |
system("convert $not_eps $eps_f"); |
$image->Set(page => '+100+200'); |
|
$status = $image->Write($eps_f); |
|
if ($status) {print " $status ";} |
|
#check is eps exist in prtspool |
#check is eps exist in prtspool |
if(not -e $eps_f) { |
if(not -e $eps_f) { |
for (my $i=0;$i<10000;$i++) { |
for (my $i=0;$i<10000;$i++) { |
Line 140 END
|
Line 279 END
|
} |
} |
} |
} |
} |
} |
if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } |
if ($adv) { |
|
&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); |
|
} |
unlink($figfile); |
unlink($figfile); |
} |
} |
#print "$texfile\n"; #name of the tex file for debugging only |
#print "$texfile\n"; #name of the tex file for debugging only |
Line 240 foreach $texfile (@texfile) {
|
Line 381 foreach $texfile (@texfile) {
|
} |
} |
} |
} |
print "</pre>\n"; |
print "</pre>\n"; |
if ($advans_role) { |
if ($advanced_role) { |
|
print "<p> Advanced role </p>"; |
print "<b><big>The link to "; |
print "<b><big>The link to "; |
$logfilename=~s/\/home\/httpd//; |
$logfilename=~s/\/home\/httpd//; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
Line 258 foreach $texfile (@texfile) {
|
Line 400 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"; |
|
} else { # Student role... |
|
# at this point: |
|
# $body_log_file - contains the log file. |
|
# $name_file - is the name of the LaTeX file. |
|
# $identifier - is the unique LaTeX identifier.l |
|
|
|
my $tex_handle = IO::File->new($name_file); |
|
my @tex_contents = <$tex_handle>; |
|
&send_error_mail($identifier, $body_log_file, \@tex_contents); |
} |
} |
|
|
} elsif ($body_log_file=~m/<inserted text>/) { |
} elsif ($body_log_file=~m/<inserted text>/) { |
Line 319 foreach $texfile (@texfile) {
|
Line 470 foreach $texfile (@texfile) {
|
# unlink @garb; |
# unlink @garb; |
unlink $duefile; |
unlink $duefile; |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
if ($advans_role) { |
} |
print "<br /><br />"; |
if ($advanced_role) { |
print "<b><big>The link to "; |
print "<br /><br />"; |
$logfilename=~s/\/home\/httpd//; |
print "<b><big>The link to "; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
$logfilename=~s/\/home\/httpd//; |
print "\n"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
print "\n"; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
my @tex_content_of_file = <$tex_temporary_file>; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
close $tex_temporary_file; |
my @tex_content_of_file = <$tex_temporary_file>; |
my $body_tex_file = join(' ',@tex_content_of_file); |
close $tex_temporary_file; |
$texfile =~ s/\.tex$/aaaaa\.html/; |
my $body_tex_file = join(' ',@tex_content_of_file); |
$tex_temporary_file = IO::File->new('>'.$texfile); |
$texfile =~ s/\.tex$/aaaaa\.html/; |
print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; |
$tex_temporary_file = IO::File->new('>'.$texfile); |
print "<br /><br />"; |
print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; |
print "<b><big>The link to "; |
print "<br /><br />"; |
$texfile=~s/\/home\/httpd//; |
print "<b><big>The link to "; |
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
$texfile=~s/\/home\/httpd//; |
print "\n"; |
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
} |
print "\n"; |
} |
} |
} else { |
} else { |
#LaTeX successfully parsed tex file |
#LaTeX successfully parsed tex file |