feneth tool's Library tagged API →  View Popular

use strict;

use warnings;



use Atompub::Client;

use XML::Atom::Entry;

use utf8;



my $username = 'xxxxxxxxxxxxxxxxxx';

my $password = 'xxxxxxxxxxxxxxxxxx';

my $uri = "http://d.hatena.ne.jp/$username/atom/draft";



my $client = Atompub::Client->new;



$client->username($username);

$client->password($password);



# 下書きを一覧

my @entries = $client->getFeed($uri);

for my $entry (@entries) {

    next if not $entry->id;

    warn $entry->link->href."\n".$entry->title."\n\n";

}



# 新規下書きエントリ

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

$entry->title('下書きテスト');

$entry->content('はてダで下書き');

my $entry_uri = $client->createEntry($uri, $entry);

warn $client->errstr||'\n';



# 下書きを上書き

$entry->content('はてダで下書きを上書き');

$client->updateEntry($entry_uri, $entry);



# 下書きを削除

$client->deleteEntry($entry_uri);



# 公開用に新規下書きエントリ

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

$entry->title('下書き公開テスト');

$entry->content('はてダの下書きを公開してみるテスト');

$entry_uri = $client->createEntry($uri, $entry);

warn $client->errstr||'\n';



# 下書きを公開

$client->ua->default_header('X-HATENA-PUBLISH' => 1);

$client->updateEntry($entry_uri, $entry);