Error is this now:-
stephenw$ ./ldapapi.st
started
... about to run the search.
... search completed
Found results with base DN: ou=Users,dc=example,dc=com
Found first attribute
Object: CString new: 1 "<0x103bb58>" error: Invalid argument
CString(16r206130): must be a Boolean
SystemExceptions.MustBeBoolean(Exception)>>signal (AnsiExcept.st:216)
SystemExceptions.MustBeBoolean class(SystemExceptions.WrongClass
class)>>signalOn:mustBe: (AnsiExcept.st:913)
SystemExceptions.MustBeBoolean class>>signalOn: (AnsiExcept.st:989)
CString(Object)>>mustBeBoolean (Object.st:1359)
UndefinedObject>>executeStatements (ldapapi.st:177)
The block of code handling attribute/values looks like this now:-
[ aPtr isNil ] whileFalse: [
attr := String fromCData: aPtr.
aPtr free.
vals := ldap getValues: entry attribute: attr.
vals isNull ifTrue: [
val := vals.
attr printNl.
[ val value isNil ] whileFalse: [
(attr->val value) printNl.
val incr ].
"vals free. "
].
aPtr := ldap nextAttribute: entry ber: ber.
]
The isNull method looks like this now:-
CObject extend [
"Will be in 3.1"
isNull [ self address = 0 ]
]
Thank you
Stephen
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
