NAME

mt - Adds support for the MovableType XML-RPC API

SYNOPSIS

 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;
 }
  

DESCRIPTION

Adds support for the MovableType XML-RPC API

OBJECT METHODS

$pkg->getCategoryList()

Returns an array ref of hash references.

$pkg->getPostCategories(%args)

Valid arguments are

• postid

  String. Required.

Returns an array ref of hash references

$pkg->setPostCategories(%args)

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

Returns true or false

$pkg->getTrackbackPings(\%args)

• postid

  String.

Returns an array reference of hash references who keys are :

• pingTitle

• pingURL

• pingIP

$pkg->supportMethods()

Returns an array reference.

VERSION

0.2

DATE

June 27, 2002

AUTHOR

Aaron Straup Cope

SEE ALSO

Net::Blogger::Engine::Base

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

LICENSE

Copyright (c) 2002, Aaron Straup Cope. All Rights Reserved.

This is free software, you may use it and distribute it under the same terms as Perl itself.

cpanm Net::Blogger

perl -MCPAN -e shell
install Net::Blogger