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.
24 lines
427 B
24 lines
427 B
#
|
|
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
|
|
|
|
use Genesis;
|
|
use functions qw(displayBlock);
|
|
use DAG qw(DAGRead);
|
|
|
|
|
|
my $genblock = $Genesis::genblock;
|
|
my $genhash = $Genesis::genhash;
|
|
my $genaddr = $genblock->{bkaddr};
|
|
printf "genhash: %s\n",$genhash;
|
|
printf "genaddr: %s\n",$genaddr;
|
|
|
|
my $genbk = &DAGRead('blocks',$genhash);
|
|
#printf "--- blk %s...\n",Dump($blk);
|
|
|
|
&displayBlock($genbk);
|
|
|
|
exit $?;
|
|
|
|
1;
|
|
|