view release on metacpan or search on metacpan
lib/Net/HTTP/Methods.pm view on Meta::CPAN
sub can_read {
my $self = shift;
return 1 unless defined(fileno($self));
return 1 if $self->isa('IO::Socket::SSL') && $self->pending;
return 1 if $self->isa('Net::SSL') && $self->can('pending') && $self->pending;
# With no timeout, wait forever. An explicit timeout of 0 can be
# used to just check if the socket is readable without waiting.
my $timeout = @_ ? shift : (${*$self}{io_socket_timeout} || undef);
view release on metacpan or search on metacpan
lib/Net/HTTP2/Client/Connection/IOAsync.pm view on Meta::CPAN
use Net::HTTP2::IOSocketSSL ();
# perl -I ../p5-X-Tiny/lib -MIO::Async::Loop -MData::Dumper -MAnyEvent -I ../p5-IO-SigGuard/lib -I ../p5-Promise-ES6/lib -Ilib -MNet::HTTP2::Client::Connection::IOAsync -e'my $loop = IO::Async::Loop->new(); my $pool = Net::HTTP2::Client::Connection::...
#$IO::Socket::SSL::DEBUG = 5;
#$Net::SSLeay::trace = 8;
sub _parse_args {
my ($class, $loop) = splice @_, 0, 2;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# or 'Crypt::SSLeay' => 0,
# 'LWP' => 0,
#failing tests is worse, Net::SSLeay appears to finally have emerged
# as best-practice with the release of LWP::Protocol::https that uses
# IO::Socket::SSL and therefore Net::SSLeay
'Net::SSLeay' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Net-HTTPS-Any-*' },
);
view release on metacpan or search on metacpan
lib/Net/HTTPS/NB.pm view on Meta::CPAN
package Net::HTTPS::NB;
use strict;
use Net::HTTP;
use IO::Socket::SSL 0.98;
use Exporter;
use Errno qw(EWOULDBLOCK EAGAIN);
use vars qw($VERSION @ISA @EXPORT $HTTPS_ERROR);
$VERSION = 0.15;
lib/Net/HTTPS/NB.pm view on Meta::CPAN
=back
=cut
# we only supports IO::Socket::SSL now
# use it force
$Net::HTTPS::SSL_SOCKET_CLASS = 'IO::Socket::SSL';
require Net::HTTPS;
# make aliases to IO::Socket::SSL variables and constants
use constant {
HTTPS_WANT_READ => SSL_WANT_READ,
HTTPS_WANT_WRITE => SSL_WANT_WRITE,
};
*HTTPS_ERROR = \$SSL_ERROR;
view release on metacpan or search on metacpan
lib/Net/HTTPServer.pm view on Meta::CPAN
$ALLOWED{OPTIONS} = 1;
$ALLOWED{POST} = 1;
$ALLOWED{TRACE} = 1;
#------------------------------------------------------------------------------
# Do we have IO::Socket::SSL for https support?
#------------------------------------------------------------------------------
if (eval "require IO::Socket::SSL;")
{
require IO::Socket::SSL;
import IO::Socket::SSL;
$SSL = 1;
}
else
{
$SSL = 0;
lib/Net/HTTPServer.pm view on Meta::CPAN
{
croak("You must specify ssl_key, ssl_cert, and ssl_ca if you want to use SSL.");
return;
}
$self->_debug("INIT","Start: Create an SSL socket.");
$self->{SOCK} = new IO::Socket::SSL(LocalPort=>$port,
Proto=>"tcp",
Listen=>10,
Reuse=>1,
SSL_key_file=>$self->{CFG}->{SSL_KEY},
SSL_cert_file=>$self->{CFG}->{SSL_CERT},
lib/Net/HTTPServer.pm view on Meta::CPAN
{
carp("Could not start the server: $!");
}
else
{
carp("Could not start the server: ",&IO::Socket::SSL::errstr);
}
return;
}
view release on metacpan or search on metacpan
- Using form generator instead of post_form for Mojolicious >= 3.85
- Updated for API changes in ps and domain requests
- Fixed add_config 'Not a HASH reference' error when nothing returned
0.09 2012-06-30 00:00:00
- Requires IO::Socket::SSL > 1.75 for Mojolicious >= 3.0
0.08 2012-06-21 00:00:00
- Fixed run process test
- Added add_domain, domains, remove_domain
0.07 2012-06-06 00:00:00
- Dropped IO::Socket::SSL requirement from 1.74 to 1.49,
so cpanm Net::Heroku will work in Strawberry Perl 5.14.2
0.06 2012-06-06 00:00:00
- IO::Socket::SSL dependency
0.05 2012-06-05 00:00:00
- Changed expected text for BUILDPACK_URL config test
- Accepts email/pass in addition to API key
view release on metacpan or search on metacpan
lib/Net/ICAP/Client.pm view on Meta::CPAN
use strict;
use warnings;
use English qw(-no_match_vars);
use IO::Socket::INET();
use IO::Socket::SSL();
use Carp();
use URI();
use HTTP::Request();
use HTTP::Response();
use POSIX();
lib/Net/ICAP/Client.pm view on Meta::CPAN
my ($self) = @_;
if ( !$self->{_socket} ) {
my $socket_class = 'IO::Socket::INET';
my %options;
if ( $self->_scheme() eq 'icaps' ) {
$socket_class = 'IO::Socket::SSL';
%options = %{ $self->{_ssl} };
}
my $socket = $socket_class->new(
PeerAddr => $self->uri()->host(),
PeerPort => $self->uri()->port(),
lib/Net/ICAP/Client.pm view on Meta::CPAN
'Failed to connect to '
. $self->uri()->host()
. ' on port '
. $self->uri()->port() . q[:]
. (
$socket_class eq 'IO::Socket::SSL'
? $socket_class->errstr()
: $EXTENDED_OS_ERROR
)
);
lib/Net/ICAP/Client.pm view on Meta::CPAN
Net::ICAP::Client requires the following non-core modules
HTTP::Request
HTTP::Response
IO::Socket::INET
IO::Socket::SSL
URI
=head1 INCOMPATIBILITIES
None reported
view release on metacpan or search on metacpan
lib/Net/ILO.pm view on Meta::CPAN
use warnings;
use Carp;
use Data::Dumper;
use English qw(-no_match_vars);
use IO::Socket::SSL;
use XML::Simple;
our $VERSION = '0.54';
lib/Net/ILO.pm view on Meta::CPAN
}
my $address = $self->address or croak "Can't connect: address not set";
my $port = $self->port or croak "Can't connect: port not set";
$self->{_client} = IO::Socket::SSL->new(
PeerAddr => "$address:$port",
);
if (!$self->{_client}) {
$self->error( "Unable to establish SSL connection with $address:$port [" . IO::Socket::SSL::errstr() . "]" );
return;
}
return $self->{_client};
lib/Net/ILO.pm view on Meta::CPAN
An invalid UID state was passed to uid(). Valid states are 'on' and 'off'.
=item C<Unable to establish SSL connection with %s:%d [%s]>
An error occurred while connecting to iLO. The message in brackets is
propagated from IO::Socket::SSL, and is rarely useful.
=item C<Error transmitting command to server>
A connection was established, but something went wrong while sending the
command to the remote iLO. Try reconnecting, and ensure that your
lib/Net/ILO.pm view on Meta::CPAN
=back
=head1 DEPENDENCIES
IO::Socket::SSL
XML::Simple
=head1 AUTHOR
Nicholas Lewis, C<< <nick.lewis at gmail.com> >>
view release on metacpan or search on metacpan
lib/Net/IMAP/Client.pm view on Meta::CPAN
use warnings;
use List::Util qw( min max first );
use List::MoreUtils qw( each_array );
use IO::Socket::INET ();
use IO::Socket::SSL ();
use Socket qw( SO_KEEPALIVE );
use Net::IMAP::Client::MsgSummary ();
our $READ_BUFFER = 4096;
lib/Net/IMAP/Client.pm view on Meta::CPAN
my ($self) = @_;
if (!$self->{ssl_verify_peer}
|| !$self->{ssl_ca_path}
&& !$self->{ssl_ca_file}
&& $^O ne 'linux') {
return SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE;
}
my %ssl_config = ( SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER );
if ($^O eq 'linux' && !$self->{ssl_ca_path} && !$self->{ssl_ca_file}) {
$ssl_config{SSL_ca_path} =
-d '/etc/ssl/certs/' ? '/etc/ssl/certs/' : '/etc/pki/tls/certs/';
lib/Net/IMAP/Client.pm view on Meta::CPAN
}
sub _get_socket {
my ($self) = @_;
my $socket = $self->{socket};
return $socket if (defined($socket) and ($socket->isa('IO::Socket::SSL')or $socket->isa('IO::Socket::INET')));
$self->{socket} = ($self->{ssl} ? 'IO::Socket::SSL' : 'IO::Socket::INET')->new(
( ( %{$self->{ssl_options}} ) x !!$self->{ssl} ),
PeerAddr => $self->_get_server,
PeerPort => $self->_get_port,
Timeout => $self->_get_timeout,
Proto => 'tcp',
Blocking => 1,
$self->_get_ssl_config,
) or die "failed connect or ssl handshake: $!,$IO::Socket::SSL::SSL_ERROR";
$self->{socket}->sockopt(SO_KEEPALIVE, 1);
$self->{greeting} = $self->_socket_getline; # get the initial greeting
$self->_starttls if ($self->{tls}); # upgrade to TLS if needed
lib/Net/IMAP/Client.pm view on Meta::CPAN
# request STARTTLS
($ok, $lines) = $self->_tell_imap('STARTTLS');
if ($ok) {
my @sni_args;
push(@sni_args, SSL_hostname => $self->_get_server) if (IO::Socket::SSL->can_client_sni());
IO::Socket::SSL->start_SSL(
$self->{socket},
$self->_get_ssl_config,
@sni_args,
) or die $IO::Socket::SSL::SSL_ERROR;
} else {
die "IMAP server failed STARTTLS command"
}
return $self->{socket};
lib/Net/IMAP/Client.pm view on Meta::CPAN
Password
=item - B<ssl> (BOOL, optional, default FALSE)
Pass a true value if you want to use L<IO::Socket::SSL>
You may not set both C<ssl> and C<tls> at the same time.
=item - B<tls> (BOOL, optional, default FALSE)
Pass a true value if you want to use connect without SSL and then use
C<STARTTLS> to upgrade the connection to an encrypted session using
L<IO::Socket::SSL>. The other C<ssl_*> options also apply.
You may not set both C<ssl> and C<tls> at the same time.
=item - B<ssl_verify_peer> (BOOL, optional, default TRUE)
lib/Net/IMAP/Client.pm view on Meta::CPAN
at least one of ssl_ca_file and ssl_ca_path is needed for ssl verify
server
=item - B<ssl_options> (HASHREF, optional)
Optional arguments to be passed to the L<IO::Socket::SSL> object.
=item - B<uid_mode> (BOOL, optional, default TRUE)
Whether to use UID command (see RFC3501). Recommended.
view release on metacpan or search on metacpan
t/lib/Net/IMAP/Server/Test.pm view on Meta::CPAN
use warnings;
use Socket;
use AnyEvent;
AnyEvent::detect();
use IO::Socket::SSL;
use Time::HiRes qw();
my $PPID = $$;
sub PORT() { 2000 + $PPID*2 }
sub SSL_PORT() { 2001 + $PPID*2 }
t/lib/Net/IMAP/Server/Test.pm view on Meta::CPAN
sub connect {
my $class = shift;
my %args = (
PeerAddr => '127.0.0.1',
PeerPort => SSL_PORT,
Class => "IO::Socket::SSL",
SSL_ca_file => "certs/server-cert.pem",
@_
);
my $socketclass = delete $args{Class};
my $start = Time::HiRes::time();
t/lib/Net/IMAP/Server/Test.pm view on Meta::CPAN
my $socket = $class->get_socket;
return 0 unless $socket->connected;
my $buf;
# We intentionally use the non-OO recv function here,
# IO::Socket::SSL doesn't define a recv, and we want the low-level,
# not under a layer version, anyways.
my $waiting = recv($socket, $buf, 1, MSG_PEEK | MSG_DONTWAIT);
# Undef if there's nothing currently waiting
return 1 if not defined $waiting;
t/lib/Net/IMAP/Server/Test.pm view on Meta::CPAN
Test::More::like($socket->getline, qr/^\* OK\b/, "Got connection message");
}
sub start_tls {
my $class = shift;
IO::Socket::SSL->start_SSL(
$class->get_socket,
SSL_ca_file => "certs/server-cert.pem",
);
}
t/lib/Net/IMAP/Server/Test.pm view on Meta::CPAN
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $class = shift;
my ($msg) = @_;
my $socket = $class->get_socket || return Test::More::fail("Not connected!");
$class->start_tls($socket);
Test::More::diag(IO::Socket::SSL::errstr())
unless $socket->isa("IO::Socket::SSL");
Test::More::ok(
$socket->isa("IO::Socket::SSL"),
$msg || "Negotiated TLS",
);
}
sub send_cmd {
view release on metacpan or search on metacpan
lib/Net/IMAP/Simple/SSL.pm view on Meta::CPAN
use strict;
use vars qw[$VERSION];
$VERSION = (qw$Revision: 1.3 $)[1];
use IO::Socket::SSL;
use base qw[Net::IMAP::Simple];
sub _port { 993 }
sub _sock_from { 'IO::Socket::SSL' }
1;
__END__
lib/Net/IMAP/Simple/SSL.pm view on Meta::CPAN
includes SSL support. The interface is identical.
=head1 SEE ALSO
L<Net::IMAP::Simple>,
L<IO::Socket::SSL>,
L<perl>.
=head1 AUTHOR
Casey West, <F<casey@geeknest.com>>.
view release on metacpan or search on metacpan
contrib/connectalot.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
use IO::Socket::SSL;
my $ppid = $$;
END { print "[$$] ", $$==$ppid ? "ppid ":"", "exit\n" };
print "[$$] ppid started\n";
$SIG{__WARN__} = sub { print "[$$] $_[0]" };
$SIG{__DIE__} = sub { print "[$$] $_[0]"; exit 0 };
my $class = $ENV{ca_use_ssl} ? "IO::Socket::SSL" : "IO::Socket::INET";
my $port = $ENV{ca_use_ssl} ? 19794 : 19795;
my @pids;
for( 1 .. 5 ) {
if( my $pid = fork ) {
view release on metacpan or search on metacpan
Connection.pm view on Meta::CPAN
if ($self->connected) {
$self->quit("Changing servers");
}
if($self->ssl) {
require IO::Socket::SSL;
$self->socket(IO::Socket::SSL->new(PeerAddr => $self->server,
PeerPort => $self->port,
Proto => "tcp",
LocalAddr => $self->hostname,
));
} else {
view release on metacpan or search on metacpan
lib/Net/Intermapper.pm view on Meta::CPAN
package Net::Intermapper;
use strict;
use Moose;
# REST IO stuff here
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use LWP::UserAgent;
# Generics
use File::Path;
use URI::Escape;
lib/Net/Intermapper.pm view on Meta::CPAN
=over 3
=item L<Moose>
=item L<IO::Socket::SSL>
=item L<LWP::UserAgent>
=item L<XML::Simple>
view release on metacpan or search on metacpan
build_requires:
Data::UUID: '0'
ExtUtils::MakeMaker: '0'
File::Spec: '0'
IO::Handle: '0'
IO::Socket::SSL: '0'
IPC::Open3: '0'
Test::Kwalitee: '0'
Test::More: '0'
Test::NoTabs: '0'
perl: '5.006'
view release on metacpan or search on metacpan
lib/Net/Lite/XMPP.pm view on Meta::CPAN
};
sub open($$$) {
my ($self,$host,$port)=@_;
my ($data);
if (!(defined($port))) {$port=5223};
use IO::Socket::SSL;
my $Socket = new IO::Socket::SSL("$host:$port");
$self->{'Socket'}=$Socket;
# Send header handshake:
print $Socket q|<?xml version='1.0'?><stream:stream xmlns:stream="http://etherx.jabber.org/streams" to="grendel.net.lub.pl" xmlns="jabber:client">|;
print "Hello sent...\n";
# we expect sth like :
view release on metacpan or search on metacpan
lib/Net/Lumberjack/Client.pm view on Meta::CPAN
# ABSTRACT: a client for the lumberjack protocol
our $VERSION = '1.02'; # VERSION
use IO::Socket::INET6;
use IO::Socket::SSL;
use Net::Lumberjack::Writer;
has 'host' => ( is => 'ro', isa => 'Str', default => '127.0.0.1' );
has 'port' => ( is => 'ro', isa => 'Int', default => 5044 );
lib/Net/Lumberjack/Client.pm view on Meta::CPAN
sub _connect {
my $self = shift;
my $sock;
if( $self->use_ssl ) {
$sock = IO::Socket::SSL->new(
PeerHost => $self->host,
PeerPort => $self->port,
SSL_verify_mode => $self->ssl_verify ?
SSL_VERIFY_PEER : SSL_VERIFY_NONE ,
defined $self->ssl_version ?
lib/Net/Lumberjack/Client.pm view on Meta::CPAN
Use a non-default SSL protocol version string.
Otherwise the system wide default will be used.
Check L<IO::Socket::SSL> for string format.
=head2 ssl_hostname (default: emtpy)
Use a hostname other than the hostname give in 'host' for
SSL certificate verification.
view release on metacpan or search on metacpan
1.268 2022-02-07 05:12:00Z
* gracefully fail a test if a server couldn't be contacted
1.267 2022-02-06 05:08:22Z
* add IO::Socket::SSL to prereqs
1.266 2022-02-05 21:34:12Z
* Fix issue where load_cache causes problems with <> afterwards (PR
#2, thanks Christopher Layne!)