blob: 1a715cca4840cf0e8a72100ccf6d552264daf6a2 (
plain)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
#!/usr/bin/env tclsh
## -*- tcl -*-
#-----------------------------------------------------------------------------
#
# A small tool to query a LDAP database and to display all/some
# attributes.
#
#
# $Log: ldapquery,v $
# Revision 1.2 2004/04/27 21:15:02 andreas_kupries
# Fixed buglet. (Typo of varname).
#
# Revision 1.1 2004/04/27 19:45:35 andreas_kupries
#
# * installed_modules.tcl: Added new module.
# * examples/ldap:
# * modules/ldap: New module: LDAP client. Provided to us by Joechen
# Loewer <loewerj@web.de>.
#
# * Added doctools documentation.
#
# Revision 1.3 2000/03/23 18:03:10 18:03:10 jolo (Jochen Loewer)
# added sorting of types when all types/attributes
# are listed
#
# Revision 1.2 2000/03/23 17:45:40 17:45:40 jolo (Jochen Loewer)
# does a package require now!
#
# Revision 1.1 2000/03/23 17:40:23 17:40:23 jolo (Jochen Loewer)
# Initial revision
#
#
#
# written by Jochen Loewer
# 4 June, 1999
#
#-----------------------------------------------------------------------------
package require ldap
#source ./ldap.tcl
#-----------------------------------------------------------------------------
# begin of M A I N part
#-----------------------------------------------------------------------------
if {$argc < 3} {
puts stderr "usage: "
puts stderr " ldapquery <ldapserver> <base> <filter> ?<attribute> <attribute> ...?"
puts stderr "example: "
puts stderr " ldapquery ldap.acme.com \"o=acme.com\" \"(cn=Miller*)\" "
puts stderr " ldapquery ldap.acme.com:389 \"o=acme.com\" \"(cn=Miller*)\" l mail"
puts stderr " ldapquery ldap \"o=acme.com\" \"&(l=Paris*)(cn=Miller*)\" cn telephonenumber ou"
exit 1
}
foreach {server base query} [lrange $argv 0 2] break
set fields [lrange $argv 3 end]
set port 389
regexp {([^:]*):([0-9]*)} $server --> server port
set handle [ldap::connect $server $port]
ldap::bind $handle
set results [ldap::search $handle $base $query $fields]
foreach result $results {
foreach {object attributes} $result break
#------------------------------------------
# calculate optimal width
#------------------------------------------
set width 0
set sortedAttribs {}
foreach {type values} $attributes {
if {[string length $type] > $width} {
set width [string length $type]
}
lappend sortedAttribs [list $type $values]
}
if {$fields == {}} {
# sort all by type
set sortedAttribs [lsort -index 0 $sortedAttribs]
}
puts "object='$object'"
foreach sortedAttrib $sortedAttribs {
foreach {type values} $sortedAttrib break
foreach value $values {
regsub -all "\[\x01-\x1f\]" $value ? value
puts [format " %-${width}s %s" $type $value]
}
}
puts ""
}
ldap::unbind $handle
ldap::disconnect $handle
#-----------------------------------------------------------------------------
# begin of M A I N part
#-----------------------------------------------------------------------------
|
