Changeset 105

Timestamp:

07/13/05 09:35:24 (3 years ago)

Author:

ogawa

Message:

Add MTTagDate for displaying the last date the tag added.
Add MTRelatedTags for listing tags related to the current tag.
Add MTXSearchTags for listing tags specified by MT-XSearch's argument.
Modify README.txt for these changes.
Add tagwire-pdcleaner.cgi which is a simple tool for cleaning PluginData? for tagwire.

Files:

• tagwire/trunk/README.txt (modified) (5 diffs)
• tagwire/trunk/tagwire-pdcleaner.cgi (added)
• tagwire/trunk/tagwire.pl (modified) (31 diffs)

tagwire/trunk/README.txt

@@ -118 +118 @@
-
-<$MTTag$>
-a
+the
-
-<$MTTagCount$>
-
+
+
+
+
-
-<$MTTagsTotal$>
-count
+number
-
-<$MTTagsTotalSum$>
@@ -170 +173 @@
-* Available tags in this container:
-
-
+
+
-
-* Example:
@@ -196 +200 @@
-relationship between tags is defined by how many common *entries*
-includes them.  This container can only be used in "tag context" which
- or MTEntry
+, MTEntryTags, or MTXSearch
-
-* Option(s):
@@ -228 +232 @@
-
-<$MTTag$>
-a
+the
-
-<$MTTagCount$>
-
+
+
+
+
-
-* Example:
@@ -370 +377 @@
-    Shows a tag.
-
-<$MTTagCount$>
-    Shows the appearance count of a tag.
-
-* Example:
-

tagwire/trunk/tagwire.pl

@@ -13 +13 @@
-use MT::Template::Context;
-use MT::Request;
+use vars qw($VERSION);
+
+$VERSION = '0.24';
-
-# DEBUG
@@ -28 +31 @@
-        author_name => 'Hirotaka Ogawa',
-        author_link => 'http://profile.typekey.com/ogawa/',
-'0.24'
+$VERSION
-        });
-    MT->add_plugin($plugin);
@@ -49 +52 @@
-    my (%eindex, %tindex);
-    my $data;
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-        my $iter = MT::Entry->load_iter({ blog_id => $blog_id,
-                                          status => MT::Entry::RELEASE() });
@@ -64 +70 @@
-        }
-    } else {
-
-
+
-        %eindex = %{$data->{eindex}};
-ntry_id} if exists $eindex{$entry_
+id} if exists $eindex{$e
-        if ($entry->status == MT::Entry::RELEASE()) {
-            my @tags = split_tags($entry->keywords, 1);
-ntry_
-       
+
+   
-        }
-    }
-    foreach my $eid (keys %eindex) {
-
-
+
+
+
+
+
+
+
-    $data->{eindex} = \%eindex;
-    $data->{tindex} = \%tindex;
@@ -83 +93 @@
-    if ($ENABLE_REQ_CACHE) {
-        my $r = MT::Request->instance;
-
-
+
-    }
-}
@@ -93 +102 @@
-MT::Template::Context->add_tag('Tag' => \&tag);
-MT::Template::Context->add_tag('TagCount' => \&tag_count);
+MT::Template::Context->add_tag('TagDate' => \&tag_date);
-MT::Template::Context->add_tag('TagsTotal' => \&tags_total);
-MT::Template::Context->add_tag('TagsTotalSum' => \&tags_total_sum);
@@ -111 +121 @@
-    my ($string, $delimiter, $case_sensitive) = @_;
-    return unless $string;
-    my @tags;
-    $string =~ s/(^\s+|\s+$)//g;
-    $string = lc $string unless $case_sensitive;
@@ -117 +126 @@
-    return split(/\s+/, $string) unless $delimiter;
-
+    my @tags;
-    foreach my $tag (split($delimiter, $string)) {
-        $tag =~ s/(^\s+|\s+$)//g;
@@ -166 +176 @@
-                                        key => $blog_id });
-        $data = $pd->data() if $pd;
+        return if ${$data->{version}} ne $VERSION;
-    };
-    $r->cache($cname, $data) if $ENABLE_REQ_CACHE && $data;
@@ -190 +201 @@
-    }
-    foreach my $eid (keys %eindex) {
-
+
+
+
+
+
-    }
-    $data->{eindex} = \%eindex;
@@ -213 +228 @@
-    my $blog_id = $ctx->stash('blog_id');
-    my %tags = ();
+    my %ts = ();
-
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
@@ -218 +234 @@
-    my %tindex = %{$data->{tindex}};
-    if ($case_sensitive) {
-
-
-
+
+
+
+
+
+
+
+
+
-    }
-
@@ -241 +263 @@
-
-    my $total_sum = 0;
-
-
-
+
-    $ctx->stash('Tagwire::tags_total_sum', $total_sum);
-
@@ -252 +272 @@
-    foreach (@list) {
-        last if $lastn && $i >= $lastn;
-
-
+
+
+
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
@@ -274 +295 @@
-
-    my @tags = split_tags($e->keywords, $case_sensitive);
-    my $total = scalar(@tags);
-    $ctx->stash('Tagwire::tags_total', $total);
-    $ctx->stash('Tagwire::tags_total_sum', $total);
-
-    my @res;
-    my $builder = $ctx->stash('builder');
-    my $tokens = $ctx->stash('tokens');
-    foreach (@tags) {
-
-
+
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
@@ -295 +311 @@
-    my ($ctx, $args, $cond) = @_;
-    my $tag = $ctx->stash('Tagwire::tag') or return '';
-    my $tag_count = $ctx->stash('Tagwire::tag_count');
-
-    my $sort_by = $args->{sort_by} || 'tag';
@@ -308 +323 @@
-    my $blog_id = $ctx->stash('blog_id');
-    my %tags = ();
+    my %ts = ();
-
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
@@ -314 +330 @@
-    my %eindex = %{$data->{eindex}};
-    if ($case_sensitive) {
-
-
-
-
-
-
+
+
+
+
+
+
+
-    } else {
-        $tag = lc $tag;
-        foreach my $nctag (grep { lc $_ eq $tag } keys %tindex) {
-
-$_ 
+->{eids}
+
-                    my $mtag = lc $_;
+                    next if $mtag eq $tag;
-                    $tags{$mtag} = exists $tags{$mtag} ? $tags{$mtag} + 1 : 1;
+                    $ts{$mtag} = $tindex{$_}->{ts} if $ts{$mtag} < $tindex{$_}->{ts};
-                }
-            }
-        }
-        delete $tags{$tag};
-    }
-    my @list;
@@ -347 +365 @@
-    }
-
+    $ctx->stash('Tagwire::tags_total', scalar @list);
+
+    my $total_sum = 0;
+    $total_sum += $tags{$_} foreach (@list);
+    $ctx->stash('Tagwire::tags_total_sum', $total_sum);
+
-    my @res;
-    my $builder = $ctx->stash('builder');
@@ -353 +377 @@
-    foreach (@list) {
-        last if $lastn && $i >= $lastn;
-
-
+
+
+
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
@@ -360 +385 @@
-        $i++;
-    }
-    $ctx->stash('Tagwire::tag', $tag);
-    $ctx->stash('Tagwire::tag_count', $tag_count);
-
-    my $glue = $args->{glue} || '';
-    join $glue, @res;
@@ -373 +395 @@
-sub tag_count {
-    $_[0]->stash('Tagwire::tag_count');
+}
+
+sub tag_date {
+    my ($ctx, $args) = @_;
+    $args->{ts} = $ctx->stash('Tagwire::tag_date');
+    MT::Template::Context::_hdlr_date($ctx, $args);
-}
-
@@ -400 +428 @@
-    my $lastn = $args->{lastn} || 0;
-
-pattern
+tag
-        or return '';
-
-    my $blog_id = $ctx->stash('blog_id');
-    my @entries;
-
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
-        or return '';
@@ -412 +438 @@
-    my %match;
-    if ($case_sensitive) {
-pattern
-my $eid (@{$tindex{$tag
-eid} = exists $match{$eid} ? $match{$eid
-
-
-
-pattern
+tag
+(@{$tindex{$tag}->{eids
+_} = exists $match{$_} ? $match{$_
+
+
+
+tag
-            foreach my $mtag (grep { lc $_ eq $tag } keys %tindex) {
-my $eid (@{$tindex{$mtag
-eid} = exists $match{$eid} ? $match{$eid
+(@{$tindex{$mtag}->{eids
+_} = exists $match{$_} ? $match{$_
-                }
-            }
-        }
-    }
-pattern
-
+tag
+ ''
-    @eids = $sort_order eq 'descend' ?
-        sort { $eindex{$b}->{created_on} <=> $eindex{$a}->{created_on} } @eids :
@@ -433 +459 @@
-    splice(@eids, $lastn) if $lastn && (scalar @eids > $lastn);
-    require MT::Entry;
+    my @entries;
-    map { push @entries, MT::Entry->load($_) } @eids;
-
@@ -473 +500 @@
-    my $lastn = $args->{lastn} || 0;
-
-pattern
+tag
-        or return '';
-
-    my $blog_id = $ctx->stash('blog_id');
-    my @entries;
-
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
-        or return '';
@@ -485 +510 @@
-    my %match;
-    if ($case_sensitive) {
-pattern
-my $eid (@{$tindex{$tag
-eid
-eid} = exists $match{$eid} ? $match{$eid
-
-
-
-pattern
+tag
+(@{$tindex{$tag}->{eids
+_
+_} = exists $match{$_} ? $match{$_
+
+
+
+tag
-            foreach my $mtag (grep { lc $_ eq $tag } keys %tindex) {
-my $eid (@{$tindex{$mtag
-eid
-eid} = exists $match{$eid} ? $match{$eid
+(@{$tindex{$mtag}->{eids
+_
+_} = exists $match{$_} ? $match{$_
-                }
-            }
@@ -508 +533 @@
-    splice(@eids, $lastn) if $lastn && (scalar @eids > $lastn);
-    require MT::Entry;
+    my @entries;
-    map { push @entries, MT::Entry->load($_) } @eids;
-    return '' unless @entries;
-
-    my $res = '';
@@ -562 +587 @@
-    my $tokens = $ctx->stash('tokens');
-    foreach (@tags) {
-$ctx->stash('Tagwire::tag', $_)
+local $ctx->{__stash}{'Tagwire::tag'} = $_
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
@@ -579 +604 @@
-sub xsearch_on_execute {
-    my $args = shift;
-    require MT::Entry;
-    my $blog_id = $args->{blog_id} or MT->error('Blog ID is required.');
-    my $sort_by = $args->{sort_by} || 'created_on';
@@ -587 +611 @@
-        $args->{case_sensitive} : 1;
-
-
-
-
+
+
-
-    my $r = MT::Request->instance;
-pattern
+tag
-
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
-@results
+()
-    my %tindex = %{$data->{tindex}};
-    my %eindex = %{$data->{eindex}};
-    my %match;
-    if ($case_sensitive) {
-pattern
-my $eid (@{$tindex{$tag
-eid} = exists $match{$eid} ? $match{$eid
-
-
-
-pattern
+tag
+(@{$tindex{$tag}->{eids
+_} = exists $match{$_} ? $match{$_
+
+
+
+tag
-            foreach my $mtag (grep { lc $_ eq $tag } keys %tindex) {
-my $eid (@{$tindex{$mtag
-eid} = exists $match{$eid} ? $match{$eid
+(@{$tindex{$mtag}->{eids
+_} = exists $match{$_} ? $match{$_
-                }
-            }
-        }
-    }
-pattern
+tag
-    my @eids = grep { $match{$_} == $count } keys %match
-@results
+()
-    @eids = $sort_order eq 'descend' ?
-        sort { $eindex{$b}->{created_on} <=> $eindex{$a}->{created_on} } @eids :
-        sort { $eindex{$a}->{created_on} <=> $eindex{$b}->{created_on} } @eids;
-    require MT::Entry;
-
-
+
+
+
-}
-