|
my $blog = Net::Blogger->new(engine=>"movabletype");
$blog->Proxy("http://www.domain.com/xmlrpc.php");
$blog->Username("user");
$blog->Password("pass");
my $categories = $blog->mt()->getCategoryList() or croak $blog->LastError();
my @postcategories;
foreach my $catref (@{$categories}) {
push(@postcategories,{categoryId=>$catref->{categoryId}});
}
my $postid= $blog->metaWeblog()->newPost(title => $title,
description => $content,
publish => 1);
$blog->mt()->setPostCategories(postid=>$postid, categories=>\@postcategories) or croak $blog->LastError();
__________________
1337 5y54|)m1n: 157717888
BM-2cUBw4B2fgiYAfjkE7JvWaJMiUXD96n9tN
Cambooth
|