20 lines
441 B
Perl
Executable File
20 lines
441 B
Perl
Executable File
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
# Generate checkpoint data for use in src/main.cpp
|
|
|
|
my $hush = "./src/hush-cli";
|
|
my $gethash = "$hush getblockhash";
|
|
my $stride = shift || 1000;
|
|
my $count = 0;
|
|
my $blocks = qx{$hush getblockcount};
|
|
|
|
while (1) {
|
|
$count++;
|
|
my $block = $stride*$count;
|
|
last if ($block > $blocks);
|
|
my $blockhash = qx{$gethash $block};
|
|
chomp $blockhash;
|
|
print qq{($block, uint256S("0x$blockhash"))\n};
|
|
}
|