Blame SOURCES/0019-Ticket-48681-Use-of-uninitialized-value-in-string-ne.patch

058656
From ef4ac2d45c9ea99fbb1ae6cee97745161f193bf9 Mon Sep 17 00:00:00 2001
058656
From: Mark Reynolds <mreynolds@redhat.com>
058656
Date: Wed, 25 Oct 2017 10:53:28 -0400
058656
Subject: [PATCH] Ticket 48681 - Use of uninitialized value in string ne at
058656
 /usr/bin/logconv.pl
058656
058656
Bug Description:  ldapi connections were not properly porcessed by the
058656
                  connection parsing code which lead to uninitialized errors.
058656
058656
Fix Description:  Modify the connection IP address regex's to include "local"
058656
058656
https://pagure.io/389-ds-base/issue/48681
058656
058656
Reviewd by: mreynolds (one line commit rule)
058656
058656
(cherry picked from commit 6098e7b927b64ba300567e71ea611140c47676a1)
058656
---
058656
 ldap/admin/src/logconv.pl | 10 +++++-----
058656
 1 file changed, 5 insertions(+), 5 deletions(-)
058656
058656
diff --git a/ldap/admin/src/logconv.pl b/ldap/admin/src/logconv.pl
058656
index 473c71f21..e36386e11 100755
058656
--- a/ldap/admin/src/logconv.pl
058656
+++ b/ldap/admin/src/logconv.pl
058656
@@ -809,9 +809,9 @@ if ($totalTimeInNsecs == 0){
058656
 print "Restarts:                     $serverRestartCount\n";
058656
 
058656
 if(%cipher){
058656
-	print " Secure Protocol Versions:\n";
058656
+	print "Secure Protocol Versions:\n";
058656
 	foreach my $key (sort { $b cmp $a } keys %cipher) {
058656
-		print "  - $key - $cipher{$key}\n";
058656
+		print "  - $key ($cipher{$key} connections)\n";
058656
 	}
058656
 	print "\n";
058656
 }
058656
@@ -1754,7 +1754,7 @@ parseLineBind {
058656
 			($end) = $endTime =~ /\D*(\S*)/;
058656
 		}
058656
 	}
058656
-	if ($_ =~ /connection from *([0-9A-Fa-f\.\:]+)/i ) {
058656
+	if ($_ =~ /connection from *([0-9A-Za-z\.\:]+)/i ) {
058656
 		my $skip = "yes";
058656
 		for (my $excl =0; $excl < $#excludeIP; $excl++){
058656
 			if ($excludeIP[$excl] eq $1){
058656
@@ -2085,7 +2085,7 @@ sub parseLineNormal
058656
 	}
058656
 	if (m/ connection from/){
058656
 		my $ip;
058656
-		if ($_ =~ /connection from *([0-9A-Fa-f\.\:]+)/i ){
058656
+		if ($_ =~ /connection from *([0-9A-Za-z\.\:]+)/i ){
058656
 			$ip = $1;
058656
 			for (my $xxx =0; $xxx < $#excludeIP; $xxx++){
058656
 				if ($excludeIP[$xxx] eq $ip){$exc = "yes";}
058656
@@ -2253,7 +2253,7 @@ sub parseLineNormal
058656
 	}
058656
 	if ($usage =~ /g/ || $usage =~ /c/ || $usage =~ /i/ || $usage =~ /f/ || $usage =~ /u/ || $usage =~ /U/ || $verb eq "yes"){
058656
 		$exc = "no";
058656
-		if ($_ =~ /connection from *([0-9A-fa-f\.\:]+)/i ) {
058656
+		if ($_ =~ /connection from *([0-9A-Za-z\.\:]+)/i ) {
058656
 			for (my $xxx = 0; $xxx < $#excludeIP; $xxx++){
058656
 				if ($1 eq $excludeIP[$xxx]){
058656
 					$exc = "yes";
058656
-- 
058656
2.13.6
058656