From aacfe423a55123e43652e4388b576172b46410f6 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Wed, 2 Jan 2019 15:03:56 -0800
Subject: [PATCH] util for reporting cryptonote mining status

---
 bin/cn-mining-stats | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 bin/cn-mining-stats

diff --git a/bin/cn-mining-stats b/bin/cn-mining-stats
new file mode 100644
index 0000000..2d2ff7c
--- /dev/null
+++ b/bin/cn-mining-stats
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use LWP::Simple;
+use JSON::Any;
+my $j       = JSON::Any->new;
+my $PORT    = 13895;
+my $json    = get("http://127.0.0.1:$PORT/mining_status");
+my $mining  = $j->decode($json);
+my $speed   = $mining->{speed};
+my $threads = $mining->{threads_count};
+chomp(my $hostname= qx{hostname});
+print "$hostname: BLUR $speed H/s, $threads threads\n";
+#print $json;