blog.comewalk.com

TypePad.jp's getFeed

#!/usr/bin/perl

use strict;
use warnings;

use XML::Atom::Client;
use XML::Atom::Entry;

my $api = XML::Atom::Client->new;
$api->username('YourUserName');
$api->password('YourPassword');

my $FeedURI = 'http://www.typepad.jp/t/atom/weblog/blog_id=YourBlogID';
my $feed = $api->getFeed($FeedURI)
    or die("can not get feed:");
for my $entry ($feed->entries) {
    print $entry->title."\n";
}

TypePad's Atom API

EndPoint

• Weblogs: http://www.typepad.com/t/atom/weblog/blog_id=YourBlogID
• Photo Albums: http://www.typepad.com/t/atom/gallery/set_id=YourPhotoSetID
• TypeLists: http://www.typepad.com/t/atom/lists/list_id=YourListID

Resource

• TypePad Atom API

Atom API

#!/usr/bin/perl

use strict;
use warnings;

use XML::Atom::Client;
use XML::Atom::Entry;

my $entry = XML::Atom::Entry->new;

$entry->title('This entry is posted by Atom.');
$entry->content('Atom Atom Atom Atom');

my $api = XML::Atom::Client->new;
$api->username('YourUserName');
$api->password('YourPassword');

my $PostURI = "http://www.typepad.jp/t/atom/weblog/blog_id=YourBlogID";
my $EditURI = $api->createEntry($PostURI, $entry);