Plagger::Plugin::Widget::BulkfeedsSpamReport - Widget to report as Splog to Bulkfeeds

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::Widget::BulkfeedsSpamReport - Widget to report as Splog to Bulkfeeds

SYNOPSIS

Top

  - module: Widget::BulkfeedsSpamReport

DESCRIPTION

Top

This plugins puts a widget to report current feed (blog) as a Splog to Bulkfeeds Blacklist.

AUTHOR

Top

Tatsuhiko Miyagawa

SEE ALSO

Top

Plagger, http://bulkfeeds.net/app/blacklist

Plagger documentation Contained in the Plagger distribution. 
package Plagger::Plugin::Widget::BulkfeedsSpamReport;
use strict;
use base qw( Plagger::Plugin );

use HTML::Entities;
use URI;

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

sub add {
    my($self, $context, $args) = @_;
    $args->{entry}->add_widget($self);
}

sub html {
    my($self, $entry) = @_;
    my $uri = URI->new('http://bulkfeeds.net/app/report_spam');
    $uri->query_form(url => $entry->link);

    my $url = HTML::Entities::encode($uri->as_string);
    return qq(<a href="$url">Report as Splog</a>);
}

1;

__END__