namazu-dev(ring)

[藤原 誠 Makoto Fujiwara <makoto@xxxxx>]

>                                   Sun Dec 19 10:10:15 1999
>                                            千葉市中央区長洲
>                                                    藤原  誠
>                                                makoto@xxxxx
makoto> ・mknmz -C で INDEX を表示することが出来ていない。
makoto> $var::OUTPUT_DIR などの範囲(scope)の問題

これは一筋縄ではいかない気がしました。output_dir を決めるには
いろいろな論理 (logic) を通っているので。とりあえずあきらめ
ました。

makoto> ・NMZ.lock2 の消し方がどうも甘い
makoto>  (No files to index と言って終わった時の気がする)

僕が (set_lock の意味を) 間違って考えていました。check_lock
というのを作って find_target の前に入れて見ました。

makoto> ・余計だと思った read_config() はまだ消していません。
makoto>   何かいやな予感がしたものですから。

これはそのままです。

makoto> ですが、後退はしていないので、commit しようと思っています。

commit させていただきました。実は一回目の(ChangeLog の)日付を一日勘違い
していることに気が付きました。ごめんなさい。

makoto> patch に 日本語が入っている場合、Mew で言うと G と表示されるもの

多分これは僕の勘違い。B(binary) か Q(quoted printable) だと思います。

実は時々手で snapshot のようなものを作って
ftp://ftp.ki.nu/pub/namazu/ に置いているのですが、これが
ftp://ftp.kddlabs.co.jp/.6/Japan/ki.nu/namazu/
にも写されていることにきょう気が付きました。snapshot を作るしょうもない 
手続(script) を付けておきます。

---
(藤原)

#!/usr/local/bin/perl
$DIR    = '/home/makoto/namazu-cvs';
$NAMAZU = 'namazu';
$FTP    = '/home/ftp/pub/namazu/';
$ADMIN  = 'makoto@xxxxx';

#  ---- G E T   D A T E  C O D E ----
($sec,$min,$hour,$date,$month,$year,$wod,$ytd,$sm) = localtime(time());

if   ( $year == 99 ) { $year += 1900 }
else                 { $year += 2000 };
$month += 1;

$datecode = $NAMAZU.'-'.$year .'-'.$month.'-'. $date;
if ( $hour < 12 ) { $datecode .= 'm' }; # morning version
$ftp      = $FTP. $datecode. '.tar.gz';

print $datecode,"\n";
print $ftp,"\n";

# ----  C V S   G E T ----
chdir $DIR;
    open(CVS,      "cvs -d :pserver:guest\@openlab.ring.gr.jp:/circus/cvsroot co namazu|");
### open(CVS, "echo cvs -d :pserver:guest\@openlab.ring.gr.jp:/circus/cvsroot co namazu|");
while (<CVS>) {
    push(@cvsoutput,$_);
}
close (CVS);

# ---- T A R  F I L E ---
### print "$NAMAZU -> $datecode\n";
rename ($NAMAZU,$datecode) || print "can not rename (1)\n";
open(TAR,"tar zcf $ftp $datecode|");
   print <TAR>;
close(TAR);
rename $datecode,$NAMAZU || print "can not rename (2)\n";

# ---- R E P O R T   B Y  M A I L 
open(MAIL,"|mail -s $ftp $ADMIN");
print MAIL @cvsoutput;
close(MAIL);

__END__
    % cvs -d :pserver:guest@xxxxxxxxxxxxxxxxxx:/circus/cvsroot login
    (パスワードは guest)
    % cvs -d :pserver:guest@xxxxxxxxxxxxxxxxxx:/circus/cvsroot co namazu