ip to long utils moved to Tools

Former-commit-id: 737257575dc1ac69ad9f1a284d7165077d7d6d4e
This commit is contained in:
fbsanchez 2019-01-18 12:55:49 +01:00
parent d57e6db0c0
commit c24bea32a8
1 changed files with 18 additions and 0 deletions

View File

@ -125,6 +125,8 @@ our @EXPORT = qw(
start_server_thread
stop_server_threads
generate_agent_name_hash
long_to_ip
ip_to_long
);
# ID of the different servers
@ -1956,6 +1958,22 @@ sub rightrotate {
return (0xFFFFFFFF & ($x << (32 - $c))) | ($x >> $c);
}
###############################################################################
# Returns IP address(v4) in longint format
###############################################################################
sub ip_to_long {
my $ip_str = shift;
return unpack "N", inet_aton($ip_str);
}
###############################################################################
# Returns IP address(v4) in longint format
###############################################################################
sub long_to_ip {
my $ip_long = shift;
return inet_ntoa pack("N", ($ip_long));
}
# End of function declaration
# End of defined Code