Почему 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. Другой парень прав, хотя проверка ошибок не является плохой идеей... вот как происходят хаки... это просто неаккуратный код... без обид, удачи... есть другие способы достичь того, чего вы хотели сейчас...:) для меня это был способ покончить с ботом искусственного интеллекта.

• Лонни Во