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
|
#-- vim:sw=2:et
#++
#
# :title: Slashdot plugin for rbot
require 'rexml/document'
class SlashdotPlugin < Plugin
include REXML
def help(plugin, topic="")
"slashdot search <string> [<max>=4] => search slashdot for <string>, slashdot [<max>=4] => return up to <max> slashdot headlines (use negative max to return that many headlines, but all on one line.)"
end
# This method defines a filter for /. pages. It's needed because the generic
# summarization grabs a comment, not the actual article.
#
# This filter relies on Hpricot being available, since REXML isn't too
# happy with the /. pages
def slashdot_filter(s)
return nil unless defined? Hpricot
loc = Utils.check_location(s, /slashdot\.org/)
return nil unless loc
h = Hpricot(s[:text])
title = (h/"head/title").first.to_html.ircify_html
arts = (h/"div.article")
if arts.length > 1
tits = []
arts.each { |el|
artitle = (el/"div.generaltitle").first.to_html.ircify_html
tits << artitle
}
content = tits.join(" | ")
else
det = (arts.first/"div.details").first.to_html.ircify_html
body = (arts.first/"div.body").first.to_html.ircify_html
content = [det, body].join(' ')
end
return {:title => title, :content => content}
end
def initialize
super
if defined? Hpricot
@bot.register_filter(:slashdot, :htmlinfo) { |s| slashdot_filter(s) }
end
end
def search_slashdot(m, params)
max = params[:limit].to_i
search = params[:search].to_s
xml = @bot.httputil.get("http://slashdot.org/search.pl?content_type=rss&query=#{CGI.escape(search)}")
unless xml
m.reply "search for #{search} failed"
return
end
debug xml.inspect
begin
doc = Document.new xml
rescue REXML::ParseException => e
warning e.inspect
m.reply "couldn't parse output XML: #{e.class}"
return
end
unless doc
m.reply "search for #{search} failed"
return
end
debug doc.inspect
max = 8 if max > 8
done = 0
doc.elements.each("*/item") {|e|
desc = e.elements["title"].text
desc.gsub!(/(.{150}).*/, '\1..')
reply = sprintf("%s | %s", e.elements["link"].text, desc.ircify_html)
m.reply reply
done += 1
break if done >= max
}
unless done > 0
m.reply "search for #{search} failed"
end
end
def slashdot(m, params)
debug params.inspect
max = params[:limit].to_i
debug "max is #{max}"
xml = @bot.httputil.get('http://slashdot.org/slashdot.xml')
unless xml
m.reply "slashdot news parse failed"
return
end
doc = Document.new xml
unless doc
m.reply "slashdot news parse failed (invalid xml)"
return
end
done = 0
oneline = false
if max < 0
max = (0 - max)
oneline = true
end
max = 8 if max > 8
matches = Array.new
doc.elements.each("*/story") {|e|
matches << [ e.elements["title"].text,
e.elements["author"].text,
e.elements["time"].text.gsub(/\d{4}-(\d{2})-(\d{2})/, "\\2/\\1").gsub(/:\d\d$/, "") ]
done += 1
break if done >= max
}
if oneline
m.reply matches.collect{|mat| mat[0]}.join(" | ")
else
matches.each {|mat|
m.reply sprintf("%36s | %8s | %8s", mat[0][0,36], mat[1][0,8], mat[2])
}
end
end
end
plugin = SlashdotPlugin.new
plugin.map 'slashdot search :limit *search', :action => 'search_slashdot',
:defaults => {:limit => 4}, :requirements => {:limit => /^-?\d+$/}
plugin.map 'slashdot :limit', :defaults => {:limit => 4},
:requirements => {:limit => /^-?\d+$/}
|
