1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
|
# Paranoid::Network::Socket -- Socket wrapper for seemless IPv6 support
#
# $Id: lib/Paranoid/Network/Socket.pm, 2.10 2022/03/08 00:01:04 acorliss Exp $
#
# This software is free software. Similar to Perl, you can redistribute it
# and/or modify it under the terms of either:
#
# a) the GNU General Public License
# <https://www.gnu.org/licenses/gpl-1.0.html> as published by the
# Free Software Foundation <http://www.fsf.org/>; either version 1
# <https://www.gnu.org/licenses/gpl-1.0.html>, or any later version
# <https://www.gnu.org/licenses/license-list.html#GNUGPL>, or
# b) the Artistic License 2.0
# <https://opensource.org/licenses/Artistic-2.0>,
#
# subject to the following additional term: No trademark rights to
# "Paranoid" have been or are conveyed under any of the above licenses.
# However, "Paranoid" may be used fairly to describe this unmodified
# software, in good faith, but not as a trademark.
#
# (c) 2005 - 2020, Arthur Corliss (corliss@digitalmages.com)
# (tm) 2008 - 2020, Paranoid Inc. (www.paranoid.com)
#
#####################################################################
#####################################################################
#
# Environment definitions
#
#####################################################################
package Paranoid::Network::Socket;
use 5.008;
use strict;
use warnings;
use vars qw($VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
use base qw(Exporter);
use Socket qw(:all);
($VERSION) = ( q$Revision: 2.10 $ =~ /(\d+(?:\.\d+)+)/sm );
#####################################################################
#
# Module code follows
#
#####################################################################
our $ipv6_enabled;
our $socket6;
sub has_ipv6 {
return $ipv6_enabled;
}
BEGIN {
@EXPORT = ( 'has_ipv6', @Socket::EXPORT );
@EXPORT_OK = ( 'has_ipv6', @Socket::EXPORT_OK );
%EXPORT_TAGS = (
%Socket::EXPORT_TAGS,
all => [ 'has_ipv6', @{ $Socket::EXPORT_TAGS{all} } ],
);
# Check to see if we've got any IPv6 functions available
$socket6 = 0;
$ipv6_enabled = ( defined *sockaddr_in6{CODE} ) ? 1 : 0;
# Set inet_pton/inet_ntop to import by default -- don't know why
# this isn't done in Socket at all...
if ( grep { $_ eq 'inet_pton' } @EXPORT_OK ) {
push @EXPORT, qw(inet_pton inet_ntop);
}
unless ($ipv6_enabled) {
# Socket didn't provide it, let's see if Socket6 is available
if ( eval 'require Socket6; 1;' ) {
# Conditionally import Socket6 routines. This is important
# because perl 5.12 has partial IPv6 support, and 5.14 full. I
# want to avoid redefined and prototype mismatch warnings.
for my $symbol (@Socket6::EXPORT) {
unless ( grep /^$symbol$/s, @EXPORT, @EXPORT_OK ) {
import Socket6 $symbol;
push @EXPORT, $symbol;
push @{ $EXPORT_TAGS{all} }, $symbol;
}
}
for my $symbol (@Socket6::EXPORT_OK) {
unless ( grep /^$symbol$/s, @EXPORT, @EXPORT_OK ) {
import Socket6 $symbol;
push @EXPORT_OK, $symbol;
push @{ $EXPORT_TAGS{all} }, $symbol;
}
}
}
# Check one more time...
$ipv6_enabled = ( defined *sockaddr_in6{CODE} ) ? 1 : 0;
if ($ipv6_enabled) {
$socket6 = *sockaddr_in{PACKAGE} eq 'Socket6' ? 1 : 0;
}
}
}
1;
__END__
=head1 NAME
Paranoid::Network::Socket - Socket wrapper for seemless IPv6 support
=head1 VERSION
$Id: lib/Paranoid/Network/Socket.pm, 2.10 2022/03/08 00:01:04 acorliss Exp $
=head1 SYNOPSIS
# use Socket; # no longer needed
use Paranoid::Network::Socket;
use Paranoid::Network::Socket qw(:crlf);
$ipv6_enabled = has_ipv6();
=head1 DESCRIPTION
This module is a wrapper for L<Socket(3)> and L<Socket6(3)>, and is meant to
be used in lieu of using those packages directly. Doing so removes any of the
version dependent support issues on Perl and its bundled L<Socket(3)> where
IPv6 is concerned.
Starting in Perl 5.12 the beginnings of IPv6 support emerged in the bundled
L<Socket(3)> module, but full IPv6 support didn't arrive until 5.14. Prior
versions of Perl required the use of the external L<Socket6(3)> module
(available on CPAN).
With this module IPv6 support, if available, is brought in automatically at
runtime, regardless of where that support is provided. It also makes a
default export of B<inet_pton> and B<inet_ntop>, something that L<Socket(3)>
only does on request.
Finally, this module provides a B<has_ipv6> function which will return whether
your Perl has full IPv6 support. Full support is determined by the presence
of B<sockaddr_in6>.
All of the regular tag sets provided by either B<Socket> modules are supported
by this module.
=head1 IMPORT LISTS
This module exports the following symbols by default:
has_ipv6 @Socket::EXPORT
The following specialized import lists also exist:
List Members
--------------------------------------------------------
all @defaults @Socket::EXPORT_OK
B<NOTE:> As a substitute for using L<Socket> directly, this also passes on all
the specialized targets of that module.
=head1 SUBROUTINES/METHODS
=head2 has_ipv6
$ipv6_enabled = has_ipv6();
Returns a boolean value denoting whether or not this module has full IPv6
support.
=head1 DEPENDENCIES
=over
=item o
L<Socket>
=item o
L<Socket6> (optional)
=back
=head1 BUGS AND LIMITATIONS
=head1 AUTHOR
Arthur Corliss (corliss@digitalmages.com)
=head1 LICENSE AND COPYRIGHT
This software is free software. Similar to Perl, you can redistribute it
and/or modify it under the terms of either:
a) the GNU General Public License
<https://www.gnu.org/licenses/gpl-1.0.html> as published by the
Free Software Foundation <http://www.fsf.org/>; either version 1
<https://www.gnu.org/licenses/gpl-1.0.html>, or any later version
<https://www.gnu.org/licenses/license-list.html#GNUGPL>, or
b) the Artistic License 2.0
<https://opensource.org/licenses/Artistic-2.0>,
subject to the following additional term: No trademark rights to
"Paranoid" have been or are conveyed under any of the above licenses.
However, "Paranoid" may be used fairly to describe this unmodified
software, in good faith, but not as a trademark.
(c) 2005 - 2020, Arthur Corliss (corliss@digitalmages.com)
(tm) 2008 - 2020, Paranoid Inc. (www.paranoid.com)
|
