Attachment 924 Details for Bug 2993 – Script used to test perl-Mozilla-CA

Script used to test perl-Mozilla-CA

httpstest.pl (text/plain), 629 bytes, created by Dave Hodgins on 2011-10-09 14:32:14 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Dave Hodgins

Created: 2011-10-09 14:32:14 CEST

Size: 629 bytes

patch

obsolete

#!/usr/bin/perl
    use IO::Socket::SSL;
    use Mozilla::CA;

    my $host = "www.paypal.com";
    my $client = IO::Socket::SSL->new(
        PeerHost => "$host:443",
        SSL_verify_mode => 0x02,
        SSL_ca_file => Mozilla::CA::SSL_ca_file(),
    )
        || die "Can't connect: $@";

    $client->verify_hostname($host, "http")
        || die "hostname verification failure";

    $host = 'https://www.diginotar.com/';
    my $client = IO::Socket::SSL->new(
        PeerHost => "$host:443",
        SSL_verify_mode => 0x02,
        SSL_ca_file => Mozilla::CA::SSL_ca_file(),
    )
        || die "Can't connect: $@";

Actions: View

Attachments on bug 2993: 924