Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [namazu-project-ja] mailutime の fuzyy 処理 (namazu-bugs-ja#42)
- From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>
- Date: Wed, 29 Nov 2000 15:29:55 +0900 (JST)
- X-ml-name: namazu-devel-ja
- X-mail-count: 01114
- References: <20001129060141.1DAEE38857@karin.namazu.org>
From: hayashi@xxxxxxxxxxxxxxxxx <hayashi@xxxxxxxxxxxxxxxxx> さん曰く
Subject: [namazu-project-ja] mailutimeのfuzyy処理 (namazu-bugs-ja#42)
Message-ID: <20001129060141.1DAEE38857@xxxxxxxxxxxxxxxx>
Date: Wed, 29 Nov 2000 15:01:41 +0900 (JST)
> 附属のユーティリティ mailutimeで"Date: 13 Jun 97 20:48:15 +0000"という
> Dateへッダを処理した際に次のエラーメッセージで終了してしまう.
"Date: 13 Jun 97 20:48:15 +0000"
が "RFC822 的な format ではない" と思えないので mailutime を調べ
てみたら、曜日が無いと弾いてしまうようですね。
rfc822 より
>> 5. DATE AND TIME SPECIFICATION
>> 5.1. SYNTAX
>>
>> date-time = [ day "," ] date time ; dd mm yy
こんな感じでいいのでしょうか? あいかわらず Perl 良くわかんないし ^^;
sub rfc822time($) {
my ($date) = @_;
if ($date =~ /
^\s*
(\w{3},\s+|) # a day of the week (ignored)
($re_day)\s+ # a day of the month
($re_month)\s+ # name of month
($re_year)\s+ # year
($re_hour):($re_min):($re_sec) # HH:MM:SS
/x)
{
my ($mday, $mon, $year, $hour, $min, $sec) = ($2, $3, $4, $5, $6, $7);
Complete! 1: Wed, 17 Sep 97 21:15:20 -0400 -> 874498520
Complete! 10: Thu, 18 Sep 97 02:32:54 -0400 -> 874517574
Complete! 100: 30 Sep 1997 11:47:20 +0900 -> 875587640
Complete! 1000: 05 Feb 1998 10:13:05 +0900 -> 886641185
Complete! 1001: 04 Feb 1998 21:16:54 -0500 -> 886594614
Complete! 1002: Thu, 05 Feb 1998 12:01:54 +0900 -> 886647714
となります。
> 元のDateへッダが不正なのでこれはバグとは言えないかもしれませんが,例えばディレクトリ内の
> メールを一括処理する場合,終了してしまうと残りのファイルが未処理で残るため少々使い勝手が悪い.
というわけで『元の Date ヘッダが不正』というわけじゃなくて、この
場合は mailutime のバグだと思います。また、その他の要因でエラー
するときの挙動はわかりません。(_ _)
# なんだか全部のフォルダで動かしたくなっちゃいました。
--
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)