1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
|
#-- vim:sw=2:et
#++
#
# :title: lastfm plugin for rbot
#
# Author:: Jeremy Voorhis
# Author:: Giuseppe "Oblomov" Bilotta <giuseppe.bilotta@gmail.com>
# Author:: Casey Link <unnamedrambler@gmail.com>
#
# Copyright:: (C) 2005 Jeremy Voorhis
# Copyright:: (C) 2007 Giuseppe Bilotta
# Copyright:: (C) 2008 Casey Link
#
# License:: GPL v2
require 'rexml/document'
require 'cgi'
class ::LastFmEvent
def initialize(hash)
@url = hash[:url]
@date = hash[:date]
@location = hash[:location]
@description = hash[:description]
@attendance = hash[:attendance]
@artists = hash[:artists]
if @artists.length > 10 #more than 10 artists and it floods
diff = @artists.length - 10
@artist_string = Bold + @artists[0..10].join(', ') + Bold
@artist_string << _(" and %{n} more...") % {:n => diff}
else
@artist_string = Bold + @artists.join(', ') + Bold
end
end
def compact_display
if @attendance
return "%s %s @ %s (%s attending) %s" % [@date.strftime("%a %b, %d %Y"), @artist_string, @location, @attendance, @url]
end
return "%s %s @ %s %s" % [@date.strftime("%a %b, %d %Y"), @artist_string, @location, @url]
end
alias :to_s :compact_display
end
class LastFmPlugin < Plugin
include REXML
Config.register Config::IntegerValue.new('lastfm.max_events',
:default => 25, :validate => Proc.new{|v| v > 1},
:desc => "Maximum number of events to display.")
Config.register Config::IntegerValue.new('lastfm.default_events',
:default => 3, :validate => Proc.new{|v| v > 1},
:desc => "Default number of events to display.")
APIKEY = "b25b959554ed76058ac220b7b2e0a026"
APIURL = "http://ws.audioscrobbler.com/2.0/?api_key=#{APIKEY}&"
def initialize
super
class << @registry
def store(val)
val
end
def restore(val)
val
end
end
end
def help(plugin, topic="")
case (topic.intern rescue nil)
when :event, :events
_("lastfm [<num>] events in <location> => show information on events in or near <location>. lastfm [<num>] events by <artist/group> => show information on events by <artist/group>. The number of events <num> that can be displayed is optional, defaults to %{d} and cannot be higher than %{m}") % {:d => @bot.config['lastfm.default_events'], :m => @bot.config['lastfm.max_events']}
when :artist
_("lastfm artist <name> => show information on artist <name> from last.fm")
when :album
_("lastfm album <name> => show information on album <name> from last.fm [not implemented yet]")
when :track
_("lastfm track <name> => search tracks matching <name> on last.fm")
when :now, :np
_("lastfm now [<user>] => show the now playing track from last.fm. np [<user>] does the same.")
when :set
_("lastfm set nick <user> => associate your current irc nick with a last.fm user. lastfm set verb <present> <past> => set your preferred now playing verb. default \"listening\" and \"listened\".")
when :who
_("lastfm who [<nick>] => show who <nick> is at last.fm. if <nick> is empty, show who you are at lastfm.")
when :compare
_("lastfm compare <nick1> <nick2> => show musical taste compatibility between nick1 and nick2.")
else
_("lastfm [<user>] => show your or <user>'s now playing track at lastfm. np [<user>] => same as 'lastfm'. other topics: events, artist, album, track, now, set, who, compare")
end
end
def find_events(m, params)
num = params[:num] || @bot.config['lastfm.default_events']
num = num.to_i.clip(1, @bot.config['lastfm.max_events'])
location = artist = nil
location = params[:location].to_s if params[:location]
artist = params[:who].to_s if params[:who]
uri = nil
if artist == nil
uri = "#{APIURL}method=geo.getevents&location=#{CGI.escape location}"
else
uri = "#{APIURL}method=artist.getevents&artist=#{CGI.escape artist}"
end
xml = @bot.httputil.get_response(uri)
doc = Document.new xml.body
if xml.class == Net::HTTPInternalServerError
if doc.root and doc.root.attributes["status"] == "failed"
m.reply doc.root.elements["error"].text
else
m.reply _("Could not retrieve events")
end
end
disp_events = Array.new
events = Array.new
doc.root.elements.each("events/event"){ |e|
h = {}
h[:title] = e.elements["title"].text
venue = e.elements["venue"].elements["name"].text
city = e.elements["venue"].elements["location"].elements["city"].text
country = e.elements["venue"].elements["location"].elements["country"].text
h[:location] = Underline + venue + Underline + " #{Bold + city + Bold}, #{country}"
date = e.elements["startDate"].text.split
h[:date] = Time.utc(date[3].to_i, date[2], date[1].to_i)
h[:desc] = e.elements["description"].text
h[:url] = e.elements["url"].text
e.detect {|node|
if node.kind_of? Element and node.attributes["name"] == "attendance" then
h[:attendance] = node.text
end
}
artists = Array.new
e.elements.each("artists/artist"){ |a|
artists << a.text
}
h[:artists] = artists
events << LastFmEvent.new(h)
}
events[0...num].each { |event|
disp_events << event.to_s
}
m.reply disp_events.join(' | '), :split_at => /\s+\|\s+/
end
def tasteometer(m, params)
opts = { :cache => false }
user1 = params[:user1].to_s
user2 = params[:user2].to_s
xml = @bot.httputil.get_response("#{APIURL}method=tasteometer.compare&type1=user&type2=user&value1=#{CGI.escape user1}&value2=#{CGI.escape user2}", opts)
doc = Document.new xml.body
unless doc
m.reply _("last.fm parsing failed")
return
end
if xml.class == Net::HTTPInternalServerError
if doc.root.elements["error"].attributes["code"] == "7" then
error = doc.root.elements["error"].text
error.match(/Invalid username: \[(.*)\]/);
if @registry.has_key? $1 and not params[:recurs]
if user1 == $1
params[:user1] = @registry[ $1 ]
elsif user2 == $1
params[:user2] = @registry[ $1 ]
end
params[:recurs] = true
tasteometer(m, params)
else
m.reply _("%{u} doesn't exist at last.fm. Perhaps you need to: lastfm set <username>") % {:u => baduser}
return
end
else
m.reply _("Bad: %{e}") % {:e => doc.root.element["error"].text}
return
end
end
now = artist = track = albumtxt = date = nil
score = doc.root.elements["comparison/result/score"].text.to_f
rating = nil
case
when score >= 0.9
rating = _("Super")
when score >= 0.7
rating = _("Very High")
when score >= 0.5
rating = _("High")
when score >= 0.3
rating = _("Medium")
when score >= 0.1
rating = _("Low")
else
rating = _("Very Low")
end
m.reply _("%{a}'s and %{b}'s musical compatibility rating is: %{r}") % {:a => user1, :b => user2, :r => rating}
end
def now_playing(m, params)
opts = { :cache => false }
user = nil
if params[:who]
user = params[:who].to_s
elsif @registry.has_key? m.sourcenick
user = @registry[ m.sourcenick ]
else
user = m.sourcenick
end
xml = @bot.httputil.get_response("#{APIURL}method=user.getrecenttracks&user=#{CGI.escape user}", opts)
doc = Document.new xml.body
unless doc
m.reply _("last.fm parsing failed")
return
end
if xml.class == Net::HTTPBadRequest
if doc.root.elements["error"].text == "Invalid user name supplied" then
if @registry.has_key? user and not params[:recurs]
params[:who] = @registry[ user ]
params[:recurs] = true
now_playing(m, params)
else
m.reply "#{user} doesn't exist at last.fm. Perhaps you need to: lastfm set <username>"
return
end
else
m.reply _("Error %{e}") % {:e => doc.root.element["error"].text}
return
end
end
now = artist = track = albumtxt = date = nil
unless doc.root.elements[1].has_elements?
m.reply _("%{u} hasn't played anything recently") % {:u => user}
return
end
first = doc.root.elements[1].elements[1]
now = first.attributes["nowplaying"]
artist = first.elements["artist"].text
track = first.elements["name"].text
albumtxt = first.elements["album"].text
album = ""
if albumtxt
year = get_album(artist, albumtxt)[2]
album = "[#{albumtxt}, #{year}] " if year
end
date = first.elements["date"].attributes["uts"]
past = Time.at(date.to_i)
if now == "true"
verb = _("listening")
if @registry.has_key? "#{m.sourcenick}_verb_present"
verb = @registry["#{m.sourcenick}_verb_present"]
end
m.reply _("%{u} is %{v} to \"%{t}\" by %{a} %{b}") % {:u => user, :v => verb, :t => track, :a => artist, :b => album}
else
verb = _("listened")
if @registry.has_key? "#{m.sourcenick}_verb_past"
verb = @registry["#{m.sourcenick}_verb_past"]
end
ago = Utils.timeago(past)
m.reply _("%{u} %{v} to \"%{t}\" by %{a} %{b}%{p}") % {:u => user, :v => verb, :t => track, :a => artist, :b => album, :p => ago}
end
end
def find_artist(m, params)
xml = @bot.httputil.get("#{APIURL}method=artist.getinfo&artist=#{CGI.escape params[:artist].to_s}")
unless xml
m.reply _("I had problems getting info for %{a}.") % {:a => params[:artist]}
return
end
doc = Document.new xml
unless doc
m.reply _("last.fm parsing failed")
return
end
first = doc.root.elements["artist"]
artist = first.elements["name"].text
playcount = first.elements["stats"].elements["plays"].text
listeners = first.elements["stats"].elements["listeners"].text
summary = first.elements["bio"].elements["summary"].text
m.reply _("%{b}%{a}%{b} has been played %{c} times and is being listened to by %{l} people.") % {:b => Bold, :a => artist, :c => playcount, :l => listeners}
m.reply summary.ircify_html
end
def find_track(m, params)
track = params[:track].to_s
xml = @bot.httputil.get("#{APIURL}method=track.search&track=#{CGI.escape track}")
unless xml
m.reply _("I had problems getting info for %{a}.") % {:a => track}
return
end
debug xml
doc = Document.new xml
unless doc
m.reply _("last.fm parsing failed")
return
end
debug doc.root
results = doc.root.elements["results/opensearch:totalResults"].text.to_i rescue 0
if results > 0
begin
hits = []
doc.root.each_element("results/trackmatches/track") do |track|
hits << _("%{bold}%{t}%{bold} by %{bold}%{a}%{bold} (%{n} listeners)") % {
:t => track.elements["name"].text,
:a => track.elements["artist"].text,
:n => track.elements["listeners"].text,
:bold => Bold
}
end
m.reply hits.join(' -- '), :split_at => ' -- '
rescue
error $!
m.reply _("last.fm parsing failed")
end
else
m.reply _("track %{a} not found") % {:a => track}
end
end
def get_album(artist, album)
xml = @bot.httputil.get("#{APIURL}method=album.getinfo&artist=#{CGI.escape artist}&album=#{CGI.escape album}")
unless xml
return [_("I had problems getting album info")]
end
doc = Document.new xml
unless doc
return [_("last.fm parsing failed")]
end
album = date = playcount = artist = date = year = nil
first = doc.root.elements["album"]
artist = first.elements["artist"].text
playcount = first.elements["playcount"].text
album = first.elements["name"].text
date = first.elements["releasedate"].text
unless date.strip.length < 2
year = date.strip.split[2].chop
end
result = [artist, album, year, playcount]
return result
end
def find_album(m, params)
album = get_album(params[:artist].to_s, params[:album].to_s)
if album.length == 1
m.reply _("I couldn't locate: \"%{a}\" by %{r}") % {:a => params[:album], :r => params[:artist]}
return
end
year = "(#{album[2]}) " unless album[2] == nil
m.reply _("The album \"%{a}\" by %{r} %{y}has been played %{c} times.") % {:a => album[1], :r => album[0], :y => year, :c => album[3]}
end
def set_user(m, params)
user = params[:who].to_s
nick = m.sourcenick
@registry[ nick ] = user
m.reply _("Ok, I'll remember that %{n} is %{u} at last.fm") % {:n => nick, :u => user}
end
def set_verb(m, params)
past = params[:past].to_s
present = params[:present].to_s
key = "#{m.sourcenick}_verb_"
@registry[ "#{key}past" ] = past
@registry[ "#{key}present" ] = present
m.reply _("Ok, I'll remember that %{n} prefers %{r} and %{p}.") % {:n => m.sourcenick, :p => past, :r => present}
end
def get_user(m, params)
nick = ""
if params[:who]
nick = params[:who].to_s
else
nick = m.sourcenick
end
if @registry.has_key? nick
user = @registry[ nick ]
m.reply "#{nick} is #{user} at last.fm"
else
m.reply _("Sorry, I don't know who %{n} is at last.fm perhaps you need to: lastfm set <username>") % {:n => nick}
end
end
# TODO this user data retrieval should be upgraded to API 2.0 but it would need separate parsing
# for each dataset, or almost
def lastfm(m, params)
action = params[:action].intern
action = :neighbours if action == :neighbors
action = :recenttracks if action == :recentracks
action = :topalbums if action == :topalbum
action = :topartists if action == :topartist
action = :toptags if action == :toptag
user = nil
if params[:user] then
user = params[:user].to_s
elsif @registry.has_key? m.sourcenick
user = @registry[ m.sourcenick ]
else
# m.reply "I don't know who you are on last.fm. Use 'lastfm set username' to identify yourself."
# return
user = m.sourcenick
end
begin
data = @bot.httputil.get("http://ws.audioscrobbler.com/1.0/user/#{user}/#{action}.txt")
m.reply "#{action} for #{user}:"
m.reply data.to_a[0..3].map{|l| l.split(',',2)[-1].chomp}.join(", ")
rescue
m.reply "could not find #{action} for #{user} (is #{user} a user?). perhaps you need to: lastfm set <username>"
end
end
end
plugin = LastFmPlugin.new
plugin.map 'lastfm [:num] event[s] in *location', :action => :find_events, :requirements => { :num => /\d+/ }, :thread => true
plugin.map 'lastfm [:num] event[s] by *who', :action => :find_events, :requirements => { :num => /\d+/ }, :thread => true
plugin.map 'lastfm [:num] event[s] [for] *who', :action => :find_events, :requirements => { :num => /\d+/ }, :thread => true
plugin.map 'lastfm now :who', :action => :now_playing, :thread => true
plugin.map 'lastfm now', :action => :now_playing, :thread => true
plugin.map 'np :who', :action => :now_playing, :thread => true
plugin.map 'lastfm artist *artist', :action => :find_artist, :thread => true
plugin.map 'lastfm album *album [by *artist]', :action => :find_album
plugin.map 'lastfm track *track', :action => :find_track, :thread => true
plugin.map 'lastfm set nick :who', :action => :set_user, :thread => true
plugin.map 'lastfm set verb :present :past', :action => :set_verb, :thread => true
plugin.map 'lastfm who :who', :action => :get_user, :thread => true
plugin.map 'lastfm who', :action => :get_user, :thread => true
plugin.map 'lastfm compare :user1 :user2', :action => :tasteometer, :thread => true
plugin.map 'np', :action => :now_playing, :thread => true
plugin.map "lastfm [user] :action [:user]", :thread => true,
:requirements => { :action =>
/^(?:events|friends|neighbou?rs|playlists|recent?tracks|top(?:album|artist|tag)s?|weekly(?:album|artist|track)chart|weeklychartlist)$/
}
plugin.map "lastfm [:who]", :action => :now_playing, :thread => true
|