...
proc iojTQ_FISH {nick uhost hand chan arg} {
global iojTQ
set cmdline [decrypt $iojTQ(fish_key) $arg]
set dcmd [lindex $cmdline 0]
set darg [lrange $cmdline 1 end]
if { $dcmd == "\[BAD\]" } {
iojTQ:BAD [lindex $cmdline 1]
}
foreach prc $iojTQ(proces) {
set n [split $prc "-"]
if { $dcmd == "$iojTQ(cmdp)[lindex $n 0]" } {
[lindex $n 1] $nick $uhost $hand $chan $darg
break
}
}
...
|