Changeset 215 for Search-Namazu

Timestamp:

03/27/06 11:35:30 (6 years ago)

Author:

knok

Message:

Added a new parameter.

Location:

Search-Namazu/trunk

Files:

• ChangeLog (modified) (1 diff)
• Namazu.pm (modified) (4 diffs)

Search-Namazu/trunk/ChangeLog

@@ -1 +1 @@
 2006-03-27  NOKUBI Takatsugu  <knok@daionet.gr.jp>
+
+        * Namazu.pm (Search): Add a new parameter 'returnas'.
 
         * Namazu.xs: Fixed prototype.

Search-Namazu/trunk/Namazu.pm

@@ -73 +73 @@
         );
 
+  $resultref = Search::Namazu::Search(
+        index => ['/var/www/index/site1', '/var/www/index/site2'],
+        query => 'bar', returnas => 'reference'
+        );
+
 =head3 query
 
@@ -122 +127 @@
 Specify language.
 
-=head4 maxhit
+=head3 maxhit
 
 Speciry maximum numbers of hits. Same as MaxHit directive in namazurc.
+
+=head4 returnas
+
+Specify return method, if the parameter is set as 'reference', it
+returns a reference of array as a result.
 
 =head2 Search::Namazu::Result
@@ -225 +235 @@
     my $query = $args{'query'};
     my $maxhit = $args{'maxhit'};
+    my $returnas = $args{'returnas'};
 
 # initialize
@@ -282 +293 @@
 # create Search::Namazu::Result object
 
-    my @hlists = call_search_main($query);
-
-    my $status = nmz_getstatus();
-    if ($status != NMZ_SUCCESS) {
-        return $status;
-    }
-
-# return objects
-    return @hlists;
+    if ($returnas eq 'reference') {
+        my $hlistref = call_search_main_ref($query);
+        my $status = nmz_getstatus();
+        if ($status != NMZ_SUCCESS) {
+            return $status;
+        }
+        # return objects
+        return $hlistref;
+    } else {
+        my @hlists = call_search_main($query);
+        my $status = nmz_getstatus();
+        if ($status != NMZ_SUCCESS) {
+            return $status;
+        }
+        # return objects
+        return @hlists;
+    }
 }