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

package Plagger::Plugin::Filter::TwitterFeed;
use strict;
use base qw( Plagger::Plugin );

our $VERSION = '0.01';

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'update.entry.fixup' => \&filter,
    );
}

sub filter {
    my($self, $context, $args) = @_;

    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;
        $strip_title =~ s/^(.*)?:\ //g;
        $args->{entry}->title($strip_title);
        $context->log(info => "Strip username in title: " . $args->{entry}->title);
    }

    # strip username in body
    if ($args->{entry}->body =~ /^(.*)?:\ (.*)?$/) {
        my $strip_body = $args->{entry}->body;
        $strip_body =~ s/^(.*)?:\ //g;
        $args->{entry}->body($strip_body);
        $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});
    }
}

1;

__END__

=head1 NAME

Plagger::Plugin::Filter::TwitterFeed -

=head1 SYNOPSIS

- module: Filter::TwitterFeed

=head1 DESCRIPTION

=head1 CONFIG

=head1 AUTHOR

SHIBATA Hiroshi

=head1 SEE ALSO

L<Plagger>

=cut