Thread: irc command
View Single Post
Old 12-10-2004, 11:37 AM  
jeza
Senior Member
 
jeza's Avatar
 
Join Date: May 2003
Posts: 530
Default

Code:

proc iRCDELUSER {nick uhost hand chan args} { 

  global ioBvar

  if { ($chan == "#yourchanname") && ([ioB:istrusted $uhost]) } {
    
    catch { set ee [::ftp::Quote $ioBvar(ftp) SITE DELUSER [lindex $args 0]] } result
    
    set lines [split $ee "\n"]
    
    foreach line $lines { 
      putquick "PRIVMSG $chan :$line"
    }
    
  }
  
  return
  
}
jeza is offline   Reply With Quote