NAME
WWW::wordpress - wordpress API interface .
SYNOPSIS
Usage:
use www::wordpress;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $wordpress = www::wordpress->new( blog => 'blog.wordpress.com', blog_id => '00000', access_token => 'XXXXX');
DESCRIPTION
wordpress API interface
FUNCTIONS
constructor
my $wordpress = www::wordpress->new( blog => 'blog.wordpress.com',
blog_id => '00000',
access_token => 'XXXXX'); To get your Access Token check
http://developer.wordpress.com/docs/oauth2/#receiving-an-access-token
site_info
$site_info = $wordpress->site_info; $post_count = $site_info->{post_count}; $subscribers_count = $site_info->{subscribers_count}; print "post_count $post_count \n"; print "subscribers_count $subscribers_count \n";
stats of the site.
post
$content = "this is my test body "; $title = "new title"; $tags = "linux"; my $post_data = { content => $content,title => $title,tags => $tags }; $post_info = $wordpress->post(post_data => $post_data ); $id = $post_info->{id}; $URL = $post_info->{URL}; print "id $id URL $URL \n";
Post an article
edit_post
$new_content = "Edited test"; $post_id = 19;
my $post_data = { content => $new_content}; $status = $wordpress->edit_post(post_data => $post_data, post_id => $post_id); print "status $status \n";
Edit a post by id
follow
my $post_data = { pretty => 1}; $status = $wordpress->follow(blog => 'blog.wordpress.com',post_data => $post_data); print "status $status \n";
Follow another blog
unfollow
my $post_data = { pretty => 1}; $status = $wordpress->unfollow(blog => 'blog.wordpress.com',post_data => $post_data); print "status $status \n";
Unfollow blog
dispatch
Internal function
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html