Ogawa::Memoranda

WWW-DisqusというPerlモジュールを書いてみました。StraightforwardにDISQUS APIを叩くためのインタフェースを提供しています。

Revision 525: /WWW-Disqus/trunk

こんな感じで使えます。詳しくはDISQUS | APIを参照。

#!/usr/bin/perl
use strict;
use warnings;
 
use WWW::Disqus;
 
my $forum_name = 'your forum short name';
my $user_api_key = 'your user api key';
 
my $api = WWW::Disqus->new;
$api->user_api_key($user_api_key);
 
my $forum_id      = $api->get_forum_id($forum_name);
my $forum_api_key = $api->get_forum_api_key($forum_id);
$api->forum_api_key($forum_api_key);
 
# The above 3 lines can be rewritten by using a helper method:
# $api->set_forum_api_key_by_forum_name($forum_name);
 
use Data::Dumper;
print Dumper( $api->get_thread_list() );

で、いくつか試した結果、DISQUS APIには以下のような疑問点があることが分かりました。

• update_threadでslugを設定する際、アンダースコアを含む文字列を設定できない。
• thread, postを削除するインタフェースが存在しない。
• (ちょっと自信がないが)thread_by_identifierで生成したthreadとURLを関連付ける方法がない。

洗練の余地が残されていますね。

あと、Wordpressのプラグイン(DISQUS Comment System)には、API version 2が使われていて、これに関するドキュメントがどこにもありません。