MTAppSearchPatch: MT-3.34-MT-App-Search-patch.txt

--- lib/MT/App/Search.pm.bak    Sat Jan  6 08:46:47 2007
+++ lib/MT/App/Search.pm        Sun Feb 18 16:45:49 2007
@@ -198,6 +198,25 @@
     my $app = shift;
     return $app->error($app->errstr) if $app->errstr;
 
+    ## Calculate Last-Modified and ETag values
+    my $latest_epoch = 0;
+    for my $blog_id (keys %{ $app->{searchparam}{IncludeBlogs} }) {
+        my $blog = MT::Blog->load($blog_id, {cached_ok => 1});
+        my $epoch = MT::Util::ts2epoch($blog, $blog->children_modified_on);
+        $latest_epoch = $epoch if $epoch > $latest_epoch;
+    }
+    my $ts = MT::Util::epoch2ts(undef, $latest_epoch);
+    my $last_modified = MT::Util::format_ts('%a, %d %b %Y %H:%M:%S GMT', $ts, undef, 'en');
+    my $etag = Digest::MD5::md5_hex($last_modified) if eval { require Digest::MD5; 1 };
+
+    ## Check whether 'Modified' or 'Not Modified'
+    #return if $app->_handle_conditional_get($last_modified, $etag);
+
+    # Generate Last-Modified, ETag, and Expires headers
+    $app->set_header('Last-Modified' => $last_modified);
+    $app->set_header('ETag' => $etag) if $etag;
+    $app->set_header('Expires' => '+1h');
+
     my @results;
     if ($app->{searchparam}{RegexSearch}) {
         eval { m/$app->{search_string}/ };
@@ -345,6 +364,23 @@
         $app->print($res);
     }
     $res;
+}
+
+sub _handle_conditional_get {
+    my $app = shift;
+    my ($last_modified, $etag) = @_;
+    my $if_modified_since = $ENV{HTTP_IF_MODIFIED_SINCE} || '';
+    my $if_none_match = $ENV{HTTP_IF_NONE_MATCH} || '';
+    if (( $if_modified_since || $if_none_match) &&
+        (!$if_none_match     || $if_none_match eq $etag) &&
+        (!$if_modified_since || $if_modified_since eq $last_modified)) {
+        $app->response_code(304);
+        $app->response_message('Not Modified');
+        $app->send_http_header("text/plain");
+        $app->{no_print_body} = 1;
+        return 1;
+    }
+    0;
 }
 
 sub _tag_search {