При упоминании Lebowski в твитере прибегает фанатичный бот и 'откалывает' шутку.


TITLE

DESCRIPTION

comment

=begin comment :src
{
  "from": {
    "type": "user",
    "id": "zag",
    "name": "углы «Исимуры»"
  },
  "id": "e/87011e5fb52a4ecb8f6410734dde9592",
  "date": "2011-03-03T09:46:11Z",
  "rawBody": "При упоминании Lebowski в твитере прибегает фанатичный бот и 'откалывает' шутку.",
  "url": "http://friendfeed.com/zag/87011e5f/lebowski",
  "rawLink": "http://friendfeed.com/e/87011e5f-b52a-4ecb-8f64-10734dde9592",
  "likes": [
    {
      "date": "2011-03-03T12:12:07Z",
      "from": {
        "id": "woof",
        "type": "user",
        "name": "woof"
      }
    },
    {
      "date": "2011-03-03T10:51:15Z",
      "from": {
        "name": "alex@kapranoff.ru",
        "type": "user",
        "id": "kkapp"
      }
    }
  ],
  "body": "При упоминании Lebowski в твитере прибегает фанатичный бот и 'откалывает' шутку."
}
=end comment


root

Image

Полностью код робота опубликован по адресу L<http://github.com/zag/lveeboteg|http://github.com/zag/lveeboteg>. Я пройдусь по основным моментам реализации. 


Реализация социального робота


Полностью код робота опубликован по адресу L<http://github.com/zag/lveeboteg|http://github.com/zag/lveeboteg>  N<Инструментарий для синхронизации группы в FriendFeed с twitter аккаунтом. L<http://github.com/zag/lveeboteg|http://github.com/zag/lveeboteg>>.
На следующей схеме отмечены фактические названия модулей и подпрограмм. Это поможет ориентироваться при изучении исходных кодов. 


caption

Я пройдусь по основным моментам реализации.


head

На мой взгляд у этой социальной сети одно из самых простых и доступных в использовании API N<FriendFeed API. L<http://friendfeed.com/api/|http://friendfeed.com/api/>>. 


Вот пример запроса содержимого группы:


http://friendfeed-api.com/v2/feed/lvee?pretty=1&num=60


Формат вывода - JSON. Его легко преобразовать в массив записей с помощью модуля C<JSON> :


sub fetch_frf {
#...
my $res=[]
if ( $response->is_success ) {                 
    $res = decode_json( $response->content );  
 }                                              
#...
}


Для публикации в сообщений потребуется специальный ключ и login пользователя.
Поэтому в friendfeed заведен специальный пользователь, от имени которого сообщения из twitter публикуются в friendfeed. При отправке подобных запросов используется http заголовок авторизации:


$r->header( Authorization => 'Basic '                                
      . encode_base64( $self->{frf_usr} . ':' . $self->{frf_key} ) );
my $response = $ua->request($r);                                     


В FriendFeed есть свой собственный сервис сокращения ссылок. Для доступа к нему необходим запрос с идентификатором заметки:


my $res  = $self->post_frf( 
  "http://friendfeed-api.com/v2/short", 
  [ entry => $e->{entry}->{id} ] );                             
$res = $res->{shortUrl} if $res;                                  


Сокращение ссылок необходимо при  отправке сообщений в twitter.


Так как в twitter попадают сообщения администраторов группы, то требуется получить этот список. Для этого используется запрос: L<http://friendfeed-api.com/v2/feedinfo/lvee?pretty=1|http://friendfeed-api.com/v2/feedinfo/lvee?pretty=1>.


При работе с этим сервисом необходимо уметь получать список последних записей, а также - публиковать новые. Для подобных запросов к API потребуются зарегистрировать робота N< Страница регистрации приложений для Twitter. L<https://dev.twitter.com/apps|https://dev.twitter.com/apps>>.


Для работы с API twiiter используется Perl 5 библиотека L<Net::Twitter|http://search.cpan.org/dist/Net-Twitter/>. 


Подключение и использование библиотеки выглядит следующим образом:


use Net::Twitter
my $nt = Net::Twitter->new(
   traits              => [qw/OAuth API::REST/],
   consumer_key        => TWI_CONSUMER_KEY,
   consumer_secret     => TWI_CONSUMER_SECRET,
   access_token        => TWI_ACCESS_TOKEN,
   access_token_secret => TWI_ACCESS_TOKEN_SECRET,
);


Значения констант C<TWI_CONSUMER_KEY>, C<TWI_CONSUMER_SECRET>, C<TWI_ACCESS_TOKEN>, C<TWI_ACCESS_TOKEN_SECRET> доступны после регистрации приложения в twitter.


Библиотека упрощает выполнение запроса на получение сообщений:


При публикации сообщений в twitter требуется соблюдать ограничение в 140 символов. Если не получается опубликовать полностью, размещается сокращенное сообщение, снабженное ссылкой на оригинальное в группе friendfeed.


The Tron Lebowski /sketch/ #tron :  http://www.collegehumor.com/video:1948233


=begin comment :src
{
  "body": "The Tron Lebowski /sketch/ <a href=\"http://friendfeed.com/search?q=%23tron\">#tron</a> :  <a rel=\"nofollow\" href=\"http://www.collegehumor.com/video:1948233\" title=\"http://www.collegehumor.com/video:1948233\">http://www.collegehumor.com/video:1...</a>",
  "rawLink": "http://friendfeed.com/e/b4b9e82a-9206-43e4-894f-cba64b627ccb",
  "likes": [
    {
      "date": "2011-03-03T12:04:09Z",
      "from": {
        "name": "alex@kapranoff.ru",
        "type": "user",
        "id": "kkapp"
      }
    }
  ],
  "date": "2011-03-03T06:23:35Z",
  "id": "e/b4b9e82a920643e4894fcba64b627ccb",
  "thumbnails": [
    {
      "url": "http://m.friendfeed-media.com/176d6148d28ae783a78b4a3abbfcf1b411364e69",
      "width": 215,
      "height": 175,
      "link": "http://m.friendfeed-media.com/88dde39790acec82238400c7613aa121826a9582"
    }
  ],
  "rawBody": "The Tron Lebowski /sketch/ #tron :  http://www.collegehumor.com/video:1948233",
  "url": "http://friendfeed.com/zag/b4b9e82a/tron-lebowski-sketch",
  "from": {
    "type": "user",
    "id": "zag",
    "name": "углы «Исимуры»"
  }
}
=end comment
