#!/usr/bin/env perl<\/div>
<\/div>
use LWP::UserAgent;<\/div>
use HTTP::Request;<\/div>
use UNIVERSAL::dump;<\/div>
use YAML qw(LoadFile);<\/div>
<\/div>
package HTTP::Request;<\/div>
<\/div>
sub authorization_basic {<\/div>
my ($self, $user, $pass) = @_;<\/div>
$self->SUPER::authorization_basic($user, $pass);<\/div>
return $self;<\/div>
}<\/div>
<\/div>
sub submit_by {<\/div>
my ($self, $ua) = @_;<\/div>
$ua->request($self);<\/div>
}<\/div>
<\/div>
package HTTP::Response;<\/div>
use XML::Simple;<\/div>
<\/div>
sub xmlized_content {<\/div>
my ($self) = @_;<\/div>
$content = $self->content;<\/div>
$content =~ s/name/title/g;<\/div>
XMLin($content);<\/div>
}<\/div>
<\/div>
<\/div>
package main;<\/div>
use Data::Dumper;<\/div>
<\/div>
my $config = LoadFile("$ENV{HOME}/.posterous")->{core};<\/div>
<\/div>
$UA = LWP::UserAgent->new;<\/div>
<\/div>
print Dumper(<\/div>
HTTP::Request<\/div>
->new(GET => "http://posterous.com/api/getsites")<\/div>
->authorization_basic($config->{user}, $config->{pass})<\/div>
->submit_by($UA)<\/div>
->xmlized_content <\/div>
);<\/div>
<\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n