";
print "$HEADING\n";
if ($relpath) {
print "
\n";
local($link) = ("../" x ($#relpath + 1)) . "$SIGEN.htm";
print "$TOPTITLE/\n";
foreach (0 .. $#relpath - 1) {
$link = ("../" x ($#relpath - $_)) . "$SIGEN.htm";
print "$relpath[$_]/\n";
}
$cwdname = $relpath[$#relpath];
} else {
$cwdname = $TOPTITLE;
}
print "
$cwdname
\n";
if (local($sigen) = $SIGEN_DB{$path}) {
print "\n";
&PrintDesc($sigen, $path, ".");
}
print "
\n";
print "\n";
print "
\n";
}
# abspath: absolute local (file protocol) path.
# File existence check etc. must be done in 'abspath', since the
# project's top directory may be located at site-dependent directory.
# relpath: absolute path relative to SIGEN.htm's current working directory.
# Hyperlinks must be descrived in 'relpath' for compatibility between
# local file access and remote http access.
sub HtmlSaiki {
local($htmcwd, $path, $level) = @_;
local($abspath, $relpath);
local(@files) = sort split(/\t/, $dirtree{$path});
foreach (@files) {
$abspath = &DirCat($path, $_);
$relpath = substr($abspath, length($htmcwd) + 1, 256);
&HtmlPrint($abspath, $relpath, $level) || next;
if (defined $dirtree{$abspath}) {
print "\n" if $INDENT;
&HtmlSaiki($htmcwd, $abspath, $level + 1)
if ($level < $MAXDEPTH);
print "
\n" if $INDENT;
}
}
}
sub HtmlPrint {
local($abspath, $relpath, $level) = @_;
local($sigen) = $SIGEN_DB{$abspath};
local($prune) = $PRUNE_DB{$abspath};
local($link, $type, $suffix);
if (-d $abspath) {
$link = "$relpath/$SIGEN.htm";
$link = $relpath if (!$sigen || $prune);
$suffix = "/";
$suffix = '@' if (-l $abspath);
} else {
$link = $relpath;
$suffix = '?';
$suffix = '' if (-f $abspath);
$suffix = '@' if (-l $abspath);
$suffix = '@ (symlink broken)' if (!-e $abspath);
}
return 0 if (!$sigen && $level > 0);
print "- \n";
print "" if ($sigen && !$prune);
print $relpath;
print "" if ($sigen && !$prune);
print "$suffix\n";
print "
- \n";
&PrintDesc($sigen, $abspath, $relpath) if ($sigen);
return 0 if $prune;
1;
}
sub PrintDesc {
local($sigen, $abspath, $relpath) = @_;
local(%hdrs) = split(/\t/, $sigen, 100);
print $hdrs{"subject:"}, "
\n";
if ($hdrs{"maintainer:"} || $hdrs{"update:"}) {
local($mnt) = $hdrs{"maintainer:"} || "(maintainer: missing)";
local($upd) = $hdrs{"update:"} || "update: missing";
print "$mnt ($upd)
\n";
}
local($doc);
if ($doc = $hdrs{"description:"}) {
$doc = &DocLinkConv($doc, $abspath, $relpath);
print "$doc
\n";
}
if ($doc = $hdrs{"note:"}) {
$doc = &DocLinkConv($doc, $abspath, $relpath);
print "[$doc]
\n";
}
}
sub DocLinkConv {
local($_, $abspath, $relpath) = @_;
local($pre, $fnam, $post, $link, $absup);
$absup = &UpDir($abspath);
$relup = &UpDir($relpath);
while (/]*>/) {
$pre = $`; $post=$';
$fnam = $&;
$fnam =~ s/^$//;
$_ = "$pre $fnam $post";
}
while (/relative:[!-~]+/) {
$pre = $`; $post = $';
$fnam = $&; $fnam =~ s/relative://;
if (-e "$absup/$fnam/$SIGEN.htm") {
$link = "$relup/$fnam/$SIGEN.htm";
} elsif (-e "$absup/$fnam") {
$link = "$relup/$fnam";
} elsif (-d $abspath && -e "$abspath/$fnam/$SIGEN.htm") {
$link = "$relpath/$fnam/$SIGEN.htm";
} elsif (-d $abspath && -e "$abspath/$fnam") {
$link = "$relpath/$fnam";
} else {
$link = undef;
}
if ($link) {
$_ = "$pre$fnam$post";
} else {
$_ = "$pre$fnam$post";
}
}
$_;
}
sub HtmlFooter {
local($level) = @_;
local($acklink, $top);
print "
\n";
print "
\n";
print "\n";
print "last update: ", &FmtTime, "\n";
if ($ACKTEXT) {
local($_) = $ACKTEXT;
if ($acklink = $ACKLINK) {
if ($acklink =~ /^~/) {
$top = ($level > 0) ? ("../" x $level) : ".";
substr($acklink, 0, 1) = $top;
}
$acklink = "";
s/::/$acklink/ || s/^/$acklink/;
$acklink = "";
s/::/$acklink/ || s/$/$acklink/;
}
print "
$_\n";
}
print "\n