Oct 8, 2008

WWW-Disqus

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

ogawa - Revision 637: /trunk/WWW-Disqus

こんな感じで使えます。詳しくは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が使われていて、これに関するドキュメントがどこにもありません。

About Me

My Photo

つくばで働く研究者

Total Pageviews

Amazon

Copyright 2012 Ogawa::Buzz | Powered by Blogger
Design by Web2feel | Blogger Template by NewBloggerThemes.com