or this
Code:
#!ftp site deluser login
#!ftp site gadduser group login pass ip
#!ftp site kick login
bind pub -|- !ftp FTPCMD
proc FTPCMD {nick uhost hand chan args} {
global ioBvar
if { ($chan == "#yourchanname") && ([ioB:istrusted $uhost]) } {
if { [string tolower [lindex $args 0]] == "site" } {
if { [string tolower [lindex $args 1]] == "deluser" } {
catch { set ee [::ftp::Quote $ioBvar(ftp) SITE DELUSER [lindex $args 2]] } result
}
if { [string tolower [lindex $args 1]] == "gadduser" } {
catch { set ee [::ftp::Quote $ioBvar(ftp) SITE GADDUSER [lindex $args 2] [lindex $args 3] [lindex $args 4] [lindex $args 5]] } result
}
if { [string tolower [lindex $args 1]] == "kick" } {
catch { set ee [::ftp::Quote $ioBvar(ftp) SITE KICK [lindex $args 2]] } result
}
set lines [split $ee "\n"]
foreach line $lines {
putquick "PRIVMSG $chan :[lrange [split $line] 1 end]"
}
}
}
return
}