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
|
#-- 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])
# If we have no title tag in a head tag, return as this is not
# a /. page (it's probably a Slashdot RSS
ht = h/"head/title"
return nil if ht.empty?
title = ht.first.to_html.ircify_html
arts = (h/"div.article")
return nil if arts.empty?
if arts.length > 1
tits = []
arts.each { |el|
# see if the div tag with generaltitle class is present
artitle = (el/"div.generaltitle").first
if artitle
tits << artitle.to_html.ircify_html
next
end
# otherwise, check for skin+datitle a tags
datitle = (el/"a.datitle").first
next unless datitle
skin = (el/"a.skin").first
artitle = [
skin ? skin.innerHTML.ircify_html : nil,
datitle.innerHTML.ircify_html
].compact.join(" ")
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 => err
warning err.inspect
m.reply "couldn't parse output XML: #{err.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+$/}
|
