/[Search-Estraier]/trunk/scripts/example_searcher.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/scripts/example_searcher.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 100 by dpavlin, Sun Jan 8 00:13:09 2006 UTC revision 101 by dpavlin, Sat Jan 28 19:43:23 2006 UTC
# Line 10  example_searcher.pl - example searcher f Line 10  example_searcher.pl - example searcher f
10  =cut  =cut
11    
12  # create and configure node  # create and configure node
13  my $node = new Search::Estraier::Node;  my $node = new Search::Estraier::Node(
14  $node->set_url("http://localhost:1978/node/test");          url => 'http://localhost:1978/node/test',
15  $node->set_auth("admin","admin");          user => 'admin',
16            passwd => 'admin',
17            croak_on_error => 1,
18    );
19    
20  # create condition  # create condition
21  my $cond = new Search::Estraier::Condition;  my $cond = new Search::Estraier::Condition;
# Line 21  my $cond = new Search::Estraier::Conditi Line 24  my $cond = new Search::Estraier::Conditi
24  $cond->set_phrase("rainbow AND lullaby");  $cond->set_phrase("rainbow AND lullaby");
25    
26  my $nres = $node->search($cond, 0);  my $nres = $node->search($cond, 0);
27    print "Got ", $nres->hits, " results\n";
28    
29  if (defined($nres)) {  if (defined($nres)) {
30          # for each document in results          # for each document in results
31          for my $i ( 0 ... $nres->doc_num - 1 ) {          for my $i ( 0 ... $nres->doc_num - 1 ) {

Legend:
Removed from v.100  
changed lines
  Added in v.101

  ViewVC Help
Powered by ViewVC 1.1.26