The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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

$obj->getRecentPostTitles(\%args)

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.

$obj->getCategoryList()

Returns an array ref of hash references.

$obj->getPostCategories(\%args)

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

$obj->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

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

$obj->getTrackbackPings(\%args)

  • *

    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.

$obj->supportMethods()

Returns an array reference.

$obj->publishPost($postid)

Returns true or false.

VERSION

0.3

DATE

$Date: 2003/07/14 14:00:07 $

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-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.