package Lucene;
use File::stat;
use URI::Escape;
use POSIX qw(strftime);
use Env qw(@PATH @CLASSPATH);
# --- Configurable variables -----
# Where's Java?
my $JAVA_HOME = '/home/rubys/jdk1.3.1_04';
# Where's lucene?
my $lucene = '/home/rubys/lucene/lib/*.jar';
# What's my index?
my $index = '/home/rubys/lucene/index';
# --------------------------------
unshift @PATH, "$JAVA_HOME/bin";
push @CLASSPATH, "$JAVA_HOME/lib/tools.jar";
push @CLASSPATH, "$JAVA_HOME/jre/lib/rt.jar";
push @CLASSPATH, glob($lucene);
sub new {
shift;
$arg = uri_escape(shift);
foreach (`$JAVA_HOME/bin/java -cp $ENV{CLASSPATH} LuceneSearch $index $arg`) {
chomp;
s !.*/!!;
push @matches, $_;
}
$self = @matches;
bless $self;
return $self;
}
sub read {
my $self = shift;
@$self;
}
1;