a2647b106f
Consolidate all standalone utility scripts into contrib/scripts/: - Perl: avg_blocktime.pl, block_time.pl, gen-zaddrs.pl, sda_checkpoints.pl, sdl_checkpoints.pl, hush_block_subsidy_per_halving, hush_halvings, hush_scanner, hush_supply, hush_supply_old - Shell: fresh_clone_compile_and_run.sh, tidy_datadir.sh, dragonx_scanner - Python: convert_address.py - BAT: hush-uri.bat Update path references in contrib/README.md, doc/OLD_WALLETS.md, doc/relnotes/README.md, and sdl_checkpoints.pl.
50 lines
1.4 KiB
Perl
Executable File
50 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# Copyright (c) 2016-2024 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
|
|
use warnings;
|
|
use strict;
|
|
|
|
# Given a block height, estimate when it will happen
|
|
my $block = shift || die "Usage: $0 123";
|
|
my $coin = shift || '';
|
|
my $hush = "./src/hush-cli";
|
|
unless (-e $hush) {
|
|
die "$hush does not exist, aborting";
|
|
}
|
|
if ($coin) {
|
|
$hush .= " -ac_name=$coin";
|
|
}
|
|
my $blockcount = qx{$hush getblockcount};
|
|
|
|
unless ($blockcount = int($blockcount)) {
|
|
print "Invalid response from $hush\n";
|
|
exit 1;
|
|
}
|
|
|
|
if ($block <= $blockcount) {
|
|
die "That block has already happened!";
|
|
} else {
|
|
my $diff = $block - $blockcount;
|
|
my $minpb = 1.25; # 75s in minutes for HUSH3
|
|
if ($coin eq 'DRAGONX') {
|
|
$minpb = 0.6; # minutes per block
|
|
} elsif ($coin) {
|
|
# TODO: support custom blocktimes
|
|
$minpb = 1; # assumes default blocktime of 60s
|
|
}
|
|
my $minutes = $diff*$minpb;
|
|
my $seconds = $minutes*60;
|
|
my $now = time;
|
|
my $then = $now + $seconds;
|
|
my $ldate = localtime($then);
|
|
my $gmdate = gmtime($then);
|
|
if ($coin) {
|
|
print "$coin Block $block will happen at roughly:\n";
|
|
} else {
|
|
print "Hush Block $block will happen at roughly:\n";
|
|
}
|
|
print "$ldate Eastern # $then\n";
|
|
print "$gmdate GMT # $then\n";
|
|
}
|