support new ported code from explorer.hush.is/blocks

#2

bin/blocks_update.pl

@@ -29,14 +29,34 @@ if($getinfo     =~ m/"connections": (\d+)/){ $STATS->{CONNECTIONS} ||= $1; }
 if($getinfo     =~ m/"protocolversion": (\d+)/){ $STATS->{PROTOCOLVERSION} ||= $1; }
 
 my @symbols = qw/
-			TX_TABLE BLOCKS_TABLE TLS_CONNECTIONS CONNECTIONS PROTOCOLVERSION
+			TX_TABLE BLOCKS_TABLE TLS_CONNECTIONS CONNECTIONS PROTOCOLVERSION BLOCKS_STATS
 		/;
 my @blocks = ();
 my $height = $STATS->{BLOCKS} || 0;
 $STATS->{BLOCKS_TABLE} = "";
 $STATS->{TX_TABLE}     = "";
+$STATS->{BLOCKS_STATS} = "";
 
 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 (910265 .. 910270) {
 	#last if($h < 0);