Plugin ts3v2_: switch to unix line endings
This commit is contained in:
Lars Kruse
parent
59073bff12
commit
4cea2f60f9
|
|
@ -1,220 +1,220 @@
|
|||
#!/usr/bin/perl -w
|
||||
# ts3v2_ (perl)
|
||||
# Munin Plugin for Teamspeak3 Servers
|
||||
# displays the number of connected users on TS3 servers
|
||||
# and average transferrate per second over 5 min.
|
||||
#
|
||||
# You can use it with symlinks for overview and explicit ids.
|
||||
# Also you can configure the following variables:
|
||||
# host
|
||||
# port
|
||||
#
|
||||
# by Marc Urben, www.oxi.ch or www.oom.ch
|
||||
#
|
||||
# Based on Tim Wulkau's script. Thank you!
|
||||
# www.wulkau.de
|
||||
#
|
||||
#######################################################
|
||||
# 02.10.10 - v0.3
|
||||
# -now works again with 3.0.0-beta29
|
||||
#
|
||||
# 18.04.10 - v0.2
|
||||
# -transfer mode added
|
||||
#
|
||||
# 13.04.10 - v0.1
|
||||
# -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;
|
||||
my $telnet = new Net::Telnet(Timeout=>1, Errmode=>"return", Prompt=>"/\r/");
|
||||
if (!$telnet->open(Host=>$hostname, Port=>$port)) {
|
||||
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;
|
||||
die "ServerQuery login failed: ".$response;
|
||||
}
|
||||
}
|
||||
|
||||
#get argument
|
||||
my $argument = "";
|
||||
if ($0 =~ /$filename(\w+)$/i) {
|
||||
$argument = $1;
|
||||
} elsif ($ARGV[0] ne "suggest" and $ARGV[0] ne "autoconf") {
|
||||
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"))) {
|
||||
if ($argument eq "overview") {
|
||||
$mode = "o";
|
||||
} elsif($argument eq "transfer") {
|
||||
$mode = "t";
|
||||
}
|
||||
$telnet->cmd("serverlist");
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
my @servers = split(/\|/, $line);
|
||||
foreach (@servers) {
|
||||
if ($_ =~ m/virtualserver_id=(\d+) virtual/) {
|
||||
push(@num, $1);
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
} elsif ($argument =~ /^[+-]?\d+$/ ) {
|
||||
$mode = "s";
|
||||
$server = $argument;
|
||||
} else {
|
||||
die "ERROR: unknown plugin mode: $argument\n";
|
||||
}
|
||||
|
||||
#check for config mode
|
||||
if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
|
||||
print "yes";
|
||||
exit 0;
|
||||
} elsif (exists $ARGV[0] and $ARGV[0] eq "suggest") {
|
||||
print "overview\n";
|
||||
print "transfer\n";
|
||||
foreach (@num) {
|
||||
print $_."\n";
|
||||
}
|
||||
exit 0;
|
||||
} elsif (exists $ARGV[0] and $ARGV[0] eq "config") {
|
||||
if ($mode eq "s") {
|
||||
#single server mode
|
||||
$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_id=(\d+) virtual/) {
|
||||
my $id = $1;
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
if ($line =~ m/virtualserver_name=(.*) virtualserver_welcomemessage/) {
|
||||
$name = $1;
|
||||
$name =~ s/\\s/ /g;
|
||||
} 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 "graph_info This graph shows the number of connected users on a Teamspeak3 server\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_title Teamspeak Users Overview\n";
|
||||
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("serverinfo");
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
if ($line =~ m/virtualserver_name=(.*) virtualserver_welcomemessage/) {
|
||||
$name = $1;
|
||||
$name =~ s/\\s/ /g;
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
print $_.".label ".$name."\n";
|
||||
print $_.".info Users connected on ".$name."\n";
|
||||
print $_.".type GAUGE\n";
|
||||
}
|
||||
exit 0;
|
||||
} elsif ($mode eq "t") {
|
||||
#transfer mode
|
||||
print "graph_title Teamspeak Transfer Overview\n";
|
||||
print "graph_vlabel Teamspeak Transfer\n";
|
||||
print "graph_category voip\n";
|
||||
print "graph_info This graph shows the Teamspeak3 Transfer Overview\n";
|
||||
print "transfer.label ~ Transfer per second\n";
|
||||
print "transfer.info Transfer per second over 5 min\n";
|
||||
print "transfer.type DERIVE\n";
|
||||
exit 0;
|
||||
}
|
||||
} else {
|
||||
#go go magic, go!
|
||||
if ($mode eq "s") {
|
||||
#single mode
|
||||
$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";
|
||||
} else {
|
||||
print "users.value 0\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
} elsif ($mode eq "o") {
|
||||
#overview mode
|
||||
for (@num) {
|
||||
$telnet->waitfor("/Welcome/");
|
||||
$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";
|
||||
} else {
|
||||
print $_.".value 0\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
}
|
||||
} elsif ($mode eq "t") {
|
||||
$telnet->cmd("hostinfo");
|
||||
my @tsave;
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
if ($line =~ m/connection_bytes_received_total=(\d+) connection_bandwidth_sent_last_second_total/) {
|
||||
$transfer = $1;
|
||||
print "transfer.value ".(($transfer-($transfer%300))/300)."\n";
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
#close telnet connection
|
||||
$telnet->close;
|
||||
exit;
|
||||
#!/usr/bin/perl -w
|
||||
# ts3v2_ (perl)
|
||||
# Munin Plugin for Teamspeak3 Servers
|
||||
# displays the number of connected users on TS3 servers
|
||||
# and average transferrate per second over 5 min.
|
||||
#
|
||||
# You can use it with symlinks for overview and explicit ids.
|
||||
# Also you can configure the following variables:
|
||||
# host
|
||||
# port
|
||||
#
|
||||
# by Marc Urben, www.oxi.ch or www.oom.ch
|
||||
#
|
||||
# Based on Tim Wulkau's script. Thank you!
|
||||
# www.wulkau.de
|
||||
#
|
||||
#######################################################
|
||||
# 02.10.10 - v0.3
|
||||
# -now works again with 3.0.0-beta29
|
||||
#
|
||||
# 18.04.10 - v0.2
|
||||
# -transfer mode added
|
||||
#
|
||||
# 13.04.10 - v0.1
|
||||
# -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;
|
||||
my $telnet = new Net::Telnet(Timeout=>1, Errmode=>"return", Prompt=>"/\r/");
|
||||
if (!$telnet->open(Host=>$hostname, Port=>$port)) {
|
||||
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;
|
||||
die "ServerQuery login failed: ".$response;
|
||||
}
|
||||
}
|
||||
|
||||
#get argument
|
||||
my $argument = "";
|
||||
if ($0 =~ /$filename(\w+)$/i) {
|
||||
$argument = $1;
|
||||
} elsif ($ARGV[0] ne "suggest" and $ARGV[0] ne "autoconf") {
|
||||
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"))) {
|
||||
if ($argument eq "overview") {
|
||||
$mode = "o";
|
||||
} elsif($argument eq "transfer") {
|
||||
$mode = "t";
|
||||
}
|
||||
$telnet->cmd("serverlist");
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
my @servers = split(/\|/, $line);
|
||||
foreach (@servers) {
|
||||
if ($_ =~ m/virtualserver_id=(\d+) virtual/) {
|
||||
push(@num, $1);
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
} elsif ($argument =~ /^[+-]?\d+$/ ) {
|
||||
$mode = "s";
|
||||
$server = $argument;
|
||||
} else {
|
||||
die "ERROR: unknown plugin mode: $argument\n";
|
||||
}
|
||||
|
||||
#check for config mode
|
||||
if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
|
||||
print "yes";
|
||||
exit 0;
|
||||
} elsif (exists $ARGV[0] and $ARGV[0] eq "suggest") {
|
||||
print "overview\n";
|
||||
print "transfer\n";
|
||||
foreach (@num) {
|
||||
print $_."\n";
|
||||
}
|
||||
exit 0;
|
||||
} elsif (exists $ARGV[0] and $ARGV[0] eq "config") {
|
||||
if ($mode eq "s") {
|
||||
#single server mode
|
||||
$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_id=(\d+) virtual/) {
|
||||
my $id = $1;
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
if ($line =~ m/virtualserver_name=(.*) virtualserver_welcomemessage/) {
|
||||
$name = $1;
|
||||
$name =~ s/\\s/ /g;
|
||||
} 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 "graph_info This graph shows the number of connected users on a Teamspeak3 server\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_title Teamspeak Users Overview\n";
|
||||
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("serverinfo");
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
if ($line =~ m/virtualserver_name=(.*) virtualserver_welcomemessage/) {
|
||||
$name = $1;
|
||||
$name =~ s/\\s/ /g;
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
print $_.".label ".$name."\n";
|
||||
print $_.".info Users connected on ".$name."\n";
|
||||
print $_.".type GAUGE\n";
|
||||
}
|
||||
exit 0;
|
||||
} elsif ($mode eq "t") {
|
||||
#transfer mode
|
||||
print "graph_title Teamspeak Transfer Overview\n";
|
||||
print "graph_vlabel Teamspeak Transfer\n";
|
||||
print "graph_category voip\n";
|
||||
print "graph_info This graph shows the Teamspeak3 Transfer Overview\n";
|
||||
print "transfer.label ~ Transfer per second\n";
|
||||
print "transfer.info Transfer per second over 5 min\n";
|
||||
print "transfer.type DERIVE\n";
|
||||
exit 0;
|
||||
}
|
||||
} else {
|
||||
#go go magic, go!
|
||||
if ($mode eq "s") {
|
||||
#single mode
|
||||
$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";
|
||||
} else {
|
||||
print "users.value 0\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
} elsif ($mode eq "o") {
|
||||
#overview mode
|
||||
for (@num) {
|
||||
$telnet->waitfor("/Welcome/");
|
||||
$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";
|
||||
} else {
|
||||
print $_.".value 0\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
}
|
||||
} elsif ($mode eq "t") {
|
||||
$telnet->cmd("hostinfo");
|
||||
my @tsave;
|
||||
my $line = $telnet->getline(Timeout=>1);
|
||||
if ($line =~ m/connection_bytes_received_total=(\d+) connection_bandwidth_sent_last_second_total/) {
|
||||
$transfer = $1;
|
||||
print "transfer.value ".(($transfer-($transfer%300))/300)."\n";
|
||||
} else {
|
||||
die "ERROR: server string not recognized!\n";
|
||||
}
|
||||
$telnet->waitfor("/error id=0 msg=ok/");
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
#close telnet connection
|
||||
$telnet->close;
|
||||
exit;
|
||||
|
|
|
|||
Loading…
Reference in New Issue