自分のVox用にCLIが欲しくて、Atompubでつくろっかなと思ったので。

use Atompub::Client;
my $service_uri = 'http://kzfm.vox.com/library/posts/atom.xml';
my $client = Atompub::Client->new;
$client->username('xxx@gmail.com');
$client->password('mokyumokyu');

my $service = $client->getService( $service_uri );

さてこれがエラー。

$ perl atomc.pl
Bad Content-Type: text/xml at /usr/lib/perl5/site_perl/5.8.8/Atompub/Client.pm line 220.
Can't call method "collections" on an undefined value at atomc.pl line 14.

Atompub::MediaTypeあたりを触ればいいんだろうか?エンドポイント間違えてるだけだったりして、、、、

ちょっと興味があるのでソースを読んでみる。あとdraft-ietf-atompub-protocol-17.txtも併せて読む

追記 07.09.18

色々ボケてた。

rsd.xmlに記述されているAtomのAPIにGETしないといけない。

$ wget --http-user=user --http-passwd=XXX \
http://www.vox.com/services/atom

で戻ってきたxmlの中見てservice.postにPOST

ここへのPOSTはXML::Atom::ClientでもAtompub::ClientでもどちらでもOK