Catalyst-Model-NetBlogger

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    Catalyst::Model::NetBlogger - Catalyst Model to post and retrieve blog
    entries using Net::Blogger

SYNOPSIS
        # Model
        __PACKAGE__->config(
            engine   => 'movabletype',
            blogid   => 1,
            username => 'login',
            password => 'apipassword',
            proxy    => 'http://example.com/mt/mt-xmlrpc.cgi'
        );

        # Controller
        sub default : Private {
            my ($self, $c) = @_;

            {

README  view on Meta::CPAN

CONFIG
    The following configuration options are available. They are taken
    directly from Net::Blogger:

  engine
    The name of the blog engine to use. This defaults to 'blogger',

  proxy
    The url of the remote XMLRPC listener to connect to.

  blogid
    The id of the blog to post or retrieve entries to.

  username
    The username used to log into the specified blog.

  password
    The password used to log into the specified blog.

  appkey
    The magic appkey used when connecting to Blogger blogs.

lib/Catalyst/Helper/Model/NetBlogger.pm  view on Meta::CPAN

# $Id: /local/CPAN/Catalyst-Model-NetBlogger/lib/Catalyst/Helper/Model/NetBlogger.pm 1378 2005-11-19T23:26:50.755054Z claco  $
package Catalyst::Helper::Model::NetBlogger;
use strict;
use warnings;

sub mk_compclass {
    my ($self, $helper, $engine, $proxy, $blogid, $username, $password, $appkey, $uri) = @_;
    my $file = $helper->{file};
    $helper->{'engine'}   = $engine   || die 'No engine specified!';
    $helper->{'proxy'}    = $proxy    || die 'No proxy specified!';
    $helper->{'blogid'}   = $blogid   || die 'No blogid specified!';
    $helper->{'username'} = $username;
    $helper->{'password'} = $password;
    $helper->{'appkey'}   = $appkey;
    $helper->{'uri'}      = $uri;

    $helper->render_file('model', $file);
};

sub mk_comptest {
    my ($self, $helper) = @_;

lib/Catalyst/Helper/Model/NetBlogger.pm  view on Meta::CPAN

__DATA__
__model__
package [% class %];
use strict;
use warnings;
use base 'Catalyst::Model::NetBlogger';

__PACKAGE__->config(
    engine   => '[% engine %]',
    proxy    => '[% proxy %]',
    blogid   => '[% blogid %]',
    username => '[% username %]',
    password => '[% password %]',
    appkey   => '[% appkey %]',
    uri      => '[% uri %]'
);

1;
__test__
use Test::More tests => 2;
use strict;

lib/Catalyst/Helper/Model/NetBlogger.pm  view on Meta::CPAN

use_ok(Catalyst::Test, '[% app %]');
use_ok('[% class %]');
__END__

=head1 NAME

Catalyst::Helper::Model::NetBlogger - Helper for Net::Blogger Models

=head1 SYNOPSIS

    script/create.pl model <newclass> NetBlogger <engine> <proxy> <blogid> [<username> <password> <appkey> <uri>]
    script/create.pl model Blog NetBlogger movabletype http://example.com/mt-xmlrpc.cgi 123 myuser mypass

=head1 DESCRIPTION

A Helper for creating models to post and retrieve blog entries.

=head1 METHODS

=head2 mk_compclass

lib/Catalyst/Model/NetBlogger.pm  view on Meta::CPAN

    engine => 'blogger'
);

sub new {
    my ($self, $c) = @_;
    $self = $self->NEXT::new(@_);

    my $netblogger = Net::Blogger->new({
        engine   => $self->config->{'engine'},
        appkey   => $self->config->{'appkey'},
        blogid   => $self->config->{'blogid'},
        username => $self->config->{'username'},
        password => $self->config->{'password'}
    });

    $netblogger->Proxy($self->config->{'proxy'});
    if ($netblogger->can('Uri')) {
        $netblogger->Uri($self->config->{'uri'});
    };

    $self->config->{'netblogger'} = $netblogger;

lib/Catalyst/Model/NetBlogger.pm  view on Meta::CPAN

=head1 NAME

Catalyst::Model::NetBlogger - Catalyst Model to post and retrieve blog entries using Net::Blogger

=head1 SYNOPSIS

    # Model
    __PACKAGE__->config(
        engine   => 'movabletype',
        blogid   => 1,
        username => 'login',
        password => 'apipassword',
        proxy    => 'http://example.com/mt/mt-xmlrpc.cgi'
    );

    # Controller
    sub default : Private {
        my ($self, $c) = @_;

        {

lib/Catalyst/Model/NetBlogger.pm  view on Meta::CPAN

L<Net::Blogger>:

=head2 engine

The name of the blog engine to use. This defaults to 'blogger',

=head2 proxy

The url of the remote XMLRPC listener to connect to.

=head2 blogid

The id of the blog to post or retrieve entries to.


=head2 username

The username used to log into the specified blog.

=head2 password

t/catalyst_helpers_model_netblogger.t  view on Meta::CPAN

    rmtree('TestApp');

    $helper->mk_app($app);
    $FindBin::Bin = catdir(cwd, $app, 'lib');
};


## create the default model
{
    my $module = catfile($app, 'lib', $app, 'M', 'Blog.pm');
    $helper->mk_component($app, 'model', 'Blog', 'NetBlogger', 'testengine', 'testproxy', 'testblogid', 'testusername', 'testpassword', 'testappkey', 'testuri');
    file_exists_ok($module);
    file_contents_like($module, qr/'testengine'/);
    file_contents_like($module, qr/'testproxy'/);
    file_contents_like($module, qr/'testblogid'/);
    file_contents_like($module, qr/'testusername'/);
    file_contents_like($module, qr/'testpassword'/);
    file_contents_like($module, qr/'testappkey'/);
    file_contents_like($module, qr/'testuri'/);
};

t/pod_spelling.t  view on Meta::CPAN

NetBlogger
blog
API
Blogger
XMLRPC
appkey
uri
url
username
blogger
blogid
blogs