I am trying to develop a perl script that requests secure webpages (HTTPS/SSL).
my($request) = new HTTP::Request($method => $requestedPage);
$request->proxy_authorization_basic($user,$pass);
$request->content_type('application/x-www-form-urlencoded');
$request->content($params) if defined($params);
my($response) = $ua->request($request);
my($file) = $res->content;
my($headers) = '<!-- ' .$response->headers_as_string() . ' //-->';
When I executed this line ... my($headers) = '<!-- '
.$response->headers_as_string() . ' //-->';
...I expected that the following header would be returned:
'`Client-SSL-Cipher'', ``Client-SSL-Cert-Subject'' and
``Client-SSL-Cert-Issuer''.
They weren't returned and I don't really know what to do because I intuited this
approach from the ActivePerl documentation on LWP.
The perl install program put that page on my hard drive in the following
location (the default location):
c:\perl\html\site\lib\LWP.html
And this is the section on HTTPS Protocol...
HTTPS Requests
HTTPS requests are HTTP requests over an encrypted network connection using the
SSL protocol developed by Netscape.
Everything about HTTP requests above also apply to HTTPS requests. In addition
the library will add the headers ``Client-SSL-Cipher'',
``Client-SSL-Cert-Subject'' and ``Client-SSL-Cert-Issuer'' to the response.
These headers denote the encryption method used and the name
of the server owner.
The request can contain the header ``If-SSL-Cert-Subject'' in order to make the
request conditional on the content of the server certificate.
If the certificate subject does not match, no request is sent to the server and
an internally generated error response is returned. The value
of the ``If-SSL-Cert-Subject'' header is interpreted as a Perl regular
expression.
Thanks in advance,
Robb Samuell
