Permalink
Browse files

api: sample command line api call in perl

tx to lilyth for the idea (works on cpuminer, sgminer and cgminer too)
  • Loading branch information...
1 parent a7905e6 commit f85e3772f998e0c44869b42db16c6bc5f4f63b6b @tpruvot committed May 31, 2016
Showing with 34 additions and 0 deletions.
  1. +34 −0 api/summary.pl
View
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+# sample script to query ccminer API
+
+my $command = "summary|";
+
+use Socket;
+use IO::Socket::INET;
+
+my $sock = new IO::Socket::INET (
+ PeerAddr => '127.0.0.1',
+ PeerPort => 4068,
+ Proto => 'tcp',
+ ReuseAddr => 1,
+ Timeout => 10,
+);
+
+if ($sock) {
+
+ print $sock $command;
+ my $res = "";
+
+ while(<$sock>) {
+ $res .= $_;
+ }
+
+ close($sock);
+ print("$res\n");
+
+} else {
+
+ print("ccminer socket failed\n");
+
+}

0 comments on commit f85e377

Please sign in to comment.