egghelp/eggheads community

Re: add JOIN watch notify

2019-08-25T08:04:39-04:00

Hi guys, thanks for help. One last thing. How can i add JOIN notify in same TCL? So, QUIT and JOIN Notify in one TCL.

Code:

# August 21, 2018#  #http://forum.egghelp.org/viewtopic.php?t=20495# I am looking for tcl script to notify (with private msg to nick) quit events of certain people on channel.## I am following my friend az## Ex. on channel# * Quits: @az (az@slackware.com) (Ping Timeout)## Ex. in pvt## Egg > hi, doni. az quit right now. Reason: Ping Timeout############################################ set the list of nicks to watch for quitsset nicks2watch "foo moo who"# set the nick to notify via pmset pm_nick "your_nick"# set the channel to watchbind sign - "#temptest *" do_quit_notify#####proc do_quit_notify {nick uhost handle chan reason} {global nicks2watch pm_nick        if {[lsearch -nocase [split $nicks2watch] [split $nick] ] != -1 } {                putserv "privmsg $pm_nick :Hi $pm_nick. $nick quit right now. Reason: $reason"        }}##########  August 25, 2019# One last thing. How can i add JOIN notify in same TCL? So, QUIT and JOIN # Notify in one TCL. bind join - "* *" do_join_notifyproc do_join_notify {nick uhost handle chan} {global nicks2watch pm_nick   if {[lsearch [string tolower [split $nicks2watch]] [string tolower [split $nick]] ] != -1 } {     putserv "privmsg $pm_nick :Hi $pm_nick. $nick joined $chan . [strftime %c]"        }}

###
###

Statistics: Posted by willyw — Sun Aug 25, 2019 8:04 am

add JOIN watch notify

2019-08-25T02:11:42-04:00

Hi guys, thanks for help. One last thing. How can i add JOIN notify in same TCL? So, QUIT and JOIN Notify in one TCL.

Thanks in advance!

Statistics: Posted by doni — Sun Aug 25, 2019 2:11 am

Re: TCL Quit status notifier

2019-07-29T18:00:17-04:00

Code:
  putserv "privmsg $pm_nick :Hi $pm_nick. $nick $uhost quit right now. Reason: $reason" 
Reference: http://docs.eggheads.org/mainDocs/tcl-commands.html
and text search to find: bind sign

Thanks

Statistics: Posted by doni — Mon Jul 29, 2019 6:00 pm

Re: TCL Quit status notifier

2019-07-28T12:51:11-04:00

...
Hi, how can i show full mask after $nick in privmsg?
Code:
"privmsg $pm_nick :Hi $pm_nick. $nick quit right now. Reason: $reason"
ex. Hi John. Mario!ident@host.com quit right now etc..
...

Code:

  putserv "privmsg $pm_nick :Hi $pm_nick. $nick $uhost quit right now. Reason: $reason"

Reference: http://docs.eggheads.org/mainDocs/tcl-commands.html
and text search to find: bind sign

Statistics: Posted by willyw — Sun Jul 28, 2019 12:51 pm

Re: TCL Quit status notifier

2019-07-28T12:31:20-04:00

Hi, how can i show full mask after $nick in privmsg?

Code:

"privmsg $pm_nick :Hi $pm_nick. $nick quit right now. Reason: $reason"

ex. Hi John. Mario!ident@host.com quit right now etc..

Thankyou

Statistics: Posted by doni — Sun Jul 28, 2019 12:31 pm

TCL Quit status notifier

2018-08-26T11:42:14-04:00

ex. on channel:
[Notice] john : hi guys, whatsup?

ex. in pvt or channel
Egg > john : hi guys, whatsup?

I don't get it. Perhaps that is because I get notices in channel, in my client. But why would you want to repeat what was just said, just using a different method? Especially why would you want to take what was said in a notice, and repeat it in the open channel?
There must be something that I'm not understanding....

I need to catch from channel &SERVERS notices of join and leave of irc servers (netsplit) and paste it in another channel as text message

Statistics: Posted by doni — Sun Aug 26, 2018 11:42 am

TCL Quit status notifier

2018-08-26T11:30:41-04:00

Guys, You are amazing!!! Thanks a lot!!!

You're welcome.

Just last question...

In the same TCL:
- how can i set for multiple users in the same tcl?
ex. az want check quits of some nicks in #ipv6 channel
john want check quits of different nicks in #tcl channel

You said "multiple users", yet your examples are ALSO multi-channel.

Either one of those complicates it.

I'd have to think about it a while, before deciding just how it would be best to go about it.

I'm not sure at all if or when I'll get to it. Perhaps somebody else here will want to jump in.

If they do - even if I do - don't expect it to be a simple couple lines of code to modify what you have now. It will most likely be all new.

- like quit, how can eggdrop catch full NOTICES from channel to send (paste) to user?

You'd just asked for "to user". That's singular. Are you going to later ask for it to be multi-user?

ex. on channel:
[Notice] john : hi guys, whatsup?

ex. in pvt or channel
Egg > john : hi guys, whatsup?

I don't get it. Perhaps that is because I get notices in channel, in my client. But why would you want to repeat what was just said, just using a different method? Especially why would you want to take what was said in a notice, and repeat it in the open channel?
There must be something that I'm not understanding....

Statistics: Posted by willyw — Sun Aug 26, 2018 11:30 am

TCL Quit status notifier

2018-08-26T05:45:51-04:00

Guys, You are amazing!!! Thanks a lot!!!
Just last question...

In the same TCL:
- how can i set for multiple users in the same tcl?
ex. az want check quits of some nicks in #ipv6 channel
john want check quits of different nicks in #tcl channel

- like quit, how can eggdrop catch full NOTICES from channel to send (paste) to user?

ex. on channel:
[Notice] john : hi guys, whatsup?

ex. in pvt or channel
Egg > john : hi guys, whatsup?

Thanks <3

Statistics: Posted by doni — Sun Aug 26, 2018 5:45 am

TCL Quit status notifier

2018-08-22T07:57:37-04:00

The -nocase argument was introduced in version 8.5, so most likely he's using 8.4 (if not lower).

I was unsure of this, and didn't take time to go try to look it up. Thank you.

As a matter of fact, it is easy to lose track of time ... I don't remember how long ago it has been when version 8.4 was typical. Time flies - it's getting to be a while now.

doni : What Ezekiel said, is what I would do too.

You can read about what the command that he uses does, here:
http://www.tcl.tk/man/tcl8.6/TclCmd/string.htm#M44

Statistics: Posted by willyw — Wed Aug 22, 2018 7:57 am

TCL Quit status notifier

2018-08-22T07:36:53-04:00

The -nocase argument was introduced in version 8.5, so most likely he's using 8.4 (if not lower).

doni you should consider upgrading the TCL library because everyone tends to use stuff that can be found in newer versions of the library.

Statistics: Posted by caesar — Wed Aug 22, 2018 7:36 am

TCL Quit status notifier

2018-08-23T00:57:06-04:00

it seems you use an older TCL version, try replacing the line:

if {[lsearch -nocase [split $nicks2watch] [split $nick] ] != -1 } {

with this one:

if {[lsearch [string tolower [split $nicks2watch]] [string tolower [split $nick]] ] != -1 } {

Statistics: Posted by Ezekiel — Wed Aug 22, 2018 2:54 am

Re: TCL Quit status notifier

2018-08-21T22:23:31-04:00

...
[08:48] Tcl error [do_quit_notify]: bad search mode "-nocase": must be -exact, - glob, or -regexp

i am using -exact and it's work! what are the differences between exact, glob or regexp?

The main page for TCL commands is:
http://www.tcl.tk/man/tcl8.6/TclCmd/contents.htm

Once there, you can find the lsearch command:
http://www.tcl.tk/man/tcl8.6/TclCmd/lsearch.htm

and all those things are explained there.

I don't even try to remember all that stuff - I just remember (I have it bookmarked) where and how to look it up when I need it.

"#temptest *" --> why *?

For this one, go here:
http://docs.eggheads.org/mainDocs/tcl-commands.html
and text search or scroll down to:
bind sign
and see this in context:
".... Wildcards can be used in the mask, which is matched against '#channel nick!user@host'. "

In other words, I put an asterisk there so that the bind would trigger on every quit. I thought that was what you wanted / needed.
If you WANT to limit it to triggering only on certain hostmasks, you can do it right there. Up to you. Hack at it. Experiment. Have fun.

Tip: When editing bind lines, a simple .rehash is often not sufficient. You may get unexpected results. While there are other ways to handle it, the simple, easiest way is: When editing bind lines, do a .restart to effect the change.
If you really want more explanation on why, say so and we'll go over it.

As for why you got that error ... about the -nocase switch I used with the lsearch command - I wonder what version of TCL you have.
I wonder if it is somehow a very old version....

In partyline, do: .status
and the version of TCL will be on one of the lines in the report returned.

I hope this helped.

Statistics: Posted by willyw — Tue Aug 21, 2018 10:23 pm

Re: TCL Quit status notifier

2018-08-21T20:21:26-04:00

[08:48] Tcl error [do_quit_notify]: bad search mode "-nocase": must be -exact, - glob, or -regexp

i am using -exact and it's work! what are the differences between exact, glob or regexp?

"#temptest *" --> why *?
THANKS!

Statistics: Posted by doni — Tue Aug 21, 2018 8:21 pm

Re: TCL Quit status notifier

2018-08-21T17:31:42-04:00

Experiment with this.

You will have to edit three lines.

Code:

# August 21, 2018#  #http://forum.egghelp.org/viewtopic.php?t=20495# I am looking for tcl script to notify (with private msg to nick) quit events of certain people on channel.## I am following my friend az## Ex. on channel# * Quits: @az (az@slackware.com) (Ping Timeout)## Ex. in pvt## Egg > hi, doni. az quit right now. Reason: Ping Timeout############################################ set the list of nicks to watch for quitsset nicks2watch "foo moo who"# set the nick to notify via pmset pm_nick "your_nick"# set the channel to watchbind sign - "#temptest *" do_quit_notify#####proc do_quit_notify {nick uhost handle chan reason} {global nicks2watch pm_nick        if {[lsearch -nocase [split $nicks2watch] [split $nick] ] != -1 } {                putserv "privmsg $pm_nick :Hi $pm_nick. $nick quit right now. Reason: $reason"        }}####

Only tested twice. Worked for me.

I hope this helps.

Statistics: Posted by willyw — Tue Aug 21, 2018 5:31 pm

TCL Quit status notifier

2018-08-21T08:30:45-04:00

Hi guys,
I am looking for tcl script to notify (with private msg to nick) quit events of certain people on channel.

I am following my friend az

Ex. on channel
* Quits: @az (az@slackware.com) (Ping Timeout)

Ex. in pvt

Egg > hi, doni. az quit right now. Reason: Ping Timeout

Someone help me?
Thanks a lot!

Statistics: Posted by doni — Tue Aug 21, 2018 8:30 am