support ARRAY values from yaml file
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 16 Mar 2009 10:12:57 +0000 (10:12 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 16 Mar 2009 10:12:57 +0000 (10:12 +0000)
bin/ldap-rewrite.pl

index d3d8da0..6d2fa2d 100755 (executable)
@@ -108,12 +108,11 @@ sub log_response {
                        foreach my $type ( keys %$data ) {
 
                                my $vals = $data->{$type};
-                               $vals =~ s{#\s*$}{};
-                               
-                               my @vals = split(/\s*#\s*/, $vals);
 
-                               push @{ $response->{protocolOp}->{searchResEntry}->{attributes} },
-                                       { type => $config->{overlay_prefix} . $type, vals => [ @vals ] };
+                               push @{ $response->{protocolOp}->{searchResEntry}->{attributes} }, {
+                                       type => $config->{overlay_prefix} . $type,
+                                       vals => ref($vals) eq 'ARRAY' ? $vals : [ $vals ],
+                               };
                        }
                }