line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
|
package Net::SSLeay::OO; |
3
|
|
|
|
|
|
|
|
4
|
3
|
|
|
3
|
|
53319
|
use Net::SSLeay; |
|
3
|
|
|
|
|
58655
|
|
|
3
|
|
|
|
|
272
|
|
5
|
3
|
|
|
3
|
|
2272
|
use Net::SSLeay::OO::Functions; |
|
3
|
|
|
|
|
11
|
|
|
3
|
|
|
|
|
38
|
|
6
|
3
|
|
|
3
|
|
2416
|
use Net::SSLeay::OO::Error; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
use Net::SSLeay::OO::Context; |
8
|
|
|
|
|
|
|
use Net::SSLeay::OO::SSL; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $VERSION = "0.02"; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
1; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
__END__ |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=head1 NAME |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
Net::SSLeay::OO - OO Calling Method for Net::SSLeay |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 SYNOPSIS |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
use Net::SSLeay::OO; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
use Net::SSLeay::OO::Constants qw(OP_ALL OP_NO_TLSv2); |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
my $ctx = Net::SSLeay::OO::Context->new; |
27
|
|
|
|
|
|
|
$ctx->set_options(OP_ALL & OP_NO_TLSv2); |
28
|
|
|
|
|
|
|
$ctx->load_verify_locations("", "/etc/ssl/certs"); |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
# get a socket/stream somehow |
31
|
|
|
|
|
|
|
my $socket = IO::Socket::INET->new(...); |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
# create a new SSL object, and attach it to the socket |
34
|
|
|
|
|
|
|
my $ssl = Net::SSLeay::OO::SSL->new(ctx => $ctx); |
35
|
|
|
|
|
|
|
$ssl->set_fd($socket); |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
# initiate the SSL connection |
38
|
|
|
|
|
|
|
$ssl->connect; |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
# exchange data ... be sure to read the man page |
41
|
|
|
|
|
|
|
my $wrote = $ssl->write($data, $size); |
42
|
|
|
|
|
|
|
my $bytes_read = $ssl->read(\$buf, $size); |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
# close... |
45
|
|
|
|
|
|
|
$ssl->shutdown; |
46
|
|
|
|
|
|
|
$socket->shutdown(1); |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 DESCRIPTION |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
This set of modules adds an OO calling convention to the |
51
|
|
|
|
|
|
|
L<Net::SSLeay> module. It steers away from overly abstracting things, |
52
|
|
|
|
|
|
|
or adding new behaviour, instead just making the existing |
53
|
|
|
|
|
|
|
functionality easier to use. |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
What does this approach win you over L<Net::SSLeay>? |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
=over |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
=item B<Object Orientation> |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
For a start, you get a blessed object rather than an integer to work |
62
|
|
|
|
|
|
|
with, so you know what you are dealing with. All of the functions |
63
|
|
|
|
|
|
|
which were callable with C<Net::SSLeay::foo($ssl, @args)> will then be |
64
|
|
|
|
|
|
|
callable as plain C<$ssl-E<gt>foo(@args)>. |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
=item B<Namespaces> |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
The OpenSSL functions use a C-style namespace convention, where |
69
|
|
|
|
|
|
|
functions are prefixed by the type of the object that they operate on. |
70
|
|
|
|
|
|
|
OpenSSL has several types of objects, such as a "Context" (this is a |
71
|
|
|
|
|
|
|
bit like a bunch of pre-defined connection settings), and various |
72
|
|
|
|
|
|
|
classes relating to X509, sessions, etc. |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
This module splits up the functions which L<Net::SSLeay> binds into |
75
|
|
|
|
|
|
|
Perl based on the naming convention, then sets up wrappers for them so |
76
|
|
|
|
|
|
|
that you can just call methods on objects. |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
=item B<Exceptions> |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
If an error is raised by the OpenSSL library, an exception is |
81
|
|
|
|
|
|
|
immediately raised (trappable via C<eval>) which pretty-prints into |
82
|
|
|
|
|
|
|
something presented a little less cryptic than OpenSSL's |
83
|
|
|
|
|
|
|
C<:>-delimited error string format. |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
=item B<fewer segfaults> |
86
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
This is currently more of a promise than a reality; but eventually |
88
|
|
|
|
|
|
|
each of the access methods for the various objects will be able to |
89
|
|
|
|
|
|
|
know their lifetime in a robust fashion, so you should get less |
90
|
|
|
|
|
|
|
segfaults. Eg, some SSL functions don't return object references |
91
|
|
|
|
|
|
|
which are guaranteed to last very long, so if you wait too long before |
92
|
|
|
|
|
|
|
getting properties from them you will get a segfault. |
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
=back |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
On the flip side, what does this approach win you over other simpler |
97
|
|
|
|
|
|
|
APIs such as L<IO::Socket::SSL>? Well, I guess it comes down to "Make |
98
|
|
|
|
|
|
|
things as simple as possible, but no simpler". |
99
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
Most SSL socket libraries tend to try to hide complexity from you, but |
101
|
|
|
|
|
|
|
there really are things that you should consider; such as, shouldn't |
102
|
|
|
|
|
|
|
you be validating the other end of your SSL connection has a valid |
103
|
|
|
|
|
|
|
certificate? Which SSL versions do you wish to allow? |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
L<IO::Socket::SSL> lets you specify a lot of this stuff, but it's not |
106
|
|
|
|
|
|
|
a very earnest implementation; it's just treated as a few extra |
107
|
|
|
|
|
|
|
options passed to the constructor, a bit of magic at socket setup |
108
|
|
|
|
|
|
|
time, and then hope that this will be enough. The support for |
109
|
|
|
|
|
|
|
verifying client certificates didn't even work when I tested it. |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
On the other hand, using the OpenSSL API fully means you are taken |
112
|
|
|
|
|
|
|
through the stages of setup piece by piece. You can easily do things |
113
|
|
|
|
|
|
|
like check that your SSL configuration (eg server certificate) is |
114
|
|
|
|
|
|
|
valid I<before> you start daemonize or start accepting real sockets. |
115
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
I'll try to keep the documentation as complete as possible - there's |
117
|
|
|
|
|
|
|
nothing more annoying than thin wrapper libraries which don't help |
118
|
|
|
|
|
|
|
much people trying to use them. But in general, most functions |
119
|
|
|
|
|
|
|
available in the OpenSSL manual will be available. |
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
=head1 DISTRIBUTION OVERVIEW / PACKAGES |
122
|
|
|
|
|
|
|
|
123
|
|
|
|
|
|
|
This is a brief overview of the packages in this module, so that you |
124
|
|
|
|
|
|
|
know where to start. |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
=over |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::Context> (C: C<SSL_CTX*>) |
129
|
|
|
|
|
|
|
|
130
|
|
|
|
|
|
|
The context object represents an individual configuration of the |
131
|
|
|
|
|
|
|
OpenSSL library. Normally, you'll create one of these as you verify |
132
|
|
|
|
|
|
|
the configuration of your program - eg for a server, setting the CA |
133
|
|
|
|
|
|
|
certificates directory, and setting various other bits and bobs. |
134
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::SSL> (C: C<SSL*>) |
136
|
|
|
|
|
|
|
|
137
|
|
|
|
|
|
|
You have one of these per connection, and when you create one it is |
138
|
|
|
|
|
|
|
tied to a Context object, taking defaults from the Context object. |
139
|
|
|
|
|
|
|
Many settings can be made either on the Context object or the SSL |
140
|
|
|
|
|
|
|
object. Once you have created this object, you attach it to a |
141
|
|
|
|
|
|
|
filehandle/socket and then call either C<accept> or C<connect>, |
142
|
|
|
|
|
|
|
depending on which SSL role you are playing in the connection. |
143
|
|
|
|
|
|
|
|
144
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::Constants> |
145
|
|
|
|
|
|
|
|
146
|
|
|
|
|
|
|
This module allows you to explicitly import SSLeay/OpenSSL constants |
147
|
|
|
|
|
|
|
for passing to various API methods, so that you don't have to |
148
|
|
|
|
|
|
|
specify the complete namespace to them. |
149
|
|
|
|
|
|
|
|
150
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::Error> (C: <unsigned long>) |
151
|
|
|
|
|
|
|
|
152
|
|
|
|
|
|
|
This class represents an error from OpenSSL, actually a stack of |
153
|
|
|
|
|
|
|
errors. These are raised and printed pretty transparently, but if you |
154
|
|
|
|
|
|
|
want to pick apart the details of the error you can do so. There is |
155
|
|
|
|
|
|
|
no corresponding C struct, but the C<ERR_*> man pages (try C<man -k |
156
|
|
|
|
|
|
|
ERR_>) handle the integers that OpenSSL passes around internally as |
157
|
|
|
|
|
|
|
error codes. |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::X509> (C: C<X509*>) |
160
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
This class represents a certificate. You can't create these with this |
162
|
|
|
|
|
|
|
module, because of a lack of bindings in L<Net::SSLeay>, but various |
163
|
|
|
|
|
|
|
things will return them. |
164
|
|
|
|
|
|
|
|
165
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::X509::Name> (C: C<X509_NAME*>) |
166
|
|
|
|
|
|
|
|
167
|
|
|
|
|
|
|
Retrieving things like the "issuer name" from X509 certificates |
168
|
|
|
|
|
|
|
returns one of these objects; you can then call C<-E<gt>oneline> on |
169
|
|
|
|
|
|
|
it, or print it to your requirements, to get a usable string. |
170
|
|
|
|
|
|
|
|
171
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::X509::Store> (C: C<X509_STORE*>) |
172
|
|
|
|
|
|
|
|
173
|
|
|
|
|
|
|
This class represents a certificate store. This would normally |
174
|
|
|
|
|
|
|
represent a local directory with certificates in it. Currently the |
175
|
|
|
|
|
|
|
only way to get one of these is with |
176
|
|
|
|
|
|
|
L<Net::SSLeay::OO::Context/get_cert_store>. |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::X509::Context> (C: C<X509_STORE_CTX*>) |
179
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
This is a type of object that you get back during certificate |
181
|
|
|
|
|
|
|
verification. You probably don't need to use this class unless you |
182
|
|
|
|
|
|
|
want certificate verification to fail based on custom rules during the |
183
|
|
|
|
|
|
|
actual handshake. |
184
|
|
|
|
|
|
|
|
185
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::Session> (C: C<SSL_SESSION*>) |
186
|
|
|
|
|
|
|
|
187
|
|
|
|
|
|
|
This seems to represent an actual SSL session; ie, after C<accept> or |
188
|
|
|
|
|
|
|
C<connect> has succeeded. This is a pretty uninteresting class. |
189
|
|
|
|
|
|
|
About all you can do with it is pull out or alter the time the SSL |
190
|
|
|
|
|
|
|
session was established, and session timeouts. |
191
|
|
|
|
|
|
|
|
192
|
|
|
|
|
|
|
=item L<Net::SSLeay::OO::Functions> |
193
|
|
|
|
|
|
|
|
194
|
|
|
|
|
|
|
This is the internal class which splits up the functions in |
195
|
|
|
|
|
|
|
L<Net::SSLeay> into class-specific packages. |
196
|
|
|
|
|
|
|
|
197
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::BIO> |
198
|
|
|
|
|
|
|
|
199
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::Cipher> |
200
|
|
|
|
|
|
|
|
201
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::Compression> |
202
|
|
|
|
|
|
|
|
203
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::PRNG> |
204
|
|
|
|
|
|
|
|
205
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::Engine> |
206
|
|
|
|
|
|
|
|
207
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::PrivateKey> |
208
|
|
|
|
|
|
|
|
209
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::PEM> |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::KeyType::DH> |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
=item C<Net::SSLeay::OO::KeyType::RSA> |
214
|
|
|
|
|
|
|
|
215
|
|
|
|
|
|
|
These classes are currently all TO-DO. All I've done is earmarked |
216
|
|
|
|
|
|
|
these packages in L<Net::SSLeay::OO::Functions> as recipients for the |
217
|
|
|
|
|
|
|
corresponding L<Net::SSLeay> functions. There's not a lot of |
218
|
|
|
|
|
|
|
boilerplate that has to be implemented to make them work, take a look |
219
|
|
|
|
|
|
|
at some of the implementations of some of the X509 classes to see how |
220
|
|
|
|
|
|
|
short it can be. If you make them work, with a test suite, send them |
221
|
|
|
|
|
|
|
to me and I'll include them in this distribution. |
222
|
|
|
|
|
|
|
|
223
|
|
|
|
|
|
|
=back |
224
|
|
|
|
|
|
|
|
225
|
|
|
|
|
|
|
=head1 SOURCE, SUBMISSIONS, SUPPORT |
226
|
|
|
|
|
|
|
|
227
|
|
|
|
|
|
|
Source code is available from Catalyst: |
228
|
|
|
|
|
|
|
|
229
|
|
|
|
|
|
|
git://git.catalyst.net.nz/Net-SSLeay-OO.git |
230
|
|
|
|
|
|
|
|
231
|
|
|
|
|
|
|
And Github: |
232
|
|
|
|
|
|
|
|
233
|
|
|
|
|
|
|
git://github.com/catalyst/Net-SSLeay-OO.git |
234
|
|
|
|
|
|
|
|
235
|
|
|
|
|
|
|
Please see the file F<SubmittingPatches> for information on preferred |
236
|
|
|
|
|
|
|
submission format. |
237
|
|
|
|
|
|
|
|
238
|
|
|
|
|
|
|
Suggested avenues for support: |
239
|
|
|
|
|
|
|
|
240
|
|
|
|
|
|
|
=over |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
=item * |
243
|
|
|
|
|
|
|
|
244
|
|
|
|
|
|
|
Net::SSLeay developer's mailing list |
245
|
|
|
|
|
|
|
L<http://lists.alioth.debian.org/mailman/listinfo/net-ssleay-devel> |
246
|
|
|
|
|
|
|
|
247
|
|
|
|
|
|
|
=item * |
248
|
|
|
|
|
|
|
|
249
|
|
|
|
|
|
|
Contact the author and ask either politely or commercially for help. |
250
|
|
|
|
|
|
|
|
251
|
|
|
|
|
|
|
=item * |
252
|
|
|
|
|
|
|
|
253
|
|
|
|
|
|
|
Log a ticket on L<http://rt.cpan.org/> |
254
|
|
|
|
|
|
|
|
255
|
|
|
|
|
|
|
=back |
256
|
|
|
|
|
|
|
|
257
|
|
|
|
|
|
|
=head1 AUTHOR AND LICENCE |
258
|
|
|
|
|
|
|
|
259
|
|
|
|
|
|
|
All code in the L<Net::SSLeay::OO> distribution is written by Sam |
260
|
|
|
|
|
|
|
Vilain, L<sam.vilain@catalyst.net.nz>. Development commissioned by NZ |
261
|
|
|
|
|
|
|
Registry Services. |
262
|
|
|
|
|
|
|
|
263
|
|
|
|
|
|
|
Copyright 2009, NZ Registry Services. This module is licensed under |
264
|
|
|
|
|
|
|
the Artistic License v2.0, which permits relicensing under other Free |
265
|
|
|
|
|
|
|
Software licenses. |
266
|
|
|
|
|
|
|
|
267
|
|
|
|
|
|
|
=head2 IMPORTANT LICENSE CONDITIONS |
268
|
|
|
|
|
|
|
|
269
|
|
|
|
|
|
|
This software is not free; it is encumbered by various restrictions |
270
|
|
|
|
|
|
|
stemming from OpenSSL and Net::SSLeay. The bizarre copyright of |
271
|
|
|
|
|
|
|
Net::SSLeay states to be "under the same terms as OpenSSL", which is |
272
|
|
|
|
|
|
|
something of a GPL/Artistic/Perl license idiom. What it means is, if |
273
|
|
|
|
|
|
|
you make software based on Net::SSLeay, you have to acknowledge the |
274
|
|
|
|
|
|
|
OpenSSL team as below, even if you use it with a free rewrite of |
275
|
|
|
|
|
|
|
OpenSSL, or something. If you did that, the Net::SSLeay license will |
276
|
|
|
|
|
|
|
effectively compel you to lie. But that's pretty unlikely so let's |
277
|
|
|
|
|
|
|
just cut straight to the clauses. |
278
|
|
|
|
|
|
|
|
279
|
|
|
|
|
|
|
=over |
280
|
|
|
|
|
|
|
|
281
|
|
|
|
|
|
|
=item B<obnoxious renaming clause> |
282
|
|
|
|
|
|
|
|
283
|
|
|
|
|
|
|
This module and sub-classes which abstract the interface is almost |
284
|
|
|
|
|
|
|
certainly covered by these clauses: |
285
|
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
* 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to |
287
|
|
|
|
|
|
|
* endorse or promote products derived from this software without |
288
|
|
|
|
|
|
|
* prior written permission. For written permission, please contact |
289
|
|
|
|
|
|
|
* openssl-core@openssl.org. |
290
|
|
|
|
|
|
|
|
291
|
|
|
|
|
|
|
* 5. Products derived from this software may not be called "OpenSSL" |
292
|
|
|
|
|
|
|
* nor may "OpenSSL" appear in their names without prior written |
293
|
|
|
|
|
|
|
* permission of the OpenSSL Project. |
294
|
|
|
|
|
|
|
|
295
|
|
|
|
|
|
|
=item B<obnoxious advertising clause> |
296
|
|
|
|
|
|
|
|
297
|
|
|
|
|
|
|
If you write a program which uses SSL sockets, and then you advertise |
298
|
|
|
|
|
|
|
it, even if SSL is like a small tick-box item and hardly relevant to |
299
|
|
|
|
|
|
|
the message you are putting across, heed the following license term: |
300
|
|
|
|
|
|
|
|
301
|
|
|
|
|
|
|
OpenSSL: |
302
|
|
|
|
|
|
|
|
303
|
|
|
|
|
|
|
* 3. All advertising materials mentioning features or use of this |
304
|
|
|
|
|
|
|
* software must display the following acknowledgment: |
305
|
|
|
|
|
|
|
* "This product includes software developed by the OpenSSL Project |
306
|
|
|
|
|
|
|
* for use in the OpenSSL Toolkit. (http://www.openssl.org/)" |
307
|
|
|
|
|
|
|
|
308
|
|
|
|
|
|
|
=back |
309
|
|
|
|
|
|
|
|
310
|
|
|
|
|
|
|
L<Net::SSLeay::OO::Context>, L<Net::SSLeay::SSL>, L<Net::SSLeay::Error> |
311
|
|
|
|
|
|
|
|
312
|
|
|
|
|
|
|
=cut |
313
|
|
|
|
|
|
|
|