You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
405 B
23 lines
405 B
#
|
|
|
|
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;
|
|
|