view release on metacpan or search on metacpan
lib/App/MtAws/ConfigDefinition.pm view on Meta::CPAN
# to get LWP version, use LWP->VERSION instead of LWP::UserAgent->VERSION
error('LWP::UserAgent 6.x required to use HTTPS') unless LWP->VERSION() ge '6';
require LWP::Protocol::https;
error('LWP::Protocol::https 6.x required to use HTTPS') unless LWP::Protocol::https->VERSION && LWP::Protocol::https->VERSION ge '6';
} else {
error('IO::Socket::SSL or LWP::Protocol::https is not installed');
}
}
return;
}
view all matches for this distribution
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Exporter 5.57
ExtUtils::MakeMaker 6.30
IO-Socket-SSL-2.022
pathname: S/SU/SULLR/IO-Socket-SSL-2.022.tar.gz
provides:
IO::Socket::SSL 2.022
IO::Socket::SSL::Intercept 2.014
IO::Socket::SSL::OCSP_Cache 2.022
IO::Socket::SSL::OCSP_Resolver 2.022
IO::Socket::SSL::PublicSuffix undef
IO::Socket::SSL::SSL_Context 2.022
IO::Socket::SSL::SSL_HANDLE 2.022
IO::Socket::SSL::Session_Cache 2.022
IO::Socket::SSL::Utils 2.014
requirements:
ExtUtils::MakeMaker 0
Mozilla::CA 0
Net::SSLeay 1.46
Scalar::Util 0
cpanfile.snapshot view on Meta::CPAN
provides:
LWP::Protocol::https 6.06
LWP::Protocol::https::Socket 6.06
requirements:
ExtUtils::MakeMaker 0
IO::Socket::SSL 1.54
LWP::UserAgent 6.06
Mozilla::CA 20110101
Net::HTTPS 6
perl 5.008001
List-Cycle-1.02
view all matches for this distribution
view release on metacpan or search on metacpan
'Guard' => '1.022',
'HTML::Parser' => '3.70',
'HTTP::Tiny' => '0.029',
'IPC::Run' => '20231003.0',
'IO::Socket::INET6' => '2.72',
'IO::Socket::SSL' => '2.048',
'JSON' => '2.90',
'JSON::PP' => '0',
'JSON::XS' => '3.01',
'List::Util' => '1.70',
'List::MoreUtils' => '0.428',
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'MIME::Lite' => '0',
'MIME::Words' => '0',
'MIME::Base64' => '0',
'Authen::SASL' => '0',
'Net::SSLeay' => '0',
'IO::Socket::SSL' => '0',
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'App-OpenMbox-Client-*' },
);
view all matches for this distribution
view release on metacpan or search on metacpan
"Mozilla::CA" : "0"
},
"requires" : {
"App::Cmd" : "0.322",
"HTTP::Tiny" : "0.024",
"IO::Socket::SSL" : "1.56",
"JSON::PP" : "2.27103",
"Net::SSLeay" : "1.49",
"URI" : "1.59",
"perl" : "v5.10.0"
}
view all matches for this distribution
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 => {
view all matches for this distribution
view release on metacpan or search on metacpan
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
All connections will be reset automatically if a new process has been forked, this allows multiple processes to share
the same L<Mojo::UserAgent> object safely.
For better scalability (epoll, kqueue) and to provide non-blocking name resolution, SOCKS5 as well as TLS support, the
optional modules L<EV> (4.32+), L<Net::DNS::Native> (0.15+), L<IO::Socket::Socks> (0.64+) and L<IO::Socket::SSL>
(2.009+) will be used automatically if possible. Individual features can also be disabled with the C<MOJO_NO_NNR>,
C<MOJO_NO_SOCKS> and C<MOJO_NO_TLS> environment variables.
See L<Mojolicious::Guides::Cookbook/"USER AGENT"> for more.
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
Path to TLS certificate authority file used to verify the peer certificate, defaults to the value of the
C<MOJO_CA_FILE> environment variable.
# Show certificate authorities for debugging
IO::Socket::SSL::set_defaults(SSL_verify_callback => sub { say "Authority: $_[2]" and return $_[0] });
=head2 cert
my $cert = $ua->cert;
$ua = $ua->cert('/etc/tls/client.crt');
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
# Ignore all cookies
$ua->cookie_jar->ignore(sub { 1 });
# Ignore cookies for public suffixes
my $ps = IO::Socket::SSL::PublicSuffix->default;
$ua->cookie_jar->ignore(sub ($cookie) {
return undef unless my $domain = $cookie->domain;
return ($ps->public_suffix($domain))[0] eq '';
});
view all matches for this distribution
view release on metacpan or search on metacpan
script/pureproxy.pl view on Meta::CPAN
installation.
It uses L<thrall> pre-threading HTTP server if Perl supports threads or
L<starlight> pre-forking HTTP server otherwise.
It supports SSL and TLS if L<IO::Socket::SSL> is installed and IPv6 if
L<IO::Socket::IP> is installed.
It can be fat-packed and then run with any system with standard Perl
interpreter without installing other packages. See F<examples> directory for
fat-packed version of PureProxy script.
script/pureproxy.pl view on Meta::CPAN
process will be collected every given second. This feature is useful for
doing a "slow restart". (default: none)
=head2 --ssl
Enables SSL support. The L<IO::Socket::SSL> module is required. (default: 0)
=head2 --ssl-ca-file
Specifies the path to the SSL CA certificate file which will be a part of
server's certificate chain. (default: none)
script/pureproxy.pl view on Meta::CPAN
Specifies the path to the SSL key file. (default: none)
=head2 --ssl-verify-mode
Specifies the verification mode for the client certificate.
See L<IO::Socket::SSL/SSL_verify_mode> for details. (default: 0)
=head2 --timeout
Seconds until timeout. (default: 300)
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
if ( $^O eq 'MSWin32' ) {
$WriteMakefileArgs{PREREQ_PM}{'IO::Socket::SSL'} = $FallbackPrereqs{'IO::Socket::SSL'} = '2.067';
$WriteMakefileArgs{PREREQ_PM}{'Win32::Process'} = $FallbackPrereqs{'Win32::Process'} = '== 0.17';
$WriteMakefileArgs{PREREQ_PM}{'Win32::ShellQuote'} = $FallbackPrereqs{'Win32::ShellQuote'} = '== 0.003001';
}
if ( $^O eq 'darwin' ) {
$WriteMakefileArgs{PREREQ_PM}{'IO::Socket::SSL'} = $FallbackPrereqs{'IO::Socket::SSL'} = '2.067';
}
WriteMakefile(%WriteMakefileArgs);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Net/ManageSieve/Siesh.pm view on Meta::CPAN
sub starttls {
my ( $self, @args ) = @_;
if ( $self->debug() ) {
eval {
require IO::Socket::SSL;
IO::Socket::SSL->import('debug3');
1;
} or do {
die "Cannot load module IO::Socket::SSL\n";
}
}
return $self->SUPER::starttls(@args);
}
view all matches for this distribution
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
ExtUtils::MakeMaker 0
File::Basename 0
Getopt::Long 0
HTTP::Tiny 0
HTTP::Tiny::Multipart 0
IO::Socket::SSL 1.56
MIME::Base64 0
Mozilla::CA 0
Net::SSLeay 1.49
Pod::Usage 0
Term::ReadKey 0
cpanfile.snapshot view on Meta::CPAN
HTTP::Tiny 0
MIME::Base64 0
IO-Socket-SSL-2.089
pathname: S/SU/SULLR/IO-Socket-SSL-2.089.tar.gz
provides:
IO::Socket::SSL 2.089
IO::Socket::SSL::Intercept 2.056
IO::Socket::SSL::OCSP_Cache 2.089
IO::Socket::SSL::OCSP_Resolver 2.089
IO::Socket::SSL::PublicSuffix undef
IO::Socket::SSL::SSL_Context 2.089
IO::Socket::SSL::SSL_HANDLE 2.089
IO::Socket::SSL::Session_Cache 2.089
IO::Socket::SSL::Trace 2.089
IO::Socket::SSL::Utils 2.015
requirements:
ExtUtils::MakeMaker 0
Net::SSLeay 1.46
Scalar::Util 0
Importer-0.026
view all matches for this distribution
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',
view all matches for this distribution
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",
view all matches for this distribution
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(
view all matches for this distribution
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
view all matches for this distribution
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
view all matches for this distribution
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/);
}
view all matches for this distribution
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/);
}
view all matches for this distribution
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" : {
view all matches for this distribution
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
view all matches for this distribution
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",
view all matches for this distribution
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>
view all matches for this distribution
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",
view all matches for this distribution
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
view all matches for this distribution
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 => {
view all matches for this distribution
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 || {});
view all matches for this distribution
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)";
}
view all matches for this distribution
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};
view all matches for this distribution
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
view all matches for this distribution