Commit d1a35ea9 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Couple of minor tweaks to make sure that experiment state events

get sent properly; need to call TBdbfork(), and add a couple more
event sends in libdb.
parent d87e70ee
......@@ -1362,6 +1362,13 @@ sub TBLockExp($$;$)
$query_result->numrows == 0) {
return 0;
}
if ($EVENTSYS && defined($newstate)) {
EventSendFatal(objtype => TBDB_TBEVENT_EXPTSTATE,
objname => "$pid/$eid",
eventtype => $newstate,
expt => "$pid/$eid",
host => $BOSSNODE);
}
return 1;
}
......@@ -1413,6 +1420,13 @@ sub TBUnLockExp($$;$)
$query_result->numrows == 0) {
return 0;
}
if ($EVENTSYS && defined($newstate)) {
EventSendFatal(objtype => TBDB_TBEVENT_EXPTSTATE,
objname => "$pid/$eid",
eventtype => $newstate,
expt => "$pid/$eid",
host => $BOSSNODE);
}
return 1;
}
......
......@@ -415,6 +415,7 @@ if (my $childpid = TBBackGround($logname)) {
if (! $quiet);
exit($? >> 8);
}
TBdbfork();
# We are committed now. Affects how fatal() operates.
$committed = 1;
......
......@@ -393,6 +393,7 @@ if (! $batch) {
if (! $quiet);
exit($? >> 8);
}
TBdbfork();
}
#
......
......@@ -654,6 +654,7 @@ if (! $batch) {
if (! $quiet);
exit($? >> 8);
}
TBdbfork();
}
#
......
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