Hi
Trying to use
eudc-query-form
and entering a search for a name gives:
Signaling: (wrong-type-argument char-or-string-p nil)
insert(nil "\n")
(lambda (val-elem) (indent-to col) (insert val-elem "\n"))(nil)
mapcar((lambda (val-elem) (indent-to col) (insert val-elem "\n")) (nil nil nil
nil nil))
(if match (progn (eval ...) (insert "\n")) (mapcar (function ...) (cond ...
... ... ...)))
(let ((match ...) (col ...) (val ...)) (if match (progn ... ...) (mapcar ... ...)))
eudc-print-attribute-value(("Full Name" nil nil nil nil nil))
(let ((field-beg ...)) (insert (format ... ...)) (put-text-property field-beg (point)
(quote face) (quote bold)) (indent-to (+ 2 column-width)) (eudc-print-attribute-value
field))
eudc-print-record-field(("Full Name" nil nil nil nil nil) 14)
(lambda (field) (eudc-print-record-field field width))(("Full Name" nil nil
nil nil nil))
mapcar((lambda (field) (eudc-print-record-field field width)) (("Full Name"
nil nil nil nil nil) ("First Name") ("Surname") ("Unit")
("Title") ("Mail" . "VZELL(a)DE.ORACLE.COM")
("Office" . "Düsseldorf") ("Manager" .
"cn=TNUSSBAU+objectclass=orclperson,dc=DE, dc=ORACLE, dc=COM") ("Uid"
. "VZELL") ("Phone" . "0211/74839-414")
("Orclosname" . "Dr.Volker.Zell") ("Employeenumber" .
"1250") ("Mailid" . "Dr. Volker .Zell")))
(lambda (record) (setq beg (point)) (mapcar (function ...) record) (overlay-put
(make-overlay beg ...) (quote eudc-record) (car records)) (setq records (cdr records))
(insert "\n"))((("Full Name" nil nil nil nil nil) ("First
Name") ("Surname") ("Unit") ("Title") ("Mail"
. "VZELL(a)DE.ORACLE.COM") ("Office" . "Düsseldorf")
("Manager" . "cn=TNUSSBAU+objectclass=orclperson,dc=DE, dc=ORACLE,
dc=COM") ("Uid" . "VZELL") ("Phone" .
"0211/74839-414") ("Orclosname" . "Dr.Volker.Zell")
("Employeenumber" . "1250") ("Mailid" . "Dr. Volker
.Zell")))
mapcar((lambda (record) (setq beg (point)) (mapcar (function ...) record) (overlay-put
(make-overlay beg ...) (quote eudc-record) (car records)) (setq records (cdr records))
(insert "\n")) ((("Full Name" nil nil nil nil nil) ("First
Name") ("Surname") ("Unit") ("Title") ("Mail"
. "VZELL(a)DE.ORACLE.COM") ("Office" . "Düsseldorf")
("Manager" . "cn=TNUSSBAU+objectclass=orclperson,dc=DE, dc=ORACLE,
dc=COM") ("Uid" . "VZELL") ("Phone" .
"0211/74839-414") ("Orclosname" . "Dr.Volker.Zell")
("Employeenumber" . "1250") ("Mailid" . "Dr. Volker
.Zell"))))
(if (null records) (insert "No match found.\n" (if eudc-strict-return-matches
"Try setting `eudc-strict-return-matches' to nil or change
`eudc-default-return-attributes'.\n" "")) (setq precords (mapcar ...
records)) (setq first-record (point)) (mapcar (function ...) precords))
My ldap lib is working.
Here is an example:
vzell:/cygdrive/c/tmp> type ldap
ldap is a function
ldap ()
{
ldapsearch.exe -L -b "dc=ORACLE,dc=COM" -h
ldap01.us.oracle.com -p 389 -v -u
"cn=$1"
}
vzell:/cygdrive/c/tmp> ldap vzell
ldap_init(
ldap01.us.oracle.com, 389 )
filter pattern: cn=vzell
returning: ALL
filter is: (cn=vzell)
dn: cn=VZELL+objectclass=orclperson,dc=DE,dc=ORACLE,dc=COM
ufn: VZELL+objectclass=orclperson,dc=DE,dc=ORACLE,dc=COM
mailid: Dr. Volker .Zell
employeenumber: 1250
cn: Zell,Dr.Volker
cn: VZELL
cn: Zell
cn: Dr.Volker
cn: Dr.Volker ,Zell
givenname: Dr.Volker
orclosname: Dr.Volker.Zell
telephonenumber: 0211/74839-414
uid: VZELL
sn: Zell
manager: cn=TNUSSBAU+objectclass=orclperson,dc=DE, dc=ORACLE, dc=COM
ou:: Mzc1MCAtIEVkdWNhdGlvbiBE/HNzZWxkb3Jm
roomnumber:: RPxzc2VsZG9yZg==
title: Dozent
mail: VZELL(a)DE.ORACLE.COM
1 matches
Also commands like
eudc-get-email
gives the correct results.
Any hints ?? This used to work with my old cygnus B20.1 installation of
XEmacs 21.1 "20 Minutes to Nikko" [Lucid] (i586-pc-cygwin32) and the same
eudc el-files.
Ciao
Volker