From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 29 Aug 2015 12:48:14 +0000 (+0200)
Subject: emit only minimal useful output to STDOUT
X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=commitdiff_plain;h=748c9ee55a48cae93203757346deada11d878720;hp=ba8dc579a3496f2785ca5bc12cb291c1d489dc73

emit only minimal useful output to STDOUT
---

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;