1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-21 18:41:03 +00:00

fix function name

This commit is contained in:
Younes Ichiche 2020-04-05 13:50:44 +02:00 committed by Lars Kruse
parent 3886860089
commit bf2eff5c6c
4 changed files with 12 additions and 12 deletions

View file

@ -66,7 +66,7 @@ my @ports = split /,/, $ENV{"port"} || "";
# detect rtorrent version
use version;
my %rtorrent_version;
sub get_socket_version {
sub get_rtorrent_version {
my $version;
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
my $llen = length $line_version;
@ -91,7 +91,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
} else {
@ -99,7 +99,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
}

View file

@ -76,7 +76,7 @@ my @ports = split /,/, $ENV{"port"} || "";
# detect rtorrent version
use version;
my %rtorrent_version;
sub get_socket_version {
sub get_rtorrent_version {
my $version;
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
my $llen = length $line_version;
@ -101,7 +101,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
} else {
@ -109,7 +109,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
}

View file

@ -90,7 +90,7 @@ my @ports = split /,/, $ENV{"port"} || "";
# detect rtorrent version
use version;
my %rtorrent_version;
sub get_socket_version {
sub get_rtorrent_version {
my $version;
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
my $llen = length $line_version;
@ -115,7 +115,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
} else {
@ -123,7 +123,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
}

View file

@ -80,7 +80,7 @@ my @ports = split /,/, $ENV{"port"} || "";
# detect rtorrent version
use version;
my %rtorrent_version;
sub get_socket_version {
sub get_rtorrent_version {
my $version;
my $line_version= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.client_version</methodName></methodCall>";
my $llen = length $line_version;
@ -105,7 +105,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_UNIX, SOCK_STREAM, 0 ) or die;
connect( SOCK, sockaddr_un( $socket ) ) or die $!;
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
} else {
@ -113,7 +113,7 @@ sub rtorrent_version_lower_than {
{
socket( SOCK, PF_INET, SOCK_STREAM, getprotobyname( "tcp" ) );
connect( SOCK, sockaddr_in( $port, inet_aton( $ip ) ) );
get_socket_version $port;
get_rtorrent_version $port;
close (SOCK);
}
}