From 748c9ee55a48cae93203757346deada11d878720 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 29 Aug 2015 14:48:14 +0200
Subject: [PATCH] emit only minimal useful output to STDOUT

---
 bin/ldap-rewrite.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/ldap-rewrite.pl b/bin/ldap-rewrite.pl
index 741a0a6..6d455bd 100755
--- a/bin/ldap-rewrite.pl
+++ b/bin/ldap-rewrite.pl
@@ -110,7 +110,7 @@ sub log_request {
 			my $old = $request->{bindRequest}->{name};
 			$request->{bindRequest}->{name} =~ s/[@\.]/,dc=/g;
 			$request->{bindRequest}->{name} =~ s/^/uid=/;
-			warn "rewrite bind cn $old -> ", $request->{bindRequest}->{name};
+			print "rewrite bind cn $old -> ", $request->{bindRequest}->{name}, "\n";
 			Convert::ASN1::asn_hexdump(\*STDOUT,$pdu) if $debug;
 			$pdu = $LDAPRequest->encode($request);
 			Convert::ASN1::asn_hexdump(\*STDOUT,$pdu) if $debug;
@@ -132,7 +132,7 @@ sub log_response {
 
 	if ( defined $response->{protocolOp}->{searchResEntry} ) {
 		my $uid = $response->{protocolOp}->{searchResEntry}->{objectName};
-		warn "## objectName $uid";
+		print "rewrite objectName $uid\n";
 
 		my @attrs;
 
-- 
2.20.1