Changeset 23 for all-keywords/trunk/all-keywords.pl

Timestamp:

04/06/05 20:25:46 (4 years ago)

Author:

ogawa

Message:

Add MT-XSearch support

Files:

• all-keywords/trunk/all-keywords.pl (modified) (2 diffs)

all-keywords/trunk/all-keywords.pl

@@ -8 +8 @@
 # Copyright (c) 2005 Hirotaka Ogawa
 
+package MT::Plugin::AllKeywords;
 use strict;
 use MT::Template::Context;
@@ -284 +285 @@
 }
 
+eval("use MT::XSearch;");
+if (!$@) {
+    MT::XSearch->add_search_plugin('AllKeywords', {
+        label => 'Keyword Search',
+        description => 'Keyword Search plugin for MT-XSearch',
+        on_execute => \&xsearch_on_execute,
+        on_stash => \&xsearch_on_stash });
+}
+
+sub xsearch_on_stash {
+    $_[0]->stash('entry', $_[1]);
+    $_[0]->{current_timestamp} = $_[1]->created_on;
+    $_[0]->{modification_timestamp} = $_[1]->modified_on;
+}
+
+sub xsearch_on_execute {
+    my $args = shift;
+    require MT::Entry;
+    my $blog_id = $args->{blog_id} or
+        MT->error('A Blog ID is required.');
+    my $sort_by = $args->{sort_by} || 'created_on';
+    my $sort_order = $args->{sort_order} || 'descend';
+    my $delimiter = $args->{delimiter} || '';
+    my $case_sensitive = $args->{case_sensitive} || 0;
+
+    my @patterns = split_keywords($args->{search}, $delimiter, $case_sensitive);
+    my $iter = MT::Entry->load_iter({ blog_id => $blog_id,
+                                      status => MT::Entry::RELEASE() },
+                                    { sort => $sort_by, 
+                                      direction => $sort_order });
+    my @results;
+    while (my $e = $iter->()) {
+        next unless $e->keywords;
+        my @keywords = split_keywords($e->keywords, $delimiter, $case_sensitive);
+        my $check = 1;
+        foreach my $pattern (@patterns) {
+            unless (scalar grep { $_ eq $pattern } @keywords) {
+                $check = 0;
+                last;
+            }
+        }
+        push @results, $e if $check;
+    }
+    \@results;
+}
+
 1;