File Coverage

blib/lib/Posterous.pm

Criterion	Covered	Total	%
statement	53	102	51.9
branch	0	10	0.0
condition	0	14	0.0
subroutine	19	29	65.5
pod	0	2	0.0
total	72	157	45.8

package Posterous;

use 5.010;
use strict;
use warnings;

our $VERSION = '0.03';

use LWP::UserAgent;
use HTTP::Request;
use MIME::Base64;
use Rubyish::Attribute;
use Data::Dumper;
use Attribute::Protected;


our $DOMAIN = "http://posterous.com";

our $AUTH_PATH = $DOMAIN."/api/getsites";
our $NEWPOST_PATH = $DOMAIN."/api/newpost";
our $COMMMENT_PATH = $DOMAIN."/api/newcomment";
our $READPOST_PATH = $DOMAIN."/api/readposts";

our $UA = LWP::UserAgent->new();

BEGIN {
  attr_accessor "user", "pass", "site_id";
}

sub new {
  my ($class, $user, $pass, $site_id) = @_;
  die "didn\'t give user\' email or password" unless defined($user) && defined($pass);
  my $self = bless {}, $class;
  __user__ = $user;
  __pass__ = $pass;
  __site_id__ = $site_id if $site_id;
  $self;
}

sub auth_key : Public {
  my ($self) = @_;
  state $auth_key;
  $auth_key //= encode_base64($self->user.":".$self->pass);
  $auth_key;
}

sub account_info : Public {
  my ($self) = @_;
  state $account_info;
  $account_info //= HTTP::Request->new( GET => $AUTH_PATH )
                                 ->basic_auth($self->auth_key)
                                 ->submit_by($UA)
                                 ->xmlized_content;
  $account_info;
}

sub read_posts : Public {
  my ($self, %options) = @_;
  HTTP::Request->new( GET => $READPOST_PATH . "?" . options2query(%options) )
               ->basic_auth($self->auth_key)
               ->submit_by($UA)
               ->xmlized_content;
}

sub read_public_posts : Public {
  my ($self, %options) = @_;
  $options{site_id} = $self->site_id unless exists($options{site_id});
  die "no site_id or hostname is given" unless exists($options{site_id}) or exists($options{hostname});
  HTTP::Request->new( GET => $READPOST_PATH . "?" . options2query(%options) )
               ->submit_by($UA)
               ->xmlized_content;
}

sub primary_site : Public {
  my ($self) = @_;
  state $primary_site;
  while ( my ($key, $value) = each %{ $self->account_info->{site} } ) {
    $primary_site = $value->{id} if $value->{primary} eq "true"
  }
  $primary_site;
}

sub add_post : Public {
  my ($self, %options) = @_;
  my $request = HTTP::Request->new( POST => $NEWPOST_PATH )->basic_auth($self->auth_key);
  $request->content(options2query(%options));
  $UA->request($request)->xmlized_content;
}

sub add_comment :Public {
  my ($self, %options) = @_;
  my $request = HTTP::Request->new( POST => $COMMMENT_PATH )->basic_auth($self->auth_key);
  $request->content(options2query(%options));
  $UA->request($request)->xmlized_content;
}

sub options2query : Protected {
  my (%options) = @_;
  my $query;
  while ( my ($key,$value) = each %options) {
    $query .= "$key=$value&";
  }
  $query //= " ";         # avoid warning $query was not initialized
  $query =~ s/&$//g;
  $query;
}

package HTTP::Request;

# authorization_basic($user, $pass) is another way,
# but basic_auth($auth_key) reutrn request object itself.
sub basic_auth {
  my ($self, $key) = @_;
  $self->header(Authorization => "Basic $key");
  $self;
}

sub submit_by {
  my ($self, $ua) = @_;
  $ua->request($self);
}

package HTTP::Response;
use XML::Simple;

sub xmlized_content {
  my ($self) = @_;
  XMLin($self->content);
}

1;
__END__