Untitled

proc moderoc {nick uhost hand chan mode victim} { 
        global botnick debug flg bots 
        if {$mode == "+b"} { 
                if {$nick == $botnick} { 
                        foreach ban [banlist $chan] { 
                                set host [lindex $ban 0] 
                                set reason [lindex $ban 1] 
                                set life [lindex $ban 2] 
                                set exp [expire:ban $life] 
                                set by [lindex $ban 5] 
                                if {$host == $victim} { 
                                        putlog "Banning: $chan $host $by $reason L: $exp" 
                                         proc:ban $chan $host $by $reason $exp 
                                } 
                        } 
                } 
        } 
}