use Irssi;

use strict;

use warnings;

our $VERSION = "1.0.0";

our %IRSSI = (

authors => 'terminaldweller',

contact => 'https://terminaldweller.com',

name => 'server_status',

description => 'gives you the count of connected and unconnected servers as an expando',

license => 'GPL3 or newer',

url => 'https://github.com/irssi/scripts.irssi.org',

);

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();