#!/usr/local/bin/perl
#
# find2tree: find(1) 形式の入力を木構造へ整形出力
#
# [1996/09/18] OSHIRO Naoki.
# [1996/10/08] OSHIRO Naoki. HTML 形式のみではなく，普通の出力にも対応．
# [1996/10/08] OSHIRO Naoki. パス名から各ディレクトリへと展開するようにした．
# [1996/10/29] OSHIRO Naoki. refdate オプションを追加
# [1996/12/07] OSHIRO Naoki.
# ・&search においてリスト最後のタイトル取得を行っていなかった
# のを修正（したつもり）
# [1997/01/05] OSHIRO Naoki.
# ・&search で木構造が余分に茂って表示されていたのを修正した
# （前回の修正が不十分だったのを補訂）．
# [1997/06/28] OSHIRO Naoki.
# ・HTML の BODY を生成するようにした．
# ・BGCOLOR を -b オプションで指定できるようにした．
# [1997/07/29] OSHIRO Naoki.
# ・HTML でのリンクを「ファイル名」からではなく「内容タイトル」から
# 張るようにしてみた．
# [1997/09/04] OSHIRO Naoki.
# ・「内容タイトル」からリンクを張るようにすると，それが取得できない
# 場合に不都合が生じるので，その場合にはファイル名を使用するように
# した．
# [1997/11/07] OSHIRO Naoki.
# ・C プログラムソースのヘッダタイトルを取得可能にした．
# [1998/12/23] OSHIRO Naoki.
# ・jcode.el による漢字コード変換処理を入れた．（動作未確認）
#
# $Log:$
#
# Web 検索用に「ツリー構造」という言葉も入れておこう．．．(^^;．
#
# ToDo:
# ・現在はファイルのみでなく各段階のディレクトリ出力も必要だが，
# ファイル名を取得した場合に，これを自動で展開するようにしたい．
# [1996/12/07]
# ・なぜか一番最後の項目はタイトルの取得が行われないよ？
# -->一応修正したつもり[1996/12/07 10:51]
# [1998/09/12]
# ・ディレクトリ下に１つしかファイルがない場合には，枝は表示せず簡
# 略化して内容だけをすぐに表示するようにしたい．
#
$find2tree_ver="0.2";
require "jcode.pl";
$jcode='euc';
require "getopts.pl";
&Getopts('htrb:'); # h: HTML, t: TITLE, r: REFDATE, b: BGCOLOR
$bgcolor=" BGCOLOR=\"$opt_b\"" if ($opt_b);
$refdate="(??/??) " if ($opt_r);
while (<>) {
chop;
$path=$_;
$path=~m#^([^/]*)#;
$top{$1}++;
while ($path ne "") {
($base, $path)=&basename($path);
next if ($base{"$path:$base"}++);
$path{$path}.="$base\x1b";
}
}
if ($opt_h) {
print "\n\n";
print "\nfind2tree: $ARGV\n\n\n";
print "\n\n";
}
foreach $top (sort(keys(%top))) {
print " " . &make_filename("$top", "$top") . "\n";
&search("$top");
}
print "\n\n