Duke Leto
2 years ago
1 changed files with 44 additions and 0 deletions
@ -0,0 +1,44 @@ |
|||
#!/usr/bin/perl |
|||
# Copyright (c) 2016-2022 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 |
|||
|
|||
# This script is used to generate the data used by the silentdragonlite-cli checkpoints.rs file |
|||
# https://git.hush.is/hush/silentdragonlite-cli/src/branch/master/lib/src/lightclient/checkpoints.rs#L24 |
|||
|
|||
use warnings; |
|||
use strict; |
|||
my $hush = "./src/hush-cli"; |
|||
my $gethash = "$hush getblockhash"; |
|||
my $gettree = "$hush getblockmerkletree"; |
|||
my $start = shift || 300000; |
|||
my $end = shift || 840000; |
|||
my $stride = shift || 10000; |
|||
|
|||
my $blocks = qx{$hush getblockcount}; |
|||
if($?) { |
|||
print "ERROR, is hushd running? exiting...\n"; |
|||
exit 1; |
|||
} |
|||
|
|||
if ($end > $blocks) { |
|||
print "The block $end is beyond how many blocks this node knows about, exiting...\n"; |
|||
exit 1; |
|||
} |
|||
|
|||
if ($start < 1) { |
|||
print "Invalid start block $start, exiting...\n"; |
|||
exit 1; |
|||
} |
|||
|
|||
my $block = $start; |
|||
while (1) { |
|||
last if $block > $end; |
|||
my $blockhash = qx{$gethash $block}; |
|||
my $merkle = qx{$gettree $block}; |
|||
chomp $merkle; |
|||
chomp $blockhash; |
|||
print qq{($block,"$blockhash",\n\t"$merkle"\n),\n}; |
|||
|
|||
$block += $stride; |
|||
} |
Loading…
Reference in new issue