From dc69b76f99650b23256a5e9609c11465f6a6b90c Mon Sep 17 00:00:00 2001
From: terminaldweller <devi@terminaldweller.com>
Date: Mon, 4 Sep 2023 15:55:58 +0330
Subject: added a new script server_status.pl

---
 server_status/server_status.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 server_status/server_status.pl

diff --git a/server_status/server_status.pl b/server_status/server_status.pl
new file mode 100644
index 0000000..0639991
--- /dev/null
+++ b/server_status/server_status.pl
@@ -0,0 +1,32 @@
+use Irssi;
+use strict;
+
+my $server_status_count = "";
+my $timeout;
+
+Irssi::settings_add_int('misc', 'server_status_count_freq', 100000);
+
+sub server_status {
+    Irssi::timeout_remove($timeout);
+    my $connected_count = 0;
+    my $unconnected_count = 0;
+
+    for my $server (Irssi::servers()) {
+        if ($server->{'connected'}) {
+            $connected_count++;
+        } else {
+            $unconnected_count++;
+        }
+    }
+
+    $server_status_count = $connected_count."/".$unconnected_count;
+
+    $timeout = Irssi::timeout_add_once(Irssi::settings_get_int('server_status_count_freq'), 'server_status' , undef);
+}
+
+Irssi::expando_create('server_status_count', sub {
+  return $server_status_count;
+}, {});
+
+$timeout = Irssi::timeout_add(Irssi::settings_get_int('server_status_count_freq'), 'server_status' , undef);
+server_status();
-- 
cgit v1.2.3