a little help please...

mavericku · Post by **mavericku** » Sat Dec 16, 2006 9:26 pm

Cheers guys,

i have another problem on which i need your help, if possible.
I`m in need of a script that will show this :

at the command of :

Code: Select all

 .listbanners

to show

Code: Select all

$hand1 = 1231 bans 
$hand2 = 21 bans
$hand3 = 12 bans

accordingly to the bots banlist for a specific channel ...
it is a script that shows the users who banned more.

hope i was explicit with my request

rosc2112 · Post by **rosc2112** » Sat Dec 16, 2006 9:59 pm

banlist [channel]
Returns: a list of global bans, or, if a channel is specified, a
list of channel-specific bans. Each entry is a sublist containing:
hostmask, comment, expiration timestamp, time added, last time
active, and creator. The three timestamps are in unixtime format.
Module: channels

Easy to make, just use [lindex] to extract the creator's name field, then count the number of matches.

Post by **nml375** » Sun Dec 17, 2006 10:50 am

This would sum all bans on all channels, providing a summary similar to your request...

Code: Select all

bind dcc - listbanners list_banners

proc list_banners {hand idx txt} {
 array set b_tmp {}
 foreach ban [banlist] {
  set banner [lindex $ban 5]
  if {![info exists b_tmp($banner)]} {
   set b_tmp($banner) 1
  } {
   incr b_tmp($banner)
  }
 }
 foreach channel [channels] {
  foreach ban [banlist $channel] {
   set banner [lindex $ban 5]
   if {![info exists b_tmp($banner)]} {
    set b_tmp($banner) 1
   } {
    incr b_tmp($banner)
   }
  }
 }
 foreach {banner bans} [array get b_tmp] {
  putidx $idx "$banner = $bans bans"
 }
}

mavericku · Post by **mavericku** » Sun Dec 17, 2006 8:30 pm

thank you very much nml375 .
thanks to rosc2112 as well for the tips.

Cheers mates