egghelp/eggheads community

newban/newchanban expire

2005-05-06T20:48:57-04:00

Code:

proc newchan:ban { channel hostname creator comment lifetime } {if { ! [isban $hostname $channel] } { newchanban $channel $hostname $creator $comment $lifetimereturn} else { foreach ban [banlist $channel] {if { [string match -nocase "*[lindex $ban 0]*" $hostname] } {set expire [lindex $ban 2]if { $expire == 0 } { break ; return }set remain [expr $expire - [unixtime]]set remain [expr $remain / 60]if { $remain > $lifetime } { break ; return }newchanban $channel $hostname $creator $comment $lifetime}}}}proc new:ban { hostname creator comment lifetime } {if { ! [isban $hostname] } { newban $hostname $creator $comment $lifetimereturn} else { foreach ban [banlist] {if { [string match -nocase "*[lindex $ban 0]*" $hostname] } {set expire [lindex $ban 2]if { $expire == 0 } { break ; return }set remain [expr $expire - [unixtime]]set remain [expr $remain / 60]if { $remain > $lifetime } { break ; return }newban $hostname $creator $comment $lifetime}}}}

works now, thanks anyway.

Statistics: Posted by sKy — Fri May 06, 2005 8:48 pm

newban/newchanban expire

2005-05-06T20:08:55-04:00

Something like this should do it:

Code:

proc newchan:ban {chan ban who arg time} { if {![isban $ban $chan]} {  newchanban $chan $ban $who $arg $time } else {  foreach setban [banlist $chan] {   if {[string equal -nocase [lindex $setban 0] $ban]} {    if {$time > [lindex $setban 2]} {     newchanban $chan $ban $who $arg $time     break    }   }  } }}

same goes with new:ban.

Statistics: Posted by Sir_Fz — Fri May 06, 2005 8:08 pm

newban/newchanban expire

2005-05-06T19:23:08-04:00

right,

but if the bantime will be longer (permanent) i wish to have the new ban and not the old (shorter).

Statistics: Posted by sKy — Fri May 06, 2005 7:23 pm

newban/newchanban expire

2005-05-06T18:57:38-04:00

Can't you simply add a check before adding the ban, like

Code:

if {![isban $ban $channel]} { # newchanban}

this way the bot will not change the ban if it's already set.

Statistics: Posted by Sir_Fz — Fri May 06, 2005 6:57 pm

newban/newchanban expire

2005-05-06T17:29:44-04:00

I need 2 little procs. If a newchanban is allready set and bantime is 0 (permanent) and another script try to set a newchanban with a shorter expiretime this should be blocked.

Code:

proc newchan:ban { channel hostname creator comment lifetime } {if { ! [isban $hostname $channel] } {newchanban $channel $hostname $creator $comment $lifetime}if { [isban $hostname $channel] } {set h [string tolower $hostname]foreach ban [banlist $channel] {set host [lindex $ban 0]set hostt [string tolower $host]set expire [lindex $ban 2]if { $h == $hostt } {if { $expire == 0 } {return}}}}newchanban $channel $hostname $creator $comment $lifetime}proc new:ban { hostname creator comment lifetime } {if { ! [isban $hostname] } {newban $hostname $creator $comment $lifetime}set h [string tolower $hostname]if { [isban $hostname] } {foreach ban [banlist] {set host [lindex $ban 0]set hostt [string tolower $host]set expire [lindex $ban 2]if { $h == $hostt } {if { $expire == 0 } {return}}}}newban $hostname $creator $comment $lifetime}

Can you find a error?

Statistics: Posted by sKy — Fri May 06, 2005 5:29 pm