
mt - Adds support for the MovableType XML-RPC API

use Net::Blogger;
use Carp;
use Data::Dumper;
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));
sub fortune {
local $/;
undef $/;
system ("fortune > /home/asc/tmp/fortune");
open F, "</home/asc/tmp/fortune";
my $fortune = <F>;
close F;
return $fortune;
}

Adds support for the MovableType XML-RPC API

Returns an array ref of hash references.
Valid arguments are
String. required
Releases prior to Net::Blogger 0.85 accepted a list of arguments rather than a reference. Version 0.85+ are backwards compatible.
Returns an array ref of hash references
Valid argument are
String. Required
categories
Array ref. required
The MT docs state that :
String.
Using isPrimary to set the primary category is optional--in the absence of this flag, the first struct in the array will be assigned the primary category for the post
Releases prior to Net::Blogger 0.85 accepted a list of arguments rather than a reference. Version 0.85+ are backwards compatible.
Returns true or false
postid
String.
Returns an array reference of hash references who keys are :
Releases prior to Net::Blogger 0.85 accepted a list of arguments rather than a reference. Version 0.85+ are backwards compatible.
Returns an array reference.

0.21

$Date: 2003/03/05 04:30:42 $

Aaron Straup Cope

http://www.movabletype.org/mt-static/docs/mtmanual_programmatic.html#xmlrpc%20api

Copyright (c) 2002-2003, Aaron Straup Cope. All Rights Reserved.
This is free software, you may use it and distribute it under the same terms as Perl itself.