Почему ICQ-бот не отправляет сообщение?

Question

#!/usr/bin/perl
use Net::OSCAR qw(:standard);
$uin="7777777"; 
$password="1234567";
$sender = "43214312";
$text = "test";
$oscar = Net::OSCAR -> new();
$oscar -> signon($uin, $password);
$oscar -> send_im($sender, $text);
$oscar -> signoff();

почему не отправляете мне сообщение?

Answer 1

Вы не делаете проверку ошибок .Сделайте это, и проблема станет очевидной.

Answer 2

Я ОРИГИНАЛЬНЫЙ автор этого программного обеспечения, вау - удивился, что оно все еще используется ... Я не трогал его годами ...

Короче говоря, программное обеспечение использует Net :: Oscar, которыйбиблиотека, которую я взял на себя в качестве сопровождающего несколько лет назад, но после судебного процесса с AOL (через icqbot, а не oscar) .. я потерял желание работать с любым из них .. я знаю, что библиотека net :: oscar все еще загружалась и использоваласьв течение многих лет, но я лично не поддерживал это, и я не знаю, отказался ли кто-нибудь от моей работы ... само программное обеспечение icqbot работает поверх этой библиотеки, так что пока его методы работают ... это будет работать ..но я не обновлял icqbot в ЛЕТ ..

Честно говоря, для меня большая честь найти это =)

Answer 3

Я поражен тем, что я, как автор ... ничего не получил, а кто-то другой получил 7 ... забавно :) но серьезно библиотека крайне устарела и протокол изменился .. Я больше не поддерживаю программное обеспечение ..не заинтересованы возвращаться к нему ...

Ps.Другой парень прав, хотя проверка ошибок не является плохой идеей ... вот как происходят хаки ... это просто неаккуратный код ... без обид, удачи ... есть другие способы достичь того, чего вы хотели сейчас ...:) для меня это был способ покончить с ботом искусственного интеллекта.

• Lonnie Waugh