DragonX/dragonx
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Support arbitrary -ac_name in checkpoints.pl

Browse Source
This commit is contained in:
Duke
2023-06-15 10:13:01 -04:00
parent 79f126be43
commit c9f1fe4cf3
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
util/checkpoints.pl
View File

@@ -7,16 +7,16 @@ use strict;
# Generate checkpoint data for use in src/chainparams.cpp # Generate checkpoint data for use in src/chainparams.cpp
my $perday = 1152; my $perday = 1152;
my $hush = "./src/hush-cli"; my $cli = "./src/hush-cli";
my $gethash = "$hush getblockhash"; my $gethash = "$cli getblockhash";
my $stride = shift || 1000; my $stride = shift || 1000;
if ($stride =~ m/help/) { if ($stride =~ m/help/) {
print "To generate checkpoint data every 1000 blocks: $0 &> checkpoints.txt\n"; print "To generate checkpoint data every 1000 blocks: $0 &> checkpoints.txt\n";
print "To generate checkpoint data every X blocks: $0 X &> checkpoints.txt\n"; print "To generate checkpoint data every X blocks: $0 X &> checkpoints.txt\n";
print "To generate checkpoint data every X blocks starting at height Y: $0 X Y &> checkpoints.txt\n"; print "To generate checkpoint data every X blocks starting at height Y: $0 X Y &> checkpoints.txt\n";
print "To generate checkpoint data every X blocks starting at height Y for -ac_name CHAIN: $0 X Y CHAIN &> checkpoints.txt\n";
exit 0; exit 0;
} }
unless ($stride == int($stride) and $stride >= 0) { unless ($stride == int($stride) and $stride >= 0) {
print "Invalid stride! Must be an integer > 0\n"; print "Invalid stride! Must be an integer > 0\n";
exit 1; exit 1;
@@ -28,8 +28,17 @@ unless ($start_height == int($start_height) and $start_height >= 0) {
exit 1; exit 1;
} }
my $acname = shift;
if ($acname) {
# TODO: is acname valid?
$cli .= " -ac_name=$acname";
# TODO: assumes all HSC's will have a blocktime of 60s
$perday = 1440;
}
my $count = 0; my $count = 0;
my $blocks = qx{$hush getblockcount}; my $blocks = qx{$cli getblockcount};
if($?) { if($?) {
print "ERROR, exiting...\n"; print "ERROR, exiting...\n";
exit 1; exit 1;
@@ -53,7 +62,7 @@ while (1) {
chomp $blockhash; chomp $blockhash;
print qq{($block, uint256S("0x$blockhash"))\n}; print qq{($block, uint256S("0x$blockhash"))\n};
} }
my $time = qx{$hush getblock $last |grep time|cut -d: -f2| sed 's/,//g'}; my $time = qx{$cli getblock $last |grep time|cut -d: -f2| sed 's/,//g'};
chomp($time); chomp($time);
# TODO: This is Linux-only and assumes new (not legacy) dir # TODO: This is Linux-only and assumes new (not legacy) dir
my $line1 = qx{grep --text height=$prev ~/.hush/HUSH3/debug.log}; my $line1 = qx{grep --text height=$prev ~/.hush/HUSH3/debug.log};