| … | |
… | |
| 4 | |
4 | |
| 5 | my $ignore = qr/ ^(?:robots.txt$|\.) /x; |
5 | my $ignore = qr/ ^(?:robots.txt$|\.) /x; |
| 6 | |
6 | |
| 7 | our %diridx; |
7 | our %diridx; |
| 8 | |
8 | |
| 9 | if ($::DIRIDX) { |
9 | if ($db_env) { |
| 10 | require GDBM_File; |
10 | tie %diridx, BerkeleyDB::Hash, |
| 11 | my $dbm = tie %diridx, GDBM_File, $::DIRIDX, |
11 | -Env => $db_env, |
| 12 | &GDBM_File::GDBM_WRCREAT, # | &GDBM_File::GDBM_FAST, |
12 | -Filename => "directory", |
| 13 | 0600; |
13 | -Flags => DB_CREATE, |
| 14 | $dbm->setopt(&GDBM_File::GDBM_CACHESIZE, (pack "i", 1_000), length (pack "i", 1_000)); |
14 | or die "unable to create database index"; |
| 15 | } |
15 | } |
| 16 | |
16 | |
| 17 | sub conn::gen_statdata { |
17 | sub conn::gen_statdata { |
| 18 | my $self = shift; |
18 | my $self = shift; |
| 19 | my $data; |
19 | my $data; |
