${title}
EOH if ($Opt{detail}) { print q{};
for my $file_name (@files) {
my $efile = escape $file_name;
my $uri = $efile;
$uri =~ s/\..+//g;
my @cls = split /\./, lc $file_name;
shift @cls;
print q{
};
} else {
print q{};
print qq{};
print qq{
};
print qq{};
print q{
};
}
my @videos = grep {/\.(?:avi|mpe?g|mp3|wav|mid|swf)(?:\.gz)?$/i} @all_files;
for my $file_name (@videos) {
my $efile = escape $file_name;
my $uri = $efile;
$uri =~ s/\..+//g;
print q{};
print qq{
};
print qq{};
print q{
};
}
for my $dir_name (@dirs) {
my $edir = escape $dir_name;
print q{};
if (-f $dir . '/' . $dir_name . '/favicon.png' or
-f $dir . '/' . $dir_name . '/favicon.ico') {
print qq{
};
} else {
print qq{
};
}
print qq{
};
}
for (['cover', '表紙', 'start'],
['introduction', 'はじめに', 'start'],
['intro', 'はじめに', 'start'],
['README', 'はじめに'],
['contents', '目次', 'contents'],
['list', '一覧', 'contents'],
['description', '説明'],
['index', '索引', 'index'],
['latest', '最新版'],
['current', '現行版']) {
if (has_file $_->[0]) {
print q{$edir/};
print q{};
print q{
};
print qq{$_->[1]};
print q{
};
}
}
print q{};
print q{
};
print q{上の階層};
print q{
};
print q{};
my $imgsattr = ' class="s"';
for my $file_name (@files) {
my $uri = escape $file_name;
$uri =~ s/\..+$//g;
print '';
print '
';
print "\n";
}
print q{
};
print q{- };
for my $dir_name (@dirs) {
my $edir = escape $dir_name;
print q{
- };
print qq{
$edir/}; print q{ };
}
print q{ - 上の階層