egghelp/eggheads community

Setting $chan when not a arg

2021-04-15T17:37:51-04:00

Really interesting, I never tested this way to use ping (or probably other ctcp commands), it could help for some scripts.

Gonne read another time the rfc-1459

Statistics: Posted by CrazyCat — Thu Apr 15, 2021 5:37 pm

Setting $chan when not a arg

2021-04-15T14:42:38-04:00

Interesting DasBrain, thanks very much for that

Statistics: Posted by ComputerTech — Thu Apr 15, 2021 2:42 pm

Setting $chan when not a arg

2021-04-15T15:07:24-04:00

There is an other way - as you can pass any data through the CTCP ping (the other side will return the data back to you), you can use this to keep track of who this PING belongs to.

In other words, if you send a "/CTCP PING FOO", they will reply with "/CTCR PING FOO".

Code:

set pingspending [dict create]set pingcounter 0proc ct:pub:ping {nick host hand chan text} {   global pingpending pingcounter   incr pingcounter   set who [lindex [split $text] 0]   dict set pingpending $pingcounter nick $nick   dict set pingpending $pingcounter chan $chan   dict set pingpending $pingcounter who $who   dict set pingpending $pingcounter time [clock clicks -milliseconds]   putquick "PRIVMSG $pingwho :\001PING $pingcounter\001"}proc ct:pingr {nick uhost hand dest keyword text} {   global pingpending   if {![dict exists $pingpending $text]} {return}   set data [dict get pingpending $text]   dict unset pingpending $text   set time [expr {([clock clicks -milliseconds] - [dict get $data time]) / 1000.000}]   set char "="   if {[expr {round($time / 0.5)}] > 10} {set red 10} else {set red [expr {round($time / 0.5)}]}   set green [expr {10 - $red}]   set output \00303[string repeat $char $green]\003\00304[string repeat $char $red]\003   if {($ctping(msg) == "0")} {      putquick "PRIVMSG [dict get $data chan] :\[\0030${colo}PING\003\] reply from $nick: \[\0030${colo}$time\003\] seconds $output"   } else {      putquick "NOTICE [dict get $data nick] :\[\0030${colo}PING\003\] reply from $nick: \[\0030${colo}$time\003\] seconds"   }}

Statistics: Posted by DasBrain — Thu Apr 15, 2021 2:33 pm

Setting $chan when not a arg

2021-04-15T14:08:03-04:00

forgot about this post.

Yes willyw, that would make the ping reply proc output to the $nick

I also changed to

Code:

unset pingchan($nick)

and it works great

Statistics: Posted by ComputerTech — Thu Apr 15, 2021 2:08 pm

Setting $chan when not a arg

2021-02-10T20:00:24-04:00

Code:

...putquick "NOTICE $nick :\[\0030${colo}PING\003\] reply from ...

...

What's stored in $nick there?
Is that what you really want there?

Statistics: Posted by willyw — Wed Feb 10, 2021 8:00 pm

Setting $chan when not a arg

2021-02-10T19:55:22-04:00

well maybe i could do

Code:

unset pingchan($nick)

I'll try come up with more ideas myself while you're sleeping.

Statistics: Posted by ComputerTech — Wed Feb 10, 2021 7:55 pm

Setting $chan when not a arg

2021-02-10T19:29:12-04:00

So you do:

Code:

unset pingchan

You unset the full array when you got the first ping reply ? What about the others if they did !ping at the same moment ?

And you don't check if pingchan($pingwho) exists, you just use it... This code is not really better than your previous one, I'll try to show ytou how to do that in a few hours, it's sleepin time now

Statistics: Posted by CrazyCat — Wed Feb 10, 2021 7:29 pm

Setting $chan when not a arg

2021-02-10T19:58:10-04:00

got a working version which does the job

Code:

# Start Of Configuration ############################Set trigger of the Command.set ctping(trig) "@"###################Set flag for Commands.###Owner     = n#Master    = m#Op        = o#Voice     = v#Friend    = f#Everyone  = -set ctping(flag) "-|-"###################Set to use Notice Or Channel for Output of Command###1 = Notice#0 = Channelset ctping(msg) "0"###################Set Colour of Output###White       = 0#Black       = 1#Dark Blue   = 2#Green       = 3#Red         = 4#Brown       = 5#Purple      = 6#Orange      = 7#Yellow      = 8#Light Green = 9#DarkCyan    = 10#LightCyan   = 11#LightBlue   = 12#Pink        = 13#Dark Grey   = 14#Light Grey  = 15set colo "3"###################Set Time per usage of Command##set ctping(time) "5"######################### End Of Configuration ##################################################################################################################################################################bind pub $ctping(flag) $ctping(trig)ping ct:pub:pingbind ctcr - PING ct:pingrproc ct:pub:ping {nick host hand chan text} {global pingchan pingwhoset pingwho [lindex [split $text] 0]if {$pingwho == ""} {set pingwho $nick}putquick "PRIVMSG $pingwho :\001PING [clock clicks -milliseconds]\001"set pingchan($pingwho) $chan}proc ct:pingr {nick uhost hand dest keyword text} {global pingchan ctping colo pingwhoset time [expr {([clock clicks -milliseconds] - $text) / 1000.000}]set char "="if {[expr {round($time / 0.5)}] > 10} {set red 10} else {set red [expr {round($time / 0.5)}]}set green [expr {10 - $red}]set output \00303[string repeat $char $green]\003\00304[string repeat $char $red]\003if {($ctping(msg) == "0")} {putquick "PRIVMSG $pingchan($pingwho) :\[\0030${colo}PING\003\] reply from $pingwho: \[\0030${colo}$time\003\] seconds $output"} else {putquick "NOTICE $nick :\[\0030${colo}PING\003\] reply from $pingwho: \[\0030${colo}$time\003\] seconds"}unset pingchan}

Probably not the best heh

Statistics: Posted by ComputerTech — Wed Feb 10, 2021 5:25 pm

Setting $chan when not a arg

2021-02-10T08:47:34-04:00

Sure, I just gave an indication on the kind of variable to use, no more.
There is several examples here about how to manage that.

Statistics: Posted by CrazyCat — Wed Feb 10, 2021 8:47 am

Setting $chan when not a arg

2021-02-10T01:59:39-04:00

Since there's no code to clear the array it will pile up and eat his RAM at some point. Apart this, he needs to add a piece of code to track nickname changes, parts, quits and maybe some flood control mechanism just to be on the safe side.

Statistics: Posted by caesar — Wed Feb 10, 2021 1:59 am

Setting $chan when not a arg

2021-02-09T19:26:49-04:00

:
...

Code:

set pingchan($nick) $chan

Just thinking ...

Wouldn't it be possible, with a lot of users, to thus have a huge array?
Would it consume a lot of memory?

Would it be wise to come up with some code to clear it all, somehow?

Statistics: Posted by willyw — Tue Feb 09, 2021 7:26 pm

Setting $chan when not a arg

2021-02-09T14:47:57-04:00

Oh i see CrazyCat, Thank You for the idea

Statistics: Posted by ComputerTech — Tue Feb 09, 2021 2:47 pm

Setting $chan when not a arg

2021-02-09T11:39:37-04:00

It works because the ping reply is quick and you don't have a lot of queries.

If you have several users on several channels asking for a ping in a few delay, the reply can go to the bad chan.

You'd better store chan in an array:

Code:

set pingchan($nick) $chan

Statistics: Posted by CrazyCat — Tue Feb 09, 2021 11:39 am

Setting $chan when not a arg

2021-02-09T05:42:59-04:00

Meh, i'll post my entire script and not bother creating examples heh

Code:

bind pub $ctping(flag) $ctping(trig)ping ct:pub:pingbind ctcr - PING ct:pingrset pingchan "" proc pub:ping {nick host hand chan text} {  global pingchan pingwho  set pingwho [lindex [split $text] 0]     if {$pingwho == ""} {set pingwho $nick}  putquick "PRIVMSG $pingwho :\001PING [clock clicks -milliseconds]\001"  set pingchan $chan } proc ct:pingr {nick uhost hand dest keyword args} {  global pingchan ctping colo pingwho char  set time [expr {([clock clicks -milliseconds] - $args) / 1000.000}]      if {[expr {round($time / 0.5)}] > 10} {set red 10} else {set red [expr {round($time / 0.5)}]}      set green [expr {10 - $red}]      set output \00303[string repeat $char $green]\003\00304[string repeat $char $red]\003  if {($ctping(msg) == "0")} {   putquick "PRIVMSG $pingchan :\[\0030${colo}PING\003\] reply from $pingwho: $output \[\0030${colo}$time\003\] seconds"  } else {   putquick "NOTICE $nick :\[\0030${colo}PING\003\] reply from $pingwho: \[\0030${colo}$time\003\] seconds"  } }

so as you can see proc 1 sets $pingchan and then use global to bring it to proc 2, script works perfect

Statistics: Posted by ComputerTech — Tue Feb 09, 2021 5:42 am

Setting $chan when not a arg

2021-02-09T01:58:32-04:00

The function that is triggered by the bind pub expects 5 arguments and you provided just 4 in your second function.

Code:

proc test:two {nick host hand chan text} { # your code}

Statistics: Posted by caesar — Tue Feb 09, 2021 1:58 am