version 1.153, 2013/01/31 15:09:23
|
version 1.154, 2013/03/18 21:33:08
|
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 usrname. |
|
|
if ($tempo_array[3]) { |
if ($tempo_array[3]) { |
$name=$tempo_array[3]; |
$name=$tempo_array[3]; |
($name_range) = split(/,/,$name, 2); |
($name_range) = split(/,/,$name, 2); |
} 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 323 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 339 foreach $texfile (@texfile) {
|
Line 339 foreach $texfile (@texfile) {
|
my ($lastname) = split(/,/, $name,2); |
my ($lastname) = split(/,/, $name,2); |
$name_range .= "-".$lastname; |
$name_range .= "-".$lastname; |
} 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; |
|
|