mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-07-22 02:51:03 +00:00
fix function name
This commit is contained in:
parent
3886860089
commit
bf2eff5c6c
4 changed files with 12 additions and 12 deletions
|
@ -66,7 +66,7 @@ my @ports = split /,/, $ENV{"port"} || "";
|
||||||
# detect rtorrent version
|
# detect rtorrent version
|
||||||
use version;
|
use version;
|
||||||
my %rtorrent_version;
|
my %rtorrent_version;
|
||||||
sub get_socket_version {
|
sub get_rtorrent_version {
|
||||||
my $version;
|
my $version;
|
||||||
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
||||||
my $llen = length $line_version;
|
my $llen = length $line_version;
|
||||||
|
@ -91,7 +91,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
||||||
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
@ -99,7 +99,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
||||||
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -76,7 +76,7 @@ my @ports = split /,/, $ENV{"port"} || "";
|
||||||
# detect rtorrent version
|
# detect rtorrent version
|
||||||
use version;
|
use version;
|
||||||
my %rtorrent_version;
|
my %rtorrent_version;
|
||||||
sub get_socket_version {
|
sub get_rtorrent_version {
|
||||||
my $version;
|
my $version;
|
||||||
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
||||||
my $llen = length $line_version;
|
my $llen = length $line_version;
|
||||||
|
@ -101,7 +101,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
||||||
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
@ -109,7 +109,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
||||||
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -90,7 +90,7 @@ my @ports = split /,/, $ENV{"port"} || "";
|
||||||
# detect rtorrent version
|
# detect rtorrent version
|
||||||
use version;
|
use version;
|
||||||
my %rtorrent_version;
|
my %rtorrent_version;
|
||||||
sub get_socket_version {
|
sub get_rtorrent_version {
|
||||||
my $version;
|
my $version;
|
||||||
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
||||||
my $llen = length $line_version;
|
my $llen = length $line_version;
|
||||||
|
@ -115,7 +115,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
||||||
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
@ -123,7 +123,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
||||||
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -80,7 +80,7 @@ my @ports = split /,/, $ENV{"port"} || "";
|
||||||
# detect rtorrent version
|
# detect rtorrent version
|
||||||
use version;
|
use version;
|
||||||
my %rtorrent_version;
|
my %rtorrent_version;
|
||||||
sub get_socket_version {
|
sub get_rtorrent_version {
|
||||||
my $version;
|
my $version;
|
||||||
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
|
||||||
my $llen = length $line_version;
|
my $llen = length $line_version;
|
||||||
|
@ -105,7 +105,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
|
||||||
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
@ -113,7 +113,7 @@ sub rtorrent_version_lower_than {
|
||||||
{
|
{
|
||||||
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
|
||||||
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
|
||||||
get_socket_version $port;
|
get_rtorrent_version $port;
|
||||||
close (SOCK);
|
close (SOCK);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue