egghelp/eggheads community

ban duration convert from: y-m-w-d-h to minute

2022-01-19T09:52:22-04:00

your code seems to work proper Spike^^

CrazyCat your code seems to set ban duration permanent regardless of what is used

i used like : !addbl *!*@*.RU 2w uit testen

and it sets it as permanent ban i get no errors tho

Statistics: Posted by simo — Wed Jan 19, 2022 9:52 am

ban duration convert from: y-m-w-d-h to minute

2022-01-19T04:09:40-04:00

tested your latest code CC and got:

Tcl error [sticky_bansx]: missing operand at _@_
in expression "365*24*60*_@_"

Well, I'm too used to use languages interpreting "" as 0

Here is the corrected proc:

Code:

proc delay2min {delay} {   regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?(\d{1,})?} $delay - iy by iw bw id bd ih bh bm   set min 0   if {[string is integer by]} { incr min [expr 365*24*60*$by] }   if {[string is integer bw]} { incr min [expr 7*24*60*$bw] }   if {[string is integer bd]} { incr min [expr 24*60*$bd] }   if {[string is integer bh]} { incr min [expr 60*$bh] }   if {[string is integer bm]} { incr min [expr 1*$bm] }   return $min}

@SpiKe^^ : you have a small error in your script:

Code:

set dur [duration [expr {60*$min}]]

$min is in minutes, why do you convert it into seconds ?

Statistics: Posted by CrazyCat — Wed Jan 19, 2022 4:09 am

ban duration convert from: y-m-w-d-h to minute

2022-01-19T03:07:54-04:00

Fix cat's error by adding the [catch]es like I added to mine.
an empty string cant be used in an exp:)

Statistics: Posted by SpiKe^^ — Wed Jan 19, 2022 3:07 am

ban duration convert from: y-m-w-d-h to minute

2022-01-19T03:04:11-04:00

That's odd, I get a $min of 10080

That should work as a good expire time as it is an integer number.

Have you used the very last code I posted without edits?

Statistics: Posted by SpiKe^^ — Wed Jan 19, 2022 3:04 am

ban duration convert from: y-m-w-d-h to minute

2022-01-19T00:56:26-04:00

i did some more testing with your code Spike^^ and found bug

when i do like : !addbl *!*@*.RU 1w uit testen

i get

Tcl error [permanent_ban]: bogus expire time

Statistics: Posted by simo — Wed Jan 19, 2022 12:56 am

ban duration convert from: y-m-w-d-h to minute

2022-01-19T00:48:18-04:00

tested your latest code CC and got:

Tcl error [sticky_bansx]: missing operand at _@_
in expression "365*24*60*_@_"

ive edited it like this but it didnt seem to help as i still got error

Code:

proc delay2min {delay} {   regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?(\d{1,})?} $delay - iy by iw bw id bd ih bh bm   set min 0   incr min [expr {365*24*60*$by}]   incr min [expr {7*24*60*$bw}]   incr min [expr {24*60*$bd}]   incr min [expr {60*$bh}]   incr min [expr {1*$bm}]   return $min}

Tcl error [sticky_bansx]: can't use empty string as operand of "*"

Statistics: Posted by simo — Wed Jan 19, 2022 12:48 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T05:12:57-04:00

My code is corrected (forget to replace time with delay in proc)

Statistics: Posted by CrazyCat — Tue Jan 18, 2022 5:12 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T04:36:47-04:00

your posted code seems to work well thanks Spike^^

Statistics: Posted by simo — Tue Jan 18, 2022 4:36 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T04:28:34-04:00

tried your last post cc:

Tcl error [sticky_bans]: can't read "time": no such variable

Statistics: Posted by simo — Tue Jan 18, 2022 4:28 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T05:12:26-04:00

This may correct the two bugs (nick and improper set)

Code:

bind pub o|o !addbl permanent_banproc permanent_ban {nick host hand chan text} {set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]set items [split $text]if {[llength $items] < 3} {putnow "notice $nick :Syntax !addbl   " ;  return 0}set reason [join [lassign $items target time]]#if {$reason eq ""} {  set reason "default reason"  } ;# reason cant be empty:) #if {[matchaddr $target $::botname]} { return 0 }if {[matchstr permanent $time] || [matchstr perm $time] || [matchstr p $time]} {set min 0} else {set min [delay2min $time]}if {![string is digit -strict $min]} {putnow "NOTICE $nick :Sorry, can't calculate delay"return}newchanban $chan [join $target] $nick [join $reason] $min stickyif {$min == 0} {            set dur "forever"} else {            set dur $min}putnow "notice $nick :Added new sticky ban to the Eggdrop user file (duration: $dur)."return 0}proc delay2min {delay} {regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?(\d{1,})?} $delay - iy by iw bw id bd ih bh bmset min 0incr min [expr 365*24*60*$by]incr min [expr 7*24*60*$bw]incr min [expr 24*60*$bd]incr min [expr 60*$bh]incr min [expr 1*$bm]return $min}

Statistics: Posted by CrazyCat — Tue Jan 18, 2022 4:00 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T03:38:17-04:00

tried your version Spike^^ but setting bans on nicks like [nick] doesnt seem to work proper it sets it as {[nick]}

tested your version as well CC same issue and gettin error:

08:51:55 [08:51:55] Tcl error [sticky_bansx]: invalid bareword "set"
08:51:55 in expression "
08:51:55 set min [delay2min $time]...";
08:51:55 should be "$set" or "{set}" or "set(...)" or ...

Statistics: Posted by simo — Tue Jan 18, 2022 3:38 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T03:56:56-04:00

Why not just modify my regex to allow minutes:

Code:

proc delay2min {delay} {regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?(\d{1,})?} $time - iy by iw bw id bd ih bh bmset min 0   incr min [expr 365*24*60*$by]   incr min [expr 7*24*60*$bw]   incr min [expr 24*60*$bd]   incr min [expr 60*$bh]   incr min [expr 1*$bm]   return $min}

If argument is only an integer, it's minutes.

So, new code is:

Code:

bind pub o|o !addbl permanent_banproc permanent_ban {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set items [split $text]  if {[llength $items] < 3} {    putnow "notice $nick :Syntax !addbl   " ;  return 0  }  set reason [join [lassign $items target time]]  #if {$reason eq ""} {  set reason "default reason"  } ;# reason cant be empty:) #  if {[matchaddr $target $::botname]} { return 0 }  if {[matchstr permanent $time] || [matchstr perm $time] || [matchstr p $time]} {     set min 0  } elseif {     set min [delay2min $time]  }  if {![string is digit -strict $min]} {     putnow "NOTICE $nick :Sorry, can't calculate delay"     return  }   newchanban $chan $target $nick $reason $min sticky  if {$min == 0} {  set dur "forever"  } else {  set dur [duration [expr {60*$min}]]  }  putnow "notice $nick :Added new sticky ban to the Eggdrop user file (duration: $dur)."  return 0}proc delay2min {delay} {regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?(\d{1,})?} $time - iy by iw bw id bd ih bh bmset min 0   incr min [expr 365*24*60*$by]   incr min [expr 7*24*60*$bw]   incr min [expr 24*60*$bd]   incr min [expr 60*$bh]   incr min [expr 1*$bm]   return $min}

Statistics: Posted by CrazyCat — Tue Jan 18, 2022 3:24 am

ban duration convert from: y-m-w-d-h to minute

2022-01-18T03:11:59-04:00

Combined and cleaned up that might look something like...

Code:

bind pub o|o !addbl permanent_banproc permanent_ban {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set items [split $text]  if {[llength $items] < 3} {    putnow "notice $nick :Syntax !addbl   " ;  return 0  }  set reason [join [lassign $items target time]]  #if {$reason eq ""} {  set reason "default reason"  } ;# reason cant be empty:) #  if {[matchaddr $target $::botname]} { return 0 }  if {[matchstr permanent $time] || [matchstr perm $time] || [matchstr p $time]} {  set min 0  } elseif {[string is digit -strict $time]} {  set min $time  ### Thanks CrazyCat ###  } else {  set min 0    regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?} $time - iy by iw bw id bd ih bh    catch { incr min [expr {365*24*60*$by}] }    catch { incr min [expr {7*24*60*$bw}] }    catch { incr min [expr {24*60*$bd}] }    catch { incr min [expr {60*$bh}] }  }  newchanban $chan $target $nick $reason $min sticky  if {$min == 0} {  set dur "forever"  } else {  set dur [duration [expr {60*$min}]]  }  putnow "notice $nick :Added new sticky ban to the Eggdrop user file (duration: $dur)."  return 0}

can be done in several ways:
a) 1y26w |or| 1d12h |or| other variations of 1y2w3d4h (in that order)(every values are optional)
b) any integer number (of minutes). example: 150 (= 150 minutes or 2 and a half hours)
c) perm |or| p |or| permanent |or| 0 (= a forever permanent ban)

Statistics: Posted by SpiKe^^ — Tue Jan 18, 2022 3:11 am

ban duration convert from: y-m-w-d-h to minute

2022-01-17T19:21:40-04:00

Short proc, not tested in situ:

Code:

proc delay2min {delay} {regexp {((\d{1,})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?} $delay - iy by iw bw id bd ih bhset min 0incr min [expr 365*24*60*$by]incr min [expr 7*24*60*$bw]incr min [expr 24*60*$bd]incr min [expr 60*$bh]return $min}

The param must follow the order 1y2w3d4h (every values are optional), so you can use delay2min 1y17h or delay2min 52w1d but you CAN NOT do delay2min 1d2w

Statistics: Posted by CrazyCat — Mon Jan 17, 2022 7:21 pm

ban duration convert from: y-m-w-d-h to minute

2022-01-17T18:25:26-04:00

oh thats true forgot about that Spike^^ lets say we use days and weeks to counter that

Statistics: Posted by simo — Mon Jan 17, 2022 6:25 pm