#!/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();
Почему не посылайте мне сообщение?Почему бот не отправляет сообщение?
Вы не производите error checking. Сделайте это, и проблема будет очевидна.
Я Первоначальный автор этого программного обеспечения, ничего себе, - удивляется он все еще в использовании .. Я не трогал его в годах ..
Короче говоря, программа использует Net :: Оскара, который является библиотеку, которую я взял на себя как хранитель лет назад, но после судебного процесса с AOL (над icqbot, а не с oscar). Я потерял желание работать на любом. Я знаю, что библиотека net :: oscar была загружена и использована для спустя годы, но я лично не поддерживал его, и я не знаю, кто-то от него отказался от моей работы. Программное обеспечение icqbot само по себе работает на этой библиотеке, так что пока его методы работают .. это сработает .. но Я не обновлял icqbot в течение лет.
Откровенно говоря, я удостоен чести чтобы найти это =)
Я поражен тем, что я, как автор, ничего не получил, а у кого-то еще было 7 .. забавных :), но серьезно библиотека очень устарела и протокол изменился. дольше поддерживайте программное обеспечение .. Я не заинтересован в возвращении к нему ...
Ps. Другой парень прав, хотя проверка ошибок - плохая идея .. вот как делаются хаки .. это просто неряшливый код ... нет обиды, удачи ... есть другие способы сделать то, что вы хотели сейчас, дни ..:) для меня это стало средством для бота-чата AI.