Mine

proc dcc:mode { handle idx arg } {
	global botnick
	set channel [lrange $arg 0 0]
	set mode [lrange $arg 1 1]
	if { $arg == "" } {
		putlog "Usage: .mode #salon +/-mode"
	} else {
		if { ![string match -nocase "#*" $channel] } {
			putlog "$channel is not a channel (#*)"
		} else {
			if { [isop $botnick $channel] } {
				putlog "($channel) $handle sets $mode"
				putserv "mode $channel $mode"
			} else {
				putlog "$botnick is not operator on $channel"
			}
		}
	}
}