Commit 452cff81 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Minor change to allow a more custom audit message.

parent 16bccb22
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2004, 2006, 2007 University of Utah and the Flux Group. # Copyright (c) 2000-2008 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
...@@ -318,6 +318,9 @@ sub SendAuditMail($) ...@@ -318,6 +318,9 @@ sub SendAuditMail($)
if ($exitstatus) { if ($exitstatus) {
$body .= "\nExited with status: $exitstatus"; $body .= "\nExited with status: $exitstatus";
} }
if (defined($AUDIT_INFO{'message'})) {
$body .= "\n" . $AUDIT_INFO{'message'};
}
my $FROM = "$GCOS <${USERNAME}\@${OURDOMAIN}>"; my $FROM = "$GCOS <${USERNAME}\@${OURDOMAIN}>";
if (! $logonly) { if (! $logonly) {
...@@ -454,6 +457,7 @@ my %AUDIT_METAINFO = ...@@ -454,6 +457,7 @@ my %AUDIT_METAINFO =
( which => 'string', # ex "PROJ/EXP" ( which => 'string', # ex "PROJ/EXP"
success_frag => 'string', # ex "T. Swapped In" success_frag => 'string', # ex "T. Swapped In"
failure_frag => 'string', # ie "Bla Failure" failure_frag => 'string', # ie "Bla Failure"
message => 'string',
cc => 'list'); # Cc audit mail to these people cc => 'list'); # Cc audit mail to these people
# #
......
Supports Markdown
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