29 lines
811 B
Perl
Executable File
29 lines
811 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Copyright (c) 2016-2023 The Hush developers
|
|
# Distributed under the GPLv3 software license, see the accompanying
|
|
# file COPYING or https://www.gnu.org/licenses/gpl-3.0.en.html
|
|
use warnings;
|
|
use strict;
|
|
use JSON;
|
|
|
|
# Generates taddrs/scriptpubs for testing the decentralized devtax
|
|
# all generated taddrs/scriptpubs will be part of existing wallet.dat
|
|
|
|
my $N = shift || 20;
|
|
my $hush = "./src/hush-cli";
|
|
my $getnew = "$hush getnewaddress";
|
|
my $validate = "$hush validateaddress";
|
|
|
|
print "std::string DEVTAX_DATA[DEVTAX_NUM][2] = {\n";
|
|
|
|
for my $i (1 .. $N) {
|
|
my $taddr = qx{$getnew};
|
|
chomp $taddr;
|
|
my $j = qx{$validate $taddr};
|
|
my $json = decode_json($j);
|
|
my $scriptpub = $json->{scriptPubKey};
|
|
printf qq!{"%s", "%s"},\n!, $taddr, $scriptpub;
|
|
}
|
|
|
|
print "};\n";
|