version 1.77, 2005/05/02 21:57:44
|
version 1.78, 2005/05/02 22:59:11
|
Line 97 sub is_student {
|
Line 97 sub is_student {
|
# Debugging: Dump the environment for debugging. |
# Debugging: Dump the environment for debugging. |
# |
# |
sub dumpenv { |
sub dumpenv { |
print "<br>-------------------<br>"; |
print "<p>-------------------</p>"; |
foreach my $key (sort (keys %env)) { |
foreach my $key (sort (keys %env)) { |
print "<br>$key -> $env{$key}"; |
print "<br />$key -> $env{$key}"; |
} |
} |
print "<br>-------------------<br>"; |
print "<p>-------------------</p>"; |
} |
} |
|
|
# |
# |
Line 148 sub send_error_mail {
|
Line 148 sub send_error_mail {
|
|
|
if (&is_student( $courseid, $coursedom)) { |
if (&is_student( $courseid, $coursedom)) { |
# 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 />"; |
|
|
my $subject = "Print failed for $user".'@'.$domain; |
my $subject = "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"; |
Line 382 foreach $texfile (@texfile) {
|
Line 382 foreach $texfile (@texfile) {
|
} |
} |
print "</pre>\n"; |
print "</pre>\n"; |
if ($advanced_role) { |
if ($advanced_role) { |
print "<br> Advanced role <br>"; |
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>"; |