Skip to content
Snippets Groups Projects
Commit cca9dc7d authored by Robert Martin-Legene's avatar Robert Martin-Legene
Browse files

Mas info de localstate

parent 5ff563ef
No related branches found
No related tags found
No related merge requests found
......@@ -262,11 +262,15 @@ if ( $result )
foreach my $account ( sort @$result )
{
my $maymine = '';
$maymine = ' sealer'
$maymine = 'sealer'
if exists $signers{$account};
printf "Locally available account%s:\n", scalar @$result == 1 ? '' : 's'
if $i++ == 0;
printf "Account %d: %s%s\n", $i, $account, $maymine;
my $txn = rpc( $libbfa, 'eth_getTransactionCount', qq("$account"), '"latest"' );
$txn =~ s/^0x([a-fA-F\d]+)$/hex($1)/e;
my $gold = rpc( $libbfa, 'eth_getBalance', qq("$account"), '"latest"' );
$gold =~ s/^0x([a-fA-F\d]+)$/hex($1)/e;
printf "Account %d: %s %-6s %3d transaction%s, %d satoshi.\n", $i, $account, $maymine, $txn, ($txn==1?' ':'s'), $gold;
}
}
else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment