Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-25 18:38:30 +00:00
Code Issues Releases Wiki Activity

-added queryuser login, -subtract queryclients from usercount

Browse source
This commit is contained in:
Tim Wulkau 2010-11-18 17:36:28 +01:00 • committed by Steve Schnepp
parent 0469046f7f
commit 63f9678e6b
1 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
plugins/other/teamspeak_user
View file

@ -7,6 +7,9 @@
# #
# by Tim Wulkau - www.wulkau.de # by Tim Wulkau - www.wulkau.de
# #
# 18.11.10 - v0.4
# -added queryuser login
# -subtract queryclients from usercount (tanks to Jakob Lenfers for the idea)
# 02.10.10 - v0.3 # 02.10.10 - v0.3
# -fixed welcomemessage error # -fixed welcomemessage error
# 31.01.10 - v0.2 # 31.01.10 - v0.2
@ -25,6 +28,9 @@ my $hostname = "localhost"; # serveraddress
my $port = 10011; # querryport (default: 10011) my $port = 10011; # querryport (default: 10011)
my @serverids = (1); # array of virtualserverids (1,2,3,4,...) my @serverids = (1); # array of virtualserverids (1,2,3,4,...)
my $username = ""; # only set if the default queryuser hasn´t enough rights (should work without this)
my $password = "";
# SCRIPT START! # SCRIPT START!
if(exists $ARGV[0] and $ARGV[0] eq "config") if(exists $ARGV[0] and $ARGV[0] eq "config")
{ {
@ -51,16 +57,23 @@ else
{ {
$telnet->cmd("use sid=$server"); $telnet->cmd("use sid=$server");
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
if($username && $password) {
$telnet->cmd("login $username $password");
$telnet->waitfor("/error id=0 msg=ok/");
}
$telnet->cmd("serverinfo"); $telnet->cmd("serverinfo");
my $clients = 0;
my $queryclients = 0;
my $line = $telnet->getline(Timeout=>5); my $line = $telnet->getline(Timeout=>5);
if ($line =~ m/virtualserver_clientsonline=(\d+) /) { if ($line =~ m/virtualserver_clientsonline=(\d+) /) {
print "$server.value ".($1-1)."\n"; $clients = $1;
} }
else { if ($line =~ m/virtualserver_queryclientsonline=(\d+) /) {
print "$server.value 0\n"; $queryclients = $1;
} }
$telnet->waitfor("/error id=0 msg=ok/"); $telnet->waitfor("/error id=0 msg=ok/");
print "$server.value ".($clients - $queryclients)."\n";
} }
$telnet->close; $telnet->close;
} }