From d12ba4c963c7613d5de6285699243001393404e8 Mon Sep 17 00:00:00 2001
From: wowario <wowario@protonmail.com>
Date: Mon, 21 Jun 2021 15:07:28 +0300
Subject: [PATCH] count block votes script

---
 utils/votes.pl | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 utils/votes.pl

diff --git a/utils/votes.pl b/utils/votes.pl
new file mode 100644
index 000000000..8cd37a2d3
--- /dev/null
+++ b/utils/votes.pl
@@ -0,0 +1,34 @@
+# Script gets votes for a block range.
+# Run: perl votes.pl 60 300
+
+$IP='127.0.0.1:11181';
+
+$begin=$ARGV[0];
+if ($#ARGV == 1 ) { $end=$ARGV[1]; }
+
+open (F,">vote.txt");
+for ($i=$begin; $i<$end; $i++) {
+    $k=qq(-d '{"params":{"height":$i},"jsonrpc":"2.0","id":"test","method":"get_block_header_by_height"}' -H 'Content-Type: application/json');
+    $k=`curl -s -X POST http://$IP/json_rpc $k`;
+    $k=~/"vote"\D+(\d+)/sg;
+    $v=$1;
+    print F "$v ";
+}
+close F;
+
+$s = do{local(@ARGV,$/)="vote.txt";<>};
+$yes = "1";
+$count1 = () = $s =~ /\Q$yes/g;
+print "$count1 votes for yes\n";
+$no = "2";
+$count2 = () = $s =~ /\Q$no/g;
+print "$count2 votes for no\n";
+$abs = "0";
+$count0 = () = $s =~ /\Q$abs/g;
+print "$count0 abstained\n";
+
+if ($count1 > $count2) {
+    print "Computer says... Yes!\n";
+} else {
+    print "Computer says... No!\n";
+}
\ No newline at end of file