egghelp/eggheads community

Find part of a word/url

2009-11-07T16:41:22-04:00

Ah, I used '"http://mysite.com/spotInfo.php" "uri" $track' and putquick. I tried '"http://mysite.com/spotInfo.php" "uri" $track' a lot of times before you wrote it, but it didn't return any message or errors.

Statistics: Posted by JKM — Sat Nov 07, 2009 4:41 pm

Find part of a word/url

2009-11-07T16:37:52-04:00

Ehhm?
puthelp vs putquick should'nt matter, most certainly not cause an error like that. Happy you got it sorted in the end though...

Statistics: Posted by nml375 — Sat Nov 07, 2009 4:37 pm

Find part of a word/url

2009-11-07T16:22:15-04:00

Yeah, I tried hundreds of ways, but it turned out that it was the puthelp line (I replaced it with putquick "PRIVMSG $chan :$line").

Thanks for your help!

Statistics: Posted by JKM — Sat Nov 07, 2009 4:22 pm

Find part of a word/url

2009-11-07T15:52:52-04:00

That error originates from the http-package... Most likely due to the second ? in the URI...
Try using this instead then:

Code:

set data_lines [grap_http_data 2 "http://mysite.com/spotInfo.php" "uri" $track]

That should build the url http://mysite.com/spotify.php?uri=4SwVc ... nexIiUDLc5

Statistics: Posted by nml375 — Sat Nov 07, 2009 3:52 pm

Find part of a word/url

2009-11-07T15:12:33-04:00

Oh, sorry about that.

Code:

set data_lines [grab_http_data 2  http://mysite.com/spotInfo.php?uri=${track} "" ""]

returns:

[20:10] Tcl error [SpotInfo_proc]: Unsupported URL: http://mysite.com/spotify.php?uri=4SwVc ... xIiUDLc5?=

Statistics: Posted by JKM — Sat Nov 07, 2009 3:12 pm

Find part of a word/url

2009-11-06T16:36:12-04:00

Well, I just copied and pasted that code, and it works just fine. Check that there's no accidental newlines in the pasted code...

Statistics: Posted by nml375 — Fri Nov 06, 2009 4:36 pm

Find part of a word/url

2009-11-06T11:18:14-04:00

It seems to be an error in the regex line - I just copied that line from your code.

Statistics: Posted by JKM — Fri Nov 06, 2009 11:18 am

Find part of a word/url

2009-11-06T08:37:38-04:00

Then, most likely, you've made a typo while writing the new code.

Statistics: Posted by nml375 — Fri Nov 06, 2009 8:37 am

Find part of a word/url

2009-11-06T08:08:37-04:00

Anyone?

Statistics: Posted by JKM — Fri Nov 06, 2009 8:08 am

Find part of a word/url

2009-11-04T16:32:50-04:00

[SpotInfo_proc]: wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"

Edit: This error comes every time someone writes something.

Statistics: Posted by JKM — Wed Nov 04, 2009 4:32 pm

Find part of a word/url

2009-11-04T14:36:38-04:00

Think I concatenated the url and query parameters into one, but I see you managed to adapt your grab_http_data proc to compensate.

Looking at the whole script, what you do is fetch the content of the http://mysite.com/... URI, and store this in the local variable data_lines in SpotInfo_proc. However, you do not do anything else with it, and the data is lost once the proc ends.

If you'd like to output this into the channel, you'll most likely need to use puthelp along with the appropriate irc command, ie:

Code:

proc SpotInfo_proc {nick uhost hand chan arg} {  if {[regexp -nocase -- {(?:http://open\.spotify\.com/track/|spotify:track:)([[:alnum:]]{22})} $arg spotify track]} {    set data_lines [grab_http_data 2 http://mysite.com/spotInfo.php?uri=${track}]    if {![string equal $data_lines "error"]} {      foreach line [split $data_lines "\n"] {        puthelp "NOTICE $chan :$line"      }    }  }}

You'll probably have to adjust the code to suit the actual output from the http-request, as I have no idea of the actual content.

Statistics: Posted by nml375 — Wed Nov 04, 2009 2:36 pm

Find part of a word/url

2009-11-03T23:27:35-04:00

Code:

bind pubm -|- * SpotInfo_procpackage require httpproc SpotInfo_proc {nick uhost hand chan arg} {  if {[regexp -nocase -- {(?:http://open\.spotify\.com/track/|spotify:track:)([[:alnum:]]{22})} $arg spotify track]} {    set data_lines [grab_http_data 2 http://mysite.com/spotInfo.php?uri=${track}]  }}proc grab_http_data { type url } {   set user_agent "http-query.tcl "   set tiny_token [http::config -useragent $user_agent]   if {$type == 1} {      set tiny_token [http::geturl $url -timeout 10000]   } else {      set proper_url "$url"      set tiny_token [http::geturl $proper_url -timeout 10000]   }   set html_data [http::data $tiny_token]   if {$html_data != ""} {      return $html_data   } {      return "error"   }}putlog "SpotInfo.tcl loaded"

It doesn't return any errors or anything. First it said:

[04:43] Tcl error [SpotInfo_proc]: wrong # args: should be "grab_http_data type url query arg"

And then

[04:49] Tcl error [SpotInfo_proc]: can't read "query": no such variable

But then I fixed the grab_http_data, but now it doesn't say anything.

Thanks for the help so far!

Statistics: Posted by JKM — Tue Nov 03, 2009 11:27 pm

Find part of a word/url

2009-11-03T15:23:20-04:00

This should do the trick, it will handle both http://open.spotify.com/track/ and spotify:track: style uri's, and will be able to catch them in both sentences and "alone".

Code:

proc SpotInfo_proc {nick uhost hand chan arg} {  if {[regexp -nocase -- {(?:http://open\.spotify\.com/track/|spotify:track:)([[:alnum:]]{22})} $arg spotify track]} {    set data_lines [grab_http_data 2 http://mysite/check?code=${track}]  }}

Statistics: Posted by nml375 — Tue Nov 03, 2009 3:23 pm

Find part of a word/url

2009-11-03T08:22:21-04:00

sorry, dont seem to understand what you mean. what is spotify:track:? and what do you want to be done differently regarding urls?

Statistics: Posted by raider2k — Tue Nov 03, 2009 8:22 am

Find part of a word/url

2009-11-03T08:12:02-04:00

I gave you some examples for the url, I want to fetch the code/hash from any spotify urls and uris
http://open.spotify.com/track/*
spotify:track:*

Statistics: Posted by JKM — Tue Nov 03, 2009 8:12 am