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.
25 lines
589 B
25 lines
589 B
#
|
|
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
|
|
|
|
use TXPOOL qw(isTxValid);
|
|
use misc qw(kwdigest);
|
|
use YAML::Syck qw(LoadFile Dump);
|
|
#printf "--- keys %s...\n",Dump($ECKeys::keys);
|
|
printf "--- nicknames %s...\n",Dump($ECKeys::nicknames);
|
|
|
|
$UTXO->{$ECKeys::keys->{verification}{public}} = $config->{coinbase}{reward};
|
|
printf "--- UTXO %s...\n",Dump($UTXO);
|
|
|
|
my $tx = LoadFile($ENV{SITE}.'/templ/txcb01.yml');
|
|
my $txkw = &kwdigest($tx);
|
|
printf "--- tx (%s) %s...\n",$txkw,Dump($tx);
|
|
|
|
|
|
my $txok = &isTxValid($tx);
|
|
printf "is %s valid: ? %s\n",$txkw,$txok;
|
|
|
|
exit $?;
|
|
|
|
1;
|
|
|