drfunk2458 has asked for the wisdom of the Perl Monks concerning the following question:

I wrote a perl script that goes through webpages and tests for validation.
It works great.
Now I have to make change on our test web server. (Change control go figure...)
But when I go from http to https the test server complains about a Certification Error.
Here is what the error is from IE:

There is a problem with this website's security certificate.

The security certificate presented by this website was issued for a different website's address.

Security certificate problems may indicate an attempt to fool you or intercept any data you send to the server.
We recommend that you close this webpage and do not continue to this website.

If you arrived at this page by clicking a link, check the website address in the address bar to be sure that it is the address you were expecting.
When going to a website with an address such as https://example.com, try adding the 'www' to the address, https://www.example.com. If you choose to ignore this error and continue, do not enter private information into the website. For more information, see "Certificate Errors" in Internet Explorer Help.

Is there a way in Perl to ignore this error or just accept and continue?

TIA,
Mark

Replies are listed 'Best First'.
Re: Perl & SSL
by shmem (Chancellor) on Dec 14, 2007 at 23:15 UTC
    It is not the test server complaining, but the client (Internet Explorer): it complains that the server dished out a certificate whose IP-address doesn't match the actual IP-address of the server.

    This happened during the SSL negotiation, and before any payload data had been sent to the server, i.e during the phase in which client and server agree upon how to encrypt the https stream; your perl script doesn't see any of this.

    To fix that issue, generate a certificate for your server (or ask the staff to do so) which actually matches the server's name and IP-address.

    --shmem 

    _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
[reply]

Back to Seekers of Perl Wisdom