Menu
▾
▴
RE: question about Net::LDAP::Message->control()
|
From: Marc S. <msh...@bi...> - 2002-01-30 17:22:22
|
Graham,
Thank you! That worked!! FWIW, I've been using Net::LDAP for a couple of
weeks and it's great :)
Marc Sherman
BioNetrix Inc.
> -----Original Message-----
> From: Graham Barr [mailto:gb...@po...]
> Sent: Wednesday, January 30, 2002 10:58 AM
> To: Marc Sherman
> Cc: 'per...@li...'
> Subject: Re: question about Net::LDAP::Message->control()
>
>
> I see two problems here, A bug in your code and a bug in Net::LDAP
>
> ->control returns a list, so calling it in a scalar context
> will simply
> return how many controls there were. You should also really
> pass the OID
> of the control you are looking for.
>
> But the bug in Net::LDAP is that it is not extracting controls from
> SearchResultEntry PDUs, but only SearchResultDone PDUs
>
>
> Simply adding
>
> $self->{controls} = $result->{controls}
> if exists $result->{controls};
>
> at around line 38 in lib/Net/LDAP?Search.pm should solve that.
>
> However, this will only work for use in a callback, like you
> are doing.
>
> if someone just did the search then traversed the entry list,
> these controls
> would be lost.
>
> What is needed is for the Entry class to be able to hold
> controls, which is
> something that is needed for LDIF too.
>
> Graham.
>
> On Wed, Jan 30, 2002 at 10:14:00AM -0500, Marc Sherman wrote:
> > Hello,
> >
> > I'm trying to get persistent search working and I've been able to
> > successfully send the persistent search control to the
> server. When I make a
> > change on the server, it successfully sends me an entry
> change notification
> > control in response. I catch this response in the callback
> that I specified
> > to Net::LDAP->search() and I'm able to print out the DN of
> the changed
> > entry. My problem is that I am not able to extract the
> change notification
> > control in the response message. Here is the debug output
> which shows that
> > the control (OID 2.16.840.1.113730.3.4.7) is present in the response
> > message:
> >
> > Net::LDAP=HASH(0x1bdf0a8) received:
> >
> > 30 53 02 01 02 64 26 04 22 63 6E 3D 4C 75 63 79 0S...d&."cn=Lucy
> > 2C 6F 75 3D 44 65 76 65 6C 6F 70 6D 65 6E 74 2C ,ou=Development,
> > 6F 3D 42 69 6F 6E 65 74 72 69 78 30 00 A0 26 30 o=Bionetrix0..&0
> > 24 04 17 32 2E 31 36 2E 38 34 30 2E 31 2E 31 31 $..2.16.840.1.11
> > 33 37 33 30 2E 33 2E 34 2E 37 04 09 30 84 00 00 3730.3.4.7..0...
> > 00 03 0A 01 04 __ __ __ __ __ __ __ __ __ __ __ .....
> >
> > 0000 83: SEQUENCE {
> > 0002 1: INTEGER = 2
> > 0005 38: [APPLICATION 4] {
> > 0007 34: STRING = 'cn=Lucy,ou=Development,o=Bionetrix'
> > 002B 0: SEQUENCE {
> > 002D : }
> > 002D : }
> > 002D 38: [CONTEXT 0] {
> > 002F 36: SEQUENCE {
> > 0031 23: STRING = '2.16.840.1.113730.3.4.7'
> > 004A 9: STRING
> > 004C : 30 84 00 00 00 03 0A 01 04 __ __ __ __
> __ __ __ 0........
> > 0055 : }
> > 0055 : }
> > 0055 : }
> > In scrhCallBack !!
> > Got an entry !!
> > DN = cn=Lucy,ou=Development,o=Bionetrix
> > Died at D:\BAS\GenericSync\LDAP\test3.pl line 75.
> >
> > Here's my callback code:
> >
> > sub srchCallBack
> > {
> > my ($r, $obj) = @_;
> > print "In scrhCallBack !!\n";
> > if (!$obj)
> > {
> > print "\t", $r->error, "\n";
> > }
> > elsif ($obj->isa('Net::LDAP::Entry'))
> > {
> > print "\tGot an entry !!\n";
> > print "\t\tDN = ", $obj->dn, "\n";
> > $cbCtrl = $r->control or die "$@";
> > print "\t\t", $cbCtrl, "\n";
> > }
> > else
> > {
> > print "\tGot a reference !!\n";
> > }
> > }
> >
> > As you can see my program dies as a result of $r->control
> failing. I tried
> > getting $r->code and $r->error but these methods cause the
> program to block
> > until the next change notification is received from the
> server. Any hints on
> > how to get the control?
> >
> > thanks,
> > Marc
> >
> >
> >
> >
> >
> >
>
|
