unban all bans in userlist.

2009-11-23T00:43:48-04:00

Code:

bind dcc n clearbans ex_clearbansproc ex_clearbans {hand idx arg} {  putcmdlog "#$hand# clearbans $arg"  set chan [lindex [split $arg] 0]  if {$chan == ""} {    putidx $idx "Usage: clearbans  \[creator\]" ; return 0  }  set remove [lindex [split $arg] 1]  if {$chan == "-all"} {    set gcount 0 ; set ccount 0    foreach ban [banlist] {      if {$remove != ""} {        if {[string tolower [lindex $ban 5]] == [string tolower $remove]} {          killban [lindex $ban 0] ; incr gcount        }      } else {        killban [lindex $ban 0] ; incr gcount      }    }    foreach banchan [channels] {      foreach ban [banlist $banchan] {        if {$remove != ""} {          if {[string tolower [lindex $ban 5]] == [string tolower $remove]} {            killchanban $banchan [lindex $ban 0] ; incr ccount          }        } else {           killchanban $banchan [lindex $ban 0] ; incr ccount        }      }    }    if {$remove != ""} {      putidx $idx "Removed $gcount global and $ccount channel [nb_plural ban bans $ccount] set by $remove."    } else {      putidx $idx "Removed $gcount global and $ccount channel [nb_plural ban bans $ccount]."    }  } elseif {$chan == "-global"} {    set count 0    foreach ban [banlist] {      if {$remove != ""} {        if {[string tolower [lindex $ban 5]] == [string tolower $remove]} {          killban [lindex $ban 0] ; incr count        }      } else {        killban [lindex $ban 0] ; incr count      }    }    if {$remove != ""} {      putidx $idx "Removed $count global [nb_plural ban bans $count] set by $remove."    } else {      putidx $idx "Removed $count global [nb_plural ban bans $count]."    }  } elseif {[string trim [string index $chan 0] "#+&!"] == ""} {    if {![validchan $chan]} {      putidx $idx "$chan is not a valid channel."    } else {      set count 0      foreach ban [banlist $chan] {        if {$remove != ""} {          if {[string tolower [lindex $ban 5]] == [string tolower $remove]} {            killchanban $chan [lindex $ban 0] ; incr count          }        } else {          killchanban $chan [lindex $ban 0] ; incr count        }      }      if {$remove != ""} {        putidx $idx "Removed $count $chan [nb_plural ban bans $count] set by $remove."      } else {        putidx $idx "Removed $count $chan [nb_plural ban bans $count]."      }    }  }  return 0}proc nb_plural {word plural llength} {  if {$llength != 1} {    return $plural  }  return $word}

Code:

.clearbans #channel [creator]## remove all bans on #channel or only those set by [creator].clearbans -global [creator]## remove all global bans or only those set by [creator].clearbans -all [creator]## remove all bans or only those set by [creator]

From extra.tcl and netbots.tcl (components of netbots scripts by slennox)

Statistics: Posted by DarkRaptor — Mon Nov 23, 2009 12:43 am

unban all bans in userlist.

2009-10-30T13:39:59-04:00

hi guys.

Can someone make a script for unban all bans in userlist of my eggdrop?

Because:

Code:

.bans #chan * ! [1] *!*@201.250.147.32 (perm)         Op1: You are probably infected! Get your computer clean on #dmsetup         Created 2 days ago, last used 2 days ago.................bla bla bla ! [2604] *!*@201.240.25.6 (perm)         Op4: You are probably infected! Get your computer clean on #dmsetup         Created 4 days ago.................bla bla bla ! [4613] *!*@190.50.111.90 (perm)         Op2: You are probably infected! Get your computer clean on #dmsetup         Created 4 days ago ! [4614] *!*@190.173.213.81 (perm)         Op7: You are probably infected! Get your computer clean on #dmsetup         Created 4 days ago

so i have 4614 bans in userlist, and i want that with one public command remove all this bans. maybe !erasebans.

I don't want use: .-ban #chan *!*@... for every ban, u know.

Thanks.

Statistics: Posted by Nor7on — Fri Oct 30, 2009 1:39 pm

egghelp/eggheads community

unban all bans in userlist.

unban all bans in userlist.