Changeset 3742

Timestamp:

12/28/07 23:36:51 (5 years ago)

Author:

hsbt

Message:

lang/perl/plagger/lib/Plagger/Plugin/Filter/TwitterFeed.pm: strip direct message.

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Filter/TwitterFeed.pm (modified) (3 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Filter/TwitterFeed.pm

@@ -17 +17 @@
 
     return unless $args->{feed}->url =~ m!^http://twitter\.com/!;
+    $context->log(debug => "Found Twitter feed " . $args->{feed}->url);
 
+    # strip username in title
     if ($args->{entry}->title =~ /^(.*)?:\ (.*)?$/) {
         my $strip_title = $args->{entry}->title;
@@ -25 +27 @@
     }
 
+    # strip username in body
     if ($args->{entry}->body =~ /^(.*)?:\ (.*)?$/) {
         my $strip_body = $args->{entry}->body;
@@ -31 +34 @@
         $context->log(info => "Strip username in body: " . $args->{entry}->body);
     }
+
+    # delete direct message
+    if ($args->{entry}->title =~ /^\@(.*)?$/ || $args->{entry}->body =~ /^\@(.*)?/) {
+        $context->log(info => "Strip direct message: " . $args->{entry}->link);
+        $args->{feed}->delete_entry($args->{entry});
+    }
 }