Changeset 2532

Timestamp:

02/22/10 23:12:55 (2 years ago)

Author:

karpet

Message:

add build/search time stats; add facets to response

Location:

Search-OpenSearch/trunk/lib/Search/OpenSearch

Files:

• Engine.pm (modified) (3 diffs)
• Response.pm (modified) (1 diff)
• Response/JSON.pm (modified) (1 diff)
• Response/XML.pm (modified) (1 diff)

Search-OpenSearch/trunk/lib/Search/OpenSearch/Engine.pm

@@ -9 +9 @@
 use Search::OpenSearch::Response::JSON;
 use CHI;
+use Time::HiRes qw( time );
 
 __PACKAGE__->mk_accessors(qw( index facets fields link cache cache_ttl ));
@@ -42 +43 @@
     my $query = $args{'q'};
     if ( !defined $query ) { croak "query required"; }
-
+    my $start_time     = time();
     my $offset         = $args{'o'} || 0;
     my $sort_by        = $args{'s'} || 'score DESC';
@@ -77 +78 @@
         }
     );
+    my $search_time = sprintf( "%0.5f", time() - $start_time );
+    my $start_build = time();
     my $response
         = $count_only
         ? $response_class->new( total => $results->hits )
         : $response_class->new(
-        results   => $results,
-        facets    => $self->get_facets( $query, $results ),
-        fields    => $self->fields,
-        offset    => $offset,
-        page_size => $page_size,
-        total     => $results->hits,
-        query     => $query,
-        link      => $self->link,
+        results     => $results,
+        facets      => $self->get_facets( $query, $results ),
+        fields      => $self->fields,
+        offset      => $offset,
+        page_size   => $page_size,
+        total       => $results->hits,
+        query       => $query,
+        link        => $self->link,
+        search_time => $search_time,
         );
+    my $build_time = sprintf( "%0.5f", time() - $start_build );
+    $response->build_time($build_time);
     return $response;
 }

Search-OpenSearch/trunk/lib/Search/OpenSearch/Response.pm

@@ -26 +26 @@
         author
         pps
+        search_time
+        build_time
         )
 );

Search-OpenSearch/trunk/lib/Search/OpenSearch/Response/JSON.pm

@@ -12 +12 @@
     my $results = $self->fetch_results();
 
-    # TODO more.
     my %resp = (
-        results   => $results,
-        total     => $self->total,
-        offset    => $self->offset,
-        page_size => $self->page_size,
+        results     => $results,
+        total       => $self->total,
+        offset      => $self->offset,
+        page_size   => $self->page_size,
+        search_time => $self->search_time,
+        build_time  => $self->build_time,
+        facets      => $self->facets,
+        query       => $self->query,
+        title       => $self->title,
+        link        => $self->link,
+        author      => $self->author,
     );
 

Search-OpenSearch/trunk/lib/Search/OpenSearch/Response/XML.pm

@@ -36 +36 @@
             'opensearch:itemsPerPage' => $self->page_size,
             'id'                      => $UUID_maker->create(),
+            'facets'                  => $self->facets,
+            'search_time'             => $self->search_time,
+            'build_time'              => $self->build_time,
         },
         'feed',