egghelp/eggheads community

if {[string match -nocase *guest* $nick2]} return set match 0 foreach i $bnick { if {[string match -nocase *$i* $nick]} { incr match set badpart $i break } } if {$match} { putquick "MODE $chan +b *$badpart*!*@*" putquick "KICK $chan $nick :$kickreason" } I missed to point out th...

I take it this piece of code is quite old and was aimed to work with previous versions of TCL library, but since TCL is at 8.6 (at least in my Debian server) should adapt every piece of code you are using to take advantage of what it has to offer. Anyway.. if {(([lsearch -exact [string tolower $bcha...

Instead of your ldiff you can use lmap and lsearch and can make it case insensitive if you want:

Code: Select all

set diff [lmap x $list1{expr {[lsearch -nocase $list2 $x] < 0 ? $x : [continue]}}]

You could try the mechanism used by Trivia scripts to somewhat protect their questions from copy/paste the questions.

Anything is possible as long as you give it the source to read the news from, meaning a website or something, to get them from there to your channel. Got any links or something?

What if there are two distinct people with same host?

@CrazyCat Ah, I see, in that case just replace it instead of removing and adding it again: proc add:spam {nick chan} { global spamlist set match 0 set now [clock seconds] if {[info exists spamlist($chan)]} { putserv "PRIVMSG $chan :spamlist exists for $chan" set pos [lsearch -nocase [dict ...

Good catch on that string tolower $chan as this could have caused some issues. Like I previously mentioned, should consider adding a nick change function and something for a bit of house keeping just in case something doesn't work as should and you end up with a big array stored in memory with a bun...

Instead of using the spamlist($chan,$nick) time format I would go with per channel format like spamlist($chan) {nick time} cos is easier to store and most important to maintain the list. So, with this in mind instead of: set ::spamlist($chan,$nick) [unixtime] would become: lappend spamlist($chan) [l...

Opening the link you mentioned in Firefox on Windows gives me a {status: "fail"} reply, but if where to use the same curl in Linux it works just fine, meaning getting the same result.

I used the link in the code with a random IP, then went on the website and tried the examples they give in the documentation page and i got the error I mentioned above. I concluded at the time it's a error on their side since I wasn't the only one that was apparently getting that error. Anyway...

Their API isn't working properly for some reason as i get this JSON answer: {"status":"fail","message":"SSL unavailable for this endpoint, order a key at https://members.ip-api.com/"} So, you got two options: 1. contact them and ask why the free plan isn't wor...

Did you add a putlog line to see what mode and value would be set and what error do you get? Something like:

Code: Select all

putlog "trying to set $mode to $value"

You shouldn't use set, arg or args cos they have special meanings in TCL.

Here's a nice trick with lassign:

Code: Select all

% set text "ap:repeatl 2:10 60 k:kb 2"
ap:repeatl 2:10 60 k:kb 2
% set value [lassign $text mode]
2:10 60 k:kb 2
% puts $mode
ap:repeatl
% puts $value
2:10 60 k:kb 2

Shouldn't it be:

Code: Select all

timer sec [list proc $arg1 $arg2 ...]

I mean shouldn't:

Code: Select all

set ::btimer($chan) [list [timer 20 [rmban $chan]]]

be:

Code: Select all

set ::btimer($chan) [timer 20 [list rmban $chan]]

Search found 3735 matches