26 |
# Depends on: none. |
# Depends on: none. |
27 |
|
|
28 |
namespace eval ::tcldrop::channels { |
namespace eval ::tcldrop::channels { |
29 |
# Provide the users module: |
# Provide the channels module: |
30 |
variable version {0.8} |
variable version {0.8} |
31 |
variable rcsid {$Id} |
variable rcsid {$Id$} |
32 |
package provide tcldrop::channels $version |
package provide tcldrop::channels $version |
33 |
# Initialize variables: |
# Initialize variables: |
34 |
variable Channels |
variable Channels |
367 |
setudef str need-invite {} |
setudef str need-invite {} |
368 |
setudef str need-key {} |
setudef str need-key {} |
369 |
setudef str need-limit {} |
setudef str need-limit {} |
370 |
|
setudef str need-halfop {} |
371 |
|
setudef str need-voice {} |
372 |
# Note, global-chanset better be a list: |
# Note, global-chanset better be a list: |
373 |
foreach f ${::global-chanset} { |
foreach f ${::global-chanset} { |
374 |
if {$f != {}} { |
if {$f != {}} { |