Big Sky

2008/01/31

blosxomは生きている

このサイトはPerl/CGIで出来たブログツール、blosxomで構築しています。
個人的には

テキストファイルがデータ本体であり、フレーバと呼ばれるレンダラによってブログエントリ化する。バックアップしたいなら、テキストファイルをアーカイブすればいいし、記事を消したいならば、そのテキストファイルを消せばいい。

って所が好きで、実はこのサイトを作る前から、自分専用のメモシステムとして使ってました。

Posted at by mattn

blosxom-xmlrpcを色んなブログツールに対応させる...その後

ちょこっと時間が取れましたので、ず〜っと宿題のまま残ってて気になってた件を片付けました。
blosxom-xmlrpc.cgiで、幾らかのブログクライアントを使うと、フォルダ名称(ファイルの存在場所)をカテゴリとして保持するblosxomの制約事項により、setPostCategoriesメソッドを呼び出された事で変わってしまった記事ID(ファイル名)が参照出来なくなる問題です。

申し訳ないですが、適当に解決させていただきました。苦笑

setPostCategoriesが呼ばれたタイミングで、元の記事ファイルを指定のカテゴリ(フォルダ)に移動し、「元のファイル名.post」というファイル名で、どこにリネームされたのかを出力しておく。

もし、getPost等で古い記事IDが参照される場合は、「元のファイル名.post」から、実際の記事ファイルを参照し処理するといった仕組みです。
なにぶん適当すぎて、使用価値があるかどうか分かりませんが、一応ソース差分を添付しておきます。
#「元のファイル名.post」というファイルをいつ消すのかについては、今後の宿題にします。

ダウンロード：

Posted at by mattn

フィード購読者数カウンタ for blosxom

このサイトのfeedは、Feedburnerを使って焼いていません。いずれdel.icio.us等と一緒に配信させて頂くことになるやもしれませんが、なんとなくブログのフィード購読者数をカウントするCGI作ってみました。
例によって2〜3分で出来た代物なので(ブログ書いてる時間のほうが長いやろ)、中身のクオリティは適当です。
大体の著明なFeed-Fetcherは、ユーザエージェントに「XXX subscriber」という文字列を埋め込んできます。このXXXにそのフィードリーダのsubscriber数が格納されています。
blosxomのloggerプラグイン(もしくはココ)が出力したログファイルから、このsubscriber部を抜き取り著明なフィードリーダ毎購読者数をカウントします。

livedoor FeedFetcher/0.01 (http://reader.livedoor.com/; 23 subscribers) ...


#!/usr/bin/perl



use strict;

my $logfile = "/blosxom/logs/access.log";

#my $logfile = "access.log";

my %agents;

my %bot_ua = (

  'Hatena' => 'Hatena\x20RSS',

  'NewsAlloy' => 'NewsAlloy',

  'FreshReader' => 'FreshReader',

  'Feedpath' => 'Feedpath',

  'Google Reader' => 'Feedfetcher-Google',

  'Rojo' => 'Rojo',

  'Bloglines' => 'Bloglines',

  'Livedoor Reader' => 'livedoor\x20FeedFetcher',

);

open(FILE, "<$logfile");

while(<FILE>) {

  my $line = $_;

  $line =~ s/^([^\t]+\t){2}([^\t]+)\t.*/\2/;

  if ((my $ua) = grep {$line =~ /$bot_ua{$_}/} keys(%bot_ua)) {

    $line =~ s/^.* ([0-9]+) subscriber.*\n$/\1/;

    $agents{$ua} = $line if ($agents{$ua} < $line);

  }

}

close(FILE);



print <<EOF

Content-Type: text/html;



<html>

<head><title>Your Feeds Subscriber</title><head>

<body>

<table border=\"1\">

EOF

;

my $sum = 0;

while(my ($key, $value) = each(%agents)) {

  print "<tr><td>$key</td><td>$value</td></tr>\n";

  $sum += $value;

}

print <<EOF

<tr><td>total</td><td>$sum</td></tr>

</table>

</body>

</html>

EOF

;

いや、つまらない事しか書いてないのに、購読者がいらっしゃるとは...
※実際にはクライアントサイドで閲覧していらしゃるでしょうから、正しい値とは限りません。

Posted at by mattn