forked from github/kensanata.oddmuse
365d33b602
Recent GNU/Linux systems use ext3 or ext4 file systems. These use HTree to index files. Wikipedia says: "HTree indexing improved the scalability of Linux ext2 based filesystems from a practical limit of a few thousand files, into the range of tens of millions of files per directory. [...] HTree indexes are available in ext3 when the dir_index feature is enabled. [...] HTree indexes are turned on by default in ext4." Thus, instead of working on balanced-page-directories.pl, we decided to get rid of these sub-directories altogether. Unfortunately, this is backwards incompatible. Users wanting to upgrade will need to install the upgrade.pl extension in order to upgrade the file database.
52 lines
1.9 KiB
Perl
52 lines
1.9 KiB
Perl
# Copyright (C) 2004, 2007 Alex Schroeder <alex@emacswiki.org>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the
|
|
# Free Software Foundation, Inc.
|
|
# 59 Temple Place, Suite 330
|
|
# Boston, MA 02111-1307 USA
|
|
|
|
$ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/index.pl">index.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Index_Extension">Index Extension</a></p>';
|
|
|
|
$Action{'printable-index'} = \&DoPrintableIndex;
|
|
|
|
sub DoPrintableIndex {
|
|
print GetHeader('', T('Index'), '');
|
|
my @pages = PrintableIndexPages();
|
|
my %hash;
|
|
map { push(@{$hash{substr($_,0,1)}}, $_); } @pages;
|
|
print '<div class="content printable index">';
|
|
print $q->p($q->a({-name=>"top"}),
|
|
map { $q->a({-href=>"#$_"}, $_); } sort keys %hash);
|
|
foreach my $title (sort keys %hash) {
|
|
print '<div class="letter">';
|
|
print $q->h2($q->a({-name=>$title}, $title));
|
|
foreach my $id (@{$hash{$title}}) {
|
|
PrintPage($id);
|
|
}
|
|
print '</div>';
|
|
}
|
|
print '</div>';
|
|
PrintFooter();
|
|
}
|
|
|
|
# Mostly DoIndex() without the printing.
|
|
sub PrintableIndexPages {
|
|
my @pages;
|
|
push(@pages, AllPagesList()) if GetParam('pages', 1);
|
|
push(@pages, keys %PermanentAnchors) if GetParam('permanentanchors', 1);
|
|
push(@pages, keys %NearSource) if GetParam('near', 0);
|
|
@pages = grep /$match/i, @pages if GetParam('match', '');
|
|
return sort @pages;
|
|
}
|