|
|
@ -10,6 +10,8 @@ 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}; |
|
|
|
my $uptime = qx{cat /proc/loadavg}; |
|
|
|
my ($load) = split / /, $uptime; |
|
|
|
chomp(my $hostname= qx{hostname}); |
|
|
|
print "$hostname: BLUR $speed H/s, $threads threads\n"; |
|
|
|
print "$hostname: BLUR $speed H/s, $threads threads, load $load\n"; |
|
|
|
#print $json; |
|
|
|