Changeset 1113

Timestamp:

09/22/08 16:30:54 (18 months ago)

Author:

mpaschal

Message:

Store hashtags for Twitter tweets

Files:

• trunk/ActionStreams/plugins/ActionStreams/lib/ActionStreams/Plugin.pm (modified) (3 diffs)

trunk/ActionStreams/plugins/ActionStreams/lib/ActionStreams/Plugin.pm

@@ -486 +486 @@
 }
 
+sub _twitter_add_tags_to_item {
+    my ($item) = @_;
+    if (my @tags = $item->{title} =~ m{
+        (?: \A | \s )  # BOT or whitespace
+        \#             # hash
+        (\w\S*\w)      # tag
+        (?<! 's )      # but don't end with 's
+    }xmsg) {
+        $item->{tags} = \@tags;
+    }
+}
+
 sub fix_twitter_tweet_name {
     my ($cb, $app, $item, $event, $author, $profile) = @_;
@@ -493 +505 @@
         $item->{$field} =~ s{ \A \s* \Q$ident\E : \s* }{}xmsi;
     }
+    _twitter_add_tags_to_item($item);
 }
 
@@ -501 +514 @@
         $item->{tweet_author} = $1;
     }
+    _twitter_add_tags_to_item($item);
 }