whois info [SOLVED]

[AskMe]

in MIRC when i do a whois i reveice this info

Code: Select all

nick is "www.mysitecom/?u=1234" ~bla@myhost.com

how can i retreive the full name info "www.mysitecom/?u=1234" ???

i need this info to make a matchattr

thanks

[Sir_Fz]

Raw 311, use the raw-bind to catch it.

[AskMe]

i need a little help on that

Code: Select all

bind raw - 311 uw:RAW311
proc uw:RAW311 {from keyword args} {
  set args [lindex $args]
  putlog "TEST $args"
}

i receive this

Code: Select all

TEST {botnick nick ~bla myhost.com  * :www.mysitecom/?u=1234}

anyone can help me to just have this info please?

Code: Select all

www.mysitecom/?u=1234

[nml375]

First off, don't use "args" as a parameter name. It has some special mechanics that will cause problems if you are not aware of them.

Next, say we changed it to "text", first step would be to either locate the colon (:), or split the string into a list (using colon as separator character).
Easiest would probably be using split, although this might cause some problems in some cases, whereas locating the colon should always work.

Next step would depend on which method you have chosen, and you will either use lindex to retireve the proper list-item from the newly formed list, or "string range" to select a substring from the textstring.

The following example uses the substring method:

Code: Select all

set i [expr [string first " :" $text] + 1]
set info [string range $text $i end]

[AskMe]

ok its getting better now but not perfect

Code: Select all

bind raw - 311 uw:RAW311
proc uw:RAW311 {from keyword text} {
  set i [expr [string first " :" $text] + 1]
  set info [string range $text $i end]
      putlog "TEST $info"	
}

and the result is

Code: Select all

TEST :www.mysitecom/?u=1234

now i need to remove the : at the begining of :www.mysitecom/?u=1234

[Alchera]

May be try:

Code: Select all

[string trim [join [lrange $text $i end]] :]

[AskMe]

May be try:

Code: Select all

[string trim [join [lrange $text $i end]] :]

not working...

result

Code: Select all

TEST

[Sir_Fz]

Code: Select all

set info [string trimleft [string range $text $i end] :]

[user]

why not

Code: Select all

set i [expr {[string first ":" $text]+1}]

?

[nml375]

Actually, the flaw is that I added 1 and not 2 to the offset. (Forgot I matched 2 characters rather than 1)
Should work as intended

Code: Select all

set i [expr [string first " :" $text] + 2]
set info [string range $text $i end]

@Alchera: Why on earth would you use lrange and join on a string?

[Alchera]

@Alchera: Why on earth would you use lrange and join on a string?

Typo

I copied and pasted from an xchat script I use where everything has to be split etc to remove unwanted characters (an xchat quirk apparently).

[nml375]

Think it's rather a matter of preference, if you prefer to work with list or strings. Either way works I suppose, as long as you don't mix them up

One problem with splitting on colon ( : ) however, is that it might screw up bigtime on IPv6 hosts (thats also the reason I'm searching for " :" and not ":").

[Alchera]

[22:26] * =============== _|nTe|_ whois response ===============
[22:26] * [_|nTe|_] (gUeSs@helper.phazenet.com): gUeSs
[22:26] * [_|nTe|_] is a registered nick
[22:26] * [_|nTe|_] #scriptingshack @#phazeschool &#phazechat @#HelpDesk +#Command &#Ballarat
[22:26] * [_|nTe|_] Pothole.US.Phazenet.Com :Finer Than A Frogs Hair
[22:26] * [_|nTe|_] is available for help.
[22:26] * =============== _|nTe|_ whois end ===============

I use XChat's Tcl plugin to format the above and without manipulation I'd have a series of brackets and braces amongst it all. I copied and pasted a line of code forgetting to fix it for eggdrop.

XChat snippet:

Code: Select all

# RPL_WHOISUSER
on 311 mywhois {
    set whodata [split $_rest " "]
    set servertab [findcontext [server]]
    .......
    complete EAT_ALL
}

PS: I've been "inspired" to revisit this script of mine.

[AskMe]

Code: Select all

set info [string trimleft [string range $text $i end] :]

This works great

Actually, the flaw is that I added 1 and not 2 to the offset. (Forgot I matched 2 characters rather than 1)
Should work as intended

Code: Select all

set i [expr [string first " :" $text] + 2]
set info [string range $text $i end]

This one works great too

why not

Code: Select all

set i [expr {[string first ":" $text]+1}]

?

didnt work.. they give me this result

Code: Select all

TEST 0

so if anyone need the info you can use

Code: Select all

bind raw - 311 uw:RAW311
proc uw:RAW311 {from keyword text} {
  set i [expr [string first " :" $text] + 2]
  set info [string range $text $i end]
	putlog "TEST $info"	
}

or

Code: Select all

bind raw - 311 uw:RAW311
proc uw:RAW311 {from keyword text} {
  set i [expr [string first " :" $text] + 1]
  set info [string trimleft [string range $text $i end] :]
	putlog "TEST $info"	
}

they both give me

Code: Select all

TEST www.mysitecom/?u=1234

thanks to all for your help

[Alchera]

AskMe: user's hint was based on what nml375 posted before it was fixed:

Code: Select all

set i [expr {[string first " :" $text]+2}]

It does indeed work correctly.