egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-05-19T11:11:30-04:00 https://forum.eggheads.org/app.php/feed/topic/17681 2010-05-19T11:05:12-04:00 2010-05-19T11:05:12-04:00 https://forum.eggheads.org/viewtopic.php?p=93129#p93129 <![CDATA[Last.fm script]]> Statistics: Posted by SkRiBaL — Wed May 19, 2010 11:05 am

]]> 2010-05-19T11:11:30-04:00 2010-03-31T15:42:14-04:00 https://forum.eggheads.org/viewtopic.php?p=92659#p92659 <![CDATA[Last.fm script]]>

Code: 

# Lastfm Artist Lookup Script by Rosc2112 at yahoo com  http://members.dandy.net/~fbn/lastfm-artist.tcl.txt# Copyright C.Leonhardt March 12, 2008 set lalver "0.1a"## Retrieves artist info from last.fm, top album and tracks (last week & 6 months) # http://www.last.fm/music/## Usage:  .lfm <artist>  or  /msg botnick lfm <artist>################################################################################################################# Configs:########### channels we allow public use in:set lalchans "#mychan #chan2 #etc"# out of the above channels, these will only respond by PRIVMSG:set lalquiet "#chan2 #etc"# timeout for geturl (1/1000ths sec.)set laltout "1200000"################################################################################################################ Code Below############package require httpbind pub - .lfm lalprocbind msg - .lfm lalmsgbind msg - lfm lalmsgproc lalmsg {nick uhost hand text} {if {![onchan $nick]} {return}lalproc $nick $uhost $hand privmsg $textreturn}proc lalproc {nick uhost hand chan text} {if {([lsearch -exact $::lalchans $chan] == -1) && ($chan != "privmsg")} {return}if {([lsearch -exact $::lalquiet $chan] != -1) || ($chan == "privmsg")} {set chan $nick}set text [split [string trim $text]]if {[llength $text] < 1} {puthelp "PRIVMSG $nick :Lastfm Artist Lookup Script: Artist/Band Name must be at least one word."return}set originaltext $text# Need to convert space chars to html code. We'll assume the rest of the input is somewhat rational.regsub -all { } $text {%20} textregsub -all {\+} $text {%2B} textset lalurl "http://www.last.fm/music/"putquick "PRIVMSG $chan :Last.fm: looking up artist, holon.."catch {set page [::http::geturl $lalurl$text -timeout $::laltout]} errorif {[string match -nocase "*couldn't open socket*" $error]} {puthelp "PRIVMSG $nick :Error: couldn't connect to last.fm..Try again later"return}if { [::http::status $page] == "timeout" } {puthelp "PRIVMSG $nick :Error: Connection to last.fm timed out."return}set html [::http::data $page]::http::cleanup $pageif {[regexp {<title>(.*?) –.*?</title>} $html match laltitle]} {set laltitle [split [string trim $laltitle]]if {([regexp -nocase {<title>Last.fm – The Social Music Revolution</title>} $html])\||([regexp -nocase {>We don?t know much about .*? yet.<} $html])\|| ([regexp -nocase {<span>We don.*? have a description for this artist yet, <} $html])\|| (![regexp -nocase $originaltext $laltitle])} {puthelp "PRIVMSG $chan :Last.fm: no artist info available for [join $originaltext]"return} elseif {[regexp -nocase $originaltext $laltitle]} {set lalbum "";set laltoplw "";set laltop6m ""regexp {>Top Albums <span>.*?<strong class="title"><a href="/music/.*?/.*?" title=".*?">(.*?)</a></strong>} $html match lalbumregexp {<h3>Top Tracks, Last Week</h3>.*?<a href="/music/.*?/_/.*?">(.*?)</a>} $html match laltoplwregexp {<h3>Top Tracks, Last Six Months</h3>.*?<a href="/music/.*?/_/.*?">(.*?)</a>} $html match laltop6mputhelp "PRIVMSG $chan :Last.fm \002Artist\002: $laltitle \002Top Album\002: $lalbum \002Top Track (Last week)\002: $laltoplw \002Top Track (6 months)\002: $laltop6m"return} else {puthelp "PRIVMSG $chan :Last.fm: no artist info available for [join $originaltext] "}} else {puthelp "PRIVMSG $chan :Sorry, artist \002[join $originaltext]\002 was not found."}}putlog "Last.fm Artist Lookup Script $lalver by Rosc loaded."
any help would be much appreciated. :)

Statistics: Posted by SkRiBaL — Wed Mar 31, 2010 3:42 pm

]]>