Big Sky :: はてなAtompub APIで下書きをゴニョゴニョしてみた。 - The Diigo Meta page

• 08 Nov 08
  

  feneth tool

  はてなダイアリー atompub API perl scrapbook

  • 
     

     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." ".$entry->title."  ";
     }
     
     # 新規下書きエントリ
     my $entry = XML::Atom::Entry->new;
     $entry->title('下書きテスト');
     $entry->content('はてダで下書き');
     my $entry_uri = $client->createEntry($uri, $entry);
     warn $client->errstr||' ';
     
     # 下書きを上書き
     $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||' ';
     
     # 下書きを公開
     $client->ua->default_header('X-HATENA-PUBLISH' => 1);
     $client->updateEntry($entry_uri, $entry);

Would you like to comment?

Join Diigo for a free account, or sign in if you are already a member.