root/lang/perl/plagger/lib/Plagger/Plugin/Notify/J405board.pm

package Plagger::Plugin::Notify::J405board;
use strict;
use Encode;
use base qw( Plagger::Plugin );

sub init {
    my $self = shift;
    $self->SUPER::init(@_);
}

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

sub update {
    my($self, $context, $args) = @_;
    my $prog = '\\work\\J405board\\J405board_client';
    
#    system($prog, encode('shift-jis', "*Kansai.pm Plagger DEMO*"));
#    Time::HiRes::sleep(5);

    system($prog, encode('shift-jis', $args->{feed}->title_text));
    Time::HiRes::sleep(5);
    
    foreach my $entry ($args->{feed}->entries) {
#        system($prog, encode('shift-jis', "*Kansai.pm Plagger DEMO*"));
#        Time::HiRes::sleep(5);

        system($prog, encode('shift-jis', $entry->title));
        Time::HiRes::sleep(5);

    }
}

1;

__END__

=head1 NAME

Plagger::Plugin::Notify::J405board - Notify feed updates to J405 board

=head1 SYNOPSIS

  - module: Notify::J405board

=head1 DESCRIPTION

This plugin allows you to notify feed updates to J405 board.

=head1 AUTHOR

hashy1126

=head1 SEE ALSO

L<Plagger>, 

=cut