# -*-Perl-*-
#######################################################################
### $Id: stdout.txt,v 1.6 2006/06/03 09:48:58 mate Exp $
### Required bloglines-0.80 later

package stdout;

use strict;
use Jcode;
use Data::Dumper;

sub setup {

    push @Bloglines::OPTIONS, "stdout";

    1;
}

sub filter {

    return unless exists $Bloglines::OPTCTL{stdout};

    my ($pkg, $file, $rss) = @_;
	print Jcode->new(Dumper($rss), 'utf8')->h2z->euc, "\n";

}

1;

__END__
### Local Variables:
### mode: perl
### End:

=head1 NAME

stdout.pl

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 AUTHOR

Yutaka Kojima E<lt>yutaka@asmate.netE<gt>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

The updated version is available from
http://www.asmate.net/software/perl/bloglines/plugins/

=cut