CREATE OR REPLACE PROCEDURE send_to_jabber(p_users VARCHAR2, p_message VARCHAR2)
    -- Процедура для отправки сообщения в JABBER
    -- p_users - пользователь или список пользователей указанных через запятую без имени хоста.
    -- p_message - сообщение
    AS
        l_user VARCHAR2(30);
    BEGIN
        IF (utl_jabber.attach('jabber.fgr.pr')) THEN
            IF (utl_jabber.logon('ora@jabber.fgr.pr', '123', TRUE)) THEN
                utl_jabber.status(utl_jabber.status_online, 'ORACLE');

                FOR rec IN (SELECT regexp_substr(p_users,'[^,]+', 1, LEVEL) AS user_name  FROM dual
                            CONNECT BY regexp_substr(p_users, '[^,]+', 1, LEVEL) IS NOT NULL) LOOP

                    utl_jabber.send(TRIM(rec.user_name) || '@jabber.fgr.pr', p_message);

        END LOOP;
            END IF;

            utl_jabber.detach;
        END IF;

    EXCEPTION
        WHEN OTHERS THEN
            DBMS_OUTPUT.put_line(SQLERRM);
            utl_jabber.detach;
            UTL_TCP.close_all_connections;
    END;