From 07b5532ee820ddffa0e0251f999b29c2268352d9 Mon Sep 17 00:00:00 2001
From: Matúš Honěk <mhonek@redhat.com>
Date: Jan 09 2019 08:30:42 +0000
Subject: Ticket 50134 - fixup-memberof.pl does not respect protocol requested


Bug Description:
fixup-memberof.pl tries with StartTLS even though LDAP was specified.

Fix Description:
Fix protocol assignment to $info, probably missed during a previous code porting.

https://pagure.io/389-ds-base/issue/50134

Author: mhonek

Review by: mreynolds, firstyear (thanks!)

---

diff --git a/ldap/admin/src/scripts/fixup-memberof.pl.in b/ldap/admin/src/scripts/fixup-memberof.pl.in
index 167ed7f..2e67450 100644
--- a/ldap/admin/src/scripts/fixup-memberof.pl.in
+++ b/ldap/admin/src/scripts/fixup-memberof.pl.in
@@ -77,7 +77,7 @@ while ($i <= $#ARGV)
 ($servid, $confdir) = DSUtil::get_server_id($servid, "@initconfigdir@");
 %info = DSUtil::get_info($confdir, $host, $port, $rootdn);
 $info{rootdnpw} = DSUtil::get_password_from_file($passwd, $passwdfile);
-$info[9] = $protocol;
+$info{protocol} = $protocol;
 if ($verbose == 1){
     $info{args} = "-v -a";
 } else {