うし＠人工無脳XML-RPCサービスβ版稼動

※２００７年８月１８日以降サービスを停止しています。※
※復旧予定は未定です※

送信先：http://usikun.dip.jp/rpc/

送受信内容は、ChatBot::Usikun*1 API - UnderDone（あんでるどん）の落書きを参照してください。
なお、うし＠人工無脳のサービスを使用する場合は登録が必要です。
http://usikun.dip.jp/register/rpc.cgi

おかしな点があれば指摘してください。

下記クライアント、サンプルコード

#!/usr/bin/perl -w

use strict;

use XMLRPC::Lite;

use Jcode;

my $rpc = XMLRPC::Lite->new;

$rpc->proxy('http://usikun.dip.jp/rpc');

my $apikey  = 'APIキーを取得してください';

my $name    = 'あなたのお名前';

my $message = 'メッセージ';

my $body;

my $res = $rpc->call(

  'ChatBot.talk',

XMLRPC::Data->type('string', $apikey),

XMLRPC::Data->type('string', $name),

XMLRPC::Data->type('string', ''),

XMLRPC::Data->type('string', $message),

);

if (my $fault = $res->fault){

  for (keys %{$fault}){

    warn $_."=>".$fault->{$_};

  }

} else {

  my $body = $res->result->{'message'};

  $body =~ s/<//ig;

  $body =~ s/"/"/ig;

  print Jcode->new($body,'utf8')->euc;

}