Commit 73dd2af0 authored by Leigh B Stoller's avatar Leigh B Stoller

Some general cleanup.

parent 235dd4a5
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2008-2018 University of Utah and the Flux Group. # Copyright (c) 2008-2019 University of Utah and the Flux Group.
# #
# {{{GENIPUBLIC-LICENSE # {{{GENIPUBLIC-LICENSE
# #
...@@ -72,26 +72,12 @@ sub SendStatus($) ...@@ -72,26 +72,12 @@ sub SendStatus($)
{ {
my ($status) = @_; my ($status) = @_;
if (1) {
# Error, we are done.
LogEnd($status);
}
else {
# We want to keep logging, not send an email here.
LogStop();
}
print "Content-Type: text/plain \n\n"; print "Content-Type: text/plain \n\n";
print "We love all profiles equally.\n"; print "We love all profiles equally.\n";
print "Exited with $status\n"; print "Exited with $status\n";
exit(0); exit(0);
} }
#
# Send logs to tblogs (only)
#
LogStart(0, undef, LIBAUDIT_LOGONLY() | LIBAUDIT_LOGTBLOGS());
AddAuditInfo("to", $TBLOGS);
# The query holds the token we need to find the profile. # The query holds the token we need to find the profile.
my $query = new CGI(); my $query = new CGI();
...@@ -148,7 +134,12 @@ if ($mypid) { ...@@ -148,7 +134,12 @@ if ($mypid) {
SendStatus(0); SendStatus(0);
} }
sleep(1); sleep(1);
libaudit::AuditFork();
#
# Send logs to tblogs (only)
#
LogStart(0, undef, LIBAUDIT_LOGONLY() | LIBAUDIT_LOGTBLOGS());
AddAuditInfo("to", $TBLOGS);
if ($debug) { if ($debug) {
print "$profile\n"; print "$profile\n";
...@@ -180,5 +171,5 @@ if ($?) { ...@@ -180,5 +171,5 @@ if ($?) {
if ($debug > 1) { if ($debug > 1) {
print $output; print $output;
} }
LogEnd(0);
exit(0); exit(0);
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