Добавить свою инструкцию

Грамотно пересаживаем друзей с ICQ на Jabber

Способ 1 Способ 2 Способ 3 Владельцам Jabber конференций

Способ : Бот-автоответчик

Настройка ICQ бота Simple Perl bot

Сайт: http://icq.seriyps.ru/bots?n=perl
Скачать: http://icq.seriyps.ru/bots?n=perl
Небольшой бот на PERL на основе модуля Net::OSCAR. Умеет отвечать на входящие сообщения.

Установка

Необходимо установить модуль Net::OSCAR (http://search.cpan.org/dist/Net-OSCAR/) из репозитория CPAN
perl -MCPAN -e "install Net::OSCAR"

Бот

Создаем файл icqbot.pl
#!/usr/bin/perl use Net::OSCAR qw(:standard); my $text = 'Приветствую! С вами говорит автоответчик. Дело в том, что я перестал использовать ICQ и здесь вам вряд ли когда-нибудь отвечу. Но вы можете легко со мной связаться, используя эту инструкцию: http://icq.seriyps.ru/all ++++++++++++++ Privet! S vami govorit avtootvetchik. Ya perestal ispolzovat ICQ i vriad-li smogu vam zdes otvetit No vi mojete so mnoi sviazatsa, ispolzuia instrukciyu: http://icq.seriyps.ru/all'; # текст для автоответчика. $uin_conn="123456789"; # ваш номер ICQ, на котором будет висеть бот $password="qwerty"; # пароль от этого номера. my $aimbot = Net::OSCAR->new(); $aimbot->signon($uin_conn, $password); $aimbot->set_callback_im_in (\&on_im); sub on_im { my ($aimbot, $sender, $message, $away) = @_; $aimbot->send_im($sender, $text ); } while(1) { $aimbot->do_one_loop(); }
В параметре $text задается текст для автоматического ответа.
Сохраняем.

Запуск

В терминале. perl адрес_файла_icqbot.pl Теперь на любое входящее сообщение будет приходить заданный вами текс
Временная почта