Благодаря технологии WebSocket, браузер может держать постоянное подключение к серверу, что дает нам постоянный двусторонний канал обмена сообщениями.

Сервер websoket_backend реализован асинхронно на AnyEvent.

Установить perl модули:

• AnyEvent::Socket
• AnyEvent::Handle
• Protocol::WebSocket

Установить и включить модули апача:

• mod_proxy
• mod_proxy_wstunnel

Прописать в конфигурацию apache2 abills_httpd в секцию VirtualHost биллинга

  ProxyPass "/admin/wss/" "ws://127.0.0.1:19443/wss/admin/" retry=1

Установить и включить сервер вебсокетов

ln -s /usr/abills/misc/websocket_backend.pl /usr/abills/libexec/websocket_backend.pl
chmod +x /usr/abills/libexec/websocket_backend.pl
iptables -I INPUT 1 -p tcp --dport 19443 -j ACCEPT

Включать при загрузке /etc/systemd/system/abills-backend.service

[Unit]
Description=ABillS Websocket Server
After=network.target
After=mysql.service
Requires=mysql.service

[Service]
Type=forking

PIDFile=/usr/abills/var/log/websocket_backend.pid

ExecStartPre=/bin/chown -R nobody /usr/abills/var/
ExecStart=/usr/abills/libexec/websocket_backend.pl -d
ExecReload=/usr/abills/libexec/websocket_backend.pl stop

[Install]
WantedBy=multi-user.target

Включить службу

systemctl enable abills-backend.service

Не установлен systemd
Решения:

• установить systemd
• Использовать rc.d скрипт

Ошибки с mysql.service Если в системе есть systemd, а вместо mysql', установлена mariadb, служба может называться mariadb.service'', переименуйте зависимую службу.
Если система не поддерживает запуск mysql через systemd, используйте init.d скрипт.

Конфигурация

libexec/config.pl

$conf{WEBSOCKET_URL} = 'wss://%host.example.com%:9443/admin/wss/'; # URL WebSocket сервера

Методы

Пример отправки сообщения администратору:

use Abills::Sender::Browser
my $Browser = Abills::Sender::Browser->new( $db, $admin, \%conf);

my $test_aid = 1;
my $test_notification = <<"TEST_NOTIFICATION";
{
  "TYPE" : "MESSAGE",
  "TITLE" : "Test notification",
  "TEXT" : "Just<br/>some<br/>text"
}
TEST_NOTIFICATION


# Проверяем, что админ есть на линии
my $test_admin_connected = $Browser->has_connected_admin( $test_aid );

my $received = 0;
if ( $test_admin_connected ){
  $received = $Browser->send_message( { AID => $test_aid, MESSAGE => $test_notification } );
}
else {
  print "Admin $test_aid is not online \n"
  return 0;
}

return $received;

Когда сообщение приходит в браузер администратора, оно передаётся AMesssageChecker.

* Maps (MAP_EVENT)