Munin contributed plugins

#

#######################################################

# 02.10.10 - v0.3

#

# 18.04.10 - v0.2

#           -transfer mode added

#           -initial release

#

######################################################

#%# family=auto

#%# capabilities=autoconf suggest

use strict;

use Net::Telnet;

# CONFIG HERE!

my $hostname =  $ENV{host} || "localhost";    # serveraddress

my $port =      $ENV{port} || 10011;      # querryport

my $user =      $ENV{user} || "serveradmin";

my $password =  $ENV{password} || "";

my $filename =  "ts3v2_";

# SCRIPT START!

#init telnet connection

my $name = ""; my $server = ""; my @num; my $id = 0; my $i = 0; my $myserver; my $transfer;

        die "ServerQuery login failed: ".$response;

  }

}

#get argument

my $argument = "";

if ($0 =~ /$filename(\w+)$/i) {

        die "Error: We need to know what serverid you want, so link this plugin as "

                .$filename."1, ".$filename."2 or ".$filename."overview.\n";

}

#check for overview, transfer or single server mode

my $mode = "";

if ($argument eq "overview" or $argument eq "transfer" or (defined $ARGV[0] and ($ARGV[0] eq "suggest" or $ARGV[0] eq "autoconf"))) {

} else {

        die "ERROR: unknown plugin mode: $argument\n";

}

#check for config mode

if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {

        print "yes";

                $telnet->waitfor("/error id=0 msg=ok/");

                $telnet->cmd("serverinfo");

                my $line = $telnet->getline(Timeout=>1);

                if ($line =~ m/virtualserver_id=(\d+) virtual/) {

                        my $id = $1;

                } else {

                        die "ERROR: server string not recognized!\n";

                }

                $telnet->waitfor("/error id=0 msg=ok/");

                print "graph_title Teamspeak Users ".$name."\n";

                print "graph_vlabel Connected Teamspeak Users\n";

                print "graph_category voip\n";

                print "users.label Users\n";

                print "users.info Connected users to ".$name."\n";

                print "users.type GAUGE\n";

                exit 0;

        } elsif ($mode eq "o") {

                #overview mode

                print "graph_vlabel Connected Teamspeak Users\n";

                print "graph_category voip\n";

                print "graph_info This graph shows the number of connected users on a Teamspeak3 server\n";

                foreach (@num) {

                        $telnet->cmd("use sid=".$_);

                        $telnet->waitfor("/error id=0 msg=ok/");

                $telnet->cmd("use sid=".$server);

                $telnet->waitfor("/error id=0 msg=ok/");

                $telnet->cmd("serverinfo");

                my $line = $telnet->getline(Timeout=>1);

                if ($line =~ m/virtualserver_clientsonline=(\d+) /) {

                        print "users.value ".($1-1)."\n";

                        $telnet->cmd("use sid=".$_);

                        $telnet->waitfor("/error id=0 msg=ok/");

                        $telnet->cmd("serverinfo");

                        my $line = $telnet->getline(Timeout=>1);

                        if ($line =~ m/virtualserver_clientsonline=(\d+) /) {

                                print $_.".value ".($1-1)."\n";

                        die "ERROR: server string not recognized!\n";

                }

                $telnet->waitfor("/error id=0 msg=ok/");

        }

}

#close telnet connection

$telnet->close;

exit;