egghelp/eggheads community

ctcp no version reply help

2023-08-13T07:13:29-04:00

ok it's fine, I've tried it and now it works fine.

Code:

bind raw - notice check:versionbind ctcr - VERSION version:replyproc check:version {from key text} {   global cversion   if {[string match *!*@* $from]} { return 0 } {   if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return 0 }   if {[lsearch -regexp $nick] ne -1} { return }   set text [split $text]   set cversion([string tolower $nick]) 1   putserv "PRIVMSG $nick :\001VERSION\001"   # Timer to addutimer 5 [list no:version:reply $nick]  }}proc version:reply {nick uhost hand dest kw arg} { global cversion if {[info exists cversion([string tolower $nick])]} {  unset cversion([string tolower $nick]) }}proc no:version:reply {nick} {   global cversion   if {[info exists cversion([string tolower $nick])]} {   unset cversion([string tolower $nick])      putserv "gline $nick 5m :ta ta"   }}

I have to say that with eggdrop in clone attack it does create a lot of lag , but ... I have mounted it in sbnc and now it has no lag .

Thank you very much CrazyCat , I have touched your code but I think it works .

Statistics: Posted by PeLL — Sun Aug 13, 2023 7:13 am

ctcp no version reply help

2023-08-12T09:56:33-04:00

Underdstood. A closing bracket you probably add in the ctcp proc messed up the script.

Good version:

Code:

proc ctcp {from key text} {   global cversion   if {[string match *!*@* $from]} { return 0 }   if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return 0 }   if {[lsearch -regexp $nick] ne -1} { return }   set text [split $text]   set cversion([string tolower $nick]) 10   putserv "PRIVMSG $nick :\001VERSION\001"   # Timer to add   utimer 15 [list no:version:reply nick host]  return 0}

Statistics: Posted by CrazyCat — Sat Aug 12, 2023 9:56 am

ctcp no version reply help

2023-08-11T17:51:21-04:00

oh that's right, I made a mistake about ctcp...

23:26:15 pell [23:21:38] -NOTICE- *** CONNECT: Client connecting on port 6667 (class main): Guest-98765!Guest@XX.XX.XX.XX (XX.XX.XX.XX) [...]
23:26:15 pell [23:21:39] Tcl error [version:reply]: invalid command name "version:reply"
23:26:15 pell [23:21:39] CTCP reply VERSION: mIRC v7.36 Khaled Mardam-Bey from Guest-98765 (Guest@egg-9hl.fe7.r1tsib.IP) to pell
23:26:29 pell [23:21:53] Tcl error in script for 'timer95':
23:26:29 pell [23:21:53] invalid command name "no:version:reply"

Statistics: Posted by PeLL — Fri Aug 11, 2023 5:51 pm

ctcp no version reply help

2023-08-11T17:29:08-04:00

Simo is right, you have to do:

Code:

putserv "PRIVMSG $nick :\001VERSION\001"

And concerning your error: can you show us your complete script ? If you only have the small piece of code which is in this thread, this error is weird. Or you have a typo somewhere.

Statistics: Posted by CrazyCat — Fri Aug 11, 2023 5:29 pm

ctcp no version reply help

2023-08-11T16:28:14-04:00

Also u seem to use ping to check version

Statistics: Posted by simo — Fri Aug 11, 2023 4:28 pm

ctcp no version reply help

2023-08-11T15:29:03-04:00

I confess that this was what I did the first time but the timer didn't work...

Tcl error in script for 'timer83':
invalid command name "no:version:reply"

like this for all connections, utimer error...

Thank you very much CrazyCat.

Statistics: Posted by PeLL — Fri Aug 11, 2023 3:29 pm

ctcp no version reply help

2023-08-11T02:07:49-04:00

Your no:version:reply is never called.

Add a timer to run it after a reasonable delay:

Code:

proc ctcp {from key text} {   global cversion   if {[string match *!*@* $from]} { return 0 }   if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return 0 }   if {[lsearch -regexp $nick] ne -1} { return }    set text [split $text]   set cversion([string tolower $nick]) 10   putserv "PRIVMSG $nick :\001ping\001"   # Timer to add   utimer 15 [list no:version:reply nick host]  }  return 0}proc no:version:reply {nick uhost} {   global cversion   if {[info exists cversion([string tolower $nick])]} {      #putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"      #putserv "KICK $chan $nick :No CTCP version reply"      putserv "Gline $nick :no ctcp"      unset cversion([string tolower $nick])   }}

Statistics: Posted by CrazyCat — Fri Aug 11, 2023 2:07 am

ctcp no version reply help

2023-08-10T14:09:40-04:00

I want to continue this post to see if what I want to do is possible...
Following the post with the ctcp on join chan (it works perfectly) I need it to work on connect to the server.

Currently it works to inspire the ctcp but it doesn't work for it to be positive or negative.

Code:

bind raw - notice ctcpbind ctcr - VERSION version:replyproc ctcp {from key text} {global cversionif {[string match *!*@* $from]} { return 0 }        if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return 0 }      if {[lsearch -regexp $nick] ne -1} { return }    set text [split $text]set cversion([string tolower $nick]) 10    putserv "PRIVMSG $nick :\001ping\001"  }  return 0}proc version:reply {nick uhost hand dest kw arg} { global cversion if {[info exists cversion([string tolower $nick])]} {  unset cversion([string tolower $nick]) }}proc no:version:reply {nick} { global cversion if {[info exists cversion([string tolower $nick])]} {  #putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"  #putserv "KICK $chan $nick :No CTCP version reply"  putserv "Gline $nick :no ctcp"  unset cversion([string tolower $nick])  }}

Ctcp on connect if it works, but it doesn't know anything else...
Thank you very much for the help .

Statistics: Posted by PeLL — Thu Aug 10, 2023 2:09 pm

ctcp no version reply help

2019-04-30T17:20:44-04:00

I would set the utimer to maybe 30 or even 45 seconds as some people connecting to a network may experience lag between themselves and the bot, and if no version was received or late received, it would kick and ban the user for that.

Might be a better idea for the bot to message a channel op on kick letting them know that this user was kicked and when for ctcp.

Statistics: Posted by Dominatez — Tue Apr 30, 2019 5:20 pm

ctcp no version reply help

2019-04-27T18:04:55-04:00

if right.
Thank you very much for answering

Statistics: Posted by PeLLq — Sat Apr 27, 2019 6:04 pm

ctcp no version reply help

2019-04-27T16:58:53-04:00

so ur bot is opered ?

Statistics: Posted by simo — Sat Apr 27, 2019 4:58 pm

ctcp no version reply help

2019-04-26T12:06:38-04:00

Hello greetings.
I am looking for a TCL that can make ctcp version on connect.
And if you can ignore webchat or webchat user modes.

Statistics: Posted by PeLLq — Fri Apr 26, 2019 12:06 pm

ctcp no version reply help

2019-03-08T02:31:17-04:00

You two realize this is an old topic? Open a new topic and link to this if you really have to and let this one rest in the Archives.

@PeLL If you add 'ignore idents' on a large channel you will have a huge ignore list in no time. What do you want to achieve? What's the issue?

@Dominatez : The error you get has nothing to do with this since there's no ctcpvers function nor verschan is used in here. Look in your other scripts.

Statistics: Posted by caesar — Fri Mar 08, 2019 2:31 am

ctcp no version reply help

2019-03-07T16:05:27-04:00

I am getting the following error.

Tcl error [ctcpvers]: can't read "::verschan": no such variable

Statistics: Posted by Dominatez — Thu Mar 07, 2019 4:05 pm

ctcp no version reply help

2019-02-28T16:55:02-04:00

It works very well
Can you add to ignore idents?
Large channel much lag.
Thank you .

Statistics: Posted by PeLL — Thu Feb 28, 2019 4:55 pm