ぽっぺん日記@karashi.org

_ 朝

6時半起床。今日は曇っていて、けっこう涼しい。夜から雨になるみたい。

_ 仕事

急遽、また大阪出張となる。予算の都合で今回も高速バスを使う。出発は金曜日深夜、帰還は日曜日早朝になる予定。うげ。

_ 夜

特に疲れるような仕事もしていないんだけど、11時前くらいにバタンキュー。

_ 仕事

引越の残りやら、書類作成やら、準備やらでバタバタする。

_ 夜

21時よりお客さんとファミレスにて打ち合わせ。色々と参考になる。

23時すぎに終了。ホームで終電を待っている間(40分くらい)、PocketRogueでヒマ潰し。palmを持っていて良かったと心から思う。:)

24時すぎに帰宅。えれぇ眠い。

_ 仕事

午後からお客さん訪問。えらく西日が強くて、汗が吹き出してくる。

_ 螺旋(スパイラル) (幻冬舎文庫)(山田 正紀)

積ん読を消化。

やっぱり山田正紀は最高です。

_ イノセンス After the Long Goodbye(山田 正紀)

Amazonで「山田正紀」を検索したら出てきた。

山田正紀が攻殻機動隊の小説を書いているとは全然知らんかったよ。orz

これは買いですな。

_ カラシニコフ(松本 仁一)

朝日新聞に連載されている頃から、書籍にまとまったら購入しようと思っていたもの。2004.7.20のMURAJIさんの日記で出版されていることを知り、帰路、本屋に寄って購入。

新聞の連載記事としては読んではいたが、シエラレオネの子供たちを襲った悲劇を読むと、やはり暗澹たる思いに駆られる。

_ 昼

ココスで、今話題(らしい)スープカレーを初めて食った。

旨かったが、妻が食べたタイ風ココナッツカレーの方が旨かったのはナイショだ。

_ 妻に 彗星夜襲隊―特攻拒否の異色集団 (光人社NF文庫)(渡辺 洋二)を貸した & 今日の発注

妻は戦史の知識が全くないので、冒頭のフィリピン戦の状況からして、よく分からないらしい。

まぁ前提知識がないと難しいよな。

っつーうことで、内容は大して濃くないようだが、とりあえず手っ取り早く知識を得られそうな感じなので、 あの戦争は何だったのか―大人のための歴史教科書 (新潮新書)(保阪 正康)を発注。

ついでに

やっぱり勝てない?太平洋戦争―日本海軍は本当に強かったのか

動物病院119番 (文春新書)(兵藤 哲夫/柿川 鮎子)

を発注した。

_ できごと

• しげふみメモ:Remember The MilkでGTDを始めるを読んで、俺もRTMでGTDを始めてみた。ToDoをリストにしたら、仕事上で随分とやらなきゃいけないタスクがあって、ちと愕然とする。
• 帰宅して、夕飯を食べ終えたら、急に眠くなって、うたた寝。
• NHK『プライム10「女性のうつ」』の最後1時間ほど見る。

_ ロシアから絨毯爆撃がきたのでDeny

load average7.0くらいまで上がった。

そんな訳で、下記の設定を追加。

Deny from 81.177.14.0/23

_ Filter::FetchEnclosure::Mplayerでオリジナルのファイル名を使うpatch

Filter::FetchEnclosure::Mplayer用のpatch。

実はFilter::FetchEnclosure::Mplayerでファイル名を推測するpatchを書いてみたの改訂版。 別にファイル名を推測している訳ではないので、前のタイトルは大袈裟すぎた。反省。

今回の変更は次の通り。

• Dateがない場合か、original_file_nameオプションが指定されている場合にはオリジナルのファイル名を使うようにした。
• 指定ファイルがダウンロード済みだった時の処理に必要ないと思われる処理があったので削除。

patchファイルはこちら。

ツッコミ大歓迎。

--- Mplayer.pm	(revision 4736)
+++ Mplayer.pm	(revision 8630)
@@ -24,15 +24,22 @@
     unless (defined $self->conf->{type}) {
         $context->log(error => q{config 'type' is not set.});
     }
-    my $file_name_base = $args->{entry}->date->strftime('%Y%m%d-%H%M');

     for my $enclosure ($args->{entry}->enclosures) {
-
         unless ($enclosure->type =~ $self->conf->{type}) {
             $enclosure->local_path('dummy') unless $enclosure->local_path;
             next;
         }
-
+
+        my $file_name_base;
+
+        if ( $self->conf->{original_file_name} || !defined($args->{entry}->date) ) {
+            $file_name_base = $self->_get_original_file_name_base($enclosure);
+        }
+        else {
+            $file_name_base = $args->{entry}->date->strftime('%Y%m%d-%H%M');
+        }
+
         my $dir_name = $self->conf->{sub_dir_name} || $args->{feed}->id_safe;
         my $feed_dir
             = File::Spec->catfile($self->conf->{dir}, $dir_name);
@@ -51,11 +58,6 @@
         my $fetched_extension = $self->conf->{consider_fetched} || 'mp3';
         my $fetched_data_path = "$file_path_base.$fetched_extension";
         if (-e $fetched_data_path || -e $output_path) {
-            my $length = -s _;
-            $ enclosure->url($enclosure->url);
-            $enclosure->length($length);
-            $enclosure->type('audio/x-wav');
-            $enclosure->local_path($output_path);
             $context->log(debug => $enclosure->url . "is already stored in $output_path");
             next;
         }
@@ -117,6 +119,33 @@
     return @stream_urls;
 }

+sub _get_original_file_name_base {
+    my ($self, $enclosure) = @_;
+
+    my $res = $self->{ua}->fetch($enclosure->url)
+        or Plagger->context->log;
+
+    my $file_name_base;
+
+    if ($enclosure->type =~ /asf/) {
+        $res->content =~ m!(?:http|mms)://.*/(.*?)\.(?:wmv|wsx|wma|asf)!;
+        $file_name_base = $1;
+    }
+    elsif ($enclosure->type =~ /realaudio/) {
+        $res->content =~ m!rtsp://.*/(.*?)\.(?:rm|smi)!;
+        $file_name_base = $1;
+    }
+
+    unless ($file_name_base) {
+        Plagger->context->log(warn => "Cannot get original file name base of " .  $enclosure->url)
+    }
+    else {
+        Plagger->context->log(info => "original file name base is " . $file_name_base)
+    }
+
+    return $file_name_base;
+}
+
 1;

 __END__
@@ -137,6 +166,17 @@

 This plugin dumps audio/video stream to a wav file.

+=head1 CONFIG
+
+=over 4
+
+=item original_file_name
+
+Optional.
+A flag to use original file name. Defaults to 0.
+
+=back
+
 =head1 AUTHOR

 Yohei Fushii

_ 『新世界より』の下巻を読み始めた

通勤電車から読み始めた。

500ページの大著だけど、すげー面白くて、もうちょいで読了。 大傑作の予感ビジバシ来てる。

新世界より 下
貴志 祐介
講談社
￥ 1,995