Menu
▾
▴
perl-ldap-dev
You can subscribe to this list here.
| 2000 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(200) |
Jun
(129) |
Jul
(184) |
Aug
(204) |
Sep
(106) |
Oct
(79) |
Nov
(72) |
Dec
(54) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2001 |
Jan
(83) |
Feb
(123) |
Mar
(84) |
Apr
(184) |
May
(106) |
Jun
(111) |
Jul
(104) |
Aug
(91) |
Sep
(59) |
Oct
(99) |
Nov
(100) |
Dec
(37) |
| 2002 |
Jan
(148) |
Feb
(88) |
Mar
(85) |
Apr
(151) |
May
(80) |
Jun
(110) |
Jul
(85) |
Aug
(43) |
Sep
(64) |
Oct
(89) |
Nov
(59) |
Dec
(42) |
| 2003 |
Jan
(129) |
Feb
(104) |
Mar
(162) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Graham B. <gb...@po...> - 2001-09-12 12:20:49
|
----- Forwarded message from kavita <ka...@wo...> -----
Date: Wed, 12 Sep 2001 15:01:00 +0530
To: gb...@po...
From: kavita <ka...@wo...>
Subject: Regarding ldap object
X-Mailer: Mozilla 4.76 [en] (X11; U; Linux 2.4.2-2 i686)
Hello Sir,
i have a problem to store ldap object. Exactly speaking,
i want to make ldap object persistent such that i can make connection to
the server only once and use it anywhere on any request.
i've tried Storable and FreezeThaw module but it has limitation that
both can't store GLOB,CODE FORMLINE ect..
and this ldap object is GLOB.
so, please show me the way to store the object persistently.
Thanks in Advance.
--
Kavita Modi
Software Engineer
Worldgate Networks Pvt Ltd.
206,Trividh,
Ring Road,
SURAT -395002.
Email: ka...@wo...
----- End forwarded message -----
|
|
From: Kjetil T. H. <kje...@li...> - 2001-09-02 14:48:30
|
Graham Barr <gb...@po...> writes: > But _recvresp will continue reading and not return until there is > nothing left to read. So if you are getting a lot of entries rather > quickly, then _recvresp will not return until they have all been > read. Reading from a socket is a very quick operation, and _recvresp will only read the data already received by the socket. Believe me, this works very well. > > have() is not very descriptive, IMHO. "pending", "waiting", "held"? > > pending and waiting are not good names. They assume that the object > is only holding entries before being processed. Thats not true. An > entry can be processed but still be in the search object. And I > don't see held as any better than have. Ok. My first thought was count_nb (nb for non-blocking), but I don't think any other operations are needed in a non-blocking variant, so a common naming scheme isn't important. count_nb() would still be a descriptive name. Oh, another option would be to pass an async flag to the existing count function. Enough input on the naming issue from me, you decide :-) Kjetil T. |
|
From: Graham B. <gb...@po...> - 2001-09-02 08:05:05
|
On Sun, Sep 02, 2001 at 12:14:05AM +0200, Kjetil Torgrim Homme wrote: > Graham Barr <gb...@po...> writes: > > And if you have thousands of results then you don't want to not use > > callbacks, unless you have large ammounts of memory. > > Gdk's idle callback runs many times per second, so this is not a big > problem. But _recvresp will continue reading and not return until there is nothing left to read. So if you are getting a lot of entries rather quickly, then _recvresp will not return until they have all been read. > > However if we do add this method I am not too keen on the name as > > unprocessed is not the right term IMO. Maybe just a simpler name of > > ->have > > have() is not very descriptive, IMHO. "pending", "waiting", "held"? pending and waiting are not good names. They assume that the object is only holding entries before being processed. Thats not true. An entry can be processed but still be in the search object. And I don't see held as any better than have. Graham. |
|
From: Kjetil T. H. <kje...@li...> - 2001-09-01 22:14:11
|
Graham Barr <gb...@po...> writes: > How will this help? Something still needs to call _recvresp which > will still be reading all the entries. Yes, there is a callback doing that, hooked into Gdk's select loop. > And if you have thousands of results then you don't want to not use > callbacks, unless you have large ammounts of memory. Gdk's idle callback runs many times per second, so this is not a big problem. Let's see. My application is a bit of a memory pig, 14240 KiB before anything is done, 21900 KiB after one such search has been processed. If I use callbacks, this is reduced to 21576 KiB. So there is some memory to be saved. Application response time is much more important for me, but I welcome alternative API suggestions. The programmer is in full control with the proposed extension, so I can throttle the call to _recvresp and leave the results in the TCP/IP layer until I am ready to accept more. Okay, one quick hack in this direction reduces the memory consumption to 21576 KiB, exactly the same as using callbacks directly. BTW, the pigs here are my data structures and Gtk, not LDAP. I run 7000 individual LDAP searches after the big one, and I can't measure any memory leakage from that code. (Are there any good tools for memory usage analysis in Perl?) > However if we do add this method I am not too keen on the name as > unprocessed is not the right term IMO. Maybe just a simpler name of > ->have have() is not very descriptive, IMHO. "pending", "waiting", "held"? Thank you for your consideration. Kjetil T. |
|
From: Graham B. <gb...@po...> - 2001-09-01 21:18:46
|
How will this help? Something still needs to call _recvresp which
will still be reading all the entries. And if you have thousands
of results then you don't want to not use callbacks, unless
you have large ammounts of memory.
However if we do add this method I am not too keen on the name
as unprocessed is not the right term IMO. Maybe just a simpler
name of ->have
Graham.
On Sat, Sep 01, 2001 at 12:01:13PM +0200, Kjetil Torgrim Homme wrote:
> (oh no, they think, not another newbie :)
>
> I'm writing a Gtk Perl frontend for an LDAP directory. I added a
> callback in Gdk to _recvresp() whenever there was new data on the
> socket. Perl LDAP would then call my callback function to process all
> outstanding responses. This worked fine when I ran this on the LDAP
> server, but on a different machine, the responses added up and Gtk
> became unresponsive, ie. it would only run LDAP callbacks for 10+
> seconds processing the thousands of entries.
>
> So I need a way of throttling Perl LDAP. It should be easy to do away
> with the LDAP callbacks, if there was a way of polling the Search
> object. Unfortunately, all the methods block until there is at least
> one Entry.
>
> I suggest adding the following to Net::LDAP::Search:
>
> sub count_unprocessed {
> my $self = shift;
>
> scalar (@{$self->{entries} || []})
> }
>
> With this addition to the API, I can make my Gtk program responsive
> under all circumstances.
>
>
> Kjetil T.
>
|
|
From: Kjetil T. H. <kje...@li...> - 2001-09-01 10:01:19
|
(oh no, they think, not another newbie :)
I'm writing a Gtk Perl frontend for an LDAP directory. I added a
callback in Gdk to _recvresp() whenever there was new data on the
socket. Perl LDAP would then call my callback function to process all
outstanding responses. This worked fine when I ran this on the LDAP
server, but on a different machine, the responses added up and Gtk
became unresponsive, ie. it would only run LDAP callbacks for 10+
seconds processing the thousands of entries.
So I need a way of throttling Perl LDAP. It should be easy to do away
with the LDAP callbacks, if there was a way of polling the Search
object. Unfortunately, all the methods block until there is at least
one Entry.
I suggest adding the following to Net::LDAP::Search:
sub count_unprocessed {
my $self = shift;
scalar (@{$self->{entries} || []})
}
With this addition to the API, I can make my Gtk program responsive
under all circumstances.
Kjetil T.
|
|
From: Christoph N. <en...@ap...> - 2001-08-31 17:17:11
|
Graham, I verified this in 0.24. Let's say you have fetched an entry that is returned from a search. If there is only one key/value for an attribute, and if you use the key/value form of delete, the key is not removed. The value is just set to "undef". When you try to do the "update", you get the following error. Can't call method "modify" on an undefined value at /usr/lib/perl5/site_perl/5.005/Net/LDAP/Entry.pm line 200, <STDIN> chunk 1. --- example ---------------------------------- my $entry = $search->pop_entry(); $entry->delete( 'cn' => [ 'John Smith' ] ); $entry->dump; $entry->update(); |
|
From: Graham B. <gb...@po...> - 2001-08-31 14:30:36
|
On Fri, Aug 31, 2001 at 01:00:35AM -0700, Christoph Neumann wrote: > Graham, > > The attached diff should fix the problem. You might want to verify. Thanks, Attached is that change I checked in if you want to try it. Graham. |
|
From: Christoph N. <en...@ap...> - 2001-08-31 14:11:30
|
Graham, The attached diff should fix the problem. You might want to verify. - Christoph On Fri, 31 Aug 2001, Christoph Neumann wrote: > Graham, > > I verified this in 0.24. > > Let's say you have fetched an entry that is returned from a search. If > there is only one key/value for an attribute, and if you use the key/value > form of delete, the key is not removed. The value is just set to "undef". > When you try to do the "update", you get the following error. > > Can't call method "modify" on an undefined value at > /usr/lib/perl5/site_perl/5.005/Net/LDAP/Entry.pm line 200, <STDIN> chunk > 1. > > --- example ---------------------------------- > > my $entry = $search->pop_entry(); > $entry->delete( 'cn' => [ 'John Smith' ] ); > > $entry->dump; > > $entry->update(); |
|
From: Graham B. <gb...@po...> - 2001-08-30 21:39:37
|
There is no difference in how a packet is processed just because debug
is on.
Is this consistent ? ie does it always fail when debug is zero
and always pass when set to a non-zero value ?
Also if you are going to send debug info, it would be better to
set debug to 3
Graham.
On Wed, Aug 29, 2001 at 03:13:46PM +0200, Roman Baumer wrote:
> I tried to access a user object within an active directoy server. Then
> I've got the following error:
> Protocol Error
>
> Then I've set debug => '1' and it was possible to receive the object.
>
> Partialy script code:
>
> #!/usr/bin/perl
> use Net::LDAP;
>
> # Connecting
> $ldap = Net::LDAP->new('hauptserver', version => '3', async => '1',
> debug => '0', onerror => 'die');
>
> $ldap->bind ('cn=xxx', password => 'xxx');
>
> # Searching
> $mesg = $ldap->search (base => "dc=xxx,dc=yyy,dc=zzz",
> filter => "cn=xxx",
> attrs => ['*']);
>
> $mesg->code && die $mesg->error;
> ...
>
> # Unbinding
> $ldap->unbind;
>
> I'm running a cygwin environment on Windows 2000 Profesional with perl
> 5.6.1 and Net::LDAP v0.2401.
>
> Is there a difference in accessing or error checking when running with
> debug > 0 ?
> Do I have a chance to do more debuging? If you need more information,
> just give me a shout.
>
> Regards
> Roman
>
|
|
From: Chris W. <ch...@cw...> - 2001-08-29 14:21:07
|
The following message is a courtesy copy of an article that has been posted to comp.lang.perl.announce as well. A new version (0.50) of SPOPS (Simple Perl Object Persistence with Security) has been released to CPAN. SPOPS is a robust and powerful module that allows you to serialize objects. You can create most objects without any code, just configuration. Changes with this version include: - LDAP support -- full save, fetch and remove capabilities as well as auto-generated relationships among objects. You can also link multiple LDAP directories together for searching. Thanks to MSN Marketing Service Nordwest GmbH for funding development! - Code generation has been completely rewritten to be more extensible and simpler. - Object properties can now have multiple values. - Object properties can now have aliases, so you can make an object have the same interface as another object while having different fieldnames in the datastore. - General improvements and bugfixes. URLs: Download the source (also making the CPAN rounds): http://sourceforge.net/project/showfiles.php?group_id=16810&release_id=50418 Release notes/changelog (much more detailed than above): http://sourceforge.net/project/shownotes.php?release_id=50418 Sourceforge home (mailing lists, CVS, bugs, etc.): http://sourceforge.net/projects/openinteract/ Other home: http://www.openinteract.org/SPOPS/ Thanks! Chris -- Chris Winters (ch...@cw...) Building enterprise-capable snack solutions since 1988. |
|
From: Roman B. <ba...@ta...> - 2001-08-29 13:13:42
|
I tried to access a user object within an active directoy server. Then
I've got the following error:
Protocol Error
Then I've set debug => '1' and it was possible to receive the object.
Partialy script code:
#!/usr/bin/perl
use Net::LDAP;
# Connecting
$ldap = Net::LDAP->new('hauptserver', version => '3', async => '1',
debug => '0', onerror => 'die');
$ldap->bind ('cn=xxx', password => 'xxx');
# Searching
$mesg = $ldap->search (base => "dc=xxx,dc=yyy,dc=zzz",
filter => "cn=xxx",
attrs => ['*']);
$mesg->code && die $mesg->error;
...
# Unbinding
$ldap->unbind;
I'm running a cygwin environment on Windows 2000 Profesional with perl
5.6.1 and Net::LDAP v0.2401.
Is there a difference in accessing or error checking when running with
debug > 0 ?
Do I have a chance to do more debuging? If you need more information,
just give me a shout.
Regards
Roman
|
|
From: <al...@ya...> - 2001-08-29 11:54:12
|
===== Alex McLintock al...@OW... Open Source Consultancy in London OpenWeb Analysts Ltd, http://www.OWAL.co.uk/ SF and Computing Book News and Reviews: http://news.diversebooks.com/ Get Your XML T-Shirt <t-shirt/> at http://www.inversity.co.uk/ ____________________________________________________________ Do You Yahoo!? Get your free @yahoo.co.uk address at http://mail.yahoo.co.uk or your free @yahoo.ie address at http://mail.yahoo.ie |
|
From: Chris R. <chr...@me...> - 2001-08-29 08:02:54
|
Simon Wilkinson <sx...@sx...> wrote: > > > On Mon, 20 Aug 2001, Graham Barr wrote: > >> On Mon, Aug 20, 2001 at 02:18:59PM -0700, Johnson, Brian K wrote: >> > supportedSASLMechanisms: GSSAPI >> > GSS-SPNEGO >> >> Nothing has been done yet with either of these. If someone can point to >> the description of thse then we can work on it. > > I've written a trivial shim to link the Cyrus SASL implementation of > the GSSAPI SASL mechanism with Net::LDAP - I've tested it with OpenLDAP, > and we're using it in a live environment. The code is available from > http://www.sxw.org.uk/computing/ Does this support the negotiation of confidential connections, or just secure authentication? Cheers, Chris |
|
From: Graham B. <gb...@po...> - 2001-08-25 08:24:17
|
This release contains bugfixes only, specifically
* Add 1; to end of test.cfg
* Fix for max_langth in Schema.pm
Graham.
----- Forwarded message from PAUSE <up...@p1...> -----
Date: Sat, 25 Aug 2001 10:15:47 +0200
To: "Graham Barr" <GB...@cp...>, cpa...@pe...
From: PAUSE <up...@p1...>
Subject: CPAN Upload: G/GB/GBARR/perl-ldap-0.2401.tar.gz
The uploaded file
perl-ldap-0.2401.tar.gz
has entered CPAN as
file: $CPAN/authors/id/G/GB/GBARR/perl-ldap-0.2401.tar.gz
size: 242254 bytes
md5: a32a6cc82a45aaee0b3f62114d55530a
No action is required on your part
Request entered by: GBARR (Graham Barr)
Request entered on: Sat, 25 Aug 2001 08:15:01 GMT
Request completed: Sat, 25 Aug 2001 08:15:47 GMT
Virtually Yours,
Id: paused,v 1.74 2001/05/20 14:59:52 k Exp k
----- End forwarded message -----
|
|
From: Clif H. <cl...@di...> - 2001-08-24 13:50:09
|
>=20 > This was pointed out to me at the Perl conference. I have a fix, but I = have > been so busy since I have been back I have not had time to test it > and make a release. >=20 > http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/lib/Net/L= DAP/Schema.pm.diff?r1=3D1.10&r2=3D1.11&diff_format=3Du >=20 > Shows the change made >=20 > Graham. >=20 > On Fri, Aug 24, 2001 at 02:30:06PM +0200, Norbert Klasen wrote: > > Hi, > > i've run accross some problems with the Net::LDAP::Schema module: > > - for some attributes (e.g. userCertificate), max_length is returned = as ")" > > - no items are returned for telephoneNumber > >=20 > > This is with perl-ldap-0.24, ActiveState perl 5.6.0 and both schemata= from=20 > > iPlanet DS 5.0 and OpenLDAP 2.0.7. > >=20 > > --=20 > > Norbert Klasen > > DAASI International GmbH phone: +49 7071 2970336 > > Wilhelmstr. 106 fax: +49 7071 295114 > > 72074 T=FCbingen email: norbert.klasen@daas= i.de > > Germany web: http://www.daasi.de > >=20 Graham, The patch that we discussed at the perl conference has already been put into the CVS system. We also need to fix the 1; issue in test.cfg. Clif |
|
From: Graham B. <gb...@po...> - 2001-08-24 13:28:49
|
This was pointed out to me at the Perl conference. I have a fix, but I ha= ve been so busy since I have been back I have not had time to test it and make a release. http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/lib/Net/LDA= P/Schema.pm.diff?r1=3D1.10&r2=3D1.11&diff_format=3Du Shows the change made Graham. On Fri, Aug 24, 2001 at 02:30:06PM +0200, Norbert Klasen wrote: > Hi, > i've run accross some problems with the Net::LDAP::Schema module: > - for some attributes (e.g. userCertificate), max_length is returned as= ")" > - no items are returned for telephoneNumber >=20 > This is with perl-ldap-0.24, ActiveState perl 5.6.0 and both schemata f= rom=20 > iPlanet DS 5.0 and OpenLDAP 2.0.7. >=20 > --=20 > Norbert Klasen > DAASI International GmbH phone: +49 7071 2970336 > Wilhelmstr. 106 fax: +49 7071 295114 > 72074 T=FCbingen email: norbert.klasen@daasi.= de > Germany web: http://www.daasi.de >=20 >=20 >=20 |
|
From: Norbert K. <nor...@da...> - 2001-08-24 13:16:22
|
Hi, i've run accross some problems with the Net::LDAP::Schema module: - for some attributes (e.g. userCertificate), max_length is returned as ")" - no items are returned for telephoneNumber This is with perl-ldap-0.24, ActiveState perl 5.6.0 and both schemata from=20 iPlanet DS 5.0 and OpenLDAP 2.0.7. --=20 Norbert Klasen DAASI International GmbH phone: +49 7071 2970336 Wilhelmstr. 106 fax: +49 7071 295114 72074 T=FCbingen email: nor...@da... Germany web: http://www.daasi.de |
|
From: Graham B. <gb...@po...> - 2001-08-23 12:45:59
|
----- Forwarded message from "Cordle, David M -Syntegra US" <Dav...@sy...> ----- Date: Thu, 23 Aug 2001 07:43:29 -0500 To: "'GB...@po...'" <GB...@po...> From: "Cordle, David M -Syntegra US" <Dav...@sy...> Subject: Net::LDAP Local Error; Code 82 X-Mailer: Internet Mail Service (5.5.2654.52) Hi, When performing an ldap->add of one of several thousand groupOfUniqueNames objects, I encounter a Local Error (code 82) from Net::LDAP. It appears likely that this code 82 results from the large size of the object (17000 uniqueMember attributes each with a lengthy DN value) but I solicit help in understanding what is causing this problem and how to resolve it. There are also several special characters in the uniqueMember attribute values, including '()&. All of these special characters were successfully added with the same Net::LDAP software in the DNs and attribute values of the entries referenced by the uniqueMember attribute values. Therefore, I doubt these special characters are causing problems but I mention it in case there should be special treatment of such special characters. Of peripheral interest, invariably, the ldap->add of the next object following the code 82 hangs awaiting a response from the LDAP directory. I am using version 10 of Convert and 23 of LDAP. Any help you can provide would be greatly appreciated. Thanks. Best Regards, Dave David M. Cordle Senior Security Consultant _______________________________________________________ Syntegra (USA), Inc. Direct:(757) 838-1449 2101 Executive Drive Office: (757) 838-0443 Tower Box 63 FAX: (757) 838-8470 Hampton, VA 23666 ----- End forwarded message ----- |
|
From: Chris R. <chr...@me...> - 2001-08-23 11:29:30
|
Mrvka Andreas <mr...@tu...> wrote: > dear ldap developers, > > I'm using the modules from Graham Barr (convert-ber,convert-asn1) > and get access to my ldap server. > > with help I found certificates stored in the active directory > and encoded them correctly. > > now I have the problem that I have to decode a certificate revocation > list. the content of the field in the active directory is very strange > and I don't know how I can decode it with Barr's module. The server should be transferring these values to you encoded in BER, which means you should be able to decode the values using Convert::BER or Convert::ASN1. I'm not too sure how you requested the first value in your attached file - it appears to be BER-encoded but the value is too short. It looks like (the start of a) certificate revocation list value, and it has version set to 1 (which means it is a version 2 CRL :-) The second value in your attachment really is BER encoded but it is also complete. It looks like a CRL, again the version is set to 1 (ie is a CRL v2). The format of CRLs is described in RFC 2459. Have you got any ASN.1 tools? I'd recommend getting something like dumpasn1 by Peter Gutmann, and of course you've got Convert::ASN1 which will dump out arbitrary ASN.1 for you: use Convert::ASN1; use Convert::ASN1::Debug; # now get the bytes of the object into $bytes ... # Dump them to stdout Convert::ASN1::asn_dump(\*STDOUT, $bytes); > furthermore, I have to create a download option, that it's possible that > anyone can > download this file from our web. In which file format should I store it? > .der? .cer? .crt? What format do the clients expect? :-) Typically, files ending in .crt are actually BER or DER encoded. That's probably the right format to use, but you might also find that you need PEM versions as well. These are basically base-64 encoded versions of the BER/DER objects, with some header and footer text (ie text files.) Cheers, Chris |
|
From: Mrvka A. <mr...@tu...> - 2001-08-23 09:14:34
|
dear ldap developers, I'm using the modules from Graham Barr (convert-ber,convert-asn1) and get access to my ldap server. with help I found certificates stored in the active directory and encoded them correctly. now I have the problem that I have to decode a certificate revocation list. the content of the field in the active directory is very strange and I don't know how I can decode it with Barr's module. with microsoft's program "ADSI Edit" I can filter for the object "crldistributionpoint" and want to look into the attribut "crlrevocationlist" which I want to decode. I attach an output when I search for the revocation list. I heard, we use CRL version 2, this for information. furthermore, I have to create a download option, that it's possible that anyone can download this file from our web. In which file format should I store it? .der? .cer? .crt? will you please be so kind and help me? best regards Mrvka Andreas -------------------------------------------------------------------- MRVKA Andreas TUEV AUSTRIA Tel.: +43 1 / 514 07 - 6050 IT - Group Fax : +43 1 / 514 07 - 6005 A-1015 Vienna, Krugerstrasse 16 email: mr...@tu... AUSTRIA web : www.tuev.at -------------------------------------------------------------------- |
|
From: Jim D. <ji...@du...> - 2001-08-22 20:48:08
|
For anyone attempting to use (Net::LDAP) 'start_tls' with Netscape DS, note that NS DS V3 and V4 do not support TLS, but iP DS V5 does. |
|
From: Graham B. <gb...@po...> - 2001-08-22 18:27:19
|
----- Forwarded message from "Roehrbein, Gerald" <Ger...@t-...> -----
Date: Wed, 22 Aug 2001 20:14:33 +0200
To: gb...@PO...
From: "Roehrbein, Gerald" <Ger...@t-...>
Subject: How to search LDAP
X-Mailer: Internet Mail Service (5.5.2653.19)
Hello Graham,
I've installed a LDAP Server and tried to get some information out of it.
But everything I tried did return any data.
Possibly I do not understand the method of searching. I'am using the IPSWITCH LDAP server for testing.
I've created 4 users and found them in the LDAP directory with the microsoft explorer inside the IPSWITCH LDAP
directory. So I'am sure that the LDAP contains four e-mail users.
But I do not know a way to search for them.
Using the examples I won't find someone.
use Net::LDAP qw(:all); # use for all code
use Net::LDAP::Util qw(ldap_error_name
ldap_error_text) ; # use for Error handling
$ldap = Net::LDAP->new("myhost") or die "$@";
@userToAuthenticate="root";
@passwd="root";
# $mesg = $ldap->bind("$userToAuthenticate",
password => "$passwd",
version => 3 ) or die "$@"; # use for changes/edits
$mesg = $ldap->bind( version => 3 ) or die "$@"; # use for searches
$mesg = $ldap->bind;
sub LDAPsearch
{
print "Searching...\n";
my ($ldap,$searchString,$attrs,$base) = @_ ;
# if they don't pass a base... set it for them
if (!$base ) { $base = "o=*, c=*"; print "No base\n"; }
# if they don't pass an array of attributes...
# set up something for them
if (!$attrs ) { $attrs = ['cn','mail' ]; print "No Attr\n"; }
my $result = $ldap->search (
base => "$base",
scope => "sub",
filter => "$searchString" ,
attrs => $attrs
) or die "$@";
}
my @Attrs = (); # request all available attributes
# to be returned.
my $result = LDAPsearch($ldap,"sn=*",\@Attrs,"o=myhost");
# This return always 0
print "Entries ",$result->count,"\n";
#------------
#
# handle each of the results independently
# ... i.e. using the walk through method
#
my @entries = $result->entries;
my $entr ;
foreach $entr ( @entries )
{
print "DN: ",$entr->dn,"\n";
#my @attrs = sort $entr->attributes;
my $attr;
foreach $attr ( sort $entr->attributes ){
#skip binary we can't handle
next if ( $attr =~ /;binary$/ );
print " $attr : ",$entr->get($attr),"\n";
}
#print "@attrs\n";
print "#-------------------------------\n";
}
#
# end of walk through method
#------------
$ldap->unbind or die "$@";
print "End.\n" ;
Thank's a lot for a helpfull hint. I'am a little bit confused about the way to search my LDAP.
----- End forwarded message -----
|
|
From: Graham B. <gb...@po...> - 2001-08-22 12:18:45
|
This is a known issue with the test.cfg file distributed with perl-ldap. Edit the file test.cfg and add a line at the end 1; Graham. On Wed, Aug 22, 2001 at 01:00:37PM +0200, Stephane Barizien wrote: > All I get from "nmake test" is: > > I:\Perl-5.6\bin\Perl.exe -Mblib -II:\Perl-5.6\lib -II:\Perl-5.6\lib > -e "use Test::Harness qw > (&runtests $verbose); $verbose=0; runtests @ARGV;" t\00ldif-entry.t > t\01canon_dn.t t\02filter.t t\50 > populate.t t\51search.t t\52modify.t t\53schema.t t\54dse.t t\55ssl.t > t\70sortctrl.t > Using I:/Perl-5.6/CPAN/build/perl-ldap-0.24/blib > t\00ldif-entry......test.cfg did not return a true value at t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\00ldif-entry.t line 4. > BEGIN failed--compilation aborted at t\00ldif-entry.t line 5. > t\00ldif-entry......dubious > Test returned status 255 (wstat 65280, 0xff00) > t\01canon_dn........ok > t\02filter..........ok > t\50populate........test.cfg did not return a true value at t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\50populate.t line 4. > BEGIN failed--compilation aborted at t\50populate.t line 6. > t\50populate........dubious > Test returned status 255 (wstat 65280, 0xff00) > t\51search..........test.cfg did not return a true value at t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\51search.t line 4. > BEGIN failed--compilation aborted at t\51search.t line 6. > t\51search..........dubious > Test returned status 255 (wstat 65280, 0xff00) > t\52modify..........test.cfg did not return a true value at t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\52modify.t line 4. > BEGIN failed--compilation aborted at t\52modify.t line 6. > t\52modify..........dubious > Test returned status 255 (wstat 65280, 0xff00) > t\53schema..........ok > t\54dse.............test.cfg did not return a true value at > t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\54dse.t line 4. > BEGIN failed--compilation aborted at t\54dse.t line 6. > t\54dse.............dubious > Test returned status 255 (wstat 65280, 0xff00) > t\55ssl.............test.cfg did not return a true value at > t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\55ssl.t line 4. > BEGIN failed--compilation aborted at t\55ssl.t line 6. > t\55ssl.............dubious > Test returned status 255 (wstat 65280, 0xff00) > t\70sortctrl........test.cfg did not return a true value at > t/common.pl line 4. > BEGIN failed--compilation aborted at t/common.pl line 45. > Compilation failed in require at t\70sortctrl.t line 25. > BEGIN failed--compilation aborted at t\70sortctrl.t line 25. > t\70sortctrl........dubious > Test returned status 255 (wstat 65280, 0xff00) > Failed Test Stat Wstat Total Fail Failed List of Failed > ---------------------------------------------------------------------- > --------- > t\00ldif-entry.t 255 65280 ?? ?? % ?? > t\50populate.t 255 65280 ?? ?? % ?? > t\51search.t 255 65280 ?? ?? % ?? > t\52modify.t 255 65280 ?? ?? % ?? > t\54dse.t 255 65280 ?? ?? % ?? > t\55ssl.t 255 65280 ?? ?? % ?? > t\70sortctrl.t 255 65280 ?? ?? % ?? > Failed 7/10 test scripts, 30.00% okay. 0/193 subtests failed, 100.00% > okay. > NMAKE : fatal error U1077: 'I:\Perl-5.6\bin\Perl.exe' : return code > '0x2' > Stop. > I:/PROGRA~1/MIAF9D~1/VC98/BIN/nmake.exe test -- NOT OK > Running make install > make test had returned bad status, won't install without force > > My perl is: > > Summary of my perl5 (revision 5 version 6 subversion 1) configuration: > Platform: > osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread > uname='' > config_args='undef' > hint=recommended, useposix=true, d_sigaction=undef > usethreads=undef use5005threads=undef useithreads=define > usemultiplicity=define > useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef > use64bitint=undef use64bitall=undef uselongdouble=undef > Compiler: > cc='cl', ccflags ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE - > DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT - > DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX', > optimize='-O1 -MD -DNDEBUG', > cppflags='-DWIN32' > ccversion='', gccversion='', gccosandvers='' > intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 > d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10 > ivtype='long', ivsize=4, nvtype='double', nvsize=8, > Off_t='off_t', lseeksize=4 > alignbytes=8, usemymalloc=n, prototype=define > Linker and Libraries: > ld='link', ldflags ='-nologo -nodefaultlib -release - > libpath:"I:\Perl-5.6\lib\CORE" -machine:x86' > libpth="I:\Perl-5.6\lib\CORE" > libs= oldnames.lib kernel32.lib user32.lib gdi32.lib > winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib > oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib > version.lib odbc32.lib odbccp32.lib msvcrt.lib > perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib > winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib > oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib > version.lib odbc32.lib odbccp32.lib msvcrt.lib > libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib > Dynamic Linking: > dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' > cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release - > libpath:"I:\Perl-5.6\lib\CORE" -machine:x86' > > > Characteristics of this binary (from libperl): > Compile-time options: MULTIPLICITY USE_ITHREADS > PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS > Locally applied patches: > ActivePerl Build 626 > Built under MSWin32 > Compiled at May 2 2001 01:31:15 > %ENV: > PERL_DL=" o=0" > @INC: > I:/Perl-5.6/lib > I:/Perl-5.6/site/lib > . > > > Any help would be appreciated. > > > Stephane Barizien > Senior Consultant > Oce' Print Logic Technologies S.A > R&D Creteil > 1 rue Jean Lemoine > F94015 CRETEIL CEDEX > > Phone: +33 (1) 48988231 > Fax: +33 (1) 48985450 > Internet e-mail: sb...@oc... > CompuServe: 100114,1527 > |
|
From: Graham B. <gb...@po...> - 2001-08-22 12:17:48
|
On Wed, Aug 22, 2001 at 08:05:28AM +0200, Nadja Winter wrote:
> Hi !
>=20
> Here=B4s a sample of my code:=20
Some comments
>=20
> #!/perl/bin/perl
> =20
<snip>
> $mesg =3D $ldap->bind() || die ("Konnte keine Verbindung zu $server he=
rstellen!");
bind will never return anything but true, you need to check
$mesg->code
> if ( $mesg->code() ) {("failed to bind with ",$mesg->code,"\n")}=20
Um, that will do nothing. Did you perhaps mean to put a warn or die in th=
ere ?
> $mesg =3D $ldap->search(=20
> base=3D> $base,
> scope =3D> 'sub',
> filter=3D> $filter,
> attrs=3D> @attrs
A common mistake. That should be \@attrs
> ) || die (print "search failed with ",$mesg->code,"\n");
Again, search will never return false, you need to test $mesg->code
Graham.
|
7902 messages has been excluded from this view by a project administrator.
