package Socket;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = "1.71";
+$VERSION = "1.85";
=head1 NAME
-Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h defines and structure manipulators
+Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa, inet_pton, inet_ntop - load the C socket.h defines and structure manipulators
=head1 SYNOPSIS
$proto = getprotobyname('tcp');
socket(Socket_Handle, PF_UNIX, SOCK_STREAM, $proto);
- unlink('/tmp/usock');
- $sun = sockaddr_un('/tmp/usock');
+ unlink('/var/run/usock');
+ $sun = sockaddr_un('/var/run/usock');
connect(Socket_Handle,$sun);
=head1 DESCRIPTION
In addition, some structure manipulation functions are available:
-=over
+=over 4
=item inet_aton HOSTNAME
-Takes a string giving the name of a host, and translates that
-to the 4-byte string (structure). Takes arguments of both
-the 'rtfm.mit.edu' type and '18.181.0.24'. If the host name
-cannot be resolved, returns undef. For multi-homed hosts (hosts
-with more than one address), the first address found is returned.
+Takes a string giving the name of a host, and translates that to an
+opaque string (if programming in C, struct in_addr). Takes arguments
+of both the 'rtfm.mit.edu' type and '18.181.0.24'. If the host name
+cannot be resolved, returns undef. For multi-homed hosts (hosts with
+more than one address), the first address found is returned.
+
+For portability do not assume that the result of inet_aton() is 32
+bits wide, in other words, that it would contain only the IPv4 address
+in network order.
=item inet_ntoa IP_ADDRESS
-Takes a four byte ip address (as returned by inet_aton())
-and translates it into a string of the form 'd.d.d.d'
-where the 'd's are numbers less than 256 (the normal
-readable four dotted number notation for internet addresses).
+Takes a string (an opaque string as returned by inet_aton(),
+or a v-string representing the four octets of the IPv4 address in
+network order) and translates it into a string of the form 'd.d.d.d'
+where the 'd's are numbers less than 256 (the normal human-readable
+four dotted number notation for Internet addresses).
=item INADDR_ANY
Note: does not return a number, but a packed string.
Returns the 4-byte wildcard ip address which specifies any
-of the hosts ip addresses. (A particular machine can have
+of the hosts ip addresses. (A particular machine can have
more than one ip address, each address corresponding to
a particular network interface. This wildcard address
allows you to bind to all of them simultaneously.)
Note - does not return a number.
-Returns the 4-byte loopback address. Normally equivalent
+Returns the 4-byte loopback address. Normally equivalent
to inet_aton('localhost').
=item INADDR_NONE
Note - does not return a number.
-Returns the 4-byte 'invalid' ip address. Normally equivalent
+Returns the 4-byte 'invalid' ip address. Normally equivalent
to inet_aton('255.255.255.255').
+=item sockaddr_family SOCKADDR
+
+Takes a sockaddr structure (as returned by pack_sockaddr_in(),
+pack_sockaddr_un() or the perl builtin functions getsockname() and
+getpeername()) and returns the address family tag. It will match the
+constant AF_INET for a sockaddr_in and AF_UNIX for a sockaddr_un. It
+can be used to figure out what unpacker to use for a sockaddr of
+unknown type.
+
=item sockaddr_in PORT, ADDRESS
=item sockaddr_in SOCKADDR_IN
-In an array context, unpacks its SOCKADDR_IN argument and returns an array
+In a list context, unpacks its SOCKADDR_IN argument and returns an array
consisting of (PORT, ADDRESS). In a scalar context, packs its (PORT,
ADDRESS) arguments as a SOCKADDR_IN and returns it. If this is confusing,
use pack_sockaddr_in() and unpack_sockaddr_in() explicitly.
=item pack_sockaddr_in PORT, IP_ADDRESS
-Takes two arguments, a port number and a 4 byte IP_ADDRESS (as returned by
-inet_aton()). Returns the sockaddr_in structure with those arguments
-packed in with AF_INET filled in. For internet domain sockets, this
-structure is normally what you need for the arguments in bind(),
-connect(), and send(), and is also returned by getpeername(),
-getsockname() and recv().
+Takes two arguments, a port number and an opaque string, IP_ADDRESS
+(as returned by inet_aton(), or a v-string). Returns the sockaddr_in
+structure with those arguments packed in with AF_INET filled in. For
+Internet domain sockets, this structure is normally what you need for
+the arguments in bind(), connect(), and send(), and is also returned
+by getpeername(), getsockname() and recv().
=item unpack_sockaddr_in SOCKADDR_IN
Takes a sockaddr_in structure (as returned by pack_sockaddr_in()) and
-returns an array of two elements: the port and the 4-byte ip-address.
-Will croak if the structure does not have AF_INET in the right place.
+returns an array of two elements: the port and an opaque string
+representing the IP address (you can use inet_ntoa() to convert the
+address to the four-dotted numeric format). Will croak if the
+structure does not have AF_INET in the right place.
=item sockaddr_un PATHNAME
=item sockaddr_un SOCKADDR_UN
-In an array context, unpacks its SOCKADDR_UN argument and returns an array
+In a list context, unpacks its SOCKADDR_UN argument and returns an array
consisting of (PATHNAME). In a scalar context, packs its PATHNAME
arguments as a SOCKADDR_UN and returns it. If this is confusing, use
pack_sockaddr_un() and unpack_sockaddr_un() explicitly.
and returns the pathname. Will croak if the structure does not
have AF_UNIX in the right place.
+=item inet_pton ADDRESS_FAMILY, HOSTNAME
+
+Takes an address family, either AF_INET or AF_INET6, and a string giving
+the name of a host, and translates that to an opaque string
+(if programming in C, struct in_addr or struct in6_addr depending on the
+address family passed in). The host string may be a string hostname, such
+as 'www.perl.org', or an IP address. If using an IP address, the type of
+IP address must be consistant with the address family passed into the function.
+
+=item inet_ntop ADDRESS_FAMILY, IP_ADDRESS
+
+Takes an address family, either AF_INET or AF_INET6, and a string
+(an opaque string as returned by inet_aton() or inet_pton()) and
+translates it to an IPv4 or IPv6 address string.
+
=back
=cut
use Carp;
+use warnings::register;
require Exporter;
use XSLoader ();
@ISA = qw(Exporter);
@EXPORT = qw(
- inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in
+ inet_aton inet_ntoa
+ inet_pton inet_ntop
+ sockaddr_family
+ pack_sockaddr_in unpack_sockaddr_in
pack_sockaddr_un unpack_sockaddr_un
sockaddr_in sockaddr_un
INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE
AF_802
+ AF_AAL
AF_APPLETALK
AF_CCITT
AF_CHAOS
+ AF_CTF
AF_DATAKIT
AF_DECnet
AF_DLI
AF_HYLINK
AF_IMPLINK
AF_INET
+ AF_INET6
+ AF_ISO
+ AF_KEY
+ AF_LAST
AF_LAT
+ AF_LINK
AF_MAX
AF_NBS
AF_NIT
AF_OSI
AF_OSINET
AF_PUP
+ AF_ROUTE
AF_SNA
AF_UNIX
AF_UNSPEC
+ AF_USER
+ AF_WAN
AF_X25
IOV_MAX
+ IP_OPTIONS
+ IP_HDRINCL
+ IP_TOS
+ IP_TTL
+ IP_RECVOPTS
+ IP_RECVRETOPTS
+ IP_RETOPTS
MSG_BCAST
+ MSG_BTAG
MSG_CTLFLAGS
MSG_CTLIGNORE
MSG_CTRUNC
MSG_EOF
MSG_EOR
MSG_ERRQUEUE
+ MSG_ETAG
MSG_FIN
MSG_MAXIOVLEN
MSG_MCAST
MSG_TRUNC
MSG_URG
MSG_WAITALL
+ MSG_WIRE
PF_802
+ PF_AAL
PF_APPLETALK
PF_CCITT
PF_CHAOS
+ PF_CTF
PF_DATAKIT
PF_DECnet
PF_DLI
PF_HYLINK
PF_IMPLINK
PF_INET
+ PF_INET6
+ PF_ISO
+ PF_KEY
+ PF_LAST
PF_LAT
+ PF_LINK
PF_MAX
PF_NBS
PF_NIT
PF_OSI
PF_OSINET
PF_PUP
+ PF_ROUTE
PF_SNA
PF_UNIX
PF_UNSPEC
+ PF_USER
+ PF_WAN
PF_X25
SCM_CONNECT
SCM_CREDENTIALS
SOL_SOCKET
SOMAXCONN
SO_ACCEPTCONN
+ SO_ATTACH_FILTER
+ SO_BACKLOG
SO_BROADCAST
+ SO_CHAMELEON
SO_DEBUG
+ SO_DETACH_FILTER
+ SO_DGRAM_ERRIND
SO_DONTLINGER
SO_DONTROUTE
SO_ERROR
+ SO_FAMILY
SO_KEEPALIVE
SO_LINGER
SO_OOBINLINE
+ SO_PASSCRED
+ SO_PASSIFNAME
+ SO_PEERCRED
+ SO_PROTOCOL
+ SO_PROTOTYPE
SO_RCVBUF
SO_RCVLOWAT
SO_RCVTIMEO
SO_REUSEADDR
+ SO_REUSEPORT
+ SO_SECURITY_AUTHENTICATION
+ SO_SECURITY_ENCRYPTION_NETWORK
+ SO_SECURITY_ENCRYPTION_TRANSPORT
SO_SNDBUF
SO_SNDLOWAT
SO_SNDTIMEO
+ SO_STATE
SO_TYPE
SO_USELOOPBACK
+ SO_XOPEN
+ SO_XSE
UIO_MAXIOV
);
@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF
+ IPPROTO_IP
+ IPPROTO_IPV6
+ IPPROTO_RAW
+ IPPROTO_ICMP
IPPROTO_TCP
+ IPPROTO_UDP
+
TCP_KEEPALIVE
TCP_MAXRT
TCP_MAXSEG
sub sockaddr_in {
if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
my($af, $port, @quad) = @_;
- carp "6-ARG sockaddr_in call is deprecated" if $^W;
+ warnings::warn "6-ARG sockaddr_in call is deprecated"
+ if warnings::enabled();
pack_sockaddr_in($port, inet_aton(join('.', @quad)));
} elsif (wantarray) {
croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1;
}
}
-sub INADDR_ANY ();
-sub INADDR_BROADCAST ();
-sub INADDR_LOOPBACK ();
-sub INADDR_LOOPBACK ();
-
-sub AF_802 ();
-sub AF_APPLETALK ();
-sub AF_CCITT ();
-sub AF_CHAOS ();
-sub AF_DATAKIT ();
-sub AF_DECnet ();
-sub AF_DLI ();
-sub AF_ECMA ();
-sub AF_GOSIP ();
-sub AF_HYLINK ();
-sub AF_IMPLINK ();
-sub AF_INET ();
-sub AF_LAT ();
-sub AF_MAX ();
-sub AF_NBS ();
-sub AF_NIT ();
-sub AF_NS ();
-sub AF_OSI ();
-sub AF_OSINET ();
-sub AF_PUP ();
-sub AF_SNA ();
-sub AF_UNIX ();
-sub AF_UNSPEC ();
-sub AF_X25 ();
-sub IOV_MAX ();
-sub MSG_BCAST ();
-sub MSG_CTLFLAGS ();
-sub MSG_CTLIGNORE ();
-sub MSG_CTRUNC ();
-sub MSG_DONTROUTE ();
-sub MSG_DONTWAIT ();
-sub MSG_EOF ();
-sub MSG_EOR ();
-sub MSG_ERRQUEUE ();
-sub MSG_FIN ();
-sub MSG_MAXIOVLEN ();
-sub MSG_MCAST ();
-sub MSG_NOSIGNAL ();
-sub MSG_OOB ();
-sub MSG_PEEK ();
-sub MSG_PROXY ();
-sub MSG_RST ();
-sub MSG_SYN ();
-sub MSG_TRUNC ();
-sub MSG_URG ();
-sub MSG_WAITALL ();
-sub PF_802 ();
-sub PF_APPLETALK ();
-sub PF_CCITT ();
-sub PF_CHAOS ();
-sub PF_DATAKIT ();
-sub PF_DECnet ();
-sub PF_DLI ();
-sub PF_ECMA ();
-sub PF_GOSIP ();
-sub PF_HYLINK ();
-sub PF_IMPLINK ();
-sub PF_INET ();
-sub PF_LAT ();
-sub PF_MAX ();
-sub PF_NBS ();
-sub PF_NIT ();
-sub PF_NS ();
-sub PF_OSI ();
-sub PF_OSINET ();
-sub PF_PUP ();
-sub PF_SNA ();
-sub PF_UNIX ();
-sub PF_UNSPEC ();
-sub PF_X25 ();
-sub SCM_CONNECT ();
-sub SCM_CREDENTIALS ();
-sub SCM_CREDS ();
-sub SCM_RIGHTS ();
-sub SCM_TIMESTAMP ();
-sub SHUT_RD ();
-sub SHUT_RDWR ();
-sub SHUT_WR ();
-sub SOCK_DGRAM ();
-sub SOCK_RAW ();
-sub SOCK_RDM ();
-sub SOCK_SEQPACKET ();
-sub SOCK_STREAM ();
-sub SOL_SOCKET ();
-sub SOMAXCONN ();
-sub SO_ACCEPTCONN ();
-sub SO_BROADCAST ();
-sub SO_DEBUG ();
-sub SO_DONTLINGER ();
-sub SO_DONTROUTE ();
-sub SO_ERROR ();
-sub SO_KEEPALIVE ();
-sub SO_LINGER ();
-sub SO_OOBINLINE ();
-sub SO_RCVBUF ();
-sub SO_RCVLOWAT ();
-sub SO_RCVTIMEO ();
-sub SO_REUSEADDR ();
-sub SO_SNDBUF ();
-sub SO_SNDLOWAT ();
-sub SO_SNDTIMEO ();
-sub SO_TYPE ();
-sub SO_USELOOPBACK ();
-sub UIO_MAXIOV ();
-
sub AUTOLOAD {
my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
- my $val = constant($constname, @_ ? $_[0] : 0);
- if ($! != 0) {
- my ($pack,$file,$line) = caller;
- croak "Your vendor has not defined Socket macro $constname, used";
+ croak "&Socket::constant not defined" if $constname eq 'constant';
+ my ($error, $val) = constant($constname);
+ if ($error) {
+ croak $error;
}
- eval "sub $AUTOLOAD () { $val }";
+ *$AUTOLOAD = sub { $val };
goto &$AUTOLOAD;
}