bind pubm mn "#Dj *" vs_op

proc vs_op {n u h c t} {
   if {![string equal -nocase "!djalım" [lindex [split $t] 0]]} { return }
       set mesaj [join [lrange [split $t] 1 end]]
       putserv "describe \$*$::server :$mesaj"
}