Commit 6b9c3dcb authored by Ruslan Zakirov's avatar Ruslan Zakirov
Browse files

store txn in the stats

parent b8ba4c57
......@@ -150,12 +150,13 @@ sub OnResponse {
my $failed = $txn->CreatedObj->Unix > $deadline? 1 : 0;
my $owner = $args{'State'}->{'owner'} == $txn->Creator? 1 : 0;
my $stat = {
type => 'KeepInLoop',
owner => $args{'State'}->{'owner'},
failed => $failed,
owner_act => $owner,
actor => $txn->Creator,
shift => $txn->CreatedObj->Unix - $deadline,
type => 'KeepInLoop',
owner => $args{'State'}->{'owner'},
failed => $failed,
owner_act => $owner,
transaction => $txn,
actor => $txn->Creator,
shift => $txn->CreatedObj->Unix - $deadline,
};
push @{ $self->Stats }, $stat;
}
......@@ -175,12 +176,13 @@ sub OnResponse {
my $failed = $txn->CreatedObj->Unix > $deadline? 1 : 0;
my $owner = $args{'State'}->{'owner'} == $txn->Creator? 1 : 0;
my $stat = {
type => 'Response',
owner => $args{'State'}->{'owner'},
failed => $failed,
owner_act => $owner,
actor => $txn->Creator,
shift => ($txn->CreatedObj->Unix - $deadline),
type => 'Response',
owner => $args{'State'}->{'owner'},
failed => $failed,
owner_act => $owner,
transaction => $txn,
actor => $txn->Creator,
shift => ($txn->CreatedObj->Unix - $deadline),
};
push @{ $self->Stats }, $stat;
}
......
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