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
Valid arguments are :
- •
- count
Int.
The number of post titles to fetch. Default is 20
- •
- asc
Boolean.
As in: return data ordered by ascending date. By default, items are returned
'most recent first'.
Returns an array ref of hash refs. Each hash ref contains the following keys :
- •
- postid
- •
- userid
- •
- title
String.
- •
- dateCreated
String, formatted as a W3CDTF datetime.
This method was introduced in Net::Blogger 0.86 and does
not accept
arguments passed as a list. They
must be passed by reference.
Returns an array ref of hash references.
Valid arguments are
- •
- postid
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
- •
- postid
String. Required
categories
Array ref. required
The MT docs state that :
- •
- The array categories is an array of structs containing
- •
- categoryId
String.
- •
- isPrimary
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 :
- •
- pingTitle
- •
- pingURL
- •
- pingIP
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.
Returns true or false.
1.0
$Date: 2005/03/26 19:29:08 $
Aaron Straup Cope
Net::Blogger::Engine::Base
http://www.movabletype.org/mt-static/docs/mtmanual_programmatic.html#xmlrpc%20api
Copyright (c) 2002-2005, Aaron Straup Cope. All Rights Reserved.
This is free software, you may use it and distribute it under the same terms as
Perl itself.