From 8492555a3365e22dfedec797d4543b4d3f5e0938 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 25 Jan 2021 13:52:57 +0100 Subject: [PATCH] split homePostalAddress --- bin/ldap-rewrite.pl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/bin/ldap-rewrite.pl b/bin/ldap-rewrite.pl index e9be738..b6f726f 100755 --- a/bin/ldap-rewrite.pl +++ b/bin/ldap-rewrite.pl @@ -157,6 +157,14 @@ sub log_response { foreach my $i ( 0 .. $#{ $attr->{vals} } ) { $attr->{vals}->[$i] =~ s/^u2010/p2010/gs && warn "FIXME group"; } + } elsif ( $attr->{type} eq 'homePostalAddress' ) { + foreach my $val ( @{ $attr->{vals} } ) { + next if $val !~ m{^(.+)\s*,\s*(\d+)\s+(.+)}; + push @attrs, + { type => 'homePostalAddress_address', vals => [ $1 ] }, + { type => 'homePostalAddress_zipcode', vals => [ $2 ] }, + { type => 'homePostalAddress_city', vals => [ $3 ] }; + } } elsif ( $attr->{type} eq 'mail' ) { my @emails; foreach my $i ( 0 .. $#{ $attr->{vals} } ) { -- 2.20.1