Всех приветствую. Решил написать небольшого jabber бота который будет выполнять нужные мне команды. В интернете очень мало примеров поэтому пишу сюда. Набыдлокодил вот такой кусок:
#!/usr/bin/perl -w
use Net::XMPP;
$Connection = new Net::XMPP::Client();
$Connection -> Connect(
hostname => "jabber.ru",
port => "5222"
);
$Connection -> Execute(
hostname => "jabber.ru",
username => "тут логин",
password => "тут пароль",
resource => "Bot"
);
if ($Connection -> Connected()) {
print " Соединились \n ";
}
else {
print "Что то пошло не так \n";
exit;
}
$Mess = new Net::XMPP::Message();
$Mess -> SetTo("example\@jabber.ru");
$Mess -> SetType("chat");
$Mess -> SetBody("Привет я тестовое сообщение от бота");
$Mess -> Reply();
$Connection->Disconnect();
Сообщение не отправляет. В чем может быть ошибка? И еще один вопрос что бы не создавать лишнюю тему: Как заставить бота всегда сидеть в сети и проверять наличие входящих сообщений?
