20 |
my $debug = 0; |
my $debug = 0; |
21 |
my $force = 0; |
my $force = 0; |
22 |
my $all = 0; |
my $all = 0; |
23 |
|
my $skip_images = 0; |
24 |
|
|
25 |
my $result = GetOptions( |
my $result = GetOptions( |
26 |
"collection=s" => \$collection, |
"collection=s" => \$collection, |
30 |
"exclude=s" => \$exclude, |
"exclude=s" => \$exclude, |
31 |
"force!" => \$force, |
"force!" => \$force, |
32 |
"all!" => \$all, |
"all!" => \$all, |
33 |
|
"skip-images!" => \$skip_images, |
34 |
); |
); |
35 |
|
|
36 |
my ($node_url,$dir) = @ARGV; |
my ($node_url,$dir) = @ARGV; |
42 |
--collection="name of collection" |
--collection="name of collection" |
43 |
--path=/path/to/add/at/end |
--path=/path/to/add/at/end |
44 |
--exclude=regex_to_exclude |
--exclude=regex_to_exclude |
45 |
|
--skip-images |
46 |
--verbose |
--verbose |
47 |
--force |
--force |
48 |
--debug |
--debug |
349 |
warn "skipping '$path', no pstotext filter\n" if ($verbose); |
warn "skipping '$path', no pstotext filter\n" if ($verbose); |
350 |
return; |
return; |
351 |
} |
} |
352 |
|
} elsif ($type =~ m!^image/! && $skip_images) { |
353 |
|
warn "skipping image '$path'\n" if ($verbose); |
354 |
|
return; # don't index images |
355 |
} else { |
} else { |
356 |
|
|
357 |
# return if (! -f $path || ! m/\.(html*|php|pl|txt|info|log|text)$/i); |
# return if (! -f $path || ! m/\.(html*|php|pl|txt|info|log|text)$/i); |