実験：Services_Lingrをつかってみた。

はてなのhotentryから一番上にあるやつをしゃべるbotを作ってみた。(with magpieRSS)

http://www.lingr.com/room/hatena_hotentry

セッションをはったままとかのほうがいいのかもしんない。

<?php
require_once 'Services/Lingr.php';

define('API_KEY', '<API＿KEYを定義>');
define('ROOM_ID', 'hatena_hotentry');// 部屋のIDを入れる
define('NICK_NAME','test');// ニックネームを入れる

$lingr = new Services_Lingr(API_KEY);

// セッションを張る
$session_id = $lingr->session->create();

// 部屋に入る
$room_id = ROOM_ID; 
$options = array('nickname' => NICK_NAME); 
$result = $lingr->room->enter($session_id, $room_id, $options);

// RSSとってくる
define('MAGPIE_OUTPUT_ENCODING','EUC-JP');
require_once 'rss_fetch.inc';

$url = 'http://b.hatena.ne.jp/hotentry/diary/rss';
$rss = fetch_rss($url);
$top = array_shift($rss->items);
$title = $top['title'];
$url = $top['link'];
$message = $title . ":" . $url;
echo $message;

// 発言する
$res = $lingr->room->say($message);
if(PEAR::isError($res)){
    echo $res->getMessage();
}


// 退室する
$lingr->room->leave();

// セッションを破棄する
$lingr->session->destroy($session_id);
?>