Perlはさっぱり分からないのだけれど、GDataAPIを生で使ってるようなので下書き投稿の方法をGoogle公式で調べて対応。
一つ注意があってGoogle公式にかかれてるxmlnsは誤りのようで、"http://purl.org/atom/app#"としてあげるのが正しい様子。 Hategleの56行目付近を以下のように修正すれば、下書きで投稿できるようになる。
my $post_content=<<EOM;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<entry xmlns='http://www.w3.org/2005/Atom'
xmlns:app='http://purl.org/atom/app#'>
<app:control>
<app:draft>yes</app:draft>
</app:control>
<title type='text'><!-- subject --></title>
<!-- timestamp -->
<content type='xhtml'>
<!-- post -->
</content>
<!-- category -->
<author>
<name>$name</name>
<email>$email</email>
</author>
</entry>
EOM



0 コメント:
コメントを投稿