in reply to Creating SSL socket
For a first step, let's get your test client up and running:
#!/usr/bin/perl -w BEGIN { $ENV{'AUTOMATED_TESTING'} = 1; use strict; use warnings; use CPAN; CPAN::Shell->install(qw( Socket::GetAddrInfo Socket6 LWP::Protocol::https IO::Socket::SSL IO::Socket::INET6) ); } use strict; use IO::Socket::SSL qw(debug3); my $socket = IO::Socket::SSL->new( PeerAddr => 'www.example.com', PeerPort => 443, SSL_verify_mode => 0x00, ) or die "failed to connect: $SSL_ERROR"; print "OK: Connected\n"; $socket->autoflush; $socket->close( SSL_no_shutdown => 1, SSL_ctx_free => 1, ) or die "not ok: $SSL_ERROR"; print "OK: Closed\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Creating SSL socket
by jdudleyh (Acolyte) on Oct 23, 2013 at 16:03 UTC | |
by Anonymous Monk on Nov 25, 2013 at 20:38 UTC | |
by Anonymous Monk on Aug 29, 2014 at 12:34 UTC | |
by Anonymous Monk on Nov 26, 2013 at 18:28 UTC |
In Section
Seekers of Perl Wisdom