mws/trunk/MWS_swish.pm

#!/usr/bin/perl -w

use strict;

#
# simple implementation to use SWISH-e with queryies like
# Lucene (subject:something)
#

use SWISH::API;

sub open_index {
        my $self = shift;

        my $swish = $self->{index};

        if (! $swish) {

                my $index_file = $self->{index_file} || croak "open_index needs index filename";
                $index_file .= "/swish-e";
                print STDERR "opening index '$index_file'\n";
                $swish = SWISH::API->new($index_file);
                $swish->AbortLastError if $swish->Error;

                $self->{index} = $swish;
        }

        return $swish;
}

sub search_index {
        my $self = shift;

        my $s = shift || croak "search_index needs query";

        my $index = $self->open_index;

        if ($s =~ /:/) {
                my ($fld,$val) = split(/:/,$s,2);
                $s = "$fld=($val)";
        }

        print STDERR "swish search: $s\n";
        my $results = $index->Query($s);

        my @r;

        while ( my $result = $results->NextResult ) {
                push @r, $result->Property( "swishdocpath" );
        }

        return @r;
}

sub add_index {
        my $self = shift;
        
        croak("add_index is not implemented for swish!");
}

sub close_index {
        my $self = shift;

}

1;
1	dpavlin	12	#!/usr/bin/perl -w
2
3			use strict;
4
5			#
6			# simple implementation to use SWISH-e with queryies like
7			# Lucene (subject:something)
8			#
9
10			use SWISH::API;
11
12			sub open_index {
13			my $self = shift;
14
15			my $swish = $self->{index};
16
17			if (! $swish) {
18
19			my $index_file = $self->{index_file} \|\| croak "open_index needs index filename";
20			$index_file .= "/swish-e";
21			print STDERR "opening index '$index_file'\n";
22			$swish = SWISH::API->new($index_file);
23			$swish->AbortLastError if $swish->Error;
24
25			$self->{index} = $swish;
26			}
27
28			return $swish;
29			}
30
31			sub search_index {
32			my $self = shift;
33
34			my $s = shift \|\| croak "search_index needs query";
35
36			my $index = $self->open_index;
37
38			if ($s =~ /:/) {
39			my ($fld,$val) = split(/:/,$s,2);
40			$s = "$fld=($val)";
41			}
42
43			print STDERR "swish search: $s\n";
44			my $results = $index->Query($s);
45
46			my @r;
47
48			while ( my $result = $results->NextResult ) {
49			push @r, $result->Property( "swishdocpath" );
50			}
51
52			return @r;
53			}
54
55			sub add_index {
56			my $self = shift;
57
58			croak("add_index is not implemented for swish!");
59			}
60
61			sub close_index {
62			my $self = shift;
63
64			}
65
66			1;