Posted to tcl by Modo at Thu Nov 29 23:37:02 GMT 2007view raw

  1. bind pub n|o .ub pub:ub
  2.  
  3. proc pub:ub {nick uhost hand chan text} {
  4. global botnick drchan drreason opsc
  5. if {[botisop $drchan]} {
  6. if {[string length $text] > 0} {
  7. set tnick [lindex $text 0]
  8. if {[ischanban $tnick $drchan]} {
  9. killchanban $drchan $tnick
  10. putquick "privmsg X :unban $drchan $tnick"
  11. putserv "privmsg $opsc :$hand/$nick: I removed \002$tnick\002 from $drchan" }
  12. if {[isban $tnick]}
  13. killban $tnick
  14. } else { puthelp "NOTICE $nick : I can't see that ban in the channel list" }
  15. } else { puthelp "NOTICE $nick :SYNTAX: .ub <nick!user@host> - unbans an address" }
  16. } else { puthelp "NOTICE $nick :Pfff n-am op!" }
  17. }
  18.  
  19. don't found. i want remove ban (internal banlist from eggdrop) and via X too.