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
|
# show my hot-entry in Hatena::Bookmark
#
# usage:
# <%= my_hotentry %>
#
# Copyright (c) MATSUOKA Kohei <http://www.machu.jp/>
# Distributed under the GPL
#
require 'uri'
require 'open-uri'
require 'rexml/document'
require 'pstore'
require 'timeout'
# 人気の日記のソート順（新着順: eid, 注目順: hot, 人気順: count）
@conf ||= {}
@conf['my_hotentry.sort'] ||= 'hot'
class MyHotEntry
def initialize(dbfile)
@dbfile = dbfile
end
# 人気の日記の一覧を返す
def entries
r = nil
PStore.new(@dbfile).transaction(true) do |db|
r = db[:entries]
end
r || []
end
# 人気の日記一覧を取得する
def update(base_url, options = {})
options[:title] ||= ''
options[:sort] ||= 'eid'
options[:threshold] ||= 3
# RSSを取得
rss = nil
rss_url = 'http://b.hatena.ne.jp/entrylist?mode=rss&url='
rss_url << CGI.escape(base_url)
rss_url << "&sort=#{options[:sort]}&threshold=#{options[:threshold]}"
begin
Timeout.timeout(5) do
# convert Tempfile to String because REXML can't accept Tempfile
URI.open(rss_url) do |f|
rss = REXML::Document.new(f.readlines.join("\n"))
end
end
rescue TimeoutError => e
return
end
# RDF/itemが空ならDBを更新しない (たまにitemが空のデータが返るため)
return if rss.elements['rdf:RDF/item'].nil?
# キャッシュに格納する
PStore.new(@dbfile).transaction do |db|
db[:entries] = []
rss.elements.each('rdf:RDF/item') do |item|
url = item.elements['link'].text
title = item.elements['title'].text
# リンク先のタイトルからサイト名と日付を取り除く
title.sub!(/(?: - )?#{options[:html_title]}(?: - )?/, '')
title.sub!(/\(\d{4}-\d{2}-\d{2}\)/, '')
db[:entries].push({ :url => url, :title => title })
end
end
end
end
# キャッシュファイルのパスを取得する
def my_hotentry_dbfile
cache_dir = "#{@cache_path}/hatena"
Dir::mkdir(cache_dir) unless File::directory?(cache_dir)
"#{cache_dir}/my_hotentry.dat"
end
# 人気の日記一覧を表示する
def my_hotentry(count = 5)
dbfile = my_hotentry_dbfile
hotentry = MyHotEntry.new(dbfile)
r = %Q|<ul class="rss-recent">\n|
hotentry.entries[0...count].each do |entry|
entry_link = %Q|<a href="#{entry[:url]}">#{CGI::escapeHTML(entry[:title])}</a>|
escape_url = entry[:url].gsub(/#/, '%23')
b_image = "http://b.hatena.ne.jp/entry/image/#{escape_url}"
b_link = "http://b.hatena.ne.jp/entry/#{escape_url}"
b_title = "このエントリを含むはてなブックマーク"
bookmark_link = %Q|<a href="#{b_link}" title="#{b_title}"><img border="0" src="#{b_image}"></a>|
r << "\t\t<li>#{entry_link} #{bookmark_link}</li>"
end
r << %Q|</ul>|
r << %Q|<div class="iddy"><span class="iddy-powered">\tPowered by <a href="http://b.hatena.ne.jp/entrylist?url=#{@conf.base_url}&sort=#{@conf['my_hotentry.sort']}">Hatena Bookmark</a></span></div>\n|
end
# 人気の日記一覧を更新する
def my_hotentry_update
dbfile = my_hotentry_dbfile
hotentry = MyHotEntry.new(dbfile)
hotentry.update(@conf.base_url,
:html_title => @conf.html_title,
:sort => @conf['my_hotentry.sort'])
end
if __FILE__ == $0
# コマンドラインから実行した場合
# tdiary.conf に base_url を設定しないと動作しない
begin
require 'tdiary'
rescue LoadError
STDERR.puts "tdiary.rb not found."
STDERR.puts "please execute in tdiary base directory"
exit 1
end
cgi = CGI::new
@conf = TDiary::Config::new(cgi)
@cache_path = @conf.cache_path || "#{@conf.data_path}cache"
my_hotentry_update
puts my_hotentry
else
# 人気の日記一覧を取得する （日記更新時）
add_update_proc do
# ツッコミ時は実行しない
if @mode == 'append' or @mode == 'replace'
begin
my_hotentry_update
rescue
end
end
end
end
|
