projects
/
virtual-ldap
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba8dc57
)
emit only minimal useful output to STDOUT
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 29 Aug 2015 12:48:14 +0000
(14:48 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 29 Aug 2015 12:48:14 +0000
(14:48 +0200)
bin/ldap-rewrite.pl
patch
|
blob
|
history
diff --git
a/bin/ldap-rewrite.pl
b/bin/ldap-rewrite.pl
index
741a0a6
..
6d455bd
100755
(executable)
--- 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=/;
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;
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};
if ( defined $response->{protocolOp}->{searchResEntry} ) {
my $uid = $response->{protocolOp}->{searchResEntry}->{objectName};
-
warn "## objectName $uid
";
+
print "rewrite objectName $uid\n
";
my @attrs;
my @attrs;