CMWK: Atom

TypePad.jps getFeed

2006-07-30T23:11:00+09:00

#!/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";
}

TypePads Atom API

2006-07-05T08:08:00+09:00

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

2006-07-05T07:59:00+09:00

#!/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);