|
@ -29,14 +29,34 @@ if($getinfo =~ m/"connections": (\d+)/){ $STATS->{CONNECTIONS} ||= $1; } |
|
|
if($getinfo =~ m/"protocolversion": (\d+)/){ $STATS->{PROTOCOLVERSION} ||= $1; } |
|
|
if($getinfo =~ m/"protocolversion": (\d+)/){ $STATS->{PROTOCOLVERSION} ||= $1; } |
|
|
|
|
|
|
|
|
my @symbols = qw/ |
|
|
my @symbols = qw/ |
|
|
TX_TABLE BLOCKS_TABLE TLS_CONNECTIONS CONNECTIONS PROTOCOLVERSION |
|
|
TX_TABLE BLOCKS_TABLE TLS_CONNECTIONS CONNECTIONS PROTOCOLVERSION BLOCKS_STATS |
|
|
/; |
|
|
/; |
|
|
my @blocks = (); |
|
|
my @blocks = (); |
|
|
my $height = $STATS->{BLOCKS} || 0; |
|
|
my $height = $STATS->{BLOCKS} || 0; |
|
|
$STATS->{BLOCKS_TABLE} = ""; |
|
|
$STATS->{BLOCKS_TABLE} = ""; |
|
|
$STATS->{TX_TABLE} = ""; |
|
|
$STATS->{TX_TABLE} = ""; |
|
|
|
|
|
$STATS->{BLOCKS_STATS} = ""; |
|
|
|
|
|
|
|
|
my $mineraddress = ""; |
|
|
my $mineraddress = ""; |
|
|
|
|
|
my $avg_block_duration = 0; |
|
|
|
|
|
my @block_durations = (); |
|
|
|
|
|
my %unique_miners = (); |
|
|
|
|
|
my $total_txs = 0; |
|
|
|
|
|
my $longest_blocktime = 0; |
|
|
|
|
|
|
|
|
|
|
|
my $NUM_BLOCKS_TO_SHOW = 50; |
|
|
|
|
|
|
|
|
|
|
|
sub anonset_delta { |
|
|
|
|
|
my $height = shift; |
|
|
|
|
|
my $delta = 0; |
|
|
|
|
|
{ |
|
|
|
|
|
my $cmd = "$cli z_anonsetblockdelta $height"; |
|
|
|
|
|
warn $cmd; |
|
|
|
|
|
$delta = qx/$cmd/; |
|
|
|
|
|
} |
|
|
|
|
|
return $delta; |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
for my $h ($height-50 .. $height) { |
|
|
for my $h ($height-50 .. $height) { |
|
|
#for my $h (910265 .. 910270) { |
|
|
#for my $h (910265 .. 910270) { |
|
|
#last if($h < 0); |
|
|
#last if($h < 0); |
|
|