Lines Matching defs:ldap
38 # $Id: ldap.tcl,v 1.26 2008/11/22 12:25:27 mic42 Exp $
47 package provide ldap 1.8
49 namespace eval ldap {
122 # Lookup an numerical ldap result code and return a string version
125 proc ::ldap::resultCode2String {code} {
138 proc ::ldap::CheckHandle {handle} {
150 proc ldap::info {args} {
162 eval [linsert [lrange $args 1 end] 0 ldap::info_$cmd]
169 proc ldap::info_ip {args} {
172 "Wrong # of arguments. Usage: ldap::info ip handle"
178 "\"[lindex $args 0]\" is not a ldap connection handle"
184 # get the list of open ldap connections
187 proc ldap::info_connections {args} {
190 "Wrong # of arguments. Usage: ldap::info connections"
192 return [::info vars ::ldap::ldap*]
199 proc ldap::info_bound {args} {
202 "Wrong # of arguments. Usage: ldap::info bound handle"
208 "\"[lindex $args 0]\" is not a ldap connection handle"
218 proc ldap::info_bounduser {args} {
221 "Wrong # of arguments. Usage: ldap::info bounduser handle"
227 "\"[lindex $args 0]\" is not a ldap connection handle"
238 proc ldap::info_tls {args} {
241 "Wrong # of arguments. Usage: ldap::info tls handle"
247 "\"[lindex $args 0]\" is not a ldap connection handle"
252 proc ldap::info_saslmechanisms {args} {
255 "Wrong # of arguments. Usage: ldap::info saslmechanisms handle"
260 proc ldap::info_extensions {args} {
263 "Wrong # of arguments. Usage: ldap::info extensions handle"
268 proc ldap::info_control {args} {
271 "Wrong # of arguments. Usage: ldap::info control handle"
276 proc ldap::info_features {args} {
279 "Wrong # of arguments. Usage: ldap::info features handle"
284 proc ldap::info_whoami {args} {
287 "Wrong # of arguments. Usage: ldap::info whoami handle"
297 proc ldap::Saslmechanisms {conn} {
299 lindex [ldap::search $conn {} {(objectClass=*)} \
303 proc ldap::Extensions {conn} {
305 lindex [ldap::search $conn {} {(objectClass=*)} \
309 proc ldap::Control {conn} {
311 lindex [ldap::search $conn {} {(objectClass=*)} \
315 proc ldap::Features {conn} {
317 lindex [ldap::search $conn {} {(objectClass=*)} \
325 proc ldap::Whoami {handle} {
327 if {[lsearch [ldap::Extensions $handle] 1.3.6.1.4.1.4203.1.11.3] == -1} {
362 proc ldap::connect { host {port 389} } {
373 upvar #0 ::ldap::ldap$sock conn
388 fileevent $sock readable [list ::ldap::MessageReceiver ::ldap::ldap$sock]
389 return ::ldap::ldap$sock
396 proc ldap::secure_connect { host {port 636} } {
437 upvar ::ldap::ldap$sock conn
452 fileevent $sock readable [list ::ldap::MessageReceiver ::ldap::ldap$sock]
453 return ::ldap::ldap$sock
458 # starttls - negotiate tls on an open ldap connection
461 proc ldap::starttls {handle {cafile ""} {certfile ""} {keyfile ""}} {
471 if {[ldap::waitingForMessages $handle]} {
481 if {[lsearch -exact [ldap::Extensions $handle] 1.3.6.1.4.1.1466.20037] == -1} {
552 proc ldap::CreateAndSendMessage {handle payload} {
574 proc ldap::SendMessage {handle pdu} {
587 proc ldap::SendMessageNoReply {handle pdu} {
596 proc ldap::FinalizeMessage {handle messageId} {
609 proc ldap::WaitForResponse {handle messageId} {
643 proc ldap::waitingForMessages {handle} {
654 proc ldap::ProcessMessage {handle response} {
699 proc ldap::CleanupWaitingMessages {handle} {
711 proc ldap::MessageReceiver {handle} {
863 after 0 [list ::ldap::ProcessMessage $handle $pdu]
870 proc ldap::ReceiveBytes {sock bytes} {
890 proc ldap::bindSASL {handle {name ""} {password ""} } {
897 set mechs [ldap::Saslmechanisms $handle]
925 # May need adjustments for ldap.
928 proc ::ldap::SASLCallback {handle context command args} {
957 proc ldap::SASLAuth {handle mech name password} {
970 -service ldap \
971 -callback [list ::ldap::SASLCallback $handle]]
1017 proc ldap::buildSASLBindRequest {name mech {credentials {}}} {
1044 proc ldap::decodeSASLBindResponse {handle response} {
1074 proc ldap::bind { handle {name ""} {password ""} } {
1116 proc ldap::unbind { handle } {
1143 proc ldap::search { handle baseObject filterString attributes args} {
1170 proc ldap::searchInProgress {handle} {
1184 proc ldap::searchInit { handle baseObject filterString attributes opt} {
1254 proc ldap::buildSearchRequest {baseObject scope derefAliases
1286 proc ldap::searchNext { handle } {
1392 proc ldap::searchEnd { handle } {
1414 proc ldap::abandon {handle messageId} {
1432 proc ldap::modify { handle dn
1469 proc ldap::modifyMulti {handle dn
1492 append modifications [ldap::packOpAttrVal $operationReplace \
1499 append modifications [ldap::packOpAttrVal $operationAdd \
1512 append modifications [ldap::packOpAttrVal $operationDelete \
1542 proc ldap::packOpAttrVal {op attrValueTuples} {
1567 proc ldap::add { handle dn attrValueTuples } {
1590 proc ldap::addMulti { handle dn attrValueTuples } {
1645 proc ldap::delete { handle dn } {
1681 proc ldap::modifyDN { handle dn newrdn { deleteOld 1 } {newSuperior ! } } {
1729 proc ldap::disconnect { handle } {
1748 proc ldap::trace { message } {
1762 proc ldap::debugData { info data } {
1802 # ldap::filter -- set of procedures for construction of BER-encoded
1807 namespace eval ldap::filter {
1853 proc ldap::filter::encode s {
1863 proc ldap::filter::ProcessFilter s {
1876 proc ldap::filter::ProcessFilterComp s {
1898 proc ldap::filter::ProcessFilterList {apptype s} {
1917 proc ldap::filter::ProcessNegatedFilter s {
1924 proc ldap::filter::ProcessMatch s {
1966 proc ldap::filter::ExtractFilter s {
1992 proc ldap::filter::ProcessPresenceMatch attrdesc {
2002 proc ldap::filter::ProcessSimpleMatch {apptype attrdesc val} {
2015 proc ldap::filter::ProcessSubstringMatch {attrdesc initial any final} {
2053 proc ldap::filter::ProcessExtensibleMatch {lhs value} {
2075 proc ldap::filter::ParseExtMatchLHS {s attrdescVar optionsVar dnVar ruleidVar} {
2096 proc ldap::filter::ValidateAttributeDescription {attrdesc optionsVar} {
2111 proc ldap::filter::ProcessAttrTypeOptions s {
2123 proc ldap::filter::AssertionValue s {
2140 proc ldap::filter::LDAPString s {