--- trunk/PlusPlus.pm	2004/12/04 17:49:20	8
+++ trunk/PlusPlus.pm	2004/12/05 12:48:00	10
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.02';
+our $VERSION = '0.04';
 
 use Carp;
 use File::Temp qw/ tempdir /;
@@ -31,18 +31,20 @@
 
 =head1 METHODS
 
-=head2 open
+=head2 new
 
 Create new indexing object.
 
-  my $i = SWISH::PlusPlus->open(
+  my $i = SWISH::PlusPlus->new(
   	index_dir => '/path/to/index',
 	index => 'index++',
 	search => 'search++',
 	debug => 1,
+	meta_in_body => 1,
+	use_stopwords => 1,
   );
 
-Options to open are following:
+Options to new are following:
 
 =over 5
 
@@ -65,11 +67,21 @@
 This option (off by default) will produce a lot of debugging output on
 C<STDERR> prefixed by C<##>.
 
+=item C<meta_in_body>
+
+This option (off by default) enables to search content of meta fields
+without specifing them (like they are in body of document). This will
+somewhat increate index size.
+
+=item C<use_stopwords>
+
+Use built-in SWISH++ stop words. By default, they are disabled.
+
 =back
 
 =cut
 
-sub open {
+sub new {
         my $class = shift;
         my $self = {@_};
 	bless($self, $class);
@@ -86,7 +98,7 @@
 	$self->{'index'} ||= 'index';
 	$self->{'search'} ||= 'search';
 
-	print STDERR "## open index_dir: ",$self->{'index_dir'}," index: ",$self->{'index'}, " search: ",$self->{'search'},"\n" if ($self->{'debug'});
+	print STDERR "## new index_dir: ",$self->{'index_dir'}," index: ",$self->{'index'}, " search: ",$self->{'search'},"\n" if ($self->{'debug'});
 
 	$self ? return $self : return undef;
 }
@@ -94,7 +106,7 @@
 
 =head2 check_bin
 
-Check if swish++ binaries specified in L<open> are available and verify
+Check if swish++ binaries specified in L<new> are available and verify
 version signature.
 
   if ($i->check_bin) {
@@ -155,6 +167,32 @@
 	return 1;
 }
 
+=head2 add
+
+Add document with metadata to index.
+
+  $i->add(
+  	path => 'path/to/document',
+	title => 'this is result title',
+  	meta => {
+		description => 'this is description meta tag',
+		date => '2004-11-04',
+		author => 'Dobrica Pavlinusic',
+	}
+	body => 'this is text without meta data',
+  );
+
+This is thin wrapper round L<_create_doc>.
+
+=cut
+
+sub add {
+	my $self = shift;
+
+	$self->_create_doc(@_);
+
+	return 1;
+}
 =head2 search
 
 Search your index.
@@ -180,7 +218,7 @@
 	my $open_cmd = $self->{'search'}." -i ".$self->{'index_dir'}.'/index "'.$query.'" |';
 	print STDERR "## search $open_cmd\n" if ($self->{'debug'});
 
-	CORE::open(SEARCH, $open_cmd) || confess "can't start $open_cmd: $!";
+	open(SEARCH, $open_cmd) || confess "can't start $open_cmd: $!";
 	while(<SEARCH>) {
 		next if (/^#/);
 		chomp;
@@ -207,27 +245,38 @@
 swish++. You should have no need to call them directly, and they are here
 just to have documentation.
 
-=head2 _init_index
+=head2 _init_indexer
 
 Create temporary directory in which files for indexing will be created and
 start index process.
 
-  my $i->_init_index || die "can't start indexer";
+  my $i->_init_indexer || die "can't start indexer";
+
+It will also create empty file C<_stopwords_> to disable stop words.
 
 =cut
 
-sub _init_index {
+sub _init_indexer {
 	my $self = shift;
 
 	$self->{'tmp_dir'} = tempdir( CLEANUP => 1 ) || confess "can't create temporary directory: $!";
 
+	chdir $self->{'tmp_dir'} || confess "can't chdir to ".$self->{'tmp_dir'}.": $!";
+
 	my $opt = "-v 4";
 
+	unless ($self->{'use_stopwrods'}) {
+		open(STOP, '>', "_stopwords_") || carp "can't create empty stopword file, skipping\n";
+		print STOP "  ";
+		close(STOP);
+		$opt .= " -s _stopwords_";
+	}
+
 	my $open_cmd = '| '.$self->{'index'}.' '.$opt.' -e "html:*" -i '.$self->{'index_dir'}.'/index -';
 
-	chdir $self->{'tmp_dir'} || confess "can't chdir to ".$self->{'tmp_dir'}.": $!";
 
-	CORE::open($self->{'index_fh'}, $open_cmd) || confess "can't start index with $open_cmd: $!";
+	open($self->{'index_fh'}, $open_cmd) || confess "can't start index with $open_cmd: $!";
+
 
 	return $self->{'index_fh'};
 }
@@ -238,6 +287,7 @@
 
   $i->_create_doc(
   	path => 'path/to/store/in/index',
+	title => 'this is title in results',
 	body => 'data to story in body tag',
 	meta => {
 		'meta name' => 'data for this meta',
@@ -255,19 +305,26 @@
 	my $arg = {@_};
 
 	# open indexer if needed
-	$self->{'index_fh'} ||= $self->_init_index;
+	$self->{'index_fh'} ||= $self->_init_indexer;
 
 	my $path = $self->{'tmp_dir'} || confess "no tmp_dir?";
 
-	CORE::open(TMP, '>', $arg->{'path'}) || die "can't create temp file ".$arg->{'path'}.": $!";
+	open(TMP, '>', $arg->{'path'}) || die "can't create temp file ".$arg->{'path'}.": $!";
 
-	print TMP '<html>';
+	print TMP '<html><head>';
+
+	$arg->{'body'} ||= '';
 
 	if ($arg->{'meta'}) {
 		confess "not yet implemented";
 	}
-	
-	print TMP '<body>' . ($arg->{'body'} || '') . '</body></html>';
+
+	if (defined($arg->{'title'})) {
+		print TMP '<title>' . ($arg->{'title'} || '') . '</title>';
+		$arg->{'body'} .= " ".$arg->{'title'} if ($self->{'meta_in_body'});
+	}
+
+	print TMP '</head><body>' . $arg->{'body'} . '</body></html>';
 	
 	close(TMP) || confess "can't close tmp file ".$arg->{'path'}.": $!";
 
@@ -309,7 +366,7 @@
 Debian version of swish++ is often old (version 5 at moment of this writing
 while version 6 is available in source code), so this module by default
 uses executable names B<index> and B<search> for self-compiled version
-instead of one from Debian package. See L<open> how to specify Debian
+instead of one from Debian package. See L<new> how to specify Debian
 default binaries B<index++> and B<search++>.
 
 =head2 SWISH++