Updating a binary value in Net::LDAP

[wardmw]

Good day all,

I have been banging my head on this problem for some time now, have searched the Internet for solutions but I can find nothing so I turn to you, who know all (well, most) concerning Perl.

I have a list of IP addresses, @mynets, and I want to store them in an LDAP database using the Net::LDAP module. The attribute that this list will be stored in is a binary one as the contents of the attribute are downloaded to a flat file by a different tool.

How do I add/update a binary value with the contents of a list using Net::LDAP? I have tried:

    $result = $ldap->add( "cn=mynetworks,$ldapFileDN",
    attrs => [
        'fileStore' => [ @mynets ],
        'homeDirectory'   => '/etc/postfix'
    ] );

but it fails as it thinks I am trying to add multiple values to 'filestore'.

Any ideas or suggestions as to other ways to do it?

|\/|

[NetWallah]

If we call it an "octet string", instead of "binary", a concatenated octet string can be generated and stored like this (untested):

use Socket qw( inet_aton );
...
   fileStore => join ('', map {inet_aton $_} @mynets),

This will be a concatenated string of 32-bit binary IP addresses (assuming IPv4), and can be written to a file.

[wardmw]

Many thanks NetWallah,

Looking at my original post I neglected to point out that the output sound have been a list of IP addresses with the text " OK" appended to each entry so the inet_aton() function was not going to work. However your suggestion to use the map() function was exactly what I needed and with your guidance the code below does what I need:

fileStore => join ('', map {$_ .= "\tok\n" } @mynets),

Just what I needed, thank you for your speedy response.

|\/|