#!/usr/bin/perl
#
# This script is in public domain.
#
# xjman の html ツリーの index を作る.
# 2000.3.4 NAKANO Takeo.
#
#
# definitions
#
$WWWROOT="xjman";
$th_seq = 20;
$th_dep = 3;
@secs = (1, 3, 5);
open IDX, "| nkf -j > $WWWROOT/index.html";
print IDX $idx_header;
foreach $sec (@secs){
$secx = $sec . "x";
@page = ();
print IDX "
セクション $sec
\n";
open LS, "ls $WWWROOT/man$sec/*.html |";
while () {
chomp;
unless (/man[1-8]\/([^\/]*)\.[1-8]x\.html$/){next;}
push @page, $1;
}
close LS;
$sh = "%";
$sl = length($sh);
for ($i = 0; $i<= $#page; $i++){
if ($page[$i] !~ /^$sh/) {
$schg = "true";
while($sl > 0){
$sl--;
$sh = substr($sh, 0, $sl);
if ($page[$i] =~ /^$sh/) {
$sl++;
$sh = substr($page[$i], 0, $sl);
last;
}
}
}
while($sl < $th_dep && $sl <= length($page[$i])){
if ($page[$i+$th_seq] !~ /^$sh/){
last;
}
$sl++;
$sh = substr($page[$i], 0, $sl);
$schg = "true";
}
if ($schg eq "true"){
print IDX "\n$sh
\n";
$schg = "false";
}
print IDX "$page[$i].$secx\n";
}
}
print IDX $idx_footer;
close IDX;
#
# == end of the script ==
BEGIN {
#########################################################
# ページヘッダ
#
$idx_header = <<'EOM';
xjman/web INDEX
xjman/web INDEX
EOM
#########################################################
# ページフッタ
#
$idx_footer = <<'EOM';
翻訳に関するコメントは:
X Japanese Documentation Project <xjman-ml@dsl.gr.jp> まで.
本ページ・検索システムに関するコメントは:
NAKANO Takeo <nakano@apm.seikei.ac.jp> まで.
戻る
EOM
}