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 ) ...@@ -262,11 +262,15 @@ if ( $result )
foreach my $account ( sort @$result ) foreach my $account ( sort @$result )
{ {
my $maymine = ''; my $maymine = '';
$maymine = ' sealer' $maymine = 'sealer'
if exists $signers{$account}; if exists $signers{$account};
printf "Locally available account%s:\n", scalar @$result == 1 ? '' : 's' printf "Locally available account%s:\n", scalar @$result == 1 ? '' : 's'
if $i++ == 0; 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 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