egghelp/eggheads community

raw binding

2021-01-02T06:12:20-04:00

to avoid the "lag" problem, I put the rest of the code in ldm:whoraw instead of ldm:who

but now

when bot enter in a new channel, I think eggdrop performs a global "WHO #channel" command and so it runs my procedure that catch raw 352 too :)

How can solve this problem? with utimer method of willyw? right?

Statistics: Posted by geek — Sat Jan 02, 2021 6:12 am

raw binding

2020-12-27T14:56:49-04:00

yes tnx, global var ::ldmident works

BUT

there is a kind of "lag" between the WHO command and the availability of the value compute in ldm:whoraw

SO

the first execution I get "no such variable", the following I get a result but is "the old" ident, lol

THIS OCCURS:

(fresh restart of the eggdrop)

first time:
!testraw nickONE -> I get "no such variable"

second time:
!testraw nickTWO -> I get identONE

third time:
!testraw nickTHREE -> I get identTWO

and so on...

Statistics: Posted by geek — Sun Dec 27, 2020 2:56 pm

raw binding

2020-12-27T13:47:13-04:00

Check out:

http://www.tcl.tk/man/tcl8.6/TclCmd/global.htm

Statistics: Posted by willyw — Sun Dec 27, 2020 1:47 pm

raw binding

2020-12-27T12:27:27-04:00

1. ident is too generic, better to use something like ldmident

yes :)

2. your variable is set with the answer of the /who command, but the /who is initiated by your ldm:who proc. So you can't already have this value.

you mean in ldm:who:

example1)
puthelp "PRIVMSG #test :$::ldmident"
putserv "WHO $nickname"

example2)
putserv "WHO $nickname"
puthelp "PRIVMSG #test :$::ldmident"

1 -> not work / error
2 -> work

right?

EDIT: NO!

perhaps now I have understand
I try example2 and I get "no such variable" error again
You mean that "it takes some time" for ::ldmident to be available and use it
right?

Statistics: Posted by geek — Sun Dec 27, 2020 12:27 pm

raw binding

2020-12-27T12:07:29-04:00

Use global variable:

Code:

set ::ident [lindex $text 2]...puthelp "PRIVMSG #test :$::ident"

Take care about 2 things:

1. ident is too generic, better to use something like ldmident
2. your variable is set with the answer of the /who command, but the /who is initiated by your ldm:who proc. So you can't already have this value.

Statistics: Posted by CrazyCat — Sun Dec 27, 2020 12:07 pm

raw binding

2020-12-27T11:38:49-04:00

and if I want pass a variable from ldm:whoraw to ldm:who ?

something like:

Code:

proc ldm:whoraw {from key text} {   set ident [lindex $text 2]   return}

and in ldm:who

Code:

puthelp "PRIVMSG #test :$ident"

I get always Tcl error: can't read "ident": no such variable

Statistics: Posted by geek — Sun Dec 27, 2020 11:38 am

raw binding

2020-12-27T11:10:30-04:00

...
yes, I'll use your code
and very tnx willyw

And test it. Then test it some more.

One way: use
.binds raw
from the partyline, to be sure that the bind is first there, and then gone, when you expect both.

Statistics: Posted by willyw — Sun Dec 27, 2020 11:10 am

raw binding

2020-12-27T07:35:37-04:00

You can have multiple scripts using the same raw number without any trouble.

thanks :)

This is a quite good idea to use utimer to unbind, but you can have side effects.

what kind of side effects?

Statistics: Posted by geek — Sun Dec 27, 2020 7:35 am

raw binding

2020-12-27T06:18:56-04:00

The ldm:whoraw will catch any who response sent to the eggdrop.
and if are there more than one scripts that catch the same raw number? is it a problem?
very tnx CrazyCat

You can have multiple scripts using the same raw number without any trouble.

It is what I usually do.
Code:
...
The idea is to create the bind that you will need.
Then, a few seconds later, unbind it.
yes, I'll use your code
and very tnx willyw

This is a quite good idea to use utimer to unbind, but you can have side effects.

Statistics: Posted by CrazyCat — Sun Dec 27, 2020 6:18 am

raw binding

2020-12-27T06:05:41-04:00

The ldm:whoraw will catch any who response sent to the eggdrop.

and if are there more than one scripts that catch the same raw number? is it a problem?
very tnx CrazyCat

It is what I usually do.
Code:
...
The idea is to create the bind that you will need.
Then, a few seconds later, unbind it.

yes, I'll use your code :)
and very tnx willyw

Statistics: Posted by geek — Sun Dec 27, 2020 6:05 am

Re: raw binding

2020-12-27T03:15:47-04:00

...
the question is: when I use it, does "ldm:whoraw" capture ONLY the /who command inside this script or is there the possibility that catch /who command from others scripts too?
...

If this is a concern, here's an idea to consider. It is what I usually do.

Code:

proc ldm:who {nick host hand chan arg} {   bind raw - "352" ldm:whoraw    utimer 5 [list unbind raw - "352" ldm:whoraw]   < continue with the rest of the procedure's code here >}

The idea is to create the bind that you will need.
Then, a few seconds later, unbind it.

Of course, you should adjust the value of the utimer to whatever you think is best.

I hope this helps.

Statistics: Posted by willyw — Sun Dec 27, 2020 3:15 am

raw binding

2020-12-26T20:06:23-04:00

The ldm:whoraw will catch any who response sent to the eggdrop.
You can simply test that: in party-line, do a .tcl putserv "WHO $botnick" and your proc will work.

A bind catch a specific server event, it's totally independant of who/what asked the server to react.

But your script is secure as it just displays server's who replies to a particular channel. If it's just a test script, you'd better use a putlog and check in party-line, to avoid flood on your server.

Statistics: Posted by CrazyCat — Sat Dec 26, 2020 8:06 pm

raw binding

2020-12-26T19:33:29-04:00

I write this small tcl script to understand raw binding:

Code:

##raw 352risposta al WHO "vanilla"##raw 354risposta al WHOX che è la versione "extended"####nel RFC 1459 ( https://www.rfc-editor.org/rfc/rfc1459.txt )#402ERR_NOSUCHSERVER#352RPL_WHOREPLY#315RPL_ENDOFWHO#bind pub - !testraw ldm:whoproc ldm:who {nick host hand chan arg} {set nickname [stripcodes * $arg]set nickname [string trim $nickname]set arguments [llength $nickname]if { $arguments > 1 } {puthelp "PRIVMSG $chan :specificare un utente alla volta"return} elseif { $arguments == 0 } {puthelp "PRIVMSG $chan :specificare il nickname"return}if { ![onchan $nickname $chan] } {puthelp "PRIVMSG $chan :nickname non trovato"return}putserv "WHO $nickname"#bind raw - "315" ldm:whorawbind raw - "352" ldm:whoraw#bind raw - "354" ldm:whoraw#bind raw - "402" ldm:whorawreturn}proc ldm:whoraw {from key text} {puthelp "PRIVMSG #prova :$text"return}

is this script secure? are there potential problems with other scripts?

the question is: when I use it, does "ldm:whoraw" capture ONLY the /who command inside this script or is there the possibility that catch /who command from others scripts too?

(sorry for my english)

Statistics: Posted by geek — Sat Dec 26, 2020 7:33 pm