old script Works
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
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"
}
---
This script, which tried to do
Code: Select all
# akill Command
proc proc_akill {text} {
set time [lindex $text 0]
set ip [lindex $text 1]
set reason [lrange $text 2 end]
putserv "msg OperServ akill $time $ip $reason"
putlog "-=\002$nick\002=- Klined this ip: $ip ,for $reason ,for time (mins): $time" }
bind pub m|m !akill proc_akill
proc proc_akill {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 "msg OperServ akill $time $ip $reason"
putlog "-=\002$nick\002=- Klined this ip: $ip ,for $reason ,for time (mins): $time"
}