error kline

[Bader]

anyone edit this tcl,

Code: Select all

# Kline Command
proc proc_kline {text} {
set time [lindex $text 0]
set ip [lindex $text 1]
set reason [lrange $text 2 end]
putserv "KLINE $time $ip $reason" 
putlog "-=\002$nick\002=- Klined this ip: $ip ,for $reason ,for time (mins): $time" }
bind pub m|m !kline proc_kline

i try to make it, like if i said on the channel,

!kline time *@ip reason

the bot klined the ip with the reason,,

thanks

[Sir_Fz]

Code: Select all

bind pub m|m !kline proc_kline

proc proc_kline {nick uhost hand chan arg} {
 set time [lindex [set arg [split $arg]] 0]
 set ip [lindex $arg 1]
 set reason [join [lrange $arg 2 end]]
 putserv "KLINE $time $ip $reason"
 putlog "-=\002$nick\002=- Klined this ip: $ip ,for $reason ,for time (mins): $time"
}

Edit: extra brace removed, thanx Ian-Highlander.

[Ian-Highlander]

Code: Select all

bind pub m|m !kline proc_kline

proc proc_kline {nick uhost hand chan arg} {
 set time [lindex [set arg [split $arg]] 0]
 set ip [lindex $arg 1]
 set reason [join [lrange $arg 2 end]]
 putserv "KLINE $time $ip $reason"
 putlog "-=\002$nick\002=- Klined this ip: $ip ,for $reason ,for time (mins): $time" }
}

Might want to take the extra curly bracket off the end of the putlog line