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
|
Url = Struct.new("Url", :channel, :nick, :time, :url)
class UrlPlugin < Plugin
def initialize
super
@registry.set_default(Array.new)
end
def help(plugin, topic="")
"urls [<max>=4] => list <max> last urls mentioned in current channel, urls <channel> [<max>=4] => list <max> last urls mentioned in <channel>, urls search <regexp> => search for matching urls, urls search <channel> <regexp>, search for matching urls in channel <channel>"
end
def listen(m)
return unless m.kind_of?(PrivMessage)
return if m.address?
# TODO support multiple urls in one line
if m.message =~ /(f|ht)tps?:\/\//
if m.message =~ /((f|ht)tps?:\/\/.*?)(?:\s+|$)/
url = Url.new(m.target, m.sourcenick, Time.new, $1)
list = @registry[m.target]
debug "#{list.length} urls so far"
if list.length > 50
list.pop
end
debug "storing url #{url.url}"
list.unshift url
debug "#{list.length} urls now"
@registry[m.target] = list
end
end
end
def privmsg(m)
case m.params
when nil
if m.public?
urls m, m.target
else
m.reply "in a private message, you need to specify a channel name for urls"
end
when (/^(\d+)$/)
max = $1.to_i
if m.public?
urls m, m.target, max
else
m.reply "in a private message, you need to specify a channel name for urls"
end
when (/^(#.*?)\s+(\d+)$/)
channel = $1
max = $2.to_i
urls m, channel, max
when (/^(#.*?)$/)
channel = $1
urls m, channel
when (/^search\s+(#.*?)\s+(.*)$/)
channel = $1
string = $2
search m, channel, string
when (/^search\s+(.*)$/)
string = $1
if m.public?
search m, m.target, string
else
m.reply "in a private message, you need to specify a channel name for urls"
end
else
m.reply "incorrect usage: " + help(m.plugin)
end
end
def urls(m, channel, max=4)
max = 10 if max > 10
max = 1 if max < 1
list = @registry[channel]
if list.empty?
m.reply "no urls seen yet for channel #{channel}"
else
list[0..(max-1)].each do |url|
m.reply "[#{url.time.strftime('%Y/%m/%d %H:%M:%S')}] <#{url.nick}> #{url.url}"
end
end
end
def search(m, channel, string, max=4)
max = 10 if max > 10
max = 1 if max < 1
regex = Regexp.new(string)
list = @registry[channel].find_all {|url|
regex.match(url.url) || regex.match(url.nick)
}
if list.empty?
m.reply "no matches for channel #{channel}"
else
list[0..(max-1)].each do |url|
m.reply "[#{url.time.strftime('%Y/%m/%d %H:%M:%S')}] <#{url.nick}> #{url.url}"
end
end
end
end
plugin = UrlPlugin.new
plugin.register("urls")
|
