grab taddr and zaddr balances and show them on startup

bin/hushlist

@@ -6,6 +6,21 @@ use lib 'lib';
 use Hush::List;
 use Hush::Util qw/barf/;
 use Data::Dumper;
+use Hush::RPC; #hack
+
+my $rpc           = Hush::RPC->new;
+my $chaininfo     = $rpc->getblockchaininfo;
+my $walletinfo    = $rpc->getwalletinfo;
+my $chain         = $chaininfo->{chain};
+my $blocks        = $chaininfo->{blocks};
+my $balance       = $rpc->z_gettotalbalance;
+my $tbalance      = $balance->{transparent};
+my $zbalance      = $balance->{private};
+my $total_balance = $balance->{total};
+
+print "Hushlist running on $chain chain, $blocks blocks\n";
+print "Balances: transparent $tbalance HUSH, private $zbalance HUSH\n";
+exit;
 
 # we only need one
 my $list    = Hush::List->new;

lib/Hush/RPC.pm

@@ -8,6 +8,7 @@ sub new {
         user     => $ENV{HUSH_RPC_USERNAME} || "hush",
         password => $ENV{HUSH_RPC_PASSWORD} || "puppy",
         host     => "127.0.0.1",
+        port     => 8822,
     );
     return $rpc,
 }