|
@ -52,7 +52,6 @@ sub _sanity_checks { |
|
|
|
|
|
|
|
|
sub create_default_conf { |
|
|
sub create_default_conf { |
|
|
my ($list_conf) = @_; |
|
|
my ($list_conf) = @_; |
|
|
my $time = time; |
|
|
|
|
|
|
|
|
|
|
|
# when we create a brand new conf, we create brand new funding+nym addrs |
|
|
# when we create a brand new conf, we create brand new funding+nym addrs |
|
|
my $rpc = Hush::RPC->new; |
|
|
my $rpc = Hush::RPC->new; |
|
@ -62,6 +61,9 @@ sub create_default_conf { |
|
|
my $pseudonym_taddr = $rpc->getnewaddress; |
|
|
my $pseudonym_taddr = $rpc->getnewaddress; |
|
|
die "Unable to create pseudonym taddr" unless $pseudonym_taddr; |
|
|
die "Unable to create pseudonym taddr" unless $pseudonym_taddr; |
|
|
|
|
|
|
|
|
|
|
|
warn "funding=$funding_zaddr, nym=$pseudonym_taddr"; |
|
|
|
|
|
|
|
|
|
|
|
my $time = time; |
|
|
open my $fh, ">", $list_conf or die "Could not write file $list_conf ! : $!"; |
|
|
open my $fh, ">", $list_conf or die "Could not write file $list_conf ! : $!"; |
|
|
print $fh "# hushlist config v$Hush::List::VERSION\n"; |
|
|
print $fh "# hushlist config v$Hush::List::VERSION\n"; |
|
|
print $fh "funding_zaddr=$funding_zaddr\n"; |
|
|
print $fh "funding_zaddr=$funding_zaddr\n"; |
|
|