namazu-ml(ring)

[Youichi Iwakiri <yiwakiri@xxxxxxxxxxxx>]

いわきりです。

Ken-ichi Hiroseさんの<199905310838.RAA06020@xxxxxxxxxxxxxx>から
 >広瀬と申します。
 >
 >>新宿東口の「花のれん」にしましょう。
 >>＃新歓シーズンなので変わるかも知れませんが。。。
 >>集合場所と併せて後程お知らせ致します。
 >といことで、予約しておきました。
 >「大皿料理　花のれん　新宿店」

参加させてください。
よろしくお願いします。


#あんど、くだらない要望をここに付けたりします。
mknmzの一連の処理ですが、
update、delete、appendのタイミングで外部プログラムに
ファイル名を渡し何らかの処理をさせたいと思い下記のpatchを
作りました。
#実際はPostgreSQLにデータを渡しています。

挿入箇所の正当性、こうした方が良いんじゃないかと言う
ご意見を戴ければさいわいです。

updateは要らないかも知れないですが、取りあえず付けてあります。
append時の@FListってupdate分も含んでるのですね。

以下、namazu-1.3.0.7用のpatchです

*** mknmz.pl	Wed Jun  2 17:51:46 1999
--- mknmz.pl.19990602	Wed Jun  2 17:50:32 1999
***************
*** 414,419 ****
--- 414,420 ----
  	    }
  	    $swap++;
  	}
+         hook::appended_files($cfile);
      }
      if (%KeyIndex) {
  	$key_count = put_index();
***************
*** 1945,1950 ****
--- 1946,1952 ----
      foreach $cfile (@{$ref->{name}}) {
  	if (defined($ref->{deleted}{$cfile})) {
  	    print "$cfile was deleted!\n" unless $QuietOpt;
+             hook::deleted_files($cfile);
  	    $ref->{mtime}[$i] = -1; # assign the a messing number
  	} elsif (defined($ref->{overlaped}{$cfile})) {
  	    my $cfile_mtime = (stat($cfile))[9];
***************
*** 1953,1958 ****
--- 1955,1961 ----
  	    if ($rfile_mtime < $cfile_mtime) {
  		# this file is updated!
  		print "$cfile was updated!\n" unless $QuietOpt;
+                 hook::updated_files($cfile);
  		$ref->{mtime}[$i] = -1; # assign the messing number
  		push(@updated_files, $cfile);
  	    }
***************
*** 3172,3175 ****
--- 3175,3194 ----
      $str;
  }
  
+ package hook;
+ use strict;
+ sub deleted_files ($){
+     my ($cfile) = @_;
+     $cfile;
+ }
+ 
+ sub updated_files ($){
+     my ($cfile) = @_;
+     $cfile;
+ }
+ 
+ sub appended_files ($){
+     my ($cfile) = @_;
+     $cfile;
+ }