egghelp/eggheads community

Lastfm script not fully working

2008-03-16T17:03:10-04:00

... and when someone rewrites the script you posted, you think it will still be the same script?
If the one you have does not work, try another.

You are not making much sense there, sorry.

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1375 is a nicely written script, but it's for looking up users, not artists.. It also no longer works, afaict, because the url within the script is no longer valid.

I posted a working and updated version of that last.fm script here in the forums, just a few topics down.

Statistics: Posted by MellowB — Sun Mar 16, 2008 5:03 pm

Lastfm script not fully working

2008-03-13T09:35:47-04:00

Very nice.

Good work!

Statistics: Posted by Gordon — Thu Mar 13, 2008 9:35 am

Lastfm script not fully working

2008-03-13T08:18:34-04:00

http://members.dandy.net/~fbn/lastfm-artist.tcl.txt

Statistics: Posted by rosc2112 — Thu Mar 13, 2008 8:18 am

Lastfm script not fully working

2008-03-12T19:19:39-04:00

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1375 is a nicely written script, but it's for looking up users, not artists.. It also no longer works, afaict, because the url within the script is no longer valid.

I only found 1 other lastfm script for "Somafm" in the egghelp archives, so yeah I guess I'll throw this little script together, it's simple and seems somewhat useful.

Statistics: Posted by rosc2112 — Wed Mar 12, 2008 7:19 pm

Lastfm script not fully working

2008-03-12T09:39:44-04:00

I do not know why people do not look in the archive, this script is VERY easy to find (and it includes author contact information).
But thats a completely different script.

... and when someone rewrites the script you posted, you think it will still be the same script?
If the one you have does not work, try another.

Statistics: Posted by DragnLord — Wed Mar 12, 2008 9:39 am

Lastfm script not fully working

2008-03-12T06:46:13-04:00

I do not know why people do not look in the archive, this script is VERY easy to find (and it includes author contact information).

But thats a completely different script.

Statistics: Posted by MellowB — Wed Mar 12, 2008 6:46 am

Lastfm script not fully working

2008-03-11T10:58:40-04:00

I do not know why people do not look in the archive, this script is VERY easy to find (and it includes author contact information).

Statistics: Posted by DragnLord — Tue Mar 11, 2008 10:58 am

Lastfm script not fully working

2008-03-11T04:35:19-04:00

Easier to re-write it (and use package http, instead of the external lynx binary) and proper regexp's. I'll put it on my todo list. If I get a spurt of ambition I might write it by the weekend.

Statistics: Posted by rosc2112 — Tue Mar 11, 2008 4:35 am

Lastfm script not fully working

2008-03-11T08:48:19-04:00

Could someone look at this and eventually fix it? (Problem with 'top track')

(Gordon) !lastfm metallica
(b0t) [last.fm] metallica -> listeners: 839,286
(b0t) [last.fm] top track (last week): n/a
(b0t) [last.fm] top track (last six months): n/a

Code:

# last.fm check v1.0 by casn_## checks last.fm for listeners and top track on a given# artist name. since the listeners are higher on a serious and# (kinda) famous musicians (on last.fm are mostly music entusiasts9# are higher, you get a rating capability like imdb for movies.## requirements:# o lynx### just config below and let's go ;<## your triggerset last(trig) "!lastfm"# path to your lynx dump fileset last(dump) "/home/luser/eggdrop/lynx.dump"# chan to useset last(chan) "#a-lame-chan"# actual last.fm url to use (don't touch it!)set last(url) "http://www.last.fm/music/"# output line startset last(lay) "\002\[\002last\002.\002fm\002\]\002 "#########################################################################bind pub - $last(trig) last_getset last(debug) 0proc last_get {nick host hand chan arg} {global lastputlog "last.fm script triggered"if {$chan != $last(chan)} {return}if {[string length $arg] < 1} {puthelp "PRIVMSG $chan :usage: !lastfm "}set state 0if {$last(debug) == 1} {putlog "state == 0"}set listeners "n/a"set top_week "n/a"set top_six "n/a"set suburl [string map {" " "%20"} $arg]exec lynx --dump $last(url)$suburl > $last(dump)set fp [open $last(dump) r]while {![eof $fp]} {gets $fp lineif {[string match *listeners* $line]} {set listeners [lindex $line 0]}if {$state == 1 && [lindex $line 0] == "1"} {regexp -indices {(?i)\]} $line locationset top_week [string range $line [expr [lindex $location 0] + 1] end]set state 2if {$last(debug) == 1} {putlog "state == 2"}}if {[string match "*Top Tracks (last week)*" $line] && $state == 0} {set state 1if {$last(debug) == 1} {putlog "state == 1"}}if {$state == 3 && [lindex $line 0] == "1"} {regexp -indices {(?i)\]} $line locationset top_six [string range $line [expr [lindex $location 0] + 1] end]set state 4if {$last(debug) == 1} {putlog "state == 4"}}if {[string match "*Top Tracks (last six months)*" $line] && $state == 2} {set state 3if {$last(debug) == 1} {putlog "state == 3"}}}close $fpif {$listeners == "n/a"} {puthelp "PRIVMSG $chan :$last(lay)[string tolower $arg] \002->\002 \0034not found\003\002.\002"return}puthelp "PRIVMSG $chan :$last(lay)[string tolower $arg] \002->\002 listeners: $listeners"puthelp "PRIVMSG $chan :$last(lay)top track \002(\002last week\002):\002 [string tolower $top_week]"puthelp "PRIVMSG $chan :$last(lay)top track \002(\002last six months\002):\002 [string tolower $top_six]"}putlog "last.fm check by casn_ started."

Statistics: Posted by Gordon — Mon Mar 10, 2008 9:01 pm