perl-ldap-dev

Re: Very large results to return

[<Bob...@kp...>]

The size limit is imposed on the Server side, sigh.

There are two options (at least) --

     a) Talk to your Directory Manager about increasing the search-returns
limit (at least for your management account)
     b) Break-up your search into smaller chunks --

        $ouline   = ("ou=powerlinkcustomers");
        $oline    = ("o=adelphia.net");


        for i ("a" .. "z") {

           $filter = "mailhost=ms001" . $i . "dc3.adelphia.net";

          $message = $ldap->search(
             base      => ("$ouline, $oline"),
             scope     => 'sub',
             filter    => ("$filter"),
          );
     }


(Coded, but not verified.)

B



Bob Goolsby
bob...@kp...
(925) 926-3406


                                                                                                                             
                    Justin Crone                                                                                             
                    <jus...@ad...>           To:     per...@li...                        
                    Sent by:                              cc:                                                                
                    per...@li...urc       Subject:     Very large results to return                          
                    eforge.net                                                                                               
                                                                                                                             
                                                                                                                             
                    01/17/2002 04:29 PM                                                                                      
                                                                                                                             
                                                                                                                             




Hi everyone,

I am rather new to the ldap world, however, I have been tasked with
putting together a scipt that will get the current count of mailboxes on
our systems. We have 6 productions mail machines servicing approx 500,000
users. We are using the Netscape(Iplanet) package. I am running into a
size limit exceeded error when trying to get my results. Here is a snippit
of the code I am using.

$ouline   = ("ou=powerlinkcustomers");
$filter   = ("mailhost=ms001a.dc3.adelphia.net");
$oline    = ("o=adelphia.net");

$message = $ldap->search(
   base      => ("$ouline, $oline"),
   scope     => 'sub',
   filter    => ("$filter"),
   sizelimit => 0,
   timelimit => 0
);

This machine has about 72,000 mailboxes on it, so I wanted to use this as
a test. However after about 10 secs of work, then gives the following
error:

Error :: Sizelimit exceeded
Error Results: Net::LDAP::Search=HASH(0x32745c)

I tried filtering the search further by "attr" but still no luck.
Currently I have a script setup to use the ldapsearch tool, but that takes
approx 30 mins to work per machine. Any help would be great.
Justin

Very large results to return

[Justin C. <jus...@ad...>]

Hi everyone,

I am rather new to the ldap world, however, I have been tasked with
putting together a scipt that will get the current count of mailboxes on
our systems. We have 6 productions mail machines servicing approx 500,000
users. We are using the Netscape(Iplanet) package. I am running into a
size limit exceeded error when trying to get my results. Here is a snippit
of the code I am using.

$ouline   = ("ou=powerlinkcustomers");
$filter   = ("mailhost=ms001a.dc3.adelphia.net");
$oline    = ("o=adelphia.net");

$message = $ldap->search(
   base      => ("$ouline, $oline"),
   scope     => 'sub',
   filter    => ("$filter"),
   sizelimit => 0,
   timelimit => 0
);

This machine has about 72,000 mailboxes on it, so I wanted to use this as
a test. However after about 10 secs of work, then gives the following
error:

Error :: Sizelimit exceeded
Error Results: Net::LDAP::Search=HASH(0x32745c)

I tried filtering the search further by "attr" but still no luck.
Currently I have a script setup to use the ldapsearch tool, but that takes
approx 30 mins to work per machine. Any help would be great.

Justin

Re: Net::LDAP returned results question

[<Bob...@kp...>]

The "Usual Suspects" --

     Is it really the same search filter?  It isn't a case of one having a
wildcard?
     Is it really the same search base?  And the same level of search?
     Are both requests run by the same user/account, with the same
privileges?
     Was there an informative message returned ("Admin Limit Reached"....)

If you could post a minimal code sample, it would also be helpful.


B

Bob Goolsby
bob...@kp...
(925) 926-3406

==================================================



                                                                                                                             
                    "Cox, Todd (NCI)"                                                                                        
                    <tc...@ma...>                   To:     "'per...@li...'"                    
                    Sent by:                               <per...@li...>                             
                    per...@li...urc       cc:                                                                
                    eforge.net                            Subject:     Net::LDAP returned results question                   
                                                                                                                             
                                                                                                                             
                    01/17/2002 10:34 AM                                                                                      
                                                                                                                             
                                                                                                                             




I have a perl script that performs an LDAP query and is sucessful. One
thing
I have noticed though is that the query I am performing returns 521 entries
and when performing the same query using Netscape's ldapsearch tool the
results are 579.  The query is sucessful and no error messages are present.

Any ideas?

Todd Cox
National Cancer Institute
Rockville, MD

Re: Net::LDAP returned results question

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

I would look (visually) at all the attributes of a few objects that get returned
only from ldapsearch to see if there is a pattern.  If that didn't yield
anything useful, I would do it programmatically and compare everything.
  --Jim Harle

"Cox, Todd (NCI)" wrote:

> I have a perl script that performs an LDAP query and is sucessful. One thing
> I have noticed though is that the query I am performing returns 521 entries
> and when performing the same query using Netscape's ldapsearch tool the
> results are 579.  The query is sucessful and no error messages are present.
>
> Any ideas?
>
> Todd Cox
> National Cancer Institute
> Rockville, MD

Net::LDAP returned results question

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

I have a perl script that performs an LDAP query and is sucessful. One thing
I have noticed though is that the query I am performing returns 521 entries
and when performing the same query using Netscape's ldapsearch tool the
results are 579.  The query is sucessful and no error messages are present.

Any ideas?

Todd Cox
National Cancer Institute
Rockville, MD

Re: [Fwd] Net::LDAP

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

Michael, I have been using Net::LDAP with Netware for about 3 years and am
currently using 85.10 with no problems.  Please send a simple script
that fails and the setup or URL you use in the browser.
  --Jim Harle


On Thu, 17 Jan 2002, Graham Barr wrote:

> ----- Forwarded message from Michael Wille <mw...@do...> -----
>
> Date: Thu, 17 Jan 2002 10:40:38 -0500
> To: <gb...@po...>
> From: "Michael Wille" <mw...@do...>
> Subject: Net::LDAP
>
> Hello Graham,
>
> First great work on everything you've done.  I use many of your modules on a daily basis and am very greatful for the tools you have helped provide.
>
> I'd like to pose a question for you that no one else seems to be able to answer for me.
>
> We use Net::LDAP in several web applications to authenticate and retrieve information from our Novell Directory Services.  Everything has worked great until recently when we upgraded our LDAP server.  Every search that is performed on the new servers return empty data.  If we search from a browser on the new servers, the result comes back fine.
>
> I've talked with people from Novell and they can't seem to find anything that would cause this.  I thought I would ask you if there was anything in the library that might break between these two versions.  Again, a search will work from other sources, it just returns nothing with Net::LDAP.  There are no errors either.
>
> Have you heard of anyone else having this problem?  Do you have any ideas?
>
> The versions are:
> Original: Netware 5  - LDAPv3 - 3.08 - July 31, 2000
> Upgrade: NDS 8 - LDAPv3 - 85.10 - Dec 12, 2000
>
> Thanks for any input you have on the matter.  Its greatly appreciated.
>
> Regards,
>
> Michael Wille
> Application Developer
> W.B. Doner
> 25900 Northwestern Hwy.
> Southfield, MI 48075
> mw...@do...
> 248.827.8442
> 248.827.8323 FAX
>
>
> ----- End forwarded message -----
>

[Fwd] Net::LDAP

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

----- Forwarded message from Michael Wille <mw...@do...> -----

Date: Thu, 17 Jan 2002 10:40:38 -0500
To: <gb...@po...>
From: "Michael Wille" <mw...@do...>
Subject: Net::LDAP

Hello Graham,

First great work on everything you've done.  I use many of your modules on a daily basis and am very greatful for the tools you have helped provide.

I'd like to pose a question for you that no one else seems to be able to answer for me.  

We use Net::LDAP in several web applications to authenticate and retrieve information from our Novell Directory Services.  Everything has worked great until recently when we upgraded our LDAP server.  Every search that is performed on the new servers return empty data.  If we search from a browser on the new servers, the result comes back fine.

I've talked with people from Novell and they can't seem to find anything that would cause this.  I thought I would ask you if there was anything in the library that might break between these two versions.  Again, a search will work from other sources, it just returns nothing with Net::LDAP.  There are no errors either.

Have you heard of anyone else having this problem?  Do you have any ideas?

The versions are:
Original: Netware 5  - LDAPv3 - 3.08 - July 31, 2000
Upgrade: NDS 8 - LDAPv3 - 85.10 - Dec 12, 2000

Thanks for any input you have on the matter.  Its greatly appreciated.

Regards,

Michael Wille
Application Developer
W.B. Doner
25900 Northwestern Hwy.
Southfield, MI 48075
mw...@do...
248.827.8442
248.827.8323 FAX


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

Re: Displaying Net::LDAP search results

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

And I just noticed that inetorgperson is misspelt in the Net::LDAP filter too.

Graham.

On Wed, Jan 16, 2002 at 01:38:17PM -0500, CZa...@wi... wrote:
> 
> I used the * also and I'm still not getting any DN output.
> 
> 
> 
>                                                                                                                   
>                     Graham Barr                                                                                   
>                     <gbarr@pobox.c       To:     CZa...@wi...                                               
>                     om>                  cc:     per...@li...,                             
>                                           chr...@me...                                          
>                     01/16/2002           Subject:     Re: Displaying Net::LDAP search results                     
>                     01:31 PM                                                                                      
>                                                                                                                   
>                                                                                                                   
> 
> 
> 
> 
> On Wed, Jan 16, 2002 at 01:15:01PM -0500, CZa...@wi... wrote:
> >
> > This is just an example of what I am trying to get, "CN=John
> > Doe,OU=IT,OU=NewYork,O=XYZ" "
> > It works with the command lind 'ldapsearch':  $command = qq/ldapsearch -b
> > "o = wiley" -s subtree "(& (objectclass = inetorgperson) (mail
> = $username*))"
> 
> 
> >         filter=> "(&(objectclass = interorgperson) (mail = $username))"
> 
> Well you are using difeerent filter. The ldapseach command has a * at the
> end of mail =
> 
> Graham.
> 
> 
> 
> 
> 

Re: Displaying Net::LDAP search results

[<CZa...@wi...>]

I used the * also and I'm still not getting any DN output.



                                                                                                                  
                    Graham Barr                                                                                   
                    <gbarr@pobox.c       To:     CZa...@wi...                                               
                    om>                  cc:     per...@li...,                             
                                          chr...@me...                                          
                    01/16/2002           Subject:     Re: Displaying Net::LDAP search results                     
                    01:31 PM                                                                                      
                                                                                                                  
                                                                                                                  




On Wed, Jan 16, 2002 at 01:15:01PM -0500, CZa...@wi... wrote:
>
> This is just an example of what I am trying to get, "CN=John
> Doe,OU=IT,OU=NewYork,O=XYZ" "
> It works with the command lind 'ldapsearch':  $command = qq/ldapsearch -b
> "o = wiley" -s subtree "(& (objectclass = inetorgperson) (mail
= $username*))"


>         filter=> "(&(objectclass = interorgperson) (mail = $username))"

Well you are using difeerent filter. The ldapseach command has a * at the
end of mail =

Graham.

Re: Displaying Net::LDAP search results

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

On Wed, Jan 16, 2002 at 01:15:01PM -0500, CZa...@wi... wrote:
> 
> This is just an example of what I am trying to get, "CN=John
> Doe,OU=IT,OU=NewYork,O=XYZ" "
> It works with the command lind 'ldapsearch':  $command = qq/ldapsearch -b
> "o = wiley" -s subtree "(& (objectclass = inetorgperson) (mail = $username*))"


>         filter=> "(&(objectclass = interorgperson) (mail = $username))"

Well you are using difeerent filter. The ldapseach command has a * at the
end of mail =

Graham.

Re: Displaying Net::LDAP search results

[<CZa...@wi...>]

This is just an example of what I am trying to get, "CN=John
Doe,OU=IT,OU=NewYork,O=XYZ" "
It works with the command lind 'ldapsearch':  $command = qq/ldapsearch -b
"o = wiley" -s subtree "(& (objectclass = inetorgperson) (mail
= $username*))"

.   Below is the real code

print "Username: ";
$username = <STDIN>;
chomp($username);
print "Password: ";
$password = <STDIN>;
chomp($password);

$ldap = Net::LDAP->new('ourserver.com', port => '389') || die "$@";

$ldap->bind ;    # an anonymous bind

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> "(&(objectclass = interorgperson) (mail = $username))"
);

foreach my $entry ($mesg->entries) { $DN = $entry->dn; print "$DN"}

#      die $mesg->error if $mesg->code;



      $ldap->unbind;   # take down session


                                                                                                                          
                    Chris Ridd                                                                                            
                    <chris.ridd@messagingd       To:     CZa...@wi..., per...@li...          
                    irect.com>                   cc:                                                                      
                                                 Subject:     Re: Displaying Net::LDAP search results                     
                    01/16/2002 01:02 PM                                                                                   
                                                                                                                          
                                                                                                                          




CZa...@wi... wrote:
> Hello how do I obtain this info "CN=John Doe,OU=IT,OU=NewYork,O=XYZ"
using
> the example below ?
> I would figure that $mesg would return this information back from the
> search.  I have tried numerous examples and I'm still unable to display
> the results.
>
> Please help.
>
> Thank you.
>
>
>
> $ldap->bind ;
>
> $mesg = $ldap->search(
>         base => 'o=wiley',
>         scope=> 'subtree',
>         filter=> "(&(objectclass = interorgperson) (mail = $username))"
> );
>
>       $mesg->code && die $mesg->error;
>
>
>       foreach $entry ($mesg->entries) { $result = $entry->dn; print
> "$result\n"; }
>
>       $ldap->unbind;
>
>

Why do you expect a search under <o=wiley> to return entries under <o=xyz>
(eg the cn=John Doe entry)? Unless <o=wiley> is an alias, these are
disjoint subtrees, and since you haven't told the search method to follow
any aliases under <o=wiley> you are never going to get results with a DN
ending in <o=xyz>. If you are using aliases, then check the 'deref'
argument to search.

If you think the data is coming back to your program but you're not able to
retrieve it from the Net::LDAP objects correctly, try setting debug => 12
when creating the $ldap object and see if that reveals any results coming
back.

You may need to explain a bit more about the structure of your DIT before
anyone can provide more concrete help :-)

Cheers,

Chris

Re: Displaying Net::LDAP search results

[Chris R. <chr...@me...>]

CZa...@wi... wrote:
> Hello how do I obtain this info "CN=John Doe,OU=IT,OU=NewYork,O=XYZ" using
> the example below ?
> I would figure that $mesg would return this information back from the
> search.  I have tried numerous examples and I'm still unable to display
> the results.
> 
> Please help.
> 
> Thank you.
> 
> 
> 
> $ldap->bind ;
> 
> $mesg = $ldap->search(
>         base => 'o=wiley',
>         scope=> 'subtree',
>         filter=> "(&(objectclass = interorgperson) (mail = $username))"
> );
> 
>       $mesg->code && die $mesg->error;
> 
> 
>       foreach $entry ($mesg->entries) { $result = $entry->dn; print
> "$result\n"; }
> 
>       $ldap->unbind;
> 
> 

Why do you expect a search under <o=wiley> to return entries under <o=xyz>
(eg the cn=John Doe entry)? Unless <o=wiley> is an alias, these are
disjoint subtrees, and since you haven't told the search method to follow
any aliases under <o=wiley> you are never going to get results with a DN
ending in <o=xyz>. If you are using aliases, then check the 'deref'
argument to search.

If you think the data is coming back to your program but you're not able to
retrieve it from the Net::LDAP objects correctly, try setting debug => 12
when creating the $ldap object and see if that reveals any results coming
back.

You may need to explain a bit more about the structure of your DIT before
anyone can provide more concrete help :-)

Cheers,

Chris

getting Net::LDAP search results

[<CZa...@wi...>]

Hello how do I obtain this info "CN=John Doe,OU=IT,OU=NewYork,O=XYZ" using
the example below ?
I would figure that $mesg would return this information back from the
search.

Please help.

Thank you.



$ldap->bind ;

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> "(&(objectclass = interorgperson) (mail = $username))"
);

      $mesg->code && die $mesg->error;


      foreach $entry ($mesg->all_entries) { $result = $entry->dn; print
"$result\n"; }

      $ldap->unbind;

RE: [Fwd] getting Net::LDAP search results

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

I believe you need to change $mesg->all_entries to $mesg->entries.

Todd Cox
National Cancer Institute
Rockville, MD

-----Original Message-----
From: Graham Barr [mailto:gb...@po...]
Sent: Wednesday, January 16, 2002 10:15 AM
To: LDAP Mailing List
Cc: CZa...@wi...
Subject: [Fwd] getting Net::LDAP search results


----- Forwarded message from CZa...@wi... -----

Date: Wed, 16 Jan 2002 10:09:05 -0500
To: gb...@po...
From: CZa...@wi...
Subject: getting Net::LDAP search results
X-Mailer: Lotus Notes Release 5.0.2c  February 2, 2000

Hello Graham, how do I obtain this info "CN=John
Doe,OU=IT,OU=NewYork,O=XYZ" using the example below ?
I would figure that $mesg would return this information back from the
search.

Please help.

Thank you.



$ldap->bind ;

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> "(&(objectclass = interorgperson) (mail = $username))"
);

      $mesg->code && die $mesg->error;


      foreach $entry ($mesg->all_entries) { $result = $entry->dn; print
"$result\n"; }

      $ldap->unbind;


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

[Fwd] getting Net::LDAP search results

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

----- Forwarded message from CZa...@wi... -----

Date: Wed, 16 Jan 2002 10:09:05 -0500
To: gb...@po...
From: CZa...@wi...
Subject: getting Net::LDAP search results
X-Mailer: Lotus Notes Release 5.0.2c  February 2, 2000

Hello Graham, how do I obtain this info "CN=John
Doe,OU=IT,OU=NewYork,O=XYZ" using the example below ?
I would figure that $mesg would return this information back from the
search.

Please help.

Thank you.



$ldap->bind ;

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> "(&(objectclass = interorgperson) (mail = $username))"
);

      $mesg->code && die $mesg->error;


      foreach $entry ($mesg->all_entries) { $result = $entry->dn; print
"$result\n"; }

      $ldap->unbind;


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

[ANNOUNCE] SPOPS 0.56 released

[Chris W. <ch...@cw...>]

A new version (0.56) 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.

This release overhauls the error reporting system, using simple
exception objects in favor of variables set in the SPOPS::Error
package. This change is fully backward compatible, and the
SPOPS::Error interface won't be deprecated for a number of releases.

It also includes class factory behaviors so you can embed DBI/LDAP
connection info in your object configuration, which makes it easier to
write one-off data munging scripts.

URLs:

Download (or use CPAN):
 http://prdownloads.sourceforge.net/openinteract/SPOPS-0.56.tar.gz 

Detailed changes:
 http://sourceforge.net/project/shownotes.php?release_id=70030

Chris

-- 
Chris Winters (ch...@cw...)
Building enterprise-capable snack solutions since 1988.

Re: How to add non-ascii code into LDAP (use Net::LDAP)

[Chris R. <chr...@me...>]

Felix Aertz <ae...@rz...> wrote:
> Hi
>=20
> my problem is: I will add a String into LDAP with perl-ldap.
> The string contains non-ascii codes.
>=20
> My first step is to encode the string from latin1 to utf8 than
> to base64. Next, I tried to add the encoded string. Ther is the
> problem. The string should end up as binary data in LDAP
> example: sn: Wei=DF -> sn:: V2Vpw58=3D
>=20
> At next I tried this way:
>=20
> $enc_text=3D"Wei=DF";
> $log_username=3D"XMan" ;
> $ldap_base=3D"ou=3Dstaff, dc=3Dhs-bremen, dc=3Dde";
> $u=3DUnicode::String::latin1($enc_text);
> $Result =3D $ldap->modify("uid=3D$log_username,$ldap_base",
>        replace =3D> { 'sn' =3D> encode_base64($u->utf8) } );
>=20
> It dosn't work, too!!!
> The output is "sn: V2Vpw58=3D" not "sn:: V2Vpw58=3D"
>=20
> What can I do that?

There is no need to base-64 encode the value, just pass in the UTF-8 =
string.

Cheers,

Chris

Re: How to add non-ascii code into LDAP (use Net::LDAP)

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

You do not need to call encode_base64 on the value before passing it
to the server.

Graham.

On Tue, Jan 15, 2002 at 05:41:54PM +0100, Felix Aertz wrote:
> Hi
> 
> my problem is: I will add a String into LDAP with perl-ldap.
> The string contains non-ascii codes.
> 
> My first step is to encode the string from latin1 to utf8 than
> to base64. Next, I tried to add the encoded string. Ther is the
> problem. The string should end up as binary data in LDAP
> example: sn: Weiß -> sn:: V2Vpw58=
> 
> At next I tried this way:
> 
> $enc_text="Weiß";
> $log_username="XMan" ;
> $ldap_base="ou=staff, dc=hs-bremen, dc=de";
> $u=Unicode::String::latin1($enc_text);
> $Result = $ldap->modify("uid=$log_username,$ldap_base",
>        replace => { 'sn' => encode_base64($u->utf8) } );
> 
> It dosn't work, too!!!
> The output is "sn: V2Vpw58=" not "sn:: V2Vpw58="
> 
> What can I do that?
> 
> 
> Thanks for help.
> Felix Aertz
> 
> 
> 

How to add non-ascii code into LDAP (use Net::LDAP)

[Felix A. <ae...@rz...>]

Hi

my problem is: I will add a String into LDAP with perl-ldap.
The string contains non-ascii codes.

My first step is to encode the string from latin1 to utf8 than
to base64. Next, I tried to add the encoded string. Ther is the
problem. The string should end up as binary data in LDAP
example: sn: Wei=DF -> sn:: V2Vpw58=3D

At next I tried this way:

$enc_text=3D"Wei=DF";
$log_username=3D"XMan" ;
$ldap_base=3D"ou=3Dstaff, dc=3Dhs-bremen, dc=3Dde";
$u=3DUnicode::String::latin1($enc_text);
$Result =3D $ldap->modify("uid=3D$log_username,$ldap_base",
       replace =3D> { 'sn' =3D> encode_base64($u->utf8) } );

It dosn't work, too!!!
The output is "sn: V2Vpw58=3D" not "sn:: V2Vpw58=3D"

What can I do that?


Thanks for help.
Felix Aertz

Re: Is it possible to query DNS for a SRV record in perl?

[Christopher A B. <ca...@tc...>]

As K Reddy once put it so eloquently:

> Instead, he suggested that I query DNS for the SRV
> record, which looks like this: 
> _.gc._tcp.us-city._sites.company.com. 
> 
> It worked when I used nslookup from a DOS prompt, but
> I'm not sure how to look it up in UNIX. 
> I tried the Net::DNS module, but I honestly couldn't
> figure out how (or if) it works for looking up SRV
> records. 

Here is the code we use to lookup the PDC for doing Active Directory
updates, using Net::DNS.  Call it with the domain that you're trying
to update.  Returns a hostname and port.  Note that I "hardcode" in
the LDAPS port (via getservbyname) since MS doesn't define _ldaps as a 
service name.  Change ldaps to ldap in the getservbyname, or return
$rr->port to use the port in the SRV record, if you want non-ssl LDAP.

####snip
sub lookup_pdc {
  my ($dc) = @_;
  my $res = new Net::DNS::Resolver;
  my $query = $res->send("_ldap._tcp.pdc._msdcs.$dc", "SRV");
  if ($query) {
    foreach $rr ($query->answer) {
      next unless $rr->type eq 'SRV';
      # return first found; find ldaps port from services file since
      # there's no _ldaps SRV record
      return $rr->target, scalar getservbyname('ldaps', 'tcp');
    }
  } else {
    &note("SRV lookup failed: " . $res->errorstring);
  }
  return;
}
####snip

%%  Christopher A. Bongaarts  %%  ca...@tc...       %%
%%  Internet Services         %%  http://umn.edu/~cab  %%
%%  University of Minnesota   %%  +1 (612) 625-1809    %%

Is it possible to query DNS for a SRV record in perl?

[K R. <kr...@ya...>]

Hi.  I posted the message below to the perl beginners
mailing list, but the only response I got involved
writing a perl script for a Windows server. Is that
the only way? The only thing I can think of is to
specify a lot of different servers, at least one of
which must contain the GC, but I'm hoping there's a
better way.
Thanks.
 
My boss has assigned me the job of putting together a
web page with employees' contact information pulled
from the Microsoft Exchange server. I was able to
write a script using Net::LDAP with Exchange 5.5, but
the company is now in the process of migrating to
Exchange 2000. The adminstrator told me that the
employee information is now kept in the Global
Catalog, but that I couldn't specify a server because
the GC is sometimes transferred among servers.
Instead, he suggested that I query DNS for the SRV
record, which looks like this: 
_.gc._tcp.us-city._sites.company.com. 

It worked when I used nslookup from a DOS prompt, but
I'm not sure how to look it up in UNIX. 
I tried the Net::DNS module, but I honestly couldn't
figure out how (or if) it works for looking up SRV
records. 

Please, please, please tell me someone knows how. I
don't want to have to write the program in ASP.

Thanks!
Kary


__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/

[Fwd] question from a lazy developer

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

----- Forwarded message from Alexander Knack <ak...@da...> -----

Date: Mon, 14 Jan 2002 20:02:47 +0100
To: gb...@po...
From: Alexander Knack <ak...@da...>
Subject: question from a lazy developer
X-Mailer: Sylpheed version 0.7.0 (GTK+ 1.2.10; i686-pc-linux-gnu)

hi,

we here at dasburo.de use Net::LDAP since we found its existance. thank you a lot for this
module.

my question:

i can simply retrieve schemas from a file with 

my $schema = new Net::LDAP::Schema;
$schema->parse('schema.dump') or die $schema->error;

but how can i make this loaded schema persistent in my ldap-server?

thanks in advance.
-- 
+--------------------------------------------------------------------+
| Alexander Knack  ........Entropie erfordert keine Wartung .........|
|  dasburo.de      ..................................................| 
|  Schlesische Str. 27 10997 Berlin Tel/Fax: +49 30 611 281 33/38    | 
+--------------------------------------------------------------------+

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

LDAP complains about a $ENV setting

[<CZa...@wi...>]

Can someone shed some light on this error. Net::LDAP is
complaining about an environment variable.

"/d01/oracle" is not exported by the Net::LDAP::Constant module at
test_ldap.pl line 6
Can't continue after import errors at test_ldap.pl line 6
BEGIN failed--compilation aborted at test_ldap.pl line 6.

The "/d01/oracle" is an environment setting value for $ENV{ORACLE_BASE}.

Thanks

Trouble performing a search.

[<CZa...@wi...>]

I am trying to perform a search in the LDAP server, but I get this message,
can you explain what could be going on?


Net::LDAP::Constant 1 required--this is only version (undef) at
test_ldap.pl line 23
BEGIN failed--compilation aborted at test_ldap.pl line 23.

$ldap = Net::LDAP->new("servername.com") or die "$@";

$mesg = $ldap->search(
        base => 'o=wiley',
        scope=> 'subtree',
        filter=> '(|(objectclass=interorgperson) (mail = $username))'
);

Carlton Zachary
Sr. E-Commerce Unix Systems Administrator
John Wiley & Sons, Inc.
New York, NY 10158

Re: how to add a base64 attribute without the use of ldif

[Chris R. <chr...@me...>]

Uwe Jans <ja...@hs...> wrote:
> Hi,
> 
> I would like to know how to add a base64 encoded string with perl-ldap?
> 
> In ldif it looks like this:
> 
> cn:: dfvfgwjfhwfj==
> 
> And in Perl-Ldap i tried this:
> 
> $ldap->modify( $dn, add => { cn => 'dfvfgwjfhwfj==' } );
> 
> but the result look like this in ldif:
> 
> cn: dfvfgwjfhwfj==
> 
> Thats is wrong, isn't it?

It isn't what you wanted :-)

Just decode the value before sending it to the server. LDAP can transfer
binary values in protocol; the only need you have for base-64 is when
trying to hold 'difficult' values in text (ie LDIF) files.

$ldap->modify( $dn, add => { cn => decode_base64('dfvfgwjfhwfj==') } );

Remember that your (decoded) values must be valid UTF-8 if you are using
LDAPv3. Values in ISO-8859-1 are not legal.

> 
> Thanks, for an quick answer.
> 
> Uwe Jans
> 



Cheers,

Chris