Glimpse — specify program path and options for the Glimpse search engine
The directive specifies pathname for the glimpse command, used if glimpse
searches are to be enabled.
To use glimpseserver, the
-C, -J and -K options must be
specified.
Glimpse was once-popular search engine in the Linux world, but its non-free status and other things called for its replacement. We suggest you use Swish-e which is supported by Interchange as well.
Interchange 5.9.0:
Source: lib/Vend/Config.pm
Line 4057 (context shows lines 4057-4113)
sub parse_executable {
my($var, $initial) = @_;
my($x);
my(@tries);
if(ref $initial) {
@tries = @$initial;
}
else {
@tries = $initial;
}
TRYEXE:
foreach my $value (@tries) {
#::logDebug("trying $value for $var");
my $root = $value;
$root =~ s/\s.*//;
return $value if $Global::Windows;
if( ! defined $value or $value eq '') {
$x = '';
}
elsif( $value eq 'none') {
$x = 'none';
last;
}
elsif( $value =~ /^\w+::[:\w]+\w$/) {
## Perl module like Net::SMTP
eval {
eval "require $value";
die if $@;
$x = $value;
};
last if $x;
}
elsif ($root =~ m#^/# and -x $root) {
$x = $value;
last;
}
else {
my @path = split /:/, $ENV{PATH};
for (@path) {
next unless -x "$_/$root";
$x = $value;
last TRYEXE;
}
}
}
config_error( errmsg(
"Can't find executable (%s) for the %s directive\n",
join('|', @tries),
$var,
)
) unless defined $x;
#::logDebug("$var=$x");
return $x;
}