Result:
found more than 618 distributions - search limited to the first 2001 files matching your query
( run in 0.666 )
App-WatchLater
view release on metacpan or search on metacpan
},
requires => {
'DBI' => 0,
'DBD::SQLite' => 0,
'HTTP::Tiny' => '0.055',
'IO::Socket::SSL' => '1.56',
'JSON' => 0,
'Net::SSLeay' => '1.49',
'Try::Tiny' => 0,
'URI::Find' => 0,
'perl' => '5.016',
App-WordPressTools
view release on metacpan or search on metacpan
"autodie" : "0"
}
},
"runtime" : {
"recommends" : {
"IO::Socket::SSL" : "1.56",
"Net::SSLeay" : "1.49"
},
"requires" : {
"Digest::MD5" : "0",
"Fcntl" : "0",
App-Ylastic-CostAgent
view release on metacpan or search on metacpan
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
use Config::Tiny;
use File::Spec::Functions qw/catfile/;
use File::Temp ();
use Log::Dispatchouli 2;
use Mozilla::CA; # force dependency to trigger SSL validation
use IO::Socket::SSL; # force dependency to trigger SSL support
use Time::Piece;
use Time::Piece::Month;
use WWW::Mechanize;
use Object::Tiny qw(
App-cpanminus-reporter
view release on metacpan or search on metacpan
t/data/build.fresh.log view on Meta::CPAN
Entering LWP-Protocol-https-6.06
Checking configure dependencies from META.yml
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Configuring LWP-Protocol-https-6.06
Running Makefile.PL
Warning: prerequisite IO::Socket::SSL 1.54 not found.
Warning: prerequisite Mozilla::CA 20110101 not found.
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for LWP::Protocol::https
Writing MYMETA.yml and MYMETA.json
-> OK
Checking dependencies from MYMETA.json ...
Checking if you have LWP::UserAgent 6.06 ... Yes (6.13)
Checking if you have IO::Socket::SSL 1.54 ... No
Checking if you have Net::HTTPS 6 ... Yes (6.04)
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Checking if you have Mozilla::CA 20110101 ... No
==> Found dependencies: IO::Socket::SSL, Mozilla::CA
Searching IO::Socket::SSL on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on IO::Socket::SSL
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/S/SU/SULLR/IO-Socket-SSL-2.012.tar.gz
-> OK
Unpacking IO-Socket-SSL-2.012.tar.gz
Entering IO-Socket-SSL-2.012
Checking configure dependencies from META.json
t/data/build.fresh.log view on Meta::CPAN
Checking if your kit is complete...
Looks good
Warning: prerequisite Mozilla::CA 0 not found.
Warning: prerequisite Net::SSLeay 1.46 not found.
Generating a Unix-style Makefile
Writing Makefile for IO::Socket::SSL
Writing MYMETA.yml and MYMETA.json
-> OK
Checking dependencies from MYMETA.json ...
Checking if you have Scalar::Util 0 ... Yes (1.41)
Checking if you have Net::SSLeay 1.46 ... No
t/data/build.fresh.log view on Meta::CPAN
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/IO/Socket/SSL.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/IO/Socket/SSL.pod
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/IO/Socket/SSL/Intercept.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/IO/Socket/SSL/PublicSuffix.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/IO/Socket/SSL/Utils.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/IO::Socket::SSL.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/IO::Socket::SSL::Intercept.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/IO::Socket::SSL::PublicSuffix.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/IO::Socket::SSL::Utils.0
Appending installation info to /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/perllocal.pod
-> OK
Successfully installed IO-Socket-SSL-2.012
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/IO-Socket-SSL-2.012/MYMETA.json
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/IO-Socket-SSL-2.012/install.json
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod Request timeout in seconds (default is 60)
#pod * C<verify_SSL> —
#pod A boolean that indicates whether to validate the SSL certificate of an C<https> —
#pod connection (default is false)
#pod * C<SSL_options> —
#pod A hashref of C<SSL_*> — options to pass through to L<IO::Socket::SSL>
#pod
#pod Passing an explicit C<undef> for C<proxy>, C<http_proxy> or C<https_proxy> will
#pod prevent getting the corresponding proxies from the environment.
#pod
#pod Exceptions from C<max_size>, C<timeout> or other errors will result in a
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod $ok = HTTP::Tiny->can_ssl;
#pod ($ok, $why) = HTTP::Tiny->can_ssl;
#pod ($ok, $why) = $http->can_ssl;
#pod
#pod Indicates if SSL support is available. When called as a class object, it
#pod checks for the correct version of L<Net::SSLeay> and L<IO::Socket::SSL>.
#pod When called as an object methods, if C<SSL_verify> is true or if C<SSL_verify_mode>
#pod is set in C<SSL_options>, it checks that a CA file is available.
#pod
#pod In scalar context, returns a boolean indicating if SSL is available.
#pod In list context, returns the boolean and a (possibly multi-line) string of
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
sub can_ssl {
my ($self) = @_;
my($ok, $reason) = (1, '');
# Need IO::Socket::SSL 1.42 for SSL_create_ctx_callback
unless (eval {require IO::Socket::SSL; IO::Socket::SSL->VERSION(1.42)}) {
$ok = 0;
$reason .= qq/IO::Socket::SSL 1.42 must be installed for https support\n/;
}
# Need Net::SSLeay 1.49 for MODE_AUTO_RETRY
unless (eval {require Net::SSLeay; Net::SSLeay->VERSION(1.49)}) {
$ok = 0;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my ($self, $host) = @_;
# As this might be used via CONNECT after an SSL session
# to a proxy, we shut down any existing SSL before attempting
# the handshake
if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
unless ( $self->{fh}->stop_SSL ) {
my $ssl_err = IO::Socket::SSL->errstr;
die(qq/Error halting prior SSL connection: $ssl_err/);
}
}
my $ssl_args = $self->_ssl_args($host);
IO::Socket::SSL->start_SSL(
$self->{fh},
%$ssl_args,
SSL_create_ctx_callback => sub {
my $ctx = shift;
Net::SSLeay::CTX_set_mode($ctx, Net::SSLeay::MODE_AUTO_RETRY());
},
);
unless ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
my $ssl_err = IO::Socket::SSL->errstr;
die(qq/SSL connection failed for $host: $ssl_err\n/);
}
}
sub close {
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
}
sub can_read {
@_ == 1 || @_ == 2 || die(q/Usage: $handle->can_read([timeout])/ . "\n");
my $self = shift;
if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
return 1 if $self->{fh}->pending;
}
return $self->_do_timeout('read', @_)
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
sub _ssl_args {
my ($self, $host) = @_;
my %ssl_args;
# This test reimplements IO::Socket::SSL::can_client_sni(), which wasn't
# added until IO::Socket::SSL 1.84
if ( Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 0x01000000 ) {
$ssl_args{SSL_hostname} = $host, # Sane SNI support
}
if ($self->{verify_SSL}) {
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
C<verify_SSL> — A boolean that indicates whether to validate the SSL certificate of an C<https> — connection (default is false)
=item *
C<SSL_options> — A hashref of C<SSL_*> — options to pass through to L<IO::Socket::SSL>
=back
Passing an explicit C<undef> for C<proxy>, C<http_proxy> or C<https_proxy> will
prevent getting the corresponding proxies from the environment.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
$ok = HTTP::Tiny->can_ssl;
($ok, $why) = HTTP::Tiny->can_ssl;
($ok, $why) = $http->can_ssl;
Indicates if SSL support is available. When called as a class object, it
checks for the correct version of L<Net::SSLeay> and L<IO::Socket::SSL>.
When called as an object methods, if C<SSL_verify> is true or if C<SSL_verify_mode>
is set in C<SSL_options>, it checks that a CA file is available.
In scalar context, returns a boolean indicating if SSL is available.
In list context, returns the boolean and a (possibly multi-line) string of
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
timeout
verify_SSL
=head1 SSL SUPPORT
Direct C<https> connections are supported only if L<IO::Socket::SSL> 1.56 or
greater and L<Net::SSLeay> 1.49 or greater are installed. An exception will be
thrown if new enough versions of these modules are not installed or if the SSL
encryption fails. You can also use C<HTTP::Tiny::can_ssl()> utility function
that returns boolean to see if the required modules are installed.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
An exception will be raised if C<verify_SSL> is true and no CA certificate file
is available.
If you desire complete control over SSL connections, the C<SSL_options> attribute
lets you provide a hash reference that will be passed through to
C<IO::Socket::SSL::start_SSL()>, overriding any options set by HTTP::Tiny. For
example, to provide your own trusted CA file:
SSL_options => {
SSL_ca_file => $file_path,
}
The C<SSL_options> attribute could also be used for such things as providing a
client certificate for authentication to a server or controlling the choice of
cipher used for the SSL connection. See L<IO::Socket::SSL> documentation for
details.
=head1 PROXY SUPPORT
HTTP::Tiny can proxy both C<http> and C<https> requests. Only Basic proxy
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
L<IO::Socket::IP> - Required for IPv6 support
=item *
L<IO::Socket::SSL> - Required for SSL support
=item *
L<LWP::UserAgent> - If HTTP::Tiny isn't enough for you, this is the "standard" way to do things
App-cpantimes
view release on metacpan or search on metacpan
sub connect {
@_ == 4 || croak(q/Usage: $handle->connect(scheme, host, port)/);
my ($self, $scheme, $host, $port) = @_;
if ( $scheme eq 'https' ) {
eval "require IO::Socket::SSL"
unless exists $INC{'IO/Socket/SSL.pm'};
croak(qq/IO::Socket::SSL must be installed for https support\n/)
unless $INC{'IO/Socket/SSL.pm'};
}
elsif ( $scheme ne 'http' ) {
croak(qq/Unsupported URL scheme '$scheme'/);
}
binmode($self->{fh})
or croak(qq/Could not binmode() socket: '$!'/);
if ( $scheme eq 'https') {
IO::Socket::SSL->start_SSL($self->{fh});
ref($self->{fh}) eq 'IO::Socket::SSL'
or die(qq/SSL connection failed for $host\n/);
$self->{fh}->verify_hostname( $host, $ssl_verify_args )
or die(qq/SSL certificate not valid for $host\n/);
}
App-cpanurl
view release on metacpan or search on metacpan
script/cpanurl view on Meta::CPAN
sub connect {
@_ == 4 || die(q/Usage: $handle->connect(scheme, host, port)/ . "\n");
my ($self, $scheme, $host, $port) = @_;
if ( $scheme eq 'https' ) {
eval "require IO::Socket::SSL"
unless exists $INC{'IO/Socket/SSL.pm'};
die(qq/IO::Socket::SSL must be installed for https support\n/)
unless $INC{'IO/Socket/SSL.pm'};
}
elsif ( $scheme ne 'http' ) {
die(qq/Unsupported URL scheme '$scheme'\n/);
}
script/cpanurl view on Meta::CPAN
binmode($self->{fh})
or die(qq/Could not binmode() socket: '$!'\n/);
if ( $scheme eq 'https') {
IO::Socket::SSL->start_SSL($self->{fh});
ref($self->{fh}) eq 'IO::Socket::SSL'
or die(qq/SSL connection failed for $host\n/);
$self->{fh}->verify_hostname( $host, $ssl_verify_args )
or die(qq/SSL certificate not valid for $host\n/);
}
App-cpx
view release on metacpan or search on metacpan
},
"prereqs" : {
"build" : {
"requires" : {
"App::cpm" : "0",
"IO::Socket::SSL" : "1.42",
"Search::Elasticsearch" : "0",
"Search::Elasticsearch::Client::2_0::Direct" : "0"
}
},
"configure" : {
App-gh
view release on metacpan or search on metacpan
directory:
- inc
- t
- xt
recommends:
IO::Socket::SSL: 0
XML::Atom: 0
requires:
App::CLI: 0
Error: 0
File::Basename: 0
App-lupapona
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"File::MimeInfo" : "0",
"File::Slurper" : "0",
"IO::Socket::SSL" : "0",
"Modern::Perl" : "1.20180701",
"Mojolicious" : "8.12",
"URI::Escape" : "0",
"perl" : "5.026000",
"strict" : "0",
App-madeye
view release on metacpan or search on metacpan
lib/App/MadEye/Plugin/Agent/POP3S.pm view on Meta::CPAN
package App::MadEye::Plugin::Agent::POP3S;
use strict;
use warnings;
use App::MadEye::Plugin::Agent::Base;
use IO::Socket qw(SOCK_STREAM);
use IO::Socket::SSL;
sub is_dead {
my ($self, $host) = @_;
my $conf = $self->config->{config};
my $port = $conf->{port} or die "missing port";
my $timeout = $conf->{timeout} || 10;
eval {
my $sock = IO::Socket::SSL->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => $timeout,
lib/App/MadEye/Plugin/Agent/POP3S.pm view on Meta::CPAN
Tokuhiro Matsuno
=head1 SEE ALSO
L<IO::Socket::SSL>, L<App::MadEye>
App-mokupona
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Encode::Locale" : "0",
"IO::Socket::SSL" : "2.069",
"Modern::Perl" : "1.20180701",
"Mojolicious" : "9",
"URI::Escape" : "0",
"XML::LibXML" : "0",
"perl" : "5.026000",
App-perlall
view release on metacpan or search on metacpan
#cpan=cpanm
cpan=-MCPAN
# Note: `cmd` is also expanded for init-modules
init-modules=YAML DBI DBD::SQLite CPAN::SQLite Devel::Platform::Info \
Params::Util Bundle::CPANReporter2 \
IPC::Run B::Flags Opcodes Set::Object Math::Round Params::Classify Net::SSLeay IO::Socket::SSL \
Bundle::CygwinVendor YAML::XS DBIx::Class SQL::Abstract Module::Find Mouse \
MouseX::Types Task::Kensho
# testvm settings taken from default perl (/usr/local/bin/perl, /usr/bin/perl)
# and remote perlall. e.g. freebsd make=gmake
App-phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
return;
}
my @tokens = @{$server->{wiki_token}};
push(@tokens, $oddmuse_wiki_tokens{$host}) if $oddmuse_wiki_tokens{$host};
my $token = pop(@tokens); # the oddmuse wiki token, preferrably
my $name = ref($stream->handle) eq 'IO::Socket::SSL' && $stream->handle->peer_certificate('cn') || "";
my $ua = Mojo::UserAgent->new;
my $tx = $ua->post(
$oddmuse_wikis{$host}
=> {'X-Forwarded-For' => $stream->handle->peerhost}
=> form => {
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options ver...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
App-sslmaker
view release on metacpan or search on metacpan
t/io-socket-inet.t view on Meta::CPAN
=cut
plan skip_all => "$^O is not supported" if $^O eq 'MSWin32';
plan skip_all => 'IO::Socket::IP 0.20 required' unless eval 'use IO::Socket::IP 0.20; 1';
plan skip_all => 'IO::Socket::SSL 1.84 required' unless eval 'use IO::Socket::SSL 1.84; 1';
my $home = Path::Tiny->new('local/tmp/real');
$home->remove_tree({safe => 0}); # remove old files
# create ssl certificates
create_root_ca();
create_intermediate_ca();
create_cert($_) for qw(server client);
$IO::Socket::SSL::DEBUG = $ENV{SSL_DEBUG} || 0;
my $host = '127.0.0.1';
my $port = IO::Socket::INET->new(Listen => 5, LocalAddr => $host)->sockport; # random port
my $pid = fork // plan skip_all => "Could not fork: $!";
t/io-socket-inet.t view on Meta::CPAN
SSL_key_file => $home->child('server.key.pem')->stringify,
SSL_honor_cipher_order => 1,
SSL_verify_mode => 1,
);
my $s = IO::Socket::SSL->new(%args) or die "[SERVER] Failed to listen: $! ($IO::Socket::SSL::SSL_ERROR)";
while (1) {
note "Waiting for client to connect";
my $client = $s->accept or die "[SERVER] Failed to accept or ssl handshake: $! ($IO::Socket::SSL::SSL_ERROR)";
my $buf = $client->readline;
my $subject = $client->peer_certificate('subject');
note $subject;
$client->print("You ($subject) sent: $buf");
}
t/io-socket-inet.t view on Meta::CPAN
);
while ($guard--) {
note "Trying to connect to server ($pid)";
usleep 300e3;
my $client = IO::Socket::SSL->new(%args) or next;
return $client;
}
die "[CLIENT] Failed connect or ssl handshake: $! ($IO::Socket::SSL::SSL_ERROR)";
}
App-tldr
view release on metacpan or search on metacpan
lib/App/tldr.pm view on Meta::CPAN
use Encode ();
use File::Spec;
use File::Which ();
use Getopt::Long ();
use HTTP::Tiny;
use IO::Socket::SSL;
use Pod::Usage ();
use Term::ReadKey ();
use Text::Fold ();
use constant DEBUG => !!$ENV{TLDR_DEBUG};
App-tt
view release on metacpan or search on metacpan
.travis.yml view on Meta::CPAN
- "5.20"
- "5.10"
env:
- "HARNESS_OPTIONS=j9"
install:
- "cpanm -n Test::Pod Test::Pod::Coverage IO::Socket::SSL"
- "cpanm -n --installdeps ."
notifications:
email: false
Armadito-Agent
view release on metacpan or search on metacpan
lib/Armadito/Agent/HTTP/Client.pm view on Meta::CPAN
# just checking on LWP version is not enough
$self->{ua}->ssl_opts( verify_hostname => 0, SSL_verify_mode => 0 )
if $self->{ua}->can('ssl_opts');
}
else {
# only IO::Socket::SSL can perform full server certificate validation,
# Net::SSL is only able to check certification authority, and not
# certificate hostname
IO::Socket::SSL->require();
die "IO::Socket::SSL Perl module not available, "
. "unable to validate SSL certificates "
. "(workaround: use 'no-ssl-check' configuration parameter)"
if $EVAL_ERROR;
if ( $self->{logger}{verbosity} > LOG_DEBUG2 ) {
lib/Armadito/Agent/HTTP/Client.pm view on Meta::CPAN
$self->{ua}->ssl_opts( SSL_ca_path => $self->{ca_cert_dir} )
if $self->{ca_cert_dir};
}
else {
# SSL_verifycn_scheme and SSL_verifycn_name are required
die "IO::Socket::SSL Perl module too old "
. "(available: $IO::Socket::SSL::VERSION, required: 1.14), "
. "unable to validate SSL certificates "
. "(workaround: use 'no-ssl-check' configuration parameter)"
if $IO::Socket::SSL::VERSION < 1.14;
# use a custom HTTPS handler to workaround default LWP5 behaviour
Armadito::Agent::HTTP::Protocol::https->use(
ca_cert_file => $self->{ca_cert_file},
ca_cert_dir => $self->{ca_cert_dir},
Arriba
view release on metacpan or search on metacpan
lib/Arriba/Server.pm view on Meta::CPAN
use base 'Net::Server::PreFork';
use HTTP::Date;
use HTTP::Status qw(status_message);
use HTTP::Parser::XS qw(parse_http_request);
use IO::Socket::SSL;
use Plack::Util;
use Plack::TempBuffer;
use constant DEBUG => $ENV{ARRIBA_DEBUG};
At
view release on metacpan or search on metacpan
"recommends" : {
"Mojo::UserAgent" : "0"
},
"requires" : {
"File::ShareDir::Tiny" : "0",
"IO::Socket::SSL" : "1.42",
"JSON::Tiny" : "0",
"MIME::Base64" : "0",
"Net::SSLeay" : "1.49",
"Path::Tiny" : "0",
"Time::Moment" : "0",
AuthCAS
view release on metacpan or search on metacpan
lib/AuthCAS.pm view on Meta::CPAN
AuthCAS aims at providing a Perl API to JA-SIG Central Authentication System (CAS).
Only a basic Perl library is provided with CAS whereas AuthCAS is a full object-oriented library.
=head1 PREREQUISITES
This script requires IO::Socket::SSL and LWP::UserAgent
=head1 SYNOPSIS
A simple example with a direct CAS authentication
lib/AuthCAS.pm view on Meta::CPAN
=item proxyValidatePath - '/proxyValidate'
=item SSL_version - unset
Sets the version of the SSL protocol used to transmit data. If the default causes connection issues, setting it to 'SSLv3' may help.
see the documentation for L<IO::Socket::SSL/"METHODS"> for more information
see L<http://www.perlmonks.org/?node_id=746493> for more details.
=back
Returns a new B<AuthCAS> or dies on error.
lib/AuthCAS.pm view on Meta::CPAN
$errors = sprintf
"error : incorrect access to cafile ".($trusted_ca_file||'<empty>')." or capath ".($trusted_ca_path||'<empty>')."\n";
return undef;
}
unless ( eval "require IO::Socket::SSL" ) {
$errors = sprintf
"Unable to use SSL library, IO::Socket::SSL required, install IO-Socket-SSL (CPAN) first\n";
return undef;
}
require IO::Socket::SSL;
unless ( eval "require LWP::UserAgent" ) {
$errors = sprintf
"Unable to use LWP library, LWP::UserAgent required, install LWP (CPAN) first\n";
return undef;
lib/AuthCAS.pm view on Meta::CPAN
if ( $trusted_ca_file || $trusted_ca_path );
$ssl_options{'SSL_version'} = $ssl_data->{'SSL_version'}
if defined( $ssl_data->{'SSL_version'} );
$ssl_socket = new IO::Socket::SSL(%ssl_options);
unless ($ssl_socket) {
$errors = sprintf "error %s unable to connect https://%s:%s/\n",
&IO::Socket::SSL::errstr, $host, $port;
return undef;
}
my $request = "GET $path HTTP/1.0\r\nHost: $host\r\n\r\n";
print $ssl_socket "$request";
Authen-Credential
view release on metacpan or search on metacpan
lib/Authen/Credential/x509.pm view on Meta::CPAN
#
# preparators
#
$Authen::Credential::Preparator{x509}{"IO::Socket::SSL"} = sub {
my($self, %data);
$self = shift(@_);
validate_pos(@_) if @_;
foreach my $tmp ($self->cert(), $ENV{X509_USER_CERT}) {
next unless defined($tmp);
lib/Authen/Credential/x509.pm view on Meta::CPAN
It supports the following targets for the prepare() method:
=over
=item IO::Socket::SSL
it returns a reference to a hash containing the suitable options for
IO::Socket::SSL
=back
=head1 EXAMPLE
use Authen::Credential;
use IO::Socket::SSL;
# get the credential from somewhere
$cred = Authen::Credential->parse(...);
# use the prepare() method to get ready-to-use data
$sslopts = $cred->prepare("IO::Socket::SSL");
$socket = IO::Socket::SSL->new(
PeerHost => "web.acme.com",
PeerPort => "https",
%{ $sslopts },
);
=head1 SEE ALSO
L<Authen::Credential>,
L<IO::Socket::SSL>,
L<http://en.wikipedia.org/wiki/X.509>.
=head1 AUTHOR
Lionel Cons L<http://cern.ch/lionel.cons>
Authen-Simple-Gmail
view release on metacpan or search on metacpan
lib/Authen/Simple/Gmail.pm view on Meta::CPAN
use strict;
use warnings;
$Authen::Simple::Gmail::VERSION = '0.2';
use IO::Socket::SSL ();
use Authen::Simple::Adapter ();
use base 'Authen::Simple::Adapter';
my $portable_crlf = "\015\012"; # "\r\n" is not portable
sub check {
my ( $self, $username, $password ) = @_;
my $sock = IO::Socket::SSL->new(
'PeerHost' => "pop.gmail.com",
'PeerPort' => "995",
'SSL_verify_mode' => IO::Socket::SSL::SSL_VERIFY_NONE, # Patches welcome!
);
if ( !$sock ) {
$self->log->error( IO::Socket::SSL->errstr() ) if $self->log;
return;
}
my $line = <$sock>; # welcome msg
lib/Authen/Simple/Gmail.pm view on Meta::CPAN
=head1 DEPENDENCIES
L<Authen::Simple::Adapter> for subclassing.
L<IO::Socket::SSL> for the SSL socket
=head1 INCOMPATIBILITIES
None reported.
Azure-AD-Auth
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"HTTP::Tiny" : "0",
"IO::Socket::SSL" : "0",
"JSON::MaybeXS" : "0",
"Moo" : "0",
"Throwable::Error" : "0",
"Types::Standard" : "0",
"perl" : "5.008"
B-C
view release on metacpan or search on metacpan
}
if ($fullname eq 'utf8::SWASHNEW') { # bypass utf8::AUTOLOAD, a new 5.13.9 mess
load_utf8_heavy();
}
if ($fullname eq 'IO::Socket::SSL::SSL_Context::new') {
if ($IO::Socket::SSL::VERSION ge '1.956' and $IO::Socket::SSL::VERSION lt '1.995') {
# See https://code.google.com/p/perl-compiler/issues/detail?id=317
# https://rt.cpan.org/Ticket/Display.html?id=95452
warn "Warning: Your IO::Socket::SSL version $IO::Socket::SSL::VERSION is unsupported to create\n".
" a server. You need to upgrade IO::Socket::SSL to at least 1.995 [CPAN #95452]\n";
}
}
if (!$$root && !$cvxsub) {
my $reloaded;
BZ-Client
view release on metacpan or search on metacpan
"Clone" => 0,
"Data::Dumper" => 0,
"DateTime" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Spec" => 0,
"IO::Socket::SSL" => 0,
"Test::More" => 0,
"Test::RequiresInternet" => 0,
"Text::Password::Pronounceable" => 0
}
);
"Clone" => 0,
"Data::Dumper" => 0,
"DateTime" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Spec" => 0,
"IO::Socket::SSL" => 0,
"Module::Build" => "0.28",
"Test::More" => 0,
"Test::RequiresInternet" => 0,
"Text::Password::Pronounceable" => 0
);
BigIP-REST
view release on metacpan or search on metacpan
"LWP::UserAgent" : "0"
}
},
"test" : {
"requires" : {
"IO::Socket::SSL" : "0",
"Test::Exception" : "0",
"Test::More" : "0"
}
}
},
Bio-Das
view release on metacpan or search on metacpan
Bio::Das provides access to genome sequencing and annotation databases
that export their data in Distributed Annotation System (DAS) format
version 1.5. This system is described at http://biodas.org. Both
unencrypted (http:) and SSL-encrypted (https:) DAS servers are
supported. (To run SSL, you will need IO::Socket::SSL and Net::SSLeay
installed).
The components of the Bio::Das class hierarchy are:
=over 4
Bot-ChatBots
view release on metacpan or search on metacpan
lib/Bot/ChatBots/Role/WebPoller.pm view on Meta::CPAN
use strict;
use warnings;
{ our $VERSION = '0.014'; }
use Ouch;
use IO::Socket::SSL ();
use Mojo::UserAgent;
use Log::Any qw< $log >;
use Try::Tiny;
use Moo::Role;
( run in 0.666 second using v1.01-cache-2.11-cpan-4d50c553e7e )