version 1.146.4.2, 2011/03/04 16:53:06
|
version 1.146.4.3, 2014/02/13 17:47:30
|
Line 127 sub send_error_mail {
|
Line 127 sub send_error_mail {
|
|
|
# Todo: Convert badurl into a url from file path: |
# Todo: Convert badurl into a url from file path: |
|
|
my $subject = "Error [$badurl] Print failed for $user".'@'.$domain; |
my $subject = "Error [$badurl] 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"; |
$message .= " User was attempting to print: \n"; |
$message .= " User was attempting to print: \n"; |
foreach my $resource (split(/:/,$resources)) { |
foreach my $resource (split(/:/,$resources)) { |
$message .= " $resource\n"; |
$message .= " $resource\n"; |
Line 308 foreach $texfile (@texfile) {
|
Line 308 foreach $texfile (@texfile) {
|
my $name; |
my $name; |
my $name_range=''; |
my $name_range=''; |
|
|
# $name -> Either user's full name or username@domain |
# $name -> Either user's full name or username:domain |
# $name_range -> Either user's last name or usrname. |
# $name_range -> Either user's last name or username. |
|
|
if ($tempo_array[3]) { |
if ($tempo_array[3]) { |
$name=$tempo_array[3]; |
$name=$tempo_array[3]; |
($name_range) = split(/,/,$name, 2); |
$name =~ s{^\s+|\s+$}{}g; |
|
if ($name =~ /,/) { |
|
($name_range) = split(/,/,$name, 2); |
|
} elsif ($name =~ /\s/) { |
|
$name_range = $name; |
|
$name_range =~ s/\s+/_/; |
|
} else { |
|
$name_range = $name; |
|
} |
|
$name_range =~ s/[^\w\:\-]+//g; |
} else { |
} else { |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name=$tempo_array[0].':'.$tempo_array[1]; |
$name_range = $tempo_array[0]; |
$name_range = $tempo_array[0]; |
} |
} |
|
|
Line 323 foreach $texfile (@texfile) {
|
Line 332 foreach $texfile (@texfile) {
|
# user is getting printed. |
# user is getting printed. |
# |
# |
|
|
if (($name ne "") && ($name ne '@') ) { # Could be printing codes... |
if (($name ne "") && ($name ne ':') ) { # Could be printing codes... |
$link_text='<b>'.$name.'</b>'; |
$link_text='<b>'.$name.'</b>'; |
$status_statement.=$name; |
$status_statement.=$name; |
} |
} |
Line 336 foreach $texfile (@texfile) {
|
Line 345 foreach $texfile (@texfile) {
|
@tempo_array=split(/:/,$stud_info[-1]); |
@tempo_array=split(/:/,$stud_info[-1]); |
if ($tempo_array[3]) { |
if ($tempo_array[3]) { |
$name=$tempo_array[3]; |
$name=$tempo_array[3]; |
my ($lastname) = split(/,/, $name,2); |
$name =~ s{^\s+|\s+$}{}g; |
$name_range .= "-".$lastname; |
my $lastname; |
|
if ($name =~ /,/) { |
|
($lastname) = split(/,/, $name,2); |
|
} elsif ($name =~ /\s/) { |
|
$lastname = $name; |
|
$lastname =~ s/\s+/_/; |
|
} else { |
|
$lastname = $name; |
|
} |
|
$name_range .= "-".$lastname; |
|
$name_range =~ s/[^\w\:\-]+//g; |
} else { |
} else { |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name=$tempo_array[0].':'.$tempo_array[1]; |
$name_range .= '-'.$tempo_array[0]; |
$name_range .= '-'.$tempo_array[0]; |
} |
} |
if (($name ne "") && ($name ne '@')) { |
if (($name ne "") && ($name ne ':')) { |
$link_text.=' - <b>'.$name.'</b>'; |
$link_text.=' - <b>'.$name.'</b>'; |
$status_statement.=' - '.$name; |
$status_statement.=' - '.$name; |
|
|