toychain/t/head.t

#

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }

use toychain;
use DAG qw(DAGRead);


my $headblock = $toychain::HEADs[0];
my $headhash = $headblock->{bkhash};
my $headaddr = $headblock->{bkaddr};
printf "headhash: %s\n",$headhash;
printf "headaddr: %s\n",$headaddr;

my $blk = &DAGRead('blocks',$headhash);
#printf "--- blk %s...\n",Dump($blk);

&displayBlock($blk);

exit $?;

1;