zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-03 23:41:52 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.547

Browse source
This commit is contained in:
Nick Bebout 2013-07-05 17:26:28 -05:00
parent e7c65ee6de
commit 6ff9b67554
67 changed files with 747 additions and 354 deletions
Download patch file Download diff file Expand all files Collapse all files

33
W/bugs/bug_ssl_win32_3_http Executable file
View file

@ -0,0 +1,33 @@
#!/usr/bin/perl
use strict ;
use warnings ;
use English ;
use IO::Socket::SSL ;
printf( "Perl %vd", $PERL_VERSION ) ;
print
"\nIO::Socket $IO::Socket::VERSION\n" ,
"IO::Socket::INET $IO::Socket::INET::VERSION \n",
"IO::Socket::INET6 $IO::Socket::INET6::VERSION \n",
"IO::Socket::SSL $IO::Socket::SSL::VERSION \n",
"Net::SSLeay $Net::SSLeay::VERSION \n",
" \n",
;
my $sock = IO::Socket::SSL->new(
# where to connect
PeerHost => "www.google.com",
PeerPort => "https",
# certificate verification
SSL_verify_mode => SSL_VERIFY_NONE,
SSL_verifycn_schema => 'http',
) or die "failed connect or ssl handshake: $!,$SSL_ERROR";
# send and receive over SSL connection
print $sock "GET / HTTP/1.0\r\n\r\n";
print <$sock>;