Tk Library Source Code: Attachment Details

Overview

Artifact ID:	c53c17bc557fd5a72c0b0ffd4718460a73271e01
Ticket:	1082061fffffffffffffffffffffffffffffffff
Date:	2004-12-09 19:48:53
User:	dossy
Artifact Attached:	aae54e295954467420232fb796fff4aae762e664
Filename:	rfe-1082061-patch.txt
Description:	Add -scope option to ldap::search patch - 20041209

Content:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
--- ldap.tcl.orig	2004-12-09 07:30:46.000000000 -0500
+++ ldap.tcl	2004-12-09 07:42:36.000000000 -0500
@@ -55,7 +55,7 @@
 #-----------------------------------------------------------------------------
 
 
-package provide ldap 1.2
+package provide ldap 1.3
 
 
 namespace eval ldap {
@@ -359,7 +359,7 @@
 #               dn1 { attr1 val1 attr2 val2 ... } dn2 { a1 v1 } ....
 #
 #-----------------------------------------------------------------------------
-proc ldap::search { handle baseObject filterString attributes } {
+proc ldap::search { handle baseObject filterString attributes args} {
 
     upvar $handle conn
 
@@ -369,6 +369,19 @@
     set timeLimit    0
     set attrsOnly    0
 
+    foreach {key value} $args {
+        switch -- $key {
+            -scope {
+                switch -- $value {
+                    base { set scope 0 }
+                    one - onelevel { set scope 1 }
+                    sub - subtree { set scope 2 }
+                    default { set scope $value }
+                }
+            }
+        }
+    }
+
     #----------------------------------------------------------
     #   marshal filter and attributes parameter
     #----------------------------------------------------------