Теперь я могу подключиться к моему jabber-серверу, используя модуль perl Net :: XMPP. Теперь я хотел бы знать: можно ли контролировать сервер на наличие входящих сообщений чата (НЕ сообщений электронной почты) и действовать соответствующим образом, если оно получено?
Основной код, который у меня сейчас есть:
#!/bin/perl -w
use strict;
use warnings;
use Net::XMPP;
my $con = new Net::XMPP::Client();
my $status = $con->Connect(
hostname => 'hostnamepart',
connectiontype => 'tcpip',
tls => 1,
ssl_ca_path =>'path for cert');
die('ERROR: XMPP connection failed') if ! defined($status);
Переменная $ status возвращает 1, когда я запускаю код выше, который, как я предполагаю, означает, что я подключился нормально. Однако сейчас я застрял! Я просмотрел онлайн-документацию на сайте metacpan.org для Net :: XMPP, но не могу понять, возможно ли вообще делать то, что я хочу. Любая помощь приветствуется.