perl-ldap-dev

Re: Ldap without the module?

[Al L. <al....@fn...>]

What OS?

Activestate (www.activestate.com) offers the perl developers kits for a
few OSs that basically allow you to create a binary that can be run
anywhere. Versions available for HP-UX, Linux, Solaris, and Windows

See http://www.activestate.com/Products/Perl_Dev_Kit/ for more.

I use this for some LDAP apps for my windows users. Very handy.

	al

> "Bergeron, Jared" wrote:
> 
> Anyone here know how to use ldap on a box that doesn't have the LDAP
> module? Is there a way to do it right from Perl? Office politics wont
> allow installing of modules on this box :(
> 
> Thanks
> -Jared

-- 

Al Lilianstrom
CD/OSS/CSI
Al....@fn...

Ldap without the module?

[Bergeron, J. <jar...@op...>]

Anyone here know how to use ldap on a box that doesn't have the LDAP module?
Is there a way to do it right from Perl? Office politics wont allow
installing of modules on this box :(

Thanks
-Jared

Re: How to search upwards starting at a given DN?

[Jim H. <ha...@us...>]

I haven't seen a request for this before, but here is the strategy you
want to use:
  $mesg = $ldap->search ( base => $wholeorg, filter => "email=$mailaddr",
             attrs => ['Foo']);
  if ($mesg->entry(0)->get_value('Foo') eq 'bar') { dogoodstuff() }
  else { @dnstuff = split /\,/,$mesg->entry(0)->dn);
  whlie ($#dnstuff > 1) {
    $newbase = join ',', (shift @dnstuff);
    $mesg = $ldap->search ( base => $newbase, filter => 'Foo=*',
             attrs => ['Foo']);
    foreach $entry ($mesg->all_entries) {
      if ($entry->get_value('Foo') eq 'bar') { dogoodstuff() }
    }
  }

--Jim Harle
On Wed, 13 Feb 2002, Pop Melfi wrote:

>
> Apologies if this is a FAQ -- I searched the archives but couldn't see
> anything quite like what I wanted to do.
>
> I want to write a routine that returns the value of attribute 'Foo'
> for a given dn (which I'll find by setting a filter like
> "email=$mailaddr").
>
> If the attribute doesn't exist, I want to take the dn and search in
> it's parent for the same attribute.  (Now of course the filter will
> be different, presumably "Foo=*".)  And so on up the directory tree
> until I find it.
>
> Sounds like an exercise in recursion, but I only got the shrink-wrap
> off of perl::ldap an hour ago and it sounds like it might be a common
> requirement for other people.
>
> Has anyone cracked this and got sample code they'd be willing to share?
>
> TIA,
>
> --herb
>

How to search upwards starting at a given DN?

[Pop M. <her...@ho...>]

Apologies if this is a FAQ -- I searched the archives but couldn't see
anything quite like what I wanted to do.

I want to write a routine that returns the value of attribute 'Foo' 
for a given dn (which I'll find by setting a filter like 
"email=$mailaddr").

If the attribute doesn't exist, I want to take the dn and search in 
it's parent for the same attribute.  (Now of course the filter will
be different, presumably "Foo=*".)  And so on up the directory tree
until I find it.

Sounds like an exercise in recursion, but I only got the shrink-wrap
off of perl::ldap an hour ago and it sounds like it might be a common
requirement for other people.

Has anyone cracked this and got sample code they'd be willing to share?

TIA,

--herb

** LOW COST SOFTWARE DEVELOPMENT **

[BrainCoders.com <mai...@br...>]

Dear Internet User,

The eBusiness is changing the software applications and 
services landscape in a way that has not been seen 
earlier. Companies worldwide are waking up to the fact 
that the difference between just having an Online 
Presence and using the web as a strategic medium can mean 
all the difference to success. 

What this also means is that you need technology 
providers who understand the business implications of 
technology and can make sure that the solutions work with 
your existing business processes as also enable you to 
integrate new processes without massive investments in 
changing the whole Application Architecture. 

BrainCoders.com is a software company dedicated to 
designing and developing the highest-quality software to 
provide our clients with workable, maintainable and 
leading-edge solutions. We are specializing in IT 
services and software outsourcing. 

Our prices are one of the lowest on the market. We charge 
our customers from $8 to $15 per working hour depending 
on the length and complexity of the project.

Our leading principle is to consistently deliver on time 
and on budget. 
Our most value asset is our team of most committed and 
capable people. 

This dedication to high degrees of professionalism 
translates to innovative and cost effective solutions. 
The bottom line is that we help our clients gain 
competitive advantage and maintain their leading 
positions in their respective industries.

BrainCoders.com' software development services may be of 
special interest to the following groups of potential 
customers: 

Software houses that wish to reduce their development 
costs by means of outsourcing.

Companies not directly involved in software development, 
but which have or need their proprietary software 
business applications and wish to delegate the 
development, upgrades and support of these applications 
to a software company.

For more information please visit our web site by 
clicking the following link:

http://www.braincoders.com

If you are interested in our services, I would be happy 
to provide you with any information you may request.

I am looking forward to hearing from you.

Best Regards,

Vesselin Sladkov
BrainCoders.com
E-mail: sl...@br...

_________________________________________________________
This mailing is done only to people who have requested 
info from one of our sites, or downloaded
our Software. If you have received this email in error 
and you wish to be removed from future 
mailings, please reply with the subject "Remove" and our 
software will automatically block you 
from their future mailings.
_________________________________________________________

=?ks_c_5601-1987?B?W7GksO1dIHBlcmwtbGRhcLTUILChsbiw+MDlv6G8rSDGr7qwx9LAzrCht84gsO2x3rv9yLCwobG4uKYgurizu7XluLO0z7TZLg==?=

[<vi...@ya...>]

vsiz58fPvLy/5C4NCg0KsKGxuMD8ua6+98O8ILrxuvHE2riuvsYgwNS0z7TZLg0KDQqw7bHe
ILv9yLCwobG4uKYgvsbB1iDA+rfFx9EgsKGw3cC4t84gxvfDtSCwobG4sPi03L+hvK0gwffB
oiDGx7jFx9W0z7TZLg0KDQrA5bfVLCC87sbELCDEp7Trte4gMjAwMrPiILq9wMcgw9a9xbjw
tai3ziC18MDawM7AzLOqIMDnwfq46b+hvK0NCr/svPbH0SDBpsewwLsgvLHBpMfPv6kgxse4
xcfPsO0gwNa9wLTPtNkuDQoNCrHiwbggsKGxuMGhwMcgNDAlfjYwJcGktbUgwPq3xcfPsNQg
xse4xcfPsO0gwNa+xr/AtM8NCrLAIMfRufggyKjG5MDMwfa4piC6uL3DseIgudm2+LTPtNku
DQoNCrChsbiwoSDHyr/kx8+9w7jpILChsbjA/LmusKHAziDA+sjxv80gwMez7cfYIMHWvcq9
w7/AIA0KQS9TILimILrxt9THz7+pILy6vcfH0SDA2ry8t84gw9a8scC7ILTZIMfPsNq9wLTP
tNkuDQoNCmh0dHA6Ly93d3cudml2aS5jby5rci8NCg0KtOe757TCILHNu+cox88pv6EgsPzH
z7+pIL7Guau3sSDBpLq4tbUgsK6w7SDA1sH2vsq9wLTPtNkuDQq02bi4IMDMuN7AzyDA2rW/
w9/D4rHit84gwMy43sDPuLggwKW758DMxq6/obytIMPfw+LHz7+0vcC0z7TZDQq89r3FsMW6
ziDHz73HutDAuiC/qbHiIGh0dHA6Ly93d3cuY3J1c2FkZS5jby5rci9yZWplY3QvcmVqZWN0
LnBocD9pZD0yMjQxJmF1dGg9YjZlMzIzMjBmYTZiYzVhNTg4YjkwMTgzYjk1ZGMwMjgmbWFp
bD1wZXJsLWxkYXBAbWFpbC5tZWQuY29ybmVsbC5lZHUmbW9kZT13cml0ZSC4piDFrLivx9gg
wda9yr3Dv8AuDQoNCg==

getting "protocol error" when attempting to modify()?

[Mathew H. <hen...@th...>]

Hi,
    I'm writing a web form interface for our local LDAP dir, and I've 
been able to pull LDAP info using Net::LDAP to create the forms, but 
when handling modify requests I get "Protocol Error" :p  I'm running 
OpenLDAP v2.0.17 and I'm able to remote client in with my root DN and 
secret (using simple authentication) with other apps (ldapbrowser, 
directory_administrator).

Some of the debug 12 output:

Net::LDAP=HASH(0x83289ac) sending:
0000   48: SEQUENCE {
0002    1:   INTEGER = 1
0005   43:   [APPLICATION 0] {
0007    1:     INTEGER = 2
000A   21:     STRING = 'cn=root,o=netomat.net'
0021   15:     [CONTEXT 0]
0023     :       **** secret ****
0032     :   }
0032     : }
Net::LDAP=HASH(0x83289ac) received:
0000   12: SEQUENCE {
0002    1:   INTEGER = 1
0005    7:   [APPLICATION 1] {
0007    1:     ENUM = 0
000A    0:     STRING = ''
000C    0:     STRING = ''
000E     :   }
000E     : }
Net::LDAP=HASH(0x83170bc) sending:
0000   48: SEQUENCE {
0002    1:   INTEGER = 2
0005   43:   [APPLICATION 0] {
0007    1:     INTEGER = 2
000A   21:     STRING = 'cn=root,o=netomat.net'
0021   15:     [CONTEXT 0]
0023     :       **** secret ****
0032     :   }
0032     : }
Net::LDAP=HASH(0x83170bc) received:
0000   12: SEQUENCE {
0002    1:   INTEGER = 2
0005    7:   [APPLICATION 1] {
0007    1:     ENUM = 0
000A    0:     STRING = ''
000C    0:     STRING = ''
000E     :   }
000E     : }

Then it seems to read properly, but when I try to update....

Net::LDAP=HASH(0x83170bc) sending:
0000    5: SEQUENCE {
0002    1:   INTEGER = 4
0005    0:   [APPLICATION 2]
0007     : }
[dn]: uid=hennessy,ou=people,o=netomat.net
replace: [initials] -> [A]
Net::LDAP=HASH(0x83170bc) sending:
0000   67: SEQUENCE {
0002    1:   INTEGER = 5
0005   62:   [APPLICATION 6] {
0007   36:     STRING = 'uid=hennessy,ou=people,o=netomat.net'
002D   22:     SEQUENCE {
002F   20:       SEQUENCE {
0031    1:         ENUM = 2
0034   15:         SEQUENCE {
0036    8:           STRING = 'initials'
0040    3:           SET {
0042    1:             STRING = 'A'
0045     :           }
0045     :         }
0045     :       }
0045     :     }
0045     :   }
0045     : }

I get a code() of 1 and error() of "Protocol Error" returned and no 
changes made :(

Here's some output from slapd:
Feb 11 13:39:37 eddie slapd[12182]: conn=64958 op=0 BIND 
dn="CN=ROOT,O=NETOMAT.NET" method=128
Feb 11 13:39:37 eddie slapd[12182]: conn=64958 op=0 RESULT tag=97 err=0 
text=
Feb 11 13:39:37 eddie slapd[10584]: daemon: conn=64959 fd=35 connection 
from IP=127.0.0.1:46582 (IP=0.0.0.0:34049) accepted.
Feb 11 13:39:37 eddie slapd[10584]: conn=-1 fd=33 closed
Feb 11 13:39:37 eddie slapd[13388]: conn=64959 op=0 BIND 
dn="CN=ROOT,O=NETOMAT.NET" method=128
Feb 11 13:39:37 eddie slapd[13388]: conn=64959 op=0 RESULT tag=97 err=0 
text=
Feb 11 13:39:37 eddie slapd[13779]: conn=64959 op=1 SRCH 
base="ou=people,o=netomat.net" scope=1 filter="(uid=hennessy)"
Feb 11 13:39:37 eddie slapd[13779]: conn=64959 op=1 SEARCH RESULT 
tag=101 err=0 text=
Feb 11 13:39:37 eddie slapd[12145]: conn=64959 op=2 UNBIND
Feb 11 13:39:37 eddie slapd[12145]: conn=-1 fd=35 closed

It doesn't appear to have even attempted a MOD.  I get the same Protocol 
Error on modify ops when binding with the rootdn/rootpw OR anonymously, 
so it smells like somewhere it's dropping or not using the rootdn/rootpw 
or silently failing the bind and backtracking to anonymous bind...

I'm feeding it the rootdn and rootpw secret (in cleartext on the localhost):

# $ldapcfg is a hashref containing default config values
# create connection to LDAP
$ldap=Net::LDAP->new(   $ldapcfg->{'server'},
                        port => $ldapcfg->{'port'},
                        async=>1,
                        debug=>12,
                     );
# bind to bind DN
if ($ldapcfg->{'binddn'}) {
        $msg=$ldap->bind(       dn => 'cn=root,o=netomat.net'},
                                password => 'secret', # where secret is 
the secret word in cleartext
                        );}

Then I get the entry:
my $results = $ldap->search(
                base    => $ldapcfg->{'basedn'},
                filter  => "($ldapcfg->{'userattr'}=$username) ",
                scope   => "one",
                );
}
my $entry = $results->pop_entry ||die;

Then, I do the replace (using attributes modified listed in the 
$attributes hashref, and a CGI object ref where parameter names are 
proper LDAP attribute names and values are lists of attribute values):

foreach my $attr (keys %$attrlist) {
                print STDERR "replace: [$attr] -> [". 
join("|",$cgi->param($attr)) . "]\n";
                $msg=$ldap->modify( $entry->dn(), replace => 
{"$attr"=>$cgi->param($attr)} );
                $msg=$msg->code() .":". $msg->error() if ($msg->code());
                Die("Could not replace! [$msg]") if ($msg);
}

For everything I try, I get the Die page saying "Could not replace! 
[1:Protocol Error]"..  What am I doing wrong?

Any help appreciated!  Please cc: me as I'm not on the list (the project 
page on sourceforge said mailing Qs to the maillist is OK)..

Cheers,
- Matt

ps: system is Mandrake Linux 8.1 with stock Perl (no threading) and 
up-to-date Net::LDAP courtesy of CPAN..

Re: [Fwd] possible bug, with exercising code, in Net::LDAP::Schema

[Clif H. <cl...@di...>]

There are several problem areas with the schema code.

In fact the schema code is being completely reworked
for the next release.

Clif




> 
> ----- Forwarded message from as...@uf... -----
> 
> Date: Sun, 10 Feb 2002 17:05:07 -0500
> To: gb...@po...
> From: as...@uf...
> Subject: possible bug, with exercising code, in Net::LDAP::Schema
> 
> 
> 
> Graham,
> 
> I think I may have stumbled across a bug in Net::LDAP::Schema.  I'd like your
> feedback.  In some circumstances, Net::LDAP::Schema is reporting multiple OIDs
> for attributes which I do not believe are in fact multiply defined.  In each
> of these thought-erroneous cases, one of the OIDs reported is the correct one,
> and the other is a SYNTAX oid, not necessarily the appropriate syntax for the
> attribute in question.
> 
> I started to observe this behavior after I began inserting X-records in my
> OpenLDAP schema, to help document a central project here at the University.
> 
> I have left in the name of the development LDAP server, which should stay
> up. If you run this script, you ought to get output looking like:
> 
> [TELEPHONENUMBER]              []                             [2.5.4.20] [1.3.6.1.4.1.1466.115.121.1.50] 
> 
> The first field is an attribute name I supply.
> The second is the undef returned  when I call $schema->name() on it.
> The remaining fields are the OIDs returned by name2oid.
> 
> 
> If you think I'm smoking crack, please tell me so.  I don't think my schema is
> actually corrosive in some way. ;) 
> 
> - Allen S. Rout
> 
> 
> #!/usr/local/bin/perl -- -*-Perl-*-
> 
> use FileHandle;
> use Net::LDAP;
> use Net::LDAP::Schema;
> 
> $ldap_server = "spnode33.nerdc.ufl.edu";
> 
> my $ldap = new Net::LDAP ($ldap_server);
> 
> my $schema = $ldap->schema();
> 
> $oatr = 'TELEPHONENUMBER';
> #foreach $attr($oatr, $schema->attributes() )
> foreach $attr( $oatr) 
>   {
>     print STDERR "[$attr]"." "x(29-length($attr));
>     $nattr = $schema->name($attr);
>     print STDERR "[$nattr]"." "x(29-length($nattr));
>     my @oid = $schema->name2oid($attr);
>     foreach $o (@oid)
>       {print STDERR "[$o] "; }
>     print STDERR "\n";
>   }
> exit 1;
> 
> 
> ----- End forwarded message -----
> 
> 

[Fwd] possible bug, with exercising code, in Net::LDAP::Schema

[Graham B. <gb...@po...>]

----- Forwarded message from as...@uf... -----

Date: Sun, 10 Feb 2002 17:05:07 -0500
To: gb...@po...
From: as...@uf...
Subject: possible bug, with exercising code, in Net::LDAP::Schema



Graham,

I think I may have stumbled across a bug in Net::LDAP::Schema.  I'd like your
feedback.  In some circumstances, Net::LDAP::Schema is reporting multiple OIDs
for attributes which I do not believe are in fact multiply defined.  In each
of these thought-erroneous cases, one of the OIDs reported is the correct one,
and the other is a SYNTAX oid, not necessarily the appropriate syntax for the
attribute in question.

I started to observe this behavior after I began inserting X-records in my
OpenLDAP schema, to help document a central project here at the University.

I have left in the name of the development LDAP server, which should stay
up. If you run this script, you ought to get output looking like:

[TELEPHONENUMBER]              []                             [2.5.4.20] [1.3.6.1.4.1.1466.115.121.1.50] 

The first field is an attribute name I supply.
The second is the undef returned  when I call $schema->name() on it.
The remaining fields are the OIDs returned by name2oid.


If you think I'm smoking crack, please tell me so.  I don't think my schema is
actually corrosive in some way. ;) 

- Allen S. Rout


#!/usr/local/bin/perl -- -*-Perl-*-

use FileHandle;
use Net::LDAP;
use Net::LDAP::Schema;

$ldap_server = "spnode33.nerdc.ufl.edu";

my $ldap = new Net::LDAP ($ldap_server);

my $schema = $ldap->schema();

$oatr = 'TELEPHONENUMBER';
#foreach $attr($oatr, $schema->attributes() )
foreach $attr( $oatr) 
  {
    print STDERR "[$attr]"." "x(29-length($attr));
    $nattr = $schema->name($attr);
    print STDERR "[$nattr]"." "x(29-length($nattr));
    my @oid = $schema->name2oid($attr);
    foreach $o (@oid)
      {print STDERR "[$o] "; }
    print STDERR "\n";
  }
exit 1;


----- End forwarded message -----

=?ks_c_5601-1987?B?W8irurhdICez18a8wfAgvLGwxcf1uO0nv6Egwvy/qcfPseI=?=

[<kj...@si...>]

ICez18a8wfAgvLGwxcf1uO0nv6Egwvy/qcfPseIgIL+pt6+60MDHIMfjtvS++MDMILjewM8g
teW4sCCwzcC7ILjVwPogu+ew+iC15biztM+02S4NCiBwZXJsLWxkYXC01MDHILjewM/B1rzS
KHBlcmwtbGRhcEBtYWlsLm1lZC5jb3JuZWxsLmVkdSm0wiDAzCDApcbkwMzB9ihodHRwOi8v
d3d3LnBlcmwuY29tL0NQQU4tbG9jYWwvbW9kdWxlcy9ieS1hdXRob3JzLzAwd2hvaXMuaHRt
bCm/obytILq4sO0gwMy3uLDUILjewM/AuyC15biztM+02S4NCiC43sDPwda80rTCILmrwNvA
p7fOILjwvsbB+CCwzcDMv8C45yCx2yDA0LHiuKYgv/jEoSC+ysC4vcO46SCwoiBzaXRlv6G8
rSDBprD4tce0wiC89r3FsMW6zrimIMWsuK/Hz73DsMWzqiwNCiC+xrehwMcgvPa9xbDFus64
piDFrLivx8+9yr3Dv+QuDQogvPa9xbDFus4gLS0+ICANCsG4sObHz7TCILPXxrzB8CC/qbev
utAsIL7Is+fHz73KtM+x7iENCiANCiAnwvy1yCAgwfa1tcDauKYgw6O0wiC48MDTJyDEq8bk
sKEgwfazrSAxv/kgMTnAz7rOxc0gv6m3r7rQv6Gw1CAnwfa1tcDaIMPfw7Ugwvy/qcfPseIn
IMS3xuTAzsC7ICDG7sSjILDhsPq0wiDG3CCw7bmrwPvAzL76vcC0z7TZLiC/qbevutDAzCDB
pr3Dx9EgtOvF67fJILT2uPHAuiDBpLi7ILTZvufHz7DtLCCx17evuOm8rSCzqrbzuKYgsMbB
pMfPtMIgwMew3ywgsdcgsKG/7rWlvK21tSCw5sGmuKYgwN8gIL7GtMIgJ7DmwaYgtOvF67fJ
JyAnQ0VPILTrxeu3ySfAuyC/+MfPtMIguPG80riusKEguLm+0r3AtM+02S4NCiANCiCx17ev
s6ogwPq3r7OqILPXxrzB8CC/qbevutDAxyC25sC6ILnOwda058DHILDmv+wsILG5uc7C/L+p
sOa8scGmt84gwMy+7sGuvt8gsdcguvvAuyC538fSILz2sKEgwNa9wLTPtNkuILnOwda057+h
vK20wiDAzLnMIMH2s60gN8DPus7FzSAgsbm5zryxsMXAzrTcILD4uPC/oSC16b7usKEsIL/A
tMIgMjXAzyDBpsHWKCAyNsDPIL/vu+ogsaTB1iwgMjfAzyC068D8KbimIMO5uNO4rrfOIDS/
+SA5wM8ovK2/7ymx7sH2IMD8sbm/obytIMDPud2xubnOwLsgu/O067fOICAzuLggNcO1uO3A
xyC8sbDFwM603MC7IMPfw7csILyxud/EySC1xSDA1r3AtM+02S4gv+y4riCz18a8wfC16cC6
ILnOwda05yDIqMbkwMzB9ihodHRwOi8vd3d3Lm1pbmpvby5vci5rcim3ziDBorzTx8+8xbyt
ILTruMHAxyAns9fGvMHwILyxsMUgx/W47Se/oSDC/L+px8+9w7HiuKYgsKOw7sj3ILTnus7H
1bTPtNkuICANCiANCiC2x8fRICAnwvy1yCDB9rW1wNq4piDDo7TCILjwwNMnIMSrxuQoaHR0
cDovL2NhZmUuZGF1bS5uZXQvVHJ1ZUxlYWRlcinAxyAgw9/DtbDUvcPGx7+htbUgtem+7rCh
LCCx2cDav6Egvce9w7XHsO0gwNa0wiC067yxIMjEurggVFbF5LfQILDhsPogvu60wCDIxLq4
sKEgtNnAvcDHIDOwsyDH17jxv6EgwPvH1cfRwfa1tSDAwLTkx9ggwda9w7jpILDtuL+w2r3A
tM+02S4NCg0KDQoNCiAgDQo=

[±¤°í!!]Á¦Ç° Æò°¡(Á¦Ç°¸ð´ÏÅÍ)¿ä¿ø ¸ðÁý

[°í¿îµé <ma...@go...>]

<HTML>
<HEAD>
<META content="text/html; charset=ks_c_5601-1987" http-equiv=Content-Type>
<STYLE> p, font, span { line-height:120%; margin-top:0; margin-bottom:0; }</STYLE>
</HEAD><BODY>
<p><b><font size="4" color="#3300ff"><a href="Http://www.goundle.co.kr">고운들 쇼핑몰</a></font><a href="Http://www.goundle.co.kr">(비데/연수기/정수기)</a></b><br>
</p>
<p> </p>
<p><font size="4"><b><font size="3">제품 평가(제품모니터)요원 모집 </font></b></font> </p>
<p><font size="2">건강한 삶을 위한 모든 것, 건강용품 전문 쇼핑몰 고운들입니다. <br>
  오픈을 기념하여 당 쇼핑몰의 모든 제품들에 대한 고객님들의 엄중한 평가와 <br>
  고객만족 서비스 구현에 도움을 얻고자 '고객의 입장'에서 '고객의 말씀'을 <br>
  전달해 주실 [제품 평가 요원]을 아래와 같이 모집하고자 합니다. </font></p>
<p><b><font size="3">1. 모집대상</font></b> <br>
  <font size="2">- 건강에 관심이 많거나 지병 및 약체로 고생하시는 분, <br>
  체질개선을 원하시는 분 그외 기타 동증을 호소하시는 분들 </font><br>
  <b><font size="3">2. 모집인원</font> <font size="3"><br>
  </font></b><font size="3"> <font size="2">- 제품별 각10명</font> </font><b><font size="3"><br>
  3. 모집기간 <br>
  </font></b><font size="2">- 2002년 2월 1일(금)~ 3월 25일(월) </font><b><font size="3"><br>
  4. 합격자 발표 <br>
  </font></b><font size="2">- 2002년 3월 27일(수) <br>
  모니터 요원으로 선발되신 분은 제품보증금(제품별 별도적용)을<br>
  당사로 입금 완료 후 정식 모니터 요원으로 활동 </font><b><font size="3"><br>
  5. 활동방법 <br>
  </font></b><font size="2">당 쇼핑몰의 제품을 사용한 소감을 당사 홈페이지 모니터링 보고서에 등록 <br>
  -제품 성능 향상을 위한 아이디어 제공(수시접수가능) </font><b><font size="3"><br>
  6. 제품 사용기 등록 시기 <br>
  </font></b><font size="2">(제품의 효능을 진실되게 상세히 기록 바람) </font><font size="3"><br>
  <font size="2">-2주 사용 후 <br>
  -1개월 사용 후 <br>
  -2개월 사용 후 <br>
  -3개월 이상 사용 후</font> </font><b><font size="3"><br>
  7. 모니터 요원 혜택 <br>
  </font></b><font size="2">-당 쇼핑몰 제품 구매 시 평생 특별할인(제품별 별도적용) <br>
  -제품 취급 딜러권 우선 배정 <br>
  -기타(합격자에 한하여 통보) <br>
  </font></p>
<p>&nbsp;</p>
<p><b><font size="4" color="#3300ff"><a href="Http://www.goundle.co.kr">고운들 쇼핑몰</a></font><a href="Http://www.goundle.co.kr">(비데/연수기/정수기)</a></b></p>
<p><a href="Http://www.goundle.co.kr"><b>Http://www.goundle.co.kr</b></a><br>
  <FONT 
color=#0000ff>************************************************************ *********************<BR>
  </FONT><FONT color=navy>본 메일은 정보통신부 권고사항에 의거,제목에 [광고]라 표시된 광고메일입니다.<BR>
  허락없이 광고메일을 보내드려 죄송하오며,정중히 양해부탁드리겠습니다.<BR>
  하단의 수신거부를 클릭하시면 다시는 메일 발송이 되지않습니다.</FONT></p>
</BODY>
</HTML>

On Tue, Aug 01, 2000 at 03:02:56PM -0500, Mark Wilcox wrote: > The server likely won't return any more than 1000 entries (though this is > a server configuration) unless you're binded to the server as the > directory super-user or using a server control like Paged Control, or the > more popular Virtual List View. > > You can also limit the results by setting a more direct base > (e.g. ou=people,o=unt.edu instead of just o=unt.edu), scope and/or a > filter that's more specific. > > BTW Graham, most of the other LDAP APIs have a parameter in search to > limit the number of results. So does Net::LDAP, the sizelimit option. I just forgot about it :)

[Darryl C P. <da...@mi...>]

Content-Type: multipart/alternative;
 boundary="------------030807020302050603060500"


--------------030807020302050603060500
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

If I'm using Paged Search and having to re-send the search request to 
the server with the
cookie to get the next page, does this mean that as long as the 
sizelimit is greater than the page size, there will always be a "next 
page" until the entire contents of the directory have been consumed?  
Even if there are server side limits?


--Darryl
------------------------------------------------------------------------

On Tue, Aug 01, 2000 at 03:02:56PM -0500, Mark Wilcox wrote:
> The server likely won't return any more than 1000 entries (though this is
> a server configuration) unless you're binded to the server as the
*> directory super-user or using a server control like Paged Control, or the
 *> more popular Virtual List View.
> 
> You can also limit the results by setting a more direct base
> (e.g. ou=people,o=unt.edu instead of just o=unt.edu), scope and/or a
> filter that's more specific.
> 
> BTW Graham, most of the other LDAP APIs have a parameter in search to
> limit the number of results.

>So does Net::LDAP, the sizelimit option. I just forgot about it :)

>It's also not documented that well, which I have hopefully fixed for .20

Graham.

------------------------------------------------------------------------

--------------030807020302050603060500
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<html><head></head><body>If I'm using Paged Search and having to re-send the search request to the server with the<br>
cookie to get the next page, does this mean that as long as the sizelimit
is greater than the page size, there will always be a "next page" until the
entire contents of the directory have been consumed?&nbsp; Even if there are server
side limits?<br>
<br>
<br>
--Darryl<br>
<hr><!--X-Head-Body-Sep-End--><!--X-Body-of-Message--><pre>On Tue, Aug 01, 2000 at 03:02:56PM -0500, Mark Wilcox wrote:<br>&gt; The server likely won't return any more than 1000 entries (though this is<br>&gt; a server configuration) unless you're binded to the server as the<br><a name="mfs"><b>&gt; directory super-user or using a server control like Paged Control, or the<br> </b></a>&gt; more popular Virtual List View.<br>&gt; <br>&gt; You can also limit the results by setting a more direct base<br>&gt; (e.g. ou=people,o=unt.edu instead of just o=unt.edu), scope and/or a<br>&gt; filter that's more specific.<br>&gt; <br>&gt; BTW Graham, most of the other LDAP APIs have a parameter in search to<br>&gt; limit the number of results.<br><br>&gt;So does Net::LDAP, the sizelimit option. I just forgot about it :)<br><br>&gt;It's also not documented that well, which I have hopefully fixed for .20<br><br>Graham.<br><br></pre>
<!--X-MsgBody-End--><!--X-Follow-Ups--><!--X-Follow-Ups-End--><!--X-References-->
<hr></body></html>
--------------030807020302050603060500--

Re: [Fwd] Re: Looking for Perl extension

[Darryl C P. <da...@co...>]

Figured it out.  But thanks for fowarding the message anyway, Graham.

--Darryl

---- Original message ----
>Date: Thu, 7 Feb 2002 05:57:31 +0000
>From: Graham Barr <gb...@po...>  
>Subject: [Fwd] Re: Looking for Perl extension  
>To: LDAP Mailing List <per...@li...>
>Cc: Darryl C Price <da...@co...>
>
>----- Forwarded message from Darryl C Price <da...@co...> -----
>
>Date: Wed, 6 Feb 2002 20:20:59 -0500
>To: Graham Barr <gb...@po...>
>From: Darryl C Price <da...@co...>
>Subject: Re: Looking for Perl extension
>
>Graham,
>
>Thanks for the pointer.  I do have a question for you though.  I'm trying to
>implement simple paged searched results in an application and am having a tough
>time with callbacks (to process the returned entries).  There don't seem to be
>ANY examples of how this is done anywhere on the internet and the man
>pages/documentation are no help. Are there examples that you can point to?
>
>--TIA
>Darryl
>
>---- Original message ----
>>Date: Sun, 3 Feb 2002 20:11:25 +0000
>>From: Graham Barr <gb...@po...>  
>>Subject: Re: Looking for Perl extension  
>>To: Darryl C Price <da...@co...>
>>
>>http://search.cpan.org/search?module=Net::LDAP::Schema
>>
>>On Sat, Feb 02, 2002 at 12:55:32AM -0800, Darryl C Price wrote:
>>> Graham,
>>> 
>>> I've been trying to find Net::LDAP::Schema everywhere ... and have been 
>>> unsucessful ...
>>> Could you provide me with a pointer?
>>> 
>>> --Thanks in advance,
>>> Darryl
>>> 
>Darryl C Price
>Conversant Systems, LLC
>Email:  da...@co...
>Phone:  (513)768-3120
>Fax:    (513)984-3947
>Web:    http://www.convsys.com
>
>----- End forwarded message -----
Darryl C Price
Conversant Systems, LLC
Email:  da...@co...
Phone:  (513)768-3120
Fax:    (513)984-3947
Web:    http://www.convsys.com

AW: ldap_error_name bug?

[Stefan P. <st...@ra...>]

Perl 5.6.1 build 626
windows Nt server 4.0

-----Ursprüngliche Nachricht-----
Von: per...@li...
[mailto:per...@li...]Im Auftrag von Graham
Barr
Gesendet: Donnerstag, 7. Februar 2002 10:58
An: Stefan Poschenrieder
Cc: LDAP Mailing List
Betreff: Re: ldap_error_name bug?


It works fine for me here. What version of perl are you using and on
what OS ?

Graham.

On Thu, Feb 07, 2002 at 10:39:23AM +0100, Stefan Poschenrieder wrote:
> Hello,
>
> I just upgraded to Net::LDAP 0.25 (from 0.17)
> now there seems to be a problem with ldap_error_name in Util.pm
>
> when i do
> print ldap_error_name(0);
>  there is the output:
> LDAP error code 0(0x00)
>
> which should only come, when the error code is not available.
>
> but when i paste the old ldap_error_name function into the new Util.pm
> and do
> print ldap_error_name(0);
> then there come the output
> LDAP_SUCCESS
>
> correctly
>
> Is this a bug, or what am i doing wrong?
>
> cheers,
> stefan
>
>
> -----Ursprüngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von Graham
> Barr
> Gesendet: Donnerstag, 7. Februar 2002 07:25
> An: LDAP Mailing List
> Betreff: Minimum supported perl version
>
>
> I think it is time that we stopped holding ourselves back and drop
> support for running Net::LDAP under perl5.004
>
> So unless someone speaks up with a very compelling argument, the
> next release of perl-ldap will require at least perl5.005_03
>
> Graham.
>
>

Re: ldap_error_name bug?

[Graham B. <gb...@po...>]

It works fine for me here. What version of perl are you using and on
what OS ?

Graham.

On Thu, Feb 07, 2002 at 10:39:23AM +0100, Stefan Poschenrieder wrote:
> Hello,
> 
> I just upgraded to Net::LDAP 0.25 (from 0.17)
> now there seems to be a problem with ldap_error_name in Util.pm
> 
> when i do
> print ldap_error_name(0);
>  there is the output:
> LDAP error code 0(0x00)
> 
> which should only come, when the error code is not available.
> 
> but when i paste the old ldap_error_name function into the new Util.pm
> and do
> print ldap_error_name(0);
> then there come the output
> LDAP_SUCCESS
> 
> correctly
> 
> Is this a bug, or what am i doing wrong?
> 
> cheers,
> stefan
> 
> 
> -----Ursprüngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von Graham
> Barr
> Gesendet: Donnerstag, 7. Februar 2002 07:25
> An: LDAP Mailing List
> Betreff: Minimum supported perl version
> 
> 
> I think it is time that we stopped holding ourselves back and drop
> support for running Net::LDAP under perl5.004
> 
> So unless someone speaks up with a very compelling argument, the
> next release of perl-ldap will require at least perl5.005_03
> 
> Graham.
> 
> 

ldap_error_name bug?

[Stefan P. <st...@ra...>]

Hello,

I just upgraded to Net::LDAP 0.25 (from 0.17)
now there seems to be a problem with ldap_error_name in Util.pm

when i do
print ldap_error_name(0);
 there is the output:
LDAP error code 0(0x00)

which should only come, when the error code is not available.

but when i paste the old ldap_error_name function into the new Util.pm
and do
print ldap_error_name(0);
then there come the output
LDAP_SUCCESS

correctly

Is this a bug, or what am i doing wrong?

cheers,
stefan


-----Ursprüngliche Nachricht-----
Von: per...@li...
[mailto:per...@li...]Im Auftrag von Graham
Barr
Gesendet: Donnerstag, 7. Februar 2002 07:25
An: LDAP Mailing List
Betreff: Minimum supported perl version


I think it is time that we stopped holding ourselves back and drop
support for running Net::LDAP under perl5.004

So unless someone speaks up with a very compelling argument, the
next release of perl-ldap will require at least perl5.005_03

Graham.

Minimum supported perl version

[Graham B. <gb...@po...>]

I think it is time that we stopped holding ourselves back and drop
support for running Net::LDAP under perl5.004

So unless someone speaks up with a very compelling argument, the
next release of perl-ldap will require at least perl5.005_03

Graham.

[Fwd] Re: Looking for Perl extension

[Graham B. <gb...@po...>]

----- Forwarded message from Darryl C Price <da...@co...> -----

Date: Wed, 6 Feb 2002 20:20:59 -0500
To: Graham Barr <gb...@po...>
From: Darryl C Price <da...@co...>
Subject: Re: Looking for Perl extension

Graham,

Thanks for the pointer.  I do have a question for you though.  I'm trying to
implement simple paged searched results in an application and am having a tough
time with callbacks (to process the returned entries).  There don't seem to be
ANY examples of how this is done anywhere on the internet and the man
pages/documentation are no help. Are there examples that you can point to?

--TIA
Darryl

---- Original message ----
>Date: Sun, 3 Feb 2002 20:11:25 +0000
>From: Graham Barr <gb...@po...>  
>Subject: Re: Looking for Perl extension  
>To: Darryl C Price <da...@co...>
>
>http://search.cpan.org/search?module=Net::LDAP::Schema
>
>On Sat, Feb 02, 2002 at 12:55:32AM -0800, Darryl C Price wrote:
>> Graham,
>> 
>> I've been trying to find Net::LDAP::Schema everywhere ... and have been 
>> unsucessful ...
>> Could you provide me with a pointer?
>> 
>> --Thanks in advance,
>> Darryl
>> 
Darryl C Price
Conversant Systems, LLC
Email:  da...@co...
Phone:  (513)768-3120
Fax:    (513)984-3947
Web:    http://www.convsys.com

----- End forwarded message -----

Re: Saving references in a multi-part form for later use #2

[<rg...@di...>]

I'm not sure that I'm thinking along the same line of reasoning that you are
but I'll share with you what I do at our company.

Because of the statelessness of the web, you really can't pass from one form
to the other the LDAP entry object.  What you can do though is pass key
information such as the DN or a unique identifying attribute.  This means that
you'll have to do a subsequent search each time but the overhead is minimal.

(pardon the generic rather than perl code example)

So how about this flow:

  [ if a unique identifier is passed ] -> do LDAP search for match,
					  display attribute information
					  and exit.

  [ if no {Login} value is passed ] -> print form asking for {Login} value to
					search for

  [ if {Login} value is passed  ] ->  do LDAP search for match

		[ if more than one match found ] -> build selection form
						    use DN or some other
						    unique identifying
attribute
						    as the value

		[ if only one match found ] -> display attribute information

		[ if no matchs found ] -> print form asking for a different
					  {Login} value

The forms mentioned above have the 'action' as this same code.

There are several variations that we implement depending on objectclass,
expected data retrieved and audience.


Lastly, if this doesn't address your question, my apologies.


Rusty


On Feb 6,  7:12pm, Cox, Todd (NCI) wrote:
> Subject: Saving references in a multi-part form for later use #2
> Hello all,
>
> I am still banging my head against the wall since my last post concerning
> this message. I am trying to save an entry object in between forms and am
> having a metal meltdown trying to figure out how to do it. The snippet of
> code is:
>
> $input_name = param('Login Name');
> $r = LDAPsearch("cn=$input_name","o=matrix");
>
> if(!param('Login Name')){
> 	print "Login Name field was left blank. Please go back and enter a
> login name to search on.<br>";
> 	print submit(-name=>'go',-value=>'Start Page') if $current_page > 0;
> 	$flag = 1;
> }elsif($r->entries){
> 	print "Current page: $page_name<br>";
> 	print "<br>User(s) matching search request:<br>";
>
> 	@array = $r->entries;
> 	foreach my $entry (@array)
> 	{
> 		$user = $entry->dn;
> 		push(@userList,$user);
> 	}
> 	print popup_menu(-name=> 'Login Name',-size=>1, -VALUES => [
> @userList ] );
> 	$flag=1;
> 	print "<p>Please select a user to continue.<br>",
> 		hidden(-name=>'page',-value=>$current_page,-override=>1),
> 		submit(-name=>'go',-value=>'Previous Page'),
>         		submit(-name=>'go',-value=>'Get Attributes');
> }else{
> 	print p("Attribute Information for: "), param('Login Name');
> 	# this is where I want to display the data for the user selected in
> the popup_menu.
>
>
> }
>
> Any thoughts would be appreciated.
>
> Todd Cox
> National Cancer Institute
> Rockville, MD
>
>
>
>-- End of excerpt from Cox, Todd (NCI)



-- 

	
Russell Biggs	(Rusty)		Internet: r-...@ti...
6500 Chase Oaks Blvd, M/S 8412
Texas Instruments
Plano Tx	75023	

	Phone:  (972) 575-0826
	Fax:	(972) 575-4853
	Home Page: http://dirtest3.itg.ti.com/~rgb
	Calendar:  http://dirtest3.itg.ti.com/cgi-bin/synchronize.cgi?name=Russell+Biggs

	"I sense much NT in you... 
	 NT leads to bluescreen... 
	 Bluescreen leads to downtime...
	 Downtime leads to suffering... 
	 NT is the path to the darkside..."
			...Unknown UNIX Jedi 

Saving references in a multi-part form for later use #2

[Cox, T. (NCI) <tc...@ma...>]

Hello all,

I am still banging my head against the wall since my last post concerning
this message. I am trying to save an entry object in between forms and am
having a metal meltdown trying to figure out how to do it. The snippet of
code is:

$input_name = param('Login Name');
$r = LDAPsearch("cn=$input_name","o=matrix");		
		
if(!param('Login Name')){
	print "Login Name field was left blank. Please go back and enter a
login name to search on.<br>";
	print submit(-name=>'go',-value=>'Start Page') if $current_page > 0;
	$flag = 1;
}elsif($r->entries){
	print "Current page: $page_name<br>";
	print "<br>User(s) matching search request:<br>";
						
	@array = $r->entries;
	foreach my $entry (@array)
	{
		$user = $entry->dn;
		push(@userList,$user);
	}
	print popup_menu(-name=> 'Login Name',-size=>1, -VALUES => [
@userList ] );
	$flag=1;
	print "<p>Please select a user to continue.<br>",
		hidden(-name=>'page',-value=>$current_page,-override=>1),
		submit(-name=>'go',-value=>'Previous Page'),
        		submit(-name=>'go',-value=>'Get Attributes');
}else{
	print p("Attribute Information for: "), param('Login Name');
	# this is where I want to display the data for the user selected in
the popup_menu.
	 							

}

Any thoughts would be appreciated.

Todd Cox
National Cancer Institute
Rockville, MD

		

RE: Reading the Entry Change Control from a Persistent Search

[Marc S. <msh...@bi...>]

> 
> My question is: Is it possible for me to dive into the change 
> control data 
> in order to extract it's various values?

Yes, here's my search callback which does it (warning: this is ugly test
code and I'm a perl newbie)

Marc

sub srchCallBack
{
        my ($r, $obj) = @_;
        my ($changeType, $dn, $changeNumber);
        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";
                if (!($opt_t eq "AD"))
                {
                        ($cbCtrl) = $r->control("2.16.840.1.113730.3.4.7");

                        if ($cbCtrl)
                        {
                                $cbBer = new Convert::BER($cbCtrl->value);
                                $cbBer->decode(
                                        SEQUENCE => [
                                                ENUM => \$changeType,
                                                STRING => \$dn,
                                                INTEGER => \$changeNumber,
                                        ]
                                );

                                if ($changeType = 1) { print "\t\tAdd\n"; }
                                elsif ($changeType = 2) { print
"\t\tDelete\n"; }
                                elsif ($changeType = 3) { print
"\t\tModify\n"; }
                                else
                                {
                                        print "\t\tModDN\n";
                                        print "\t\t\tPrev DN is ", $dn,
"\n";
                                        print "\t\t\tChange number is ",
$changeNumber, "\n";
                                }
                        }
                }
        }
        else
        {
                print "\tGot a reference !!\n";
        }
}

Re: Reading the Entry Change Control from a Persistent Search

[Graham B. <gb...@po...>]

It looks like we need to write a Net::LDAP::Control::EntryChange module

The basic ::Control module does not know how to decode the value part.

Graham.

On Wed, Feb 06, 2002 at 11:07:28AM -0600, Mike and Paula Morris wrote:
> Hi all,
> 
> I've been experimenting with persistent searching on various LDAP server, 
> and seem to have that code down pat.  I've also taken Graham advice from a 
> previous post about modifying Net::LDAP::Search to allow me to see (at a 
> very high level) the Entry Change Control returned with every entry.
> 
> My question is: Is it possible for me to dive into the change control data 
> in order to extract it's various values?
> 
> Here's how I've defined the 2 controls via asn->prepare() (definitions 
> borrowed from 
> http://www.ietf.org/proceedings/99jul/I-D/draft-ietf-ldapext-psearch-01.txt ) :
> 
>    $asn = Convert::ASN1->new;
>    $asn->prepare(<<LDAP_X) or die "asn_prepare: ".$asn->error;
> 
>    -- Need to add the following 2 because they aren't defined
>    -- anywhere before this (taken from Net::LDAP::ASN)
>     LDAPString ::= OCTET STRING -- UTF8String ??
>     LDAPDN ::= LDAPString
> 
>     PersistentSearch ::= [APPLICATION 98] SEQUENCE {
>                       changeTypes INTEGER,
>                       changesOnly BOOLEAN,
>                       returnECs BOOLEAN
>               }
> 
>     EntryChangeNotification ::= [APPLICATION 99] SEQUENCE {
>                         changeType ENUMERATED {
>                                 add             (1),
>                                 delete         (2),
>                                 modify        (4),
>                                 modDN       (8) }
> 
>                         previousDN   LDAPDN OPTIONAL,     -- modifyDN ops. only
>                         changeNumber INTEGER OPTIONAL     -- if supported
>               }
> LDAP_X
> 
> and here's my callback code:
> 
>    sub processEntry {
>         my ($mesg,$entry) = @_;
> 
>         if (! defined $entry){
>          warn "search_cb: ".$mesg->error."\n";
>         } else {
>          print $entry->dn."\n";
> 
>          # Updated Net::LDAP::Search with a piece of code on the
>          # perl-ldap mailing list that will allow us to get controls
>          # from data returned in entries.
>          @resp = $mesg->control( LDAP_CONTROL_ENTRYCHANGE );
>          my $ecASN = $asn->find('EntryChangeNotification');
>          foreach my $r (@resp){
>           print "Found control ".$r->type."\n";
>          }
>         }
>          $mesg->pop_entry;
>    }
> 
> Thanks in advance for the advice,
> 
> Mike
> 
> 

Reading the Entry Change Control from a Persistent Search

[Mike a. P. M. <mor...@te...>]

Hi all,

I've been experimenting with persistent searching on various LDAP server, 
and seem to have that code down pat.  I've also taken Graham advice from a 
previous post about modifying Net::LDAP::Search to allow me to see (at a 
very high level) the Entry Change Control returned with every entry.

My question is: Is it possible for me to dive into the change control data 
in order to extract it's various values?

Here's how I've defined the 2 controls via asn->prepare() (definitions 
borrowed from 
http://www.ietf.org/proceedings/99jul/I-D/draft-ietf-ldapext-psearch-01.txt ) :

   $asn = Convert::ASN1->new;
   $asn->prepare(<<LDAP_X) or die "asn_prepare: ".$asn->error;

   -- Need to add the following 2 because they aren't defined
   -- anywhere before this (taken from Net::LDAP::ASN)
    LDAPString ::= OCTET STRING -- UTF8String ??
    LDAPDN ::= LDAPString

    PersistentSearch ::= [APPLICATION 98] SEQUENCE {
                      changeTypes INTEGER,
                      changesOnly BOOLEAN,
                      returnECs BOOLEAN
              }

    EntryChangeNotification ::= [APPLICATION 99] SEQUENCE {
                        changeType ENUMERATED {
                                add             (1),
                                delete         (2),
                                modify        (4),
                                modDN       (8) }

                        previousDN   LDAPDN OPTIONAL,     -- modifyDN ops. only
                        changeNumber INTEGER OPTIONAL     -- if supported
              }
LDAP_X

and here's my callback code:

   sub processEntry {
        my ($mesg,$entry) = @_;

        if (! defined $entry){
         warn "search_cb: ".$mesg->error."\n";
        } else {
         print $entry->dn."\n";

         # Updated Net::LDAP::Search with a piece of code on the
         # perl-ldap mailing list that will allow us to get controls
         # from data returned in entries.
         @resp = $mesg->control( LDAP_CONTROL_ENTRYCHANGE );
         my $ecASN = $asn->find('EntryChangeNotification');
         foreach my $r (@resp){
          print "Found control ".$r->type."\n";
         }
        }
         $mesg->pop_entry;
   }

Thanks in advance for the advice,

Mike

Re: [Fwd] CPAN Upload: G/GB/GBARR/Convert-ASN1-0.15.tar.gz

[Norbert K. <nor...@da...>]

--On Dienstag, 5. Februar 2002 17:25 +0000 Graham Barr <gb...@po...>=20
wrote:

> Do you mind if I include it in the distribution ?

Not at all.

--=20
Norbert Klasen, Dipl.-Inform.
DAASI International GmbH                 phone: +49 7071 29 70336
Wilhelmstr. 106                          fax:   +49 7071 29 5114
72074 T=FCbingen                           email: nor...@da...
Germany                                  web:   http://www.daasi.de

Re: PerLDAP Errors

[Clif H. <cl...@di...>]

> 
> All,
> 
> Was wondering if anyone could help.  I installed perLDAP on a Solaris
> 2.6 box.  I used perLDAP 1.4.1 and I compiled it with the Netscape C
> SDK.  I tried it with 3.1, 4.1 and the 4.14 SDK's.  When I run my trusty
> little perldap test script I get the following
> 
> ld.so.1: /usr/local/bin/perl: fatal: relocation error: file
> /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Mozilla/LDAP/API/API.so:
> symbol ldap_set_option: referenced symbol not found
> Killed
> 
> Any ideas what I might have done wrong?
> 
> Brian
> 
> 
> 

You have sent the message to the wrong list, this
list has nothing to do with Netscape's perLDAP software.

This list is for the perl module Perl-LDAP.

Clif