LungDesire
Сообщений: 24
Оценки: 0
Присоединился: 2008-09-06 20:47:36.733333
|
Всем респект. Достал написанного ранее ICQ бота на perl'e. Как и пологается,
он работает через OSCAR! Поставил perl 5.8.8!
Слил все необходимые для работы скрипта perl модули:
ppm> install NET::OSCAR (Net-OSCAR)
ppm> install DBI
ppm> install DBD-Mysql
Запустил бота: (маленький кусочек, т.к. он довльно огромный)
use Net::OSCAR qw(:standard);
use DBI;
use Time::tm;
use MD5;
$uin_conn="470773904";
$password="pass";
$admin="649325431";
%functions = ("help" => \&bot_help,
"sql" => \&sql_cmd);
sub im_in {
my($oscar, $sender, $message, $is_away) = @_;
#print "[AWAY] " if $is_away;
if($sender eq $admin){
if(($cmd, $params) = $message =~ /^\!([^\ ]+) (.+)$/){
$result = exists($functions{$cmd}) ? $functions{$cmd}($params) : "";
$oscar->send_im($sender, $result) if $result;
}
}
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->signon($uin_conn, $password);
while(2) {
$oscar->do_one_loop();
}
Проще говоря, раньше он чётко работал! Сейчас же, после коннекта в асе, он выдаёт какой-то бред:
Couldn't set Win32 blocking: Unknown error
Couldn't set Win32 blocking: Unknown error
OSCAR session: Unknown SNAC 1/21:
00 03 00 24 68 74 74 70 3A 2F 2F 61 70 69 2E 6F …$ http ://
a pi.o
73 63 61 72 2E 61 6F 6C 2E 63 6F 6D 2F 6C 69 66 scar .aol .co
m /lif
65 73 74 72 65 61 6D 2F 00 04 00 2A 68 74 74 70 estr eam/ …
* http
3A 2F 2F 6F 2E 61 6F 6C 63 64 6E 2E 63 6F 6D 2F ://o .aol cdn
. com/
6C 69 66 65 73 74 72 65 61 6D 2F 63 6C 69 65 6E life stre am/
c lien
74 2F 66 75 6C 6C 00 05 00 28 68 74 74 70 3A 2F t/fu ll.. .(h
t tp:/
2F 6F 2E 61 6F 6C 63 64 6E 2E 63 6F 6D 2F 6C 69 /o.a olcd n.c
o m/li
66 65 73 74 72 65 61 6D 2F 63 6C 69 65 6E 74 2F fest ream /cl
i ent/
6D 65 00 07 00 2C 68 74 74 70 3A 2F 2F 6F 2E 61 me.. .,ht tp:
/ /o.a
6F 6C 63 64 6E 2E 63 6F 6D 2F 6C 69 66 65 73 74 olcd n.co m/l
i fest
72 65 61 6D 5F 70 68 6F 74 6F 73 2F 70 68 6F 74 ream _pho tos
/ phot
6F 2F 00 08 00 2E 68 74 74 70 3A 2F 2F 70 68 6F o/.. ..ht tp:
/ /pho
74 6F 73 2E 6C 69 66 65 73 74 72 65 61 6D 2E 61 tos. life str
e am.a
69 6D 2E 63 6F 6D 2F 70 68 6F 74 6F 2F 75 70 6C im.c om/p hot
o /upl
6F 61 64 3F 00 09 00 19 68 74 74 70 3A 2F 2F 61 oad? …. htt
p ://a
70 69 2E 6F 73 63 61 72 2E 61 6F 6C 2E 63 6F 6D pi.o scar .ao
l .com
2F 00 0A 00 22 68 74 74 70 3A 2F 2F 6C 69 66 65 /… "htt p:/
/ life
73 74 72 65 61 6D 2E 61 69 6D 2E 63 6F 6D 2F 73 stre am.a im.
c om/s
65 74 74 69 6E 67 73 00 0B 00 21 68 74 74 70 3A etti ngs. ..!
h ttp:
2F 2F 6C 69 66 65 73 74 72 65 61 6D 2E 61 69 6D //li fest rea
m .aim
2E 63 6F 6D 2F 73 74 72 65 61 6D 2F 00 0C 00 1D .com /str eam
/ ….
68 74 74 70 73 3A 2F 2F 6D 79 2E 73 63 72 65 65 http s:// my.
s cree
6E 6E 61 6D 65 2E 61 6F 6C 2E 63 6F 6D 00 0D 00 nnam e.ao l.c
o m…
24 68 74 74 70 3A 2F 2F 61 62 61 70 69 2E 61 62 $htt p:// aba
p i.ab
77 65 62 2E 61 6F 6C 2E 63 6F 6D 2F 41 42 57 65 web. aol. com
/ ABWe
62 41 70 69 2F bApi /
OSCAR session: Unknown SNAC 3/10:
09 33 32 39 32 30 32 36 33 30 .329 2026 30
Terminating on signal SIGINT(2)
Ума не приложу, в чём может быть дело. Никто не сталкивался с таким? Может протокол был изменён или что-то в этом роде?
|
ICQ бот на perl'e не хочет работать! - 
