朝から雨。
オフィスビル周辺はビル風で大変。
警備員さんが誘導していた。

ファーストキッチンで遅めのランチ。
写真は六本木交差点方面。アマンド前の横断歩道。


夜は、つるとんたん[2006-06-21-5]で、OJT打上げ。
食べ過ぎたけど、うどんだから消化良し。

傘をお貸ししたら、翌日にポッキーを頂きました。
ハロウィンだからパンプキンポッキー。若干甘めですがおいしいです。



- 折りたたみ傘

生のプルーンを頂きました。乾燥したのは食べたことはあるけど、
生のは初めて。外側をきれいにして皮ごとかじります。
ブドウほど水分がないのでサクっと食べれます。良い感じ。



食べかけ写真で申し訳ないのですが、中には平らな種があります。

いまさらですが、amazon のインスタントストアを作ってみました。

たつをストア
http://astore.amazon.co.jp/137439-22

今このブログで使っているトラックバックのシステムは、
「tb-standalone 日本語化 + メール送信: blog.bulknews.net」
http://blog.bulknews.net/mt/archives/000383.html
で紹介されているもの(http://bulknews.net/lib/archives/trackback)を
ベースにしたもの。

いまさらながら、言及リンクなしトラックバックをはじくようにして
みました。もっと早くやっとけよ！的な。

下記の部分に、

$i->{timestamp} = time;
respond_exit("No URL (url)") unless $i->{url};
my $data = load_data($tb_id);
unshift @$data, $i;

以下のようなブロックを足すだけ。言及リンクを厳密に調べているわけ
ではないけど、ちゃんと働いてくれると思います。

$i->{timestamp} = time;
respond_exit("No URL (url)") unless $i->{url};
{
    use LWP::Simple qw(!head);
    my $str = get($i->{url}) || "";
    respond_exit("No Link") unless $str =~ /nais\.to/;
}
my $data = load_data($tb_id);
unshift @$data, $i;

（「qw(!head)」は「Prototype mismatch: sub main::head ($)...」が
出たときのおまじない。see perldoc）

Trackback Auto Discovery をやめてからスパムは劇的に減ったのですが
[2006-07-14-1]、それでもときどきやってきます。気づいたときに
消しますけど、今回の措置でそれも不要になるかな。

ref. [を] トラックバックスパムを劇的に減らす方法[2006-07-14-1]