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

Basic CLI help and error checking for a valid stride

Browse Source
This commit is contained in:
Duke Leto
2022-09-19 13:12:37 -04:00
parent 473ec30404
commit 0fb9db169c
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
util/checkpoints.pl
View File

@@ -10,6 +10,16 @@ my $perday = 1152;
my $hush = "./src/hush-cli"; my $hush = "./src/hush-cli";
my $gethash = "$hush getblockhash"; my $gethash = "$hush getblockhash";
my $stride = shift || 1000; my $stride = shift || 1000;
if ($stride =~ m/help/) {
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";
exit 0;
}
unless ($stride == int($stride) and $stride >= 0) {
print "Invalid stride! Must be an integer > 0\n";
exit 1;
}
my $count = 0; my $count = 0;
my $blocks = qx{$hush getblockcount}; my $blocks = qx{$hush getblockcount};
if($?) { if($?) {