Re: query about search, unbind, and netware homefolders

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

The problem is with your filter.  o is not an attribute, it is a portion
of the dn.  Just leave out the (0=SGCS).  
  filter => '(&(sn=Surnametest) (o=SGCS))'

I have been using Netware 5 LDAP in conjunction with a unique set of
files, databases etc.  I have been at it for about 6 months.  Your timing
is better than mine.  The Novell server was terribly buggy, but is now
much more stable.  The next release (currently in beta, doesn't play
terribly well with some other Netware stuff) has enough speed to make it
worthy of being called a real production LDAP server.  It also fixes some
deviations from standards.  It is due out "early summer".

I'm happy to offer poiners.

Jim Harle
US Naval Academy


On Fri, 5 May 2000, David Bussenschutt wrote:

> Howdy folks...
> 
> I just joined the list, and have already checked the archives for the
> answer...no luck there...
> (seings the archives apparently don't exist yet on the new mailserver)
> 
> I'm connecting to a Novell Netware 5 LDAP server (from a unix box), and
> need a few clues....
> 
> I wanted to know if anyone is using/used perl-ldap to communicate with
> netware 5?
> 
> I'm going to(hopefully) use it to automatically generate large
> quantities of users (students - about 6000 of them ) from our primary
> sun solaris box (a propriety user database) into a Novell NDS (across
> about 12 different contexts  (I mean ou's) ) ...(using netware 5's LDAP
> server functionality)....
> 
> So far, I have borrowed POD example code, and managed to connect, bind,
> add, and delete user objects quite easily...but I can't get search to work.
>  What to I have to provide as a filter in order to return all objects in a
> particular ou (or o)? 
> 
> When I unbind at the end of the script, I get the following error:
> "Can't call method "pdu" on an undefined value at 
> /usr/lib/perl5/site_perl/5.005/Net/LDAP.pm line 536"
> 
> Netware specific Q's:
> Is it possible to create users 'homefolders' using an ldap query?
> 
> 
> Thanks.
> 
> David.
>  
> P.S. In case you're interested, here's the test code I'm using...
> (add and remove both work like a charm!)
> 
> ------------------------------------------------------------------------
> #!/usr/bin/perl
> 
>  use Net::LDAP;
> 
> 
> print "setting up LDAP connection....\n";
> $ldap = Net::LDAP->new('192.168.0.10') or die "dying: $@";
> 
>  $ldap->bind (   # bind to a directory with dn and password
>               dn       => 'cn=admin, o=SGCS ',
>               password => 'mypassword'
>              );
> 
> print "\n";
> 
> print "attempting to create user....\n";
> $shortusername = "testuser1";
>  $result = $ldap->add (
>                dn   => 'cn='.$shortusername.',o=SGCS',
>                attr => [ 'cn'   => $shortusername,
> 			 'givenName' => 'givennametest',
>                          'surname'   => 'Surnametest',
>                          'fullName'  => 'Fullname test',
> 			 'groupMembership' => 
>                                     ['cn=everyone, o=SGCS','cn=testgroup,
> o=SGCS'], 
> # don't forget to also add user to group when group added to user...not
> like here
>  	                 'mail' => $shortusername.'@gucis.cit-student.gu.edu.au',
>                          'objectclass' => ['top', 'person',
>                                            'organizationalPerson',
>                                            'inetOrgPerson' ], ]
>              );
> $result->code && warn "failed to add entry: ", $result->error ;
> $result->code || print "added entry successfully.\n ";
> 
> print "\n";
> 
> print "attempting to search for users....\n";
> $mesg   = $ldap->search (
> 		base => 'o=SGCS',
> 		filter => '(&(sn=Surnametest) (o=SGCS))',
> 		);
> 
> $mesg->code && warn "LDAP search failed:", $mesg->error;
> $mesg->code || print "LDAP search succeeded\n";
> 
> print "search results:\n";
> foreach $entry ($mesg->all_entries) { $entry->dump;}
> 
> print "\n";
> 
> print "attempting to remove user....\n";
> $result = $ldap->delete (
>                dn   => 'cn=testuser, o=SGCS',
>              );
> 
> $result->code && warn "failed to delete entry: ", $result->error ;
> $result->code || print "deleted entry successfully. \n";
> 
> 
> # unbind doesn't work!
> #print "unbind\n";
> #$ldap->unbind;
> 
> 
> ------------------------------------------------------------------------
> 
> 
> --------------------------------------------------------------------
> David Bussenschutt          Email: D.B...@ma...
> Senior Computing Support Officer & Systems Administrator/Programmer
> Location:  Griffith University. Information Technology Services
>            Brisbane Qld. Aust.  (TEN bldg. rm 1.33) Ph:(07)38757079
> --------------------------------------------------------------------
> 
>