sub main { my $mt = Net::Blogger->new(engine=>"movabletype"); $mt->Proxy("http://yaddayadda.com/mt-xmlrpc.cgi"); $mt->Username("asc"); $mt->Password("*****"); $mt->BlogId(123); $mt->newPost(postbody=>\&fortune(),publish=>1) || croak $mt->LastError(); my $id = $mt->metaWeblog()->newPost(title=>"test:".time, description=>&fortune(), publish=>1) || croak $mt->LastError(); my $categories = $mt->mt()->getCategoryList() || croak $mt->LastError(); my $cid = $categories->[0]->{categoryId}; $mt->mt()->setPostCategories(postid=>$id, categories=>[{categoryId=>$cid}]) || croak $mt->LastError(); print &Dumper($mt->mt()->getPostCategories(postid=>$id)); return 1; } sub fortune { local $/; undef $/; system ("fortune > /home/asc/tmp/fortune"); open F, "</home/asc/tmp/fortune"; my $fortune = <F>; close F; return $fortune; }