egghelp/eggheads community

No, i meant I was working on something else where had implemented something similar and did a copy/paste without actually thinking.

Anyway, how do you check if someone has his nickname registered/logged in with NickServ?

Was working on another piece of code with arrays and got carried away.

Well that should fix everything.

Ah, right. I made some changes in the proc names and forgot to adjust. Anyway, to debug this thing just add:

Code: Select all

putlog "Will voice $nick in $chan channel in $delay seconds"

before or after:

Code: Select all

utimer $delay [list sv:voice $nick $chan]

and see if that happens after said seconds.

set sv(delay) 60:120 set sv(chan) "#chan1 #chan2" bind join - * sv:join bind nick - * sv:nick proc sv:join {nick uhost hand chan} { sv:delay $nick $uhost $hand $chan } proc sv:nick {nick uhost hand chan newnick} { sv:delay $nick $uhost $hand $chan $newnick } proc sv:delay {nick uhost hand...

Here's a better link with Regular Expression Examples . If you don't want to fiddle with regexp and basically reinvent the wheel, then use the ip package that comes with TCLlib that offers some tools to validate ipv4 or ipv6, like: % package require ip 1.4 ::ip::version 192.168.0.1 1 % ::ip::version...

Most likely cos you are doing a cleanup on $data2, instead of $data.. anyway your variables confuses me so I made it from scratch. proc IP:proc {nick host hand chan text} { variable api if {[scan $text {%s} ip] < 1} return set url "http://api.ipstack.com/$ip?access_key=$api&hostname=1"...

He said

Code: Select all

set ip($varname) [dict get $data2 $varname]

and you used:

Code: Select all

variable ip($varname) [dict get $data2 $varname]

To make it less confusing I would replace varname with key, since that's what you are looping over the keys from that dictionary.

Replace:

Code: Select all

http::register https 443 tls:socket

with:

Code: Select all

http::register https 443 [namespace current]::tls:socket

Code: Select all

if {[dict get $data status] eq "success" } {
      return $data
   }

this line doesn't make much sense to me. might want to look at it.

Right, let's give matchaddr a try then by replacing:

Code: Select all

if {![string match -nocase $ban $n![getchanhost $n $c]]} continue

with:

Code: Select all

if {![matchaddr $ban $n![getchanhost $n $c]]} continue

See if this works and reply back.

Ah, there's a space between - and $enforce(max), just remove it in: incr len - $enforce(max) like: incr len -$enforce(max) As for this: looks to be working good caesar is it possible to have it also remove ban on all channels if a ban is removed Add this in the namespace of the other code: bind mode...

Ah, that stuff..

That stuff is from my early stages of figuring out stuff and was meant for me to learn new stuff. I'll have a look on this today or tomorrow and get back with an updated code.

By me? I don't recall ever making one.

That's because it doesn't come from eggdrop's commands, but from tcllib, meaning it doesn't have an implementation to see them.

Followed the error to the mc proc and I fail to understand what's is it's purpose. proc mc {text {str ""} args} { return [format $text $str $args] } given that it's use is: if { [::msgcat::mc GREGORIAN_CHANGE_DATE] == "GREGORIAN_CHANGE_DATE"} { ::msgcat::mcset [::msgcat::mclocale...

Search found 3736 matches