Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-22 02:51:03 +00:00
Code Issues Releases Wiki Activity

Add server query login to ts3v2 plugin

Browse source
This commit is contained in:
Fabian Schlager 2014-02-06 16:29:17 +01:00
parent 84866ca679
commit d41d39916b
1 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
plugins/teamspeak/ts3v2_
View file

@ -33,8 +33,10 @@ use strict;
use Net::Telnet; use Net::Telnet;
# CONFIG HERE! # CONFIG HERE!
my $hostname = $ENV{host} || "188.40.110.119"; # serveraddress my $hostname = $ENV{host} || "localhost"; # serveraddress
my $port = $ENV{port} || 10011; # querryport my $port = $ENV{port} || 10011; # querryport
my $user = $ENV{user} || "serveradmin";
my $password = $ENV{password} || "";
my $filename = "ts3v2_"; my $filename = "ts3v2_";
# SCRIPT START! # SCRIPT START!
@ -45,6 +47,18 @@ if (!$telnet->open(Host=>$hostname, Port=>$port)) {
die "Server could not be reached, please check your config!"; die "Server could not be reached, please check your config!";
} }
$telnet->waitfor("/Welcome/");
if ($password ne "") {
$telnet->cmd("login client_login_name=".$user." client_login_password=".$password);
my $response = $telnet->getline(Timeout=>1);
if ($response !~ "error id=0 msg=ok") {
$telnet->close;
print("Test: ".($response eq "error id=0 msg=ok"));
die "ServerQuery login failed: ".$response;
}
}
#get argument #get argument
my $argument = ""; my $argument = "";
if ($0 =~ /$filename(\w+)$/i) { if ($0 =~ /$filename(\w+)$/i) {
@ -62,7 +76,6 @@ if ($argument eq "overview" or $argument eq "transfer" or (defined $ARGV[0] and
} elsif($argument eq "transfer") { } elsif($argument eq "transfer") {
$mode = "t"; $mode = "t";
} }
$telnet->waitfor("/Welcome/");
$telnet->cmd("serverlist"); $telnet->cmd("serverlist");
my $line = $telnet->getline(Timeout=>1); my $line = $telnet->getline(Timeout=>1);
my @servers = split(/\|/, $line); my @servers = split(/\|/, $line);
@ -95,7 +108,6 @@ if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
} elsif (exists $ARGV[0] and $ARGV[0] eq "config") { } elsif (exists $ARGV[0] and $ARGV[0] eq "config") {
if ($mode eq "s") { if ($mode eq "s") {
#single server mode #single server mode
$telnet->waitfor("/Welcome/");
$telnet->cmd("use sid=".$server); $telnet->cmd("use sid=".$server);
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
$telnet->cmd("serverinfo"); $telnet->cmd("serverinfo");
@ -131,7 +143,6 @@ if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
print "graph_info This graph shows the number of connected users on a Teamspeak3 server\n"; print "graph_info This graph shows the number of connected users on a Teamspeak3 server\n";
foreach (@num) { foreach (@num) {
$telnet->waitfor("/Welcome/");
$telnet->cmd("use sid=".$_); $telnet->cmd("use sid=".$_);
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
$telnet->cmd("serverinfo"); $telnet->cmd("serverinfo");
@ -163,7 +174,6 @@ if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
#go go magic, go! #go go magic, go!
if ($mode eq "s") { if ($mode eq "s") {
#single mode #single mode
$telnet->waitfor("/Welcome/");
$telnet->cmd("use sid=".$server); $telnet->cmd("use sid=".$server);
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
$telnet->cmd("serverinfo"); $telnet->cmd("serverinfo");
@ -192,7 +202,6 @@ if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
} }
} elsif ($mode eq "t") { } elsif ($mode eq "t") {
$telnet->waitfor("/Welcome/");
$telnet->cmd("hostinfo"); $telnet->cmd("hostinfo");
my @tsave; my @tsave;
my $line = $telnet->getline(Timeout=>1); my $line = $telnet->getline(Timeout=>1);