RE: Ldap Query -- RPG400-L

Rob, 
Thanks for pointing me to this utility.  It really helped us get a grip
on what we needed for parms. 
I'm definitely making progress now. 
I determined that I could connect anonymously- however, I don't have
authority to search with anonymous. 
I finally got credentials entered the way I need for myself and can get
a search to work.  
Where I'm at now, is I can search on my profile, but I'm not able to
search anyother profile.  I will have to check with my network admin
when he arrives this morning. 

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Friday, April 22, 2005 9:09 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Ldap Query


Mike,

You had me stumped for a minute.  Then I stepped back and restudied your

situation.

First of all, try using this utility to test access to your ldap:
http://www.ldapadministrator.com/download/index.php?PHPSESSID=5d0ff41a37
ba6f8ffc3d4148e779d54b 


Verify that the user and password that you enter, to bind to the ldap
and 
be able to do searches, work.  Verify that you even need a user id and a

password.

Now, once you've done that, verify that these lines of code apply to
your 
situation:
     D LOGIN_ACCT      C                   'cn=Administrator'
     D LOGIN_PASSWD    C                   'keepwishing'
The bind is working spot on.  Until you mucked with the ip address it
was 
telling you that something was wrong with your credentials.  That leads
me 
to believe it was the above.  Don't you think so?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/22/2005 07:10 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> cc

Subject
RE: Ldap Query






Ok, I'm still confused on the init.  From Scott's message I understand
that I should receive a pointer back on the init regardless.  But I have
noticed that changing ld= ldap_init(xxx.xxx.x.xx:LDAP_PORT) to 
Ld= ldap_init(xxx.xxx.xx.x:LDAP_PORT)
Will give me a different error on the Bind.  I go from 'Invalid
credentials' to 'Can't contact Ldap Server'.


So is something else happening with the INIT besides creating a new copy
of the data structure? 

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Thursday, April 21, 2005 5:57 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Ldap Query


Mike Smith,

I changed my ldap server name to something unintelligible, when I run by

this stretch of code (I converted everything to free format)
rc = ldap_simple_bind_s(ld:*null:*null);
if rc <> LDAP_SUCCESS; 
  Msg = %str(ldap_err2string(rc)); 
  dsply '' ' ' Msg; 
  return; 
endif; 

I get an rc of 81 which makes a msg of
Can't contact LDAP server

so, it's not the ldap_init you should be concerned about.  It's the 
ldap_simple_bind_s.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/21/2005 08:10 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Subject
Ldap Query






I have a need to query a LDAP server from RPG.  I've been looking at a
couple of examples that Scott Klement posted, but I'm having some
problems. 
I really don't know much about LDAP, so I'm kinda fumbling around. 
Reading documentation, if I understand correctly, I should be able to
query a non-iseries LDAP 
Also, the LDAP_INIT should return a *NULL if request was not successful.

So, I started putting erroneous values as a Host name like

c                   eval      ld = ldap_init('NOGOOD': LDAP_PORT)

However I still get a pointer back.  Why?
It seems I can put any value as the first parm and still not return a
*NULL.

Is there anyway to verify that what is returned is correct?

Thanks

Michael Smith
iSeries.mySeries.

-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.