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