| Subject: | analyze-ssl.pl with http_proxy has bad scheme |
When running analyse_ssl with the http_proxy example I get this error
$ analyze-ssl.pl --starttls http_proxy:proxy_host:proxy_port www.live.com
scheme not defined at ./util/analyze-ssl.pl line 284.
The error message does not work as it overwrites the scheme before
printing.
--- lib/IO/Socket/SSL.pm.orig Tue Dec 16 07:31:43 2014
+++ lib/IO/Socket/SSL.pm Fri Dec 19 23:13:10 2014
@@ -1557,7 +1557,7 @@ if ( defined &Net::SSLeay::get_peer_cert_chain
my $publicsuffix = shift;
if ( ! ref($scheme) ) {
$DEBUG>=3 && DEBUG( "scheme=$scheme cert=$cert" );
- $scheme = $scheme{$scheme} or croak "scheme $scheme not defined";
+ $scheme = $scheme{$scheme} || croak "scheme $scheme not defined";
}
return 1 if ! %$scheme; # 'none'
Then I get this error.
scheme http not defined at ./util/analyze-ssl.pl line 284.
There is a leading space in the scheme definitions.
--- util/analyze-ssl.pl.orig Fri Dec 5 14:18:34 2014
+++ util/analyze-ssl.pl Fri Dec 19 23:12:25 2014
@@ -12,7 +12,7 @@ my $ocsp_cache = $can_ocsp && IO::Socket::SSL::OCSP_Ca
my %starttls = (
'' => [ 443,undef, 'http' ],
'smtp' => [ 25, \&smtp_starttls, 'smtp' ],
- 'http_proxy' => [ 443, \&http_connect,' http' ],
+ 'http_proxy' => [ 443, \&http_connect,'http' ],
'http_upgrade' => [ 80, \&http_upgrade,'http' ],
'imap' => [ 143, \&imap_starttls,'imap' ],
'pop' => [ 110, \&pop_stls,'pop3' ],