Грамотно пересаживаем друзей с ICQ на 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/) из репозитория CPANperl -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 задается текст для автоматического ответа.Сохраняем.