Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-08-03 06:38:24 +00:00
Code Issues Releases Wiki Activity

fix indentation, rename lagacy to pre09

Browse source
This commit is contained in:
Sledge Sulaweyo 2018-07-10 16:58:28 +02:00
parent 8bfb81806d
commit 121448e72d
4 changed files with 269 additions and 269 deletions
Download patch file Download diff file Expand all files Collapse all files

84
plugins/rtorrent/rtom_allsessions_mem
View file

@ -27,7 +27,7 @@
# ip rTorrent's ip address - using scgi_port - needed, when "src" is NOT set to "socket"
# port rTorrent's scgi port (scgi_port) - using scgi_port - needed, when "src" is NOT set to "socket"
# category Change graph category
# api use 'legacy' (pre 0.9.0) or current (0.9.0+) API calls
# api use 'pre09' (pre 0.9.0) or 'current' (0.9.0+) API calls
#
# Configuration example
#
@ -47,20 +47,20 @@
if ( $ARGV[0] and $ARGV[0] eq "autoconf" ) {
exit 1;
exit 1;
}
if ( $ARGV[0] and $ARGV[0] eq "config" ) {
my $category = $ENV{"category"} || "";
print "graph_title rTorrent memory usage\n";
print "graph_args --base 1024 --lower-limit 0\n";
print "graph_vlabel Bytes\n";
print "graph_category filetransfer".${category}."\n";
print "mem.label Memory usage\n";
print "mem.info Memory usage of rTorrent\n";
print "mem.type GAUGE\n";
print "mem.draw LINE2\n";
exit 0;
my $category = $ENV{"category"} || "";
print "graph_title rTorrent memory usage\n";
print "graph_args --base 1024 --lower-limit 0\n";
print "graph_vlabel Bytes\n";
print "graph_category filetransfer".${category}."\n";
print "mem.label Memory usage\n";
print "mem.info Memory usage of rTorrent\n";
print "mem.type GAUGE\n";
print "mem.draw LINE2\n";
exit 0;
}
use IO::Socket;
@ -68,12 +68,12 @@ my $src = $ENV{"src"} || "";
my @sockets = split /,/, $ENV{"socket"} || "";
my $ip = $ENV{"ip"} || "127.0.0.1";
my @ports = split /,/, $ENV{"port"} || "";
my $api = $ENV{"api"} || "legacy";
my $api = $ENV{"api"} || "pre09";
my $mem = 0;
my $pattern = qr/<value><(int|i4|i8|ex\.i8)>(\d+)<\/(int|i4|i8|ex\.i8)><\/value>/;
my $line = "";
if ($api =~ /legacy/) {
if ($api =~ /pre09/) {
$line = "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>get_memory_usage</methodName></methodCall>";
} else {
$line = "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>pieces.memory.current</methodName></methodCall>";
@ -83,35 +83,35 @@ my $header = "CONTENT_LENGTH\000${llen}\000SCGI\001\000";
my $hlen = length $header;
if ( ( defined $src ) && ( $src eq "socket" ) ) {
for $socket (@sockets)
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
my $line = "${hlen}:${header},${line}";
print SOCK $line;
flush SOCK;
while ( $line = <SOCK> ) {
if ( $line =~ /$pattern/ ) {
$mem = $mem + $2;
}
}
close (SOCK);
}
for $socket (@sockets)
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
my $line = "${hlen}:${header},${line}";
print SOCK $line;
flush SOCK;
while ( $line = <SOCK> ) {
if ( $line =~ /$pattern/ ) {
$mem = $mem + $2;
}
}
close (SOCK);
}
} else {
for $port (@ports)
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
my $line = "${hlen}:${header},${line}";
print SOCK $line;
flush SOCK;
while ( $line = <SOCK> ) {
if ( $line =~ /$pattern/ ) {
$mem = $mem + $2;
}
}
close (SOCK);
}
for $port (@ports)
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
my $line = "${hlen}:${header},${line}";
print SOCK $line;
flush SOCK;
while ( $line = <SOCK> ) {
if ( $line =~ /$pattern/ ) {
$mem = $mem + $2;
}
}
close (SOCK);
}
}
print "mem.value ${mem}\n";