egghelp/eggheads community

How to get version

2021-03-26T10:50:01-04:00

Nadae asked me an example of script which forbid all clients version different of (in example) "Kiwi IRC" and "mIRC", working for everybody but "lololo".

I did it (sorry guys, with french comments) : https://gitlab.com/-/snippets/2095934

Statistics: Posted by CrazyCat — Fri Mar 26, 2021 10:50 am

How to get version

2021-03-26T08:53:34-04:00

perhaps this will be of use:

Code:

 set acnick {    "John"}bind raw - NOTICE server:noticesproc server:notices {from keyword text} {    global  acnick      if {[string match -nocase "*client connecting on*" $text]} {        set nick [lindex [split $text] 9]        set hostmask [lindex [split $text] 10]    foreach i [string tolower $acnick] {   if {![string match -nocase  $i $nick]} {          putserv "PRIVMSG $nick :\001VERSION\001"   }}        return 0      }      if {[string match -nocase "*client connecting at*" $text]} {        set nick [lindex [split $text] 8]        set hostmask [lindex [split $text] 9]   foreach i [string tolower $acnick] {   if {![string match -nocase  $i $nick]} {          putserv "PRIVMSG $nick :\001VERSION\001"   }}        return 0      }}set badclient {   "mirc"}bind ctcr -|- "VERSION" ctcr:checkproc ctcr:check {nick host hand dest keyword text} { if {$keyword == "VERSION"} {       foreach checknick $::badclient {           if {[string match -nocase *$checknick* [stripcodes bcruag $text]]} {                              putquick "GLINE $host 1h :You match a Bad Client. This is not Permitted on \017\002\00306 $::network. \017  Please Use another Client and Reconnect."           }       }   }}

Statistics: Posted by simo — Fri Mar 26, 2021 8:53 am

How to get version

2021-03-25T18:44:26-04:00

No, the ban version block is here to forbid some client version, not to forbid all but one or two.

Statistics: Posted by CrazyCat — Thu Mar 25, 2021 6:44 pm

How to get version

2021-03-25T14:54:06-04:00

If you use unrealircd, you can use the ban version feature

CrazyCat with unrealircd is it possible to choose: if the version is different from ...?
In this case it is written how?

Statistics: Posted by Nadae — Thu Mar 25, 2021 2:54 pm

How to get version

2021-03-25T11:07:09-04:00

heh yeah, was doing that code this morning at 5am and hadn't slept, will try fix it after work.

Thanks caesar

Statistics: Posted by ComputerTech — Thu Mar 25, 2021 11:07 am

How to get version

2021-03-25T08:56:46-04:00

Thats even a better approach thanks CrazyCat

Statistics: Posted by simo — Thu Mar 25, 2021 8:56 am

How to get version

2021-03-25T08:37:49-04:00

If you use unrealircd, you can use the ban version feature

Statistics: Posted by CrazyCat — Thu Mar 25, 2021 8:37 am

How to get version

2021-03-25T08:19:48-04:00

well first you need to know what IRCD is it running in and does bot have IRCOP
privileges

Statistics: Posted by simo — Thu Mar 25, 2021 8:19 am

How to get version

2021-03-25T12:53:22-04:00

1. string match expects two arguments (two strings), while in:

Code:

if {![string match -nocase "$nicks"]} {

and:

Code:

if {![string match -nocase "*[string tolower $version]*"]} {

you are missing one of them. You should ditch looping over a list and use lsearch (that means list search) directly instead.

Code:

% set bv_nicks {"john" "paddy"}"john" "paddy"% set nick "something"something% lsearch -nocase $bv_nicks $nick-1% set nick PaddyPaddy% lsearch -nocase $bv_nicks $nick1

2. In this code

Code:

foreach nicks $bv_nicks {     if {![string match -nocase "$nicks"]} {        return 0     }

if you want to stop the iteration or skip one element use break or continue, depending on what you want to achieve. For example:

Code:

% set numbers { 1 2 3 4 5 6 } 1 2 3 4 5 6% foreach number [split $numbers] {        if {$number == 3} {                continue        }        puts $number}12456

Notice that 3 is missing, and in this:

Code:

% foreach number [split $numbers] {        if {$number == 3} {                break        }        puts $number}12

notice that the execution has been stopped when number is 3.

3. In this code:

Code:

if {![isbotnick $nick]} {

you can test the TRUE state instead of FALSE one and return, so this saves you of the keeping in mind you have one } to add somewhere at the end.

4. In this code:

Code:

proc Client_Connect {from key arg} {  putserv "PRIVMSG $from :\001VERSION\001"}

I have my doubts that using $from is the client you want to version check, most likely that's the server itself sending you something in the $arg (avoid using arg as it has some special meaning in TCL) with client information and you need to parse the details from the line it sends. Might want to do some research first.

Oh, and don't use return 0 if you don't want to have an actual 0 (zero) returned in a function or whatnot.

I've moved the topic to the correct section.

Statistics: Posted by caesar — Thu Mar 25, 2021 2:29 am

How to get version

2021-03-25T17:42:13-04:00

First of all: this is "Scripting Help" this post is better in "Script Requests"

Second:

Code:

# set allow nicksset bv_nicks {"john" "paddy"}# Set allow versionsset bv_versions {"version1" "version2"} bind raw - NOTICE Client_Connectbind ctcr - VERSION ctcr:bv_ctcpproc Client_Connect {from key arg} {  putserv "PRIVMSG $from :\001VERSION\001"}proc ctcr:bv_ctcp {nick host hand dest key arg} {global bv_versions bv_nicksif {![isbotnick $nick]} {   foreach nicks $bv_nicks {     if {![string match -nocase "$nicks"]} {      return 0     }foreach version $bv_versions {if {![string match -nocase "*[string tolower $version]*"]} { return 0}}    putquick "gline $host 30m :Bad Version"} }}

Untested

Statistics: Posted by ComputerTech — Thu Mar 25, 2021 12:02 am

How to get version

2021-03-24T20:35:07-04:00

Hello,

I would like that for each person who connects, we can get their ctcp version. And that if the person is not the nickname "John" and the version of the person does not correspond to what I want it is gline for 30 minutes.

How to do ?

Statistics: Posted by Nadae — Wed Mar 24, 2021 8:35 pm