Tcl Library Source Code

Artifact 14a37f03a56f90d3d2dd7ba4350bb040bafcf5ee:

Attachment "ldapx.man.patch" to ticket [4cff6a4296] added by pda 2017-03-21 12:06:28. (unpublished)

---

--- modules/ldap/ldapx.man.bak	2009-01-29 07:16:19.000000000 +0100
+++ modules/ldap/ldapx.man	2017-03-21 13:01:56.420528413 +0100
@@ -578,7 +578,7 @@
     #
 
     l configure -scope one
-    ::ldapx::ldap create e
+    ::ldapx::entry create e
     set n 0
     l traverse "ou=people,o=mycomp" "(sn=Joe*)" {sn givenName} e {
 	puts "dn: [e dn]"
@@ -595,7 +595,7 @@
     #
 
     set lent [l search "ou=people,o=mycomp" "(sn=Joe*)" {}]
-    ::ldapx::ldap create c
+    ::ldapx::entry create c
     foreach e $lent {
 	$e backup
 	$e add1 "telephoneNumber" "+31415926535"
@@ -606,6 +606,7 @@
 	}
 	$e destroy
     }
+    c destroy
 
     l disconnect
     l destroy