X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=dev%2Fi386%2Flibio-socket-ssl-perl%2Flibio-socket-ssl-perl-1.16%2Fexample%2Flwp-with-verifycn.pl;fp=dev%2Fi386%2Flibio-socket-ssl-perl%2Flibio-socket-ssl-perl-1.16%2Fexample%2Flwp-with-verifycn.pl;h=c926a8ca77d55d93a203c71b2d4830bbbd577921;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hp=0000000000000000000000000000000000000000;hpb=df794b845212301ea0d267c919232538bfef356a;p=dh-make-perl

diff --git a/dev/i386/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl b/dev/i386/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl
new file mode 100644
index 0000000..c926a8c
--- /dev/null
+++ b/dev/i386/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+
+## !!! make sure that Net::SSL never gets loaded, otherwise it will
+## be used instead of IO::Socket::SSL from LWP
+
+use IO::Socket::SSL 'debug0';
+use LWP::Simple;
+
+IO::Socket::SSL::set_ctx_defaults( 
+	SSL_verifycn_scheme => 'www', 
+	SSL_verify_mode => 1,
+	SSL_ca_file => 'verisign.pem', # root CA of verisign
+);
+print get( 'https://signin.ebay.com' );
+
+
+