=head1 COPYRIGHT
- * Copyright (C) 1996-2014 The Squid Software Foundation and contributors
+ * Copyright (C) 1996-2015 The Squid Software Foundation and contributors
*
* Squid software is distributed under GPLv2+ license and includes
* contributions from numerous individuals and organizations.
print(STDERR logPrefix()."GOT ". "Code=".$code." $bodylen \n") if ($debug); #.$body;
my $hostname;
- parseRequest($body, \$hostname, \%errors, \%certs);
+ my $sslVersion = "-";
+ my $sslCipher = "-";
+ parseRequest($body, \$hostname, \$sslVersion, \$sslCipher, \%errors, \%certs);
print(STDERR logPrefix()."Parse result: \n") if ($debug);
print(STDERR logPrefix()."\tFOUND host:".$hostname."\n") if ($debug);
+ print(STDERR logPrefix()."\tFOUND ssl version:".$sslVersion."\n") if ($debug);
+ print(STDERR logPrefix()."\tFOUND ssl cipher:".$sslCipher."\n") if ($debug);
print(STDERR logPrefix()."\tFOUND ERRORS:") if ($debug);
foreach my $err (keys %errors) {
print(STDERR logPrefix().$errors{$err}{"name"}."/".$errors{$err}{"cert"}." ,") if ($debug);
{
my($request)=shift;
my $hostname = shift;
+ my $sslVersion = shift;
+ my $sslCipher = shift;
my $errors = shift;
my $certs = shift;
while ($request !~ /^\s*$/) {
$$hostname = $host;
$request =~ s/^host=.*$//m;
}
+ if ($request =~ s/^proto_version=(.*?)$//m) {
+ $$sslVersion = $1;
+ }
+ if ($request =~ s/^cipher=(.*?)$//m) {
+ $$sslCipher = $1;
+ }
if ($request =~ /^cert_(\d+)=/) {
my $certId = "cert_".$1;
my($vallen) = index($request, "-----END CERTIFICATE-----") + length("-----END CERTIFICATE-----");