は

• jeedosaquin の filter で get_uri する時に $mother_cfile と $fragment が必要
• そのためには sub filter (::filter) の引数を変更する必要がある
• そのためには、全ての filter/*.pl の ::filter の引数を変更する必要がある

だったと思う。いまは ::html_filter とかも変更しようとしているが、実はそれは不要 (?)

上の ::filter の呼出しは apply_filter の中だから、apply_filter の引数の変更は必要。 例えば呼出形式は次のようなもの。

 mknmz::apply_filter($orig_cfile, \$datafork,
                        $weighted_str, $headings, $fields,
                        $dummy_shelterfilename, $mmtype);

呼んでいるのは macbinary.pl, mailnews.pl, zip.pl。これは nesting_filter でも呼ばれている ので、nesting_filter にも 引数を渡してもらうことが必要。 nesting_filter は mailnews.pl と zip.pl の中で別々に定義されている。 事情は両者とも同じ。

namazu-mef-rc/ これで少なくとも日記の検索が出来るようになった。185 日分くらい落していた (索引を作っていなかった) ような気がする。 ... しまった pre2 より新しい RC2 があった ...

Day '31' out of range 1..30 at /usr/pkg/share/namazu/pl/time.pl line 245

これは何かな ..

    245         my $mtime = timegm($sec, $min, $hour, $mday, $month, $year);

$mday は 0..30 な数なので -1 をしておく必要がある ? (というのも、ちょっと変) 放っておけば、と思ったが、その後で止ってしまった。 どうも日の方ではなくて月の方が 1 つずれているということらしい → Day '31' out of range 1..30

168716/1170509 - /home/makoto/Mail/junk/2805 [message/rfc822]
Day too big - 47387 > 24855
Sec too small - 47387 < 74752
Sec too big - 47387 > 11647
Cannot handle date (49, 21, 03, 28, 8, 2099) 
    at /usr/pkg/share/namazu/pl/time.pl line 245
ttyqc:makoto@trapani 5:20:53/061102(...makoto/Mail)> 

grep Date /e/u/home/makoto/Mail/junk/2806
Date: Tue, 29 Sep 2099 03:21:49 +0800

/usr/pkg/lib/perl5/5.8.0/Time/Local.pm より

    100 sub timegm {
    101     my ($sec,$min,$hour,$mday,$month,$year) = @_;
    102 
    103     if ($year >= 1000) {
    104         $year -= 1900;
    105     }
    106     elsif ($year < 100 and $year >= 0) {
    107         $year += ($year > $Breakpoint) ? $Century : $NextCentury;
    108     }
    109     
    110     unless ($Options{no_range_check}) {
    111         if (abs($year) >= 0x7fff) {
    112             $year += 1900;
    113             croak "Cannot handle date ($sec, $min, $hour, $mday, $month, *$year*)";
    114         }

$Options{no_range_check} を指定しておいた方がいい気がする::

--- pl/time.pl-orig	2006-11-01 12:27:34.000000000 +0900
+++ pl/time.pl	2006-11-02 09:09:08.000000000 +0900
@@ -26,6 +26,8 @@
 package time;
 use strict;
 use Time::Local;
+# http://www.rfs.jp/sb/perl/04/01.html
+use Time::Local  qw(timegm_nocheck); 
 
 #
 # get timezone :
@@ -242,7 +244,7 @@
         $year += 2000 if ($year < 50);
         $year += 1900 if (50 <= $year && $year <= 99);
 
-	my $mtime = timegm($sec, $min, $hour, $mday, $month, $year);
+	my $mtime = timegm_nocheck($sec, $min, $hour, $mday, $month, $year);
 
         my $offset;
         if ($timezone =~ /([+-])(\d{2})([0-5][0-9])/) {