X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=blobdiff_plain;f=bin%2Fldap-rewrite.pl;h=d3d8da0c2cd177304a55e9c064f528f2ffc9236e;hp=931eebd13d9c53d9b2d9c80a05137aa3af0d73a2;hb=cc919bb8c5863d65db2cab4a7937521ba3ba5e28;hpb=9928416eb37d91738e1114165cf1a9c8071f1da8 diff --git a/bin/ldap-rewrite.pl b/bin/ldap-rewrite.pl index 931eebd..d3d8da0 100755 --- a/bin/ldap-rewrite.pl +++ b/bin/ldap-rewrite.pl @@ -84,13 +84,21 @@ sub log_response { my $uid = $response->{protocolOp}->{searchResEntry}->{objectName}; warn "## SEARCH $uid"; -if(0) { + my @attrs; + map { - if ( $_->{type} eq 'postalAddress' ) { - $_->{vals} = [ 'foobar' ]; + if ( $_->{type} eq 'hrEduPersonUniqueNumber' ) { + foreach my $val ( @{ $_->{vals} } ) { + next if $val !~ m{.+:.+}; + my ( $n, $v ) = split(/\s*:\s*/, $val ); + push @attrs, { type => $_->{type} . '_' . $n, vals => [ $v ] }; + } } } @{ $response->{protocolOp}->{searchResEntry}->{attributes} }; -} + + warn "# ++ attrs ",dump( @attrs ); + + push @{ $response->{protocolOp}->{searchResEntry}->{attributes} }, $_ foreach @attrs; my $path = $config->{yaml_dir} . "$uid.yaml"; if ( -e $path ) {