-
Notifications
You must be signed in to change notification settings - Fork 1
/
indexer_filesystem.pl
executable file
·93 lines (78 loc) · 2.77 KB
/
indexer_filesystem.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
# Perlfect Search - file system indexing
#$rcs = ' $Id: indexer_filesystem.pl,v 1.15 2003/02/24 22:45:42 daniel Exp $ ' ;
# Copyright (C) 1999-2003 Giorgos Zervas <[email protected]> and
# Daniel Naber <[email protected]>
#
# 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
# Currently empty.
sub init_filesystem {
}
# Recursively traverse the filesystem, but ignore the files on @no_index.
sub crawl_filesystem {
my $dir = $_[0];
my $doc_id;
my $file;
my $tempdir = $dir;
if( $ENV{'REQUEST_METHOD'} ) {
$tempdir = html_escape($tempdir);
}
print "$em$tempdir$em_end$br";
chdir $dir or (warn "Cannot chdir $dir: $!" and return);
opendir(DIR, $dir) or (warn "Cannot open $dir: $!" and return);
my @contents = readdir DIR;
closedir(DIR);
# to ignore symbolic links, add "and not -l" to both greps:
my @dirs = grep {-d and not /^\.{1,2}$/} @contents;
my @files = grep {-f and /^.+\.(.+)$/ and grep {/^\Q$1\E$/} @EXT} @contents;
FILE: foreach my $f (@files) {
$file = $dir."/".$f;
$file =~ s/\/\//\//og;
next FILE if( to_be_ignored($file) );
# loading the file:
my $buffer = "";
my $ext = get_suffix($file);
if( $ext ) {
if( $EXT_FILTER{$ext} ) {
$buffer = filterFile($file, $ext);
} else {
my $tmp = $/;
undef $/;
open(FILE, $file) or (warn "Cannot open '$file': $!" and $DN-- and next);
binmode(FILE); # for reading PDF files under Windows NT
$buffer = <FILE>;
close(FILE);
$/ = $tmp;
}
}
# check robot meta tags (but NOT nofollow, it doesn't make sense for local indexing):
my $meta_tags = robot_meta_tag(\$buffer);
if( $meta_tags eq "noindex" || $meta_tags eq "none" ) {
print STDERR "'$file': META tags forbid indexing\n" if( $HTTP_DEBUG );
next;
}
$doc_id = record_file($file);
$filesize = (-s $file);
my $date = (stat($file))[9];
index_file($file, $doc_id, $filesize, $date, \$buffer);
}
DIR: foreach my $d (@dirs) {
$file = $dir."/".$d;
$file =~ s/\/\//\//og;
next DIR if( to_be_ignored($file) );
crawl_filesystem($file);
}
}
1;