DanS
46693a355a
The docs/packaging were largely un-rebranded Hush3 content, with several docs stating facts that are wrong for DragonX. This rewrites them against the verified DragonX source state. Corrections (not just branding): - PoW: RandomX (CPU), not Equihash/ASIC — README, overview.md, randomx.md - Privacy: private from genesis (ac_private=1, Sapling@height1), not "as of block 340000" — overview.md, payment-api.md - Removed the false "coinbase must be shielded" consensus claim (shield-coinbase.md, payment-api.md); coinbase is directly spendable - Fixed default fee 0.0001 (was 0.0010000, 10x); stratum port 22769 (was 19031) - datadir ~/.hush/DRAGONX, DRAGONX.conf, dragonxd/dragonx-cli/dragonx-tx, git.dragonx.is throughout; branch model dev->dragonx - Softened the inherited dPoW reorg claim (no live DragonX notary infra) Packaging: fix build-debian-package.sh + gen-manpages.sh to use the dragonx binaries/manpages; rename bash-completions to dragonx*; drop hush-arrakis-chain from the package. Keep /usr/share/hush (hardcoded in the binary for params). Also: README links/logo, ObsidianDragon + SilentDragonXAndroid wallets, networking/init/dev-process/contrib/util rebrand, and leftover helper scripts. Delete legacy duplicates (hushd.* init/service, HUSH3.conf examples, OLD_WALLETS.md, hsc.md) and rename hush-uri.bat -> dragonx-uri.bat. Out of scope (noted, not changed): historical changelog/copyright, the Hush mainnet airdrop snapshot, seed data files, depends/ source mirrors, and the in-code strCurrencyUnits="HUSH". Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
58 lines
1.4 KiB
Perl
Executable File
58 lines
1.4 KiB
Perl
Executable File
#!/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
|
|
|
|
use warnings;
|
|
use strict;
|
|
my $cli = "./src/dragonx-cli";
|
|
my $coin = shift || '';
|
|
unless (-e $cli) {
|
|
die "$cli does not exist, aborting";
|
|
}
|
|
if ($coin) {
|
|
$cli .= " -ac_name=$coin";
|
|
}
|
|
my $getblock= "$cli getblock";
|
|
my $start = shift || 1850000;
|
|
my $end = shift || 1853000;
|
|
|
|
my $blocks = qx{$cli getblockcount};
|
|
if($?) {
|
|
print "ERROR, is node 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;
|
|
my $prev_blocktime = 0;
|
|
my $total_duration = 0;
|
|
|
|
while ($block <= $end) {
|
|
my $blocktime = qx{$getblock $block | grep time};
|
|
chomp $blocktime;
|
|
if($blocktime =~ m/(\d+)/) {
|
|
$blocktime = $1;
|
|
}
|
|
my $duration = $blocktime - $prev_blocktime;
|
|
if($prev_blocktime > 0) {
|
|
$total_duration += $duration;
|
|
}
|
|
#print "$block $blocktime $prev_blocktime $duration\n";
|
|
print "$block $duration\n";
|
|
$block++;
|
|
$prev_blocktime = $blocktime;
|
|
}
|
|
my $num_blocks = $end - $start;
|
|
my $avg_duration = $total_duration / $num_blocks;
|
|
print "Avg blocktime over $num_blocks blocks = $avg_duration\n";
|