RE: Perl Sasl GSSAPI and

2009-04-13 Thread Dale Moore
Ok. The patch at http://git.goingon.net/?p=perl-ldap.git;a=commitdiff;h=af630673855d88c9a88e1f86ee0d068337562e91 takes advantage of Reverse DNS lookups in krb5_sname_to_prinicipal(); In MIT Kerberos, the ability to do a reverse DNS lookup in krb5_sname_to_principal() appears to be a compile ti

Re: Perl Sasl GSSAPI and

2009-04-13 Thread Simon Wilkinson
On 13 Apr 2009, at 17:23, Dale Moore wrote: I recommend that if we are going to use Net::LDAP get the peerhost, and use it as part of the service name, that we modify Net::LDAP to do the reverse DNS and not expect GSSAPI to do it. Or we change our approach in dealing with hosts with round-robin

How to replace multiple values of an attribute

2009-04-13 Thread Oliver Dörr
Hi, I spent my whole afternoon searching for a solution for replacing all values of an attrbute by an array. So what i got is basicly an reference $values to an array of my new values. I could iterate through the array using foreach my $value (@$values) {...} The code that works is: my $mes

RE: How to replace multiple values of an attribute

2009-04-13 Thread Steiner, Ross
Oliver, I think the following should work (pass a reference to an array, not an array): my $mesg1=$backendConn->modify($dn, replace => { $attr, $values } ); Regards, Ross -Original Message- From: Oliver Dörr [mailto:oli...@do

Re: How to replace multiple values of an attribute

2009-04-13 Thread Oliver Dörr
Hmmm, that does also not work. $mesg1->error shows "Protocol error " and $mesg1->code = 2 No hint, in LDAP server log Another idea? Oliver Steiner, Ross schrieb: Oliver, I think the following should work (pass a reference to an array, not an array): my $mesg1=$backendConn->modify($dn,

Re: How to replace multiple values of an attribute

2009-04-13 Thread Graham Barr
On Apr 13, 2009, at 3:50 PM, Oliver Dörr wrote: Hmmm, that does also not work. $mesg1->error shows "Protocol error " and $mesg1->code = 2 No hint, in LDAP server log Hm, it should have worked. can you turn on debug with $backendConn- >debug(15); just before you call ->modify so we can