henka at cityweb
Sep 5, 2008, 7:16 AM
Post #4 of 8
(5816 views)
Permalink
|
|
Re: KSx::Search::LongFieldSim in revision 3811
[In reply to]
|
|
argh, I wasn't paying attention, here's the svn diff:
Index: sample/conf.pl
===================================================================
--- sample/conf.pl (revision 3813)
+++ sample/conf.pl (working copy)
@@ -11,5 +11,5 @@
# File system path to the directory which holds the US Constitution html
# files.
- uscon_source => 'sample/us_constitution',
+ uscon_source => 'us_constitution',
};
\ No newline at end of file
Index: sample/USConSchema.pm
===================================================================
--- sample/USConSchema.pm (revision 3813)
+++ sample/USConSchema.pm (working copy)
@@ -13,11 +13,18 @@
use base 'KinoSearch::Schema';
use KinoSearch::Analysis::PolyAnalyzer;
+package USConSchema::testfield;
+use base 'KinoSearch::FieldSpec::text';
+use KSx::Search::LongFieldSim;
+sub similarity { KSx::Search::LongFieldSim->new }
+
+
our %fields = (
- title => 'text',
- content => 'text',
- url => 'USConSchema::NotIndexed',
- category => 'USConSchema::NotAnalyzed',
+ title => 'text',
+ content => 'text',
+ url => 'USConSchema::NotIndexed',
+ category => 'USConSchema::NotAnalyzed',
+ testfield => 'USConSchema::testfield',
);
sub analyzer {
Index: sample/invindexer.pl
===================================================================
--- sample/invindexer.pl (revision 3813)
+++ sample/invindexer.pl (working copy)
@@ -4,7 +4,7 @@
# Load configuration file. (Note: change conf.pl location as needed.)
my $conf;
-BEGIN { $conf = do "sample/conf.pl" or die "Can't locate conf.pl"; }
+BEGIN { $conf = do "./conf.pl" or die "Can't locate conf.pl"; }
use lib @{ $conf->{lib} };
use File::Spec::Functions qw( catfile );
@@ -49,10 +49,10 @@
: $filename =~ /preamble/ ? 'preamble'
: die "Can't derive category for $filename";
return {
- title => $title_node->as_trimmed_text,
- content => $bodytext_node->as_trimmed_text,
- url => "/us_constitution/$filename",
- category => $category,
+ title => $title_node->as_trimmed_text,
+ content => $bodytext_node->as_trimmed_text,
+ testfield => $bodytext_node->as_trimmed_text,
+ url => "/us_constitution/$filename",
+ category => $category,
};
}
-
Index: sample/search.cgi
===================================================================
--- sample/search.cgi (revision 3813)
+++ sample/search.cgi (working copy)
@@ -1,12 +1,13 @@
-#!/usr/bin/perl -T
+#!/usr/bin/perl
use strict;
use warnings;
# Load configuration file. (Note: change conf.pl location as needed.)
-my $conf;
-BEGIN { $conf = do "./conf.pl" or die "Can't locate conf.pl"; }
-
-use lib @{ $conf->{lib} };
+#my $conf;
+#BEGIN { $conf = do "/www/sites/testsite/htdocs/test/sample/conf.pl"
or die "Can't locate conf.pl"; }
+#
+use lib '/www/sites/testsite/htdocs/testing/sample-longfield-sim';
+#use lib @{ $conf->{lib} };
use CGI;
use Data::Pageset;
use HTML::Entities qw( encode_entities );
@@ -21,7 +22,7 @@
# Create a Searcher object and feed it a query.
my $searcher = KinoSearch::Searcher->new(
- invindex => USConSchema->open( $conf->{path_to_invindex} ) );
+ invindex => USConSchema->open(
'/www/sites/testsite/htdocs/testing/sample-longfield-sim/uscon_invindex' )
);
my $hits = $searcher->search(
query => $q,
offset => $offset,
_______________________________________________
KinoSearch mailing list
KinoSearch [at] rectangular
http://www.rectangular.com/mailman/listinfo/kinosearch
|
sample.diff
