version 1.76, 2005/04/07 06:56:23
|
version 1.80, 2005/05/03 22:22:47
|
Line 32 use File::Path;
|
Line 32 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::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; |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
print <<END; |
print <<END; |
Line 62 END
|
Line 201 END
|
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 $advanced_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 = &Apache::lonnet::unescape($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'}; |
Line 243 foreach $texfile (@texfile) {
|
Line 382 foreach $texfile (@texfile) {
|
} |
} |
print "</pre>\n"; |
print "</pre>\n"; |
if ($advanced_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 260 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>/) { |