APR::SockAddr3pm
Perl api for apr socket address structure
Usage
use APR::SockAddr ();my $ip = $sock_addr->ip_get;my $port = $sock_addr->port;
Overview
"APR::SockAddr" provides an access to a socket address structure fields.
Normally you'd get a socket address object, by calling:
use Apache2::Connection ();my $remote_sock_addr = $c->remote_addr;my $local_sock_addr = $c->remote_local;
API
"APR::SockAddr" provides the following functions and/or methods:
"ip_get"
Get the IP address of the socket
$ip = $sock_addr->ip_get();- obj: $sock_addr ( "APR::SockAddr object" )
- ret: $ip ( string )
- since: 2.0.00
If you are familiar with how perl's "Socket" works:
use Socket 'sockaddr_in';my ($serverport, $serverip) = sockaddr_in(getpeername($local_sock));my ($remoteport, $remoteip) = sockaddr_in(getpeername($remote_sock));
in apr-speak that'd be written as:
use APR::SockAddr ();use Apache2::Connection ();my $serverport = $c->local_addr->port;my $serverip = $c->local_addr->ip_get;my $remoteport = $c->remote_addr->port;my $remoteip = $c->remote_addr->ip_get;
"port"
Get the IP address of the socket
$port = $sock_addr->port();- obj: $sock_addr ( "APR::SockAddr object" )
- ret: $port ( integer )
- since: 2.0.00
Example: see ip_get()
Unsupported API
"APR::SockAddr" also provides auto-generated Perl interface for a few other methods which aren't tested at the moment and therefore their API is a subject to change. These methods will be finalized later as a need arises. If you want to rely on any of the following methods please contact the the mod_perl development mailing list so we can help each other take the steps necessary to shift the method to an officially supported API.
"equal"
META: Autogenerated - needs to be reviewed/completed
See if the IP addresses in two APR socket addresses are equivalent. Appropriate logic is present for comparing IPv4-mapped IPv6 addresses with IPv4 addresses.
$ret = $addr1->equal($addr2);- obj: $addr1 ( "APR::SockAddr object" )
-
One of the APR socket addresses.
- arg1: $addr2 ( "APR::SockAddr object" )
-
The other APR socket address.
- ret: $ret ( integer )
- since: subject to change
The return value will be non-zero if the addresses are equivalent.
Releases
10 releases since Debian 4.0 (Etch); the text changed 9 times.