egghelp/eggheads community

Vip Script Based on Hosts ?

2007-05-25T15:26:12-04:00

It was just a basebone..
A working version would be:

Code:

set chanvoice(channel) "#channel"set chanvoice(file) "chanvoice.txt"bind join -|- {*} chanvoice:joinbind raw -|- {354} chanvoice:rawproc chanvoice:join {nick host hand chan} {  global chanvoice  if {![string equal -nocase $chanvoice(channel) $chan]} { return }  puthelp "WHO $nick n%at,88"}proc chanvoice:raw {from raw arg} {  global chanvoice  set tag [lindex [split $arg] 1]  if {$tag != "88"} { return }  set nick [lindex [split $arg] 2]  set auth [lindex [split $arg] 3]  if {$auth == "" || $auth == "0"} { return }  set data [read -nonewline [set file [open "$chanvoice(file)" r]]]  close $file  foreach x [split $data \n] {    if {$x == ""} { return }    if {[string equal -nocase $auth $x]} {        pushmode $chanvoice(channel) +v $nick        break    }  }}

Not tested, but should work...

Statistics: Posted by r0t3n — Fri May 25, 2007 3:26 pm

Vip Script Based on Hosts ?

2007-05-25T14:53:00-04:00

So, what would be the bindings ?

I dont understand anything in TCL

Statistics: Posted by paps — Fri May 25, 2007 2:53 pm

Vip Script Based on Hosts ?

2007-05-25T14:47:23-04:00

You'd still need some bindings I suppose... and [lindex ... 2#3] ? :p

Statistics: Posted by nml375 — Fri May 25, 2007 2:47 pm

Vip Script Based on Hosts ?

2007-05-25T14:45:00-04:00

the t option can be added.

A fixed version with the t paramater:

Code:

set chanvoice(channel) "#channel"set chanvoice(file) "chanvoice.txt"proc chanvoice:join {nick host hand chan} {  global chanvoice  if {![string equal -nocase $chanvoice(channel) $chan]} { return }  puthelp "WHO $nick n%at,88"}proc chanvoice:raw {from raw arg} {  global chanvoice  set tag [lindex [split $arg] 1]  if {$tag != "88"} { return }  set nick [lindex [split $arg] 2]  set auth [lindex [split $arg] 2#3]  if {$auth == "" || $auth == "0"} { return }  set data [read -nonewline [set file [open "$chanvoice(file)" r]]]  close $file  foreach x [split $data \n] {    if {$x == ""} { return }    if {[string equal -nocase $auth $x]} {        pushmode $chanvoice(channel) +v $nick        break    }  }}

The tag in this example is 88.

Statistics: Posted by r0t3n — Fri May 25, 2007 2:45 pm

Vip Script Based on Hosts ?

2007-05-25T14:36:13-04:00

Interresting, I suppose this could be extended to create a database of auth'd nicks (and their accuntname) by extending the WHO-query to the speciffic channel when the bot joins.
Should also be trivial to modify the raw 354 "handler" to update a list of nick/auths-pairs to cache this information in order to further reduce traffic.

Might almost be worth writing a module..

Edit:
Just found this page that provided some nice information: http://www.mircscripts.org/showdoc.php? ... al&id=2412
Might be a good idea to tag the query in case any other scripts would use these extended /WHO-queries.

Statistics: Posted by nml375 — Fri May 25, 2007 2:36 pm

Vip Script Based on Hosts ?

2007-05-25T14:01:50-04:00

You can use a /who reply for this (raw 354 reply)

Code:

set chanvoice(channel) "#channel"set chanvoice(file) "chanvoice.txt"proc chanvoice:join {nick host hand chan} {  global chanvoice  if {![string equal -nocase $chanvoice(channel) $chan]} { return }  puthelp "WHO $nick n%a"}proc chanvoice:raw {from raw arg} {  global chanvoice  set nick [lindex [split $arg] 1]  set auth [lindex [split $arg] 2]  if {$auth == "" || $auth == "0"} { return }  set data [read -nonewline [set file [open "$chanvoice(file)" r]]]  close $file  foreach x [split $data \n] {    if {$x == ""} { return }    if {[string equal -nocase $auth $x]} {        pushmode $chanvoice(channel) +v $nick        break    }  }}

Not tested, but can be used as a basebone...

Statistics: Posted by r0t3n — Fri May 25, 2007 2:01 pm

Vip Script Based on Hosts ?

2007-05-25T13:30:17-04:00

I'll try to explain my query alittle better then;
Each response-line from a whois-query (such as the examples you posted) is preceeded with a numeric responsecode (three digits). These are used to allow the client to know what kind of information the server is sending.

Taking the second example you posted, what is actually sent from the server is this:

311 nick ~xxxxx@xxx-xx-xxx-x-xxx.xxx.host.net * :Real Name
319 nick :#channel
312 nick *.quakenet.org :QuakeNet IRC Server
318 nick :End of /WHOIS list.

What we need is the number for the "nick is authed as xxxx" line. Unfortunately, this is not a "rfc 1459" message, but a QuakeNet feature (yes, some other networks use it aswell, I know...)

Also worth noting, implementing this would require your bot to send a whois-query whenever someone joins the channel. On highly trafficed channels this might cause some performace degradations.. just so you know.

Statistics: Posted by nml375 — Fri May 25, 2007 1:30 pm

Vip Script Based on Hosts ?

2007-05-25T13:02:17-04:00

Well, I dont think i really understand the question, but:

When you type /whois nick on quakenet you get something like this if the guy is authed :

nick is xxxx@xxxx.users.quakenet.org * Real Name
nick on +#channel #channel2 @#channel3
nick using port80b.se.quakenet.org Located at Port80, Sweden
nick is authed as xxxx
nick End of /WHOIS list.

When you do a /whois on someone that is not authed, this is what you get :

nick is ~xxxxx@xxx-xx-xxx-x-xxx.xxx.host.net * Real Name
nick on #channel
nick using *.quakenet.org QuakeNet IRC Server
nick End of /WHOIS list.

Is this enough to make a script work ?

thx

Statistics: Posted by paps — Fri May 25, 2007 1:02 pm

Vip Script Based on Hosts ?

2007-05-25T12:32:09-04:00

@paps:
As I am not familiar with Quakenet, which respose-code would be used to indicate the Q auth from a whois reply?

Statistics: Posted by nml375 — Fri May 25, 2007 12:32 pm

Vip Script Based on Hosts ?

2007-05-25T12:26:58-04:00

thx xU, but as far as i can see your script is based on hosts, right ? I'd like a script that voices based on the "Authed as Account-Name" (which appears on the /whois of Quakenet).

Statistics: Posted by paps — Fri May 25, 2007 12:26 pm

Vip Script Based on Hosts ?

2007-05-25T12:29:52-04:00

@xU:
What good would using a foreach-loop on a filehandle do?
Were'nt you thinking of actually reading the content of the file?
Also, you forget to close it afterwards, leaving uneccesary filehandles open...
Furthermore, your braces {} are unbalanced, and using lsearch on a plain string is not advisable (actually, in some rare conditions it's really bad).

edit:
Might aswell include a piece of code that is working:
Assumes one hostmask per line within the voice.txt file

Code:

set voicefile "voice.txt"setudef flag filevoicebind join - * join:checkvoiceproc join:checkvoice {nick host hand chan} { if {[channel get $chan chanvoice] && ![isbotnick $nick] && [botisop $chan]} {  set _t [split [read [set fid [open $::voicefile "RDONLY"]]] "\n"]  close $fid  foreach h $_t {   if {[string match -nocase $h $host]} {    pushmode $chan +v $nick    return   }  } }}

Statistics: Posted by nml375 — Fri May 25, 2007 12:18 pm

Vip Script Based on Hosts ?

2007-05-25T11:33:29-04:00

## set(s) ##
############

## channels
set chanvoice "#xU #qadsia"

## filename
set filehost "hosts.txl"

## bind ##
##########

bind join - * proc:join

## proc ##
##########
proc proc:join { nick host hand chan } {
global chanvoice txtfile
if {([isbotnick $nick]) || (![botisop $chan]) || (![lsearch -exact [string tolower $chanvoice] [string tolower $chan]] == "-1")} {return 0}
set ropen [open $filehost r]
foreach hostv $ropen {
if {([string match -nocase "$hostv" $host])} {putquick "mode $chan +v $nick;break}
}

Statistics: Posted by xU — Fri May 25, 2007 11:33 am

Vip Script Based on Hosts ?

2007-05-25T09:16:59-04:00

Thanks xU and Sir_Fz. It will help me a lot

And now what about a script that voices only people that are authed on Quakenet with a certain account ?
The bot should voice anyone that is authed (Q account) with one of the account-name listed on a text file or something...

Is this possible ? (My bot is on quakenet)

Thanks :]

Statistics: Posted by paps — Fri May 25, 2007 9:16 am

Vip Script Based on Hosts ?

2007-05-24T18:48:02-04:00

Add these hosts to a specific handle and give it the +v flag. Set your channel to +autovoice and they'll be autovoiced on join.

Statistics: Posted by Sir_Fz — Thu May 24, 2007 6:48 pm

Vip Script Based on Hosts ?

2007-05-24T17:02:01-04:00

hi paps,

you can use script without read from file:

Code:

## set(s) ################ channelsset chanvoice "#xU #qadsia"## host voiceser hosts { "*@*.qualitynet.net""*xU@*.WeArab.Knights""*@qadsia.com"}## bind ############bind join - * proc:join## proc ############proc proc:join { nick host hand chan } {global chanvoice hostsif {([isbotnick $nick]) || (![botisop $chan]) || (![lsearch -exact [string tolower $chanvoice] [string tolower $chan]] == "-1")} {return 0}foreach hostv $hosts {if {([string match -nocase "$hostv" $host])} {putquick "mode $chan +v $nick;break}}}

Statistics: Posted by xU — Thu May 24, 2007 5:02 pm