Révision 121448e7
fix indentation, rename lagacy to pre09
| plugins/rtorrent/rtom_allsessions_mem | ||
|---|---|---|
| 27 | 27 |
# ip rTorrent's ip address - using scgi_port - needed, when "src" is NOT set to "socket" |
| 28 | 28 |
# port rTorrent's scgi port (scgi_port) - using scgi_port - needed, when "src" is NOT set to "socket" |
| 29 | 29 |
# category Change graph category |
| 30 |
# api use 'legacy' (pre 0.9.0) or current (0.9.0+) API calls
|
|
| 30 |
# api use 'pre09' (pre 0.9.0) or 'current' (0.9.0+) API calls
|
|
| 31 | 31 |
# |
| 32 | 32 |
# Configuration example |
| 33 | 33 |
# |
| ... | ... | |
| 47 | 47 |
|
| 48 | 48 |
|
| 49 | 49 |
if ( $ARGV[0] and $ARGV[0] eq "autoconf" ) {
|
| 50 |
exit 1;
|
|
| 50 |
exit 1; |
|
| 51 | 51 |
} |
| 52 | 52 |
|
| 53 | 53 |
if ( $ARGV[0] and $ARGV[0] eq "config" ) {
|
| 54 |
my $category = $ENV{"category"} || "";
|
|
| 55 |
print "graph_title rTorrent memory usage\n";
|
|
| 56 |
print "graph_args --base 1024 --lower-limit 0\n";
|
|
| 57 |
print "graph_vlabel Bytes\n";
|
|
| 58 |
print "graph_category filetransfer".${category}."\n";
|
|
| 59 |
print "mem.label Memory usage\n";
|
|
| 60 |
print "mem.info Memory usage of rTorrent\n";
|
|
| 61 |
print "mem.type GAUGE\n";
|
|
| 62 |
print "mem.draw LINE2\n";
|
|
| 63 |
exit 0;
|
|
| 54 |
my $category = $ENV{"category"} || "";
|
|
| 55 |
print "graph_title rTorrent memory usage\n"; |
|
| 56 |
print "graph_args --base 1024 --lower-limit 0\n"; |
|
| 57 |
print "graph_vlabel Bytes\n"; |
|
| 58 |
print "graph_category filetransfer".${category}."\n";
|
|
| 59 |
print "mem.label Memory usage\n"; |
|
| 60 |
print "mem.info Memory usage of rTorrent\n"; |
|
| 61 |
print "mem.type GAUGE\n"; |
|
| 62 |
print "mem.draw LINE2\n"; |
|
| 63 |
exit 0; |
|
| 64 | 64 |
} |
| 65 | 65 |
|
| 66 | 66 |
use IO::Socket; |
| ... | ... | |
| 68 | 68 |
my @sockets = split /,/, $ENV{"socket"} || "";
|
| 69 | 69 |
my $ip = $ENV{"ip"} || "127.0.0.1";
|
| 70 | 70 |
my @ports = split /,/, $ENV{"port"} || "";
|
| 71 |
my $api = $ENV{"api"} || "legacy";
|
|
| 71 |
my $api = $ENV{"api"} || "pre09";
|
|
| 72 | 72 |
|
| 73 | 73 |
my $mem = 0; |
| 74 | 74 |
my $pattern = qr/<value><(int|i4|i8|ex\.i8)>(\d+)<\/(int|i4|i8|ex\.i8)><\/value>/; |
| 75 | 75 |
my $line = ""; |
| 76 |
if ($api =~ /legacy/) {
|
|
| 76 |
if ($api =~ /pre09/) {
|
|
| 77 | 77 |
$line = "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>get_memory_usage</methodName></methodCall>"; |
| 78 | 78 |
} else {
|
| 79 | 79 |
$line = "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>pieces.memory.current</methodName></methodCall>"; |
| ... | ... | |
| 83 | 83 |
my $hlen = length $header; |
| 84 | 84 |
|
| 85 | 85 |
if ( ( defined $src ) && ( $src eq "socket" ) ) {
|
| 86 |
for $socket (@sockets)
|
|
| 87 |
{
|
|
| 88 |
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
|
| 89 |
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
|
| 90 |
my $line = "${hlen}:${header},${line}";
|
|
| 91 |
print SOCK $line;
|
|
| 92 |
flush SOCK;
|
|
| 93 |
while ( $line = <SOCK> ) {
|
|
| 94 |
if ( $line =~ /$pattern/ ) {
|
|
| 95 |
$mem = $mem + $2;
|
|
| 96 |
}
|
|
| 97 |
}
|
|
| 98 |
close (SOCK);
|
|
| 99 |
}
|
|
| 86 |
for $socket (@sockets) |
|
| 87 |
{
|
|
| 88 |
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die; |
|
| 89 |
connect( SOCK, sockaddr_un( $socket ) ) or die $!; |
|
| 90 |
my $line = "${hlen}:${header},${line}";
|
|
| 91 |
print SOCK $line; |
|
| 92 |
flush SOCK; |
|
| 93 |
while ( $line = <SOCK> ) {
|
|
| 94 |
if ( $line =~ /$pattern/ ) {
|
|
| 95 |
$mem = $mem + $2; |
|
| 96 |
} |
|
| 97 |
} |
|
| 98 |
close (SOCK); |
|
| 99 |
} |
|
| 100 | 100 |
} else {
|
| 101 |
for $port (@ports)
|
|
| 102 |
{
|
|
| 103 |
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
|
| 104 |
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
|
| 105 |
my $line = "${hlen}:${header},${line}";
|
|
| 106 |
print SOCK $line;
|
|
| 107 |
flush SOCK;
|
|
| 108 |
while ( $line = <SOCK> ) {
|
|
| 109 |
if ( $line =~ /$pattern/ ) {
|
|
| 110 |
$mem = $mem + $2;
|
|
| 111 |
}
|
|
| 112 |
}
|
|
| 113 |
close (SOCK);
|
|
| 114 |
}
|
|
| 101 |
for $port (@ports) |
|
| 102 |
{
|
|
| 103 |
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) ); |
|
| 104 |
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) ); |
|
| 105 |
my $line = "${hlen}:${header},${line}";
|
|
| 106 |
print SOCK $line; |
|
| 107 |
flush SOCK; |
|
| 108 |
while ( $line = <SOCK> ) {
|
|
| 109 |
if ( $line =~ /$pattern/ ) {
|
|
| 110 |
$mem = $mem + $2; |
|
| 111 |
} |
|
| 112 |
} |
|
| 113 |
close (SOCK); |
|
| 114 |
} |
|
| 115 | 115 |
} |
| 116 | 116 |
|
| 117 | 117 |
print "mem.value ${mem}\n";
|
Formats disponibles : Unified diff