remove used vars in peer_cert()

1 files changed, 0 insertions, 5 deletions

diff --git a/gmi.pl b/gmi.pl
index 270fa3d..0df1f94 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -313,18 +313,13 @@ sub peer_cert {
 	my $peer_fingerprint = $peer_cert->{fingerprint_sha256}; 
 	my $peer_not_before = $peer_cert->{not_before};
 	my $peer_not_after = $peer_cert->{not_after};
-	my $peer_commonName = $peer_cert->{subject}->{commonName};
-	my $peer_subjectAltNames = $peer_cert->{subjectAltNames};
 	my $verify_hostname = $cl->verify_hostname($hostname);
 	### $peer_cert
 	### $peer_fingerprint
 	### $peer_not_before
 	### $peer_not_after
-	### $peer_commonName
-	### $peer_subjectAltNames
 	### $verify_hostname
 
-	
 	if (! $verify_hostname) {
 		print $OUT "The server offers a cert that doesn't match their domain name.\n";
 		return 0;