Shellexec

nyobain tcl script buat eggdrop. gw tau banyak error, dan ini juga simple banget. gak ada batasan.

bind dcc n shellexec dcc:shellexec
proc dcc:shellexec {host idx arg} {
    if {$arg == ""} { return 0 }
    set shellcmd [lindex [split $arg] 0]
    set cmdopt [lrange $arg 1 end]
    putlog "#$host# $shellcmd $cmdopt"
    set cmdresult [exec $shellcmd $cmdopt]
    putdcc $idx "$cmdresult"
}