Commit d03de09e authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add portal URL to node is dead email.

parent 384708fd
...@@ -1456,6 +1456,7 @@ sub ActionStart($$;$) ...@@ -1456,6 +1456,7 @@ sub ActionStart($$;$)
my $email = $creator->email(); my $email = $creator->email();
my $count = scalar(@failed); my $count = scalar(@failed);
my $urn = $slice->urn(); my $urn = $slice->urn();
my $purl = $slice->GetPortalURL();
my $logs = ""; my $logs = "";
foreach my $node (@failed) { foreach my $node (@failed) {
...@@ -1470,7 +1471,8 @@ sub ActionStart($$;$) ...@@ -1470,7 +1471,8 @@ sub ActionStart($$;$)
"Nodes:\n". "Nodes:\n".
" " . join(" ", @failed) . "\n". " " . join(" ", @failed) . "\n".
"in $urn failed.\n\n" . "in $urn failed.\n\n" .
"$logs\n\n", ($logs ne "" ? "$logs\n\n" : "") .
(defined($purl) ? "$purl\n" : ""),
$TBOPS, "Cc: $TBOPS"); $TBOPS, "Cc: $TBOPS");
} }
# #
...@@ -3006,6 +3008,7 @@ sub WaitForNodes($$$$@) ...@@ -3006,6 +3008,7 @@ sub WaitForNodes($$$$@)
my $email = $creator->email(); my $email = $creator->email();
my $count = scalar(@failed); my $count = scalar(@failed);
my $urn = $slice->urn(); my $urn = $slice->urn();
my $purl = $slice->GetPortalURL();
my $logs = ""; my $logs = "";
foreach my $node (@failed) { foreach my $node (@failed) {
...@@ -3020,7 +3023,8 @@ sub WaitForNodes($$$$@) ...@@ -3020,7 +3023,8 @@ sub WaitForNodes($$$$@)
"Nodes:\n". "Nodes:\n".
" " . join(" ", @failed) . "\n". " " . join(" ", @failed) . "\n".
"in $urn failed.\n\n" . "in $urn failed.\n\n" .
"$logs\n\n", ($logs ne "" ? "$logs\n\n" : "") .
(defined($purl) ? "$purl\n" : ""),
$TBOPS, "Cc: $TBOPS"); $TBOPS, "Cc: $TBOPS");
# Tell caller. # Tell caller.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment