File: ldaptool

package info (click to toggle)
libtcl-ldap 1.0-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 180 kB
  • ctags: 305
  • sloc: ansic: 1,435; tcl: 161; makefile: 57
file content (108 lines) | stat: -rwxr-xr-x 2,303 bytes parent folder | download
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
107
108
#!/usr/bin/wish

load tclLdap.so

proc about_ldaptool {} {
tk_dialog .about_ldaptool "About LDAPTool" \
"LDAPTool is a RFC2307 compliant network managent tool modeled after
the Solaris \'admintool\'" warning 0 OK
}
# MENUS

frame .menubar \
  -relief raised -bd 2
menubutton .menubar.file \
  -text "File" \
  -menu .menubar.file.menu \
  -underline 0
menu .menubar.file.menu -tearoff no
.menubar.file.menu add command \
  -label "Exit" \
  -underline 1 \
  -command { exit }

menubutton .menubar.edit \
  -text "Edit" \
  -menu .menubar.edit.menu \
  -underline 0
menu .menubar.edit.menu -tearoff no
.menubar.edit.menu add command \
  -label "Add..." \
  -underline 0 \
  -command { true }
.menubar.edit.menu add command \
  -label "Modify..." \
  -underline 0 \
  -command { true }
.menubar.edit.menu add separator
.menubar.edit.menu add command \
  -label "Delete" \
  -underline 0 \
  -command { true }

menubutton .menubar.browse \
  -text "Browse" \
  -menu .menubar.browse.menu \
  -underline 0
menu .menubar.browse.menu -tearoff no
.menubar.browse.menu add command \
  -label "Users" \
  -underline 0 \
  -command { true }
.menubar.browse.menu add command \
  -label "Groups" \
  -underline 0 \
  -command { true }
.menubar.browse.menu add command \
  -label "Hosts" \
  -underline 0 \
  -command { true }
.menubar.browse.menu add command \
  -label "Services" \
  -underline 0 \
  -command { true }

menubutton .menubar.help \
  -text "Help" \
  -menu .menubar.help.menu \
  -underline 0
menu .menubar.help.menu -tearoff no
.menubar.help.menu add command \
  -label "About Ldaptool..." \
  -underline 0 \
  -command { about_ldaptool }
.menubar.help.menu add command \
  -label "About Managing Users..." \
  -underline 6 \
  -command { true }
pack .menubar.file .menubar.edit .menubar.browse \
  -side left
pack .menubar.help \
  -side right

frame .tx
text .tx.text \
  -yscrollcommand {.tx.scrl set}
scrollbar .tx.scrl \
  -command ".tx.text yview"
pack .tx.scrl  -side right -fill y
pack .tx.text -side left

frame .statusbar
label .statusbar.host \
  -text "\"dc=marcus,dc=seva,dc=net\" on marcus.seva.net"
#label .statusbar.null \
# -text ""
pack .statusbar.host \
  -side right -fill y

pack .menubar \
  -side top \
  -fill x \
  -expand true
pack .tx
pack .statusbar \
  -side bottom