Tkabber

2016-01-06  Sergei Golovan  <sgolovan@nes.ru>

	* login.tcl, tkabber.tcl: Use 'from' attribute when opening XMPP
	  streams.

	* login.tcl: Fixed interval between reconnections.

        [::msgcat::mc "XMPP stream options when connecting to server."] \
        -group Login -type options \
        -values $values
}

if {$use_tls} {
    custom::defvar loginconf(sslcertfile) "" \

        [::msgcat::mc "SSL certificate file (optional)."] \
        -group Login -type file
    custom::defvar loginconf(sslcacertstore) "" \
        [::msgcat::mc "SSL certification authority file or\
                       directory (optional)."] \
        -group Login -type file
    custom::defvar loginconf(sslkeyfile) "" \
        [::msgcat::mc "SSL private key file (optional)."] \
        -group Login -type file
}

custom::defvar loginconf(usealtserver) 0 \
    [::msgcat::mc "Use explicitly-specified server address and port."] \
    -group Login -type boolean
custom::defvar loginconf(altserver) "" \
    [::msgcat::mc "Server name or IP-address."] \

            }
            if {![catch ::tls::ciphers tls1.2]} {
                lappend args -tls1.2 1
            }
            lappend args -tls1          1 \
                         -certfile      $lc(sslcertfile) \
                         -castore       $lc(sslcacertstore) \
                         -keyfile       $lc(sslkeyfile) \
                         -verifycommand [list client:tls_callback $xlib] \
                         -infocommand   [list update_tls_info $xlib]
        }

        lappend args -transport $transport

        if {$lc(usealtserver)} {

            lappend opts -tls1.2 1
        }
        ::xmpp::starttls::starttls $xlib {*}$opts \
                        -command       [list login_login2 $xlib $logindata] \
                        -tls1          1 \
                        -certfile      $lc(sslcertfile) \
                        -castore       $lc(sslcacertstore) \
                        -keyfile       $lc(sslkeyfile) \
                        -verifycommand [list client:tls_callback $xlib] \
                        -infocommand   [list update_tls_info $xlib]
    } elseif {!$lc(usebosh) && !$lc(usehttppoll) && \
            $have_compress && $lc(stream_options) == "compressed"} {
        ::xmpp::compress::compress $xlib \
                        -command     [list login_login2 $xlib $logindata]
    } else {

::msgcat::mcset ru "Add new item" "Добавить новый элемент"
::msgcat::mcset ru "Add new user..." "Добавить нового пользователя..."
::msgcat::mcset ru "Add proxy" "Добавить прокси"
::msgcat::mcset ru "Add roster group by JID regexp" "Добавить группу по\
        регулярному выражению для JID"
::msgcat::mcset ru "Add user to roster..." "Добавить пользователя в\
        контакты..."
::msgcat::mcset ru "Add your JID and timestamp to the GPG-signed outgoing\
        messages or presence updates. This prevents replay attacks, but shows\
        your JID in every message or presence status." "Добавлять ваш JID и\
        текущее время к сообщениям и присутствию, подписанным с помощью GPG.\
        Это позволяет предотвратить атаку повторного воспроизведения, но\
        показывает ваш реальный JID в каждом сообщении и обновлении статуса."
::msgcat::mcset ru "Added abbreviation:\n%s: %s" "Добавлено сокращение:\n%s:\
        %s"
::msgcat::mcset ru "Address" "Адрес"
::msgcat::mcset ru "Address 2" "Адрес 2"
::msgcat::mcset ru "Address 2:" "Адрес 2:"
::msgcat::mcset ru "Address Error" "Ошибка адреса"
::msgcat::mcset ru "Address type not supported" "Тип адреса не\
        поддерживается"
::msgcat::mcset ru "Address type not supported by SOCKS proxy" "Тип адреса не\
        поддерживается SOCKS5 прокси"
::msgcat::mcset ru "Address:" "Адрес:"
::msgcat::mcset ru "admin" "админ"
::msgcat::mcset ru "Admin tools" "Инструменты администратора"
::msgcat::mcset ru "Affiliation" "Ранг"
::msgcat::mcset ru "afraid" "испуганное"
::msgcat::mcset ru "Alexey Shchepin" "Алексей Щепин"
::msgcat::mcset ru "All" "Все"
::msgcat::mcset ru "All Files" "Все файлы"
::msgcat::mcset ru "All files" "Все файлы"
::msgcat::mcset ru "All items:" "Добавить элементы:"
::msgcat::mcset ru "All unread messages were forwarded to %s." "Все\
        непрочитанные сообщения были пересланы %s."
::msgcat::mcset ru "Allow downloading" "Разрешение загрузки"
::msgcat::mcset ru "Allow plaintext authentication mechanisms" "Разрешить\
        механизмы аутентификации, использующие открытый текст"

::msgcat::mcset ru "Role:" "Должность:"
::msgcat::mcset ru "Room %s is successfully created" "Комната %s успешно\
        создана"
::msgcat::mcset ru "Room is created" "Комната создана"
::msgcat::mcset ru "Room is destroyed" "Комната удалена"
::msgcat::mcset ru "Room:" "Комната:"
::msgcat::mcset ru "Roster" "Контакты"
::msgcat::mcset ru "Roster Files" "Файлы контактов"
::msgcat::mcset ru "Roster files" "Файлы контактов"
::msgcat::mcset ru "Roster filter." "Фильтр контактов."
::msgcat::mcset ru "Roster group:" "Группа в контактах:"
::msgcat::mcset ru "Roster import for %s is completed" "Импорт контактов для\
        %s завершен"
::msgcat::mcset ru "Roster item may be dropped not only over group name but\
        also over any item in group." "При перетаскивании контакта из одной\

::msgcat::mcset ru "Send message to %s" "Отправка сообщения %s"
::msgcat::mcset ru "Send message to all users in group..." "Отправить\
        сообщение всем пользователям в группе..."
::msgcat::mcset ru "Send message to group" "Отправка сообщения группе"
::msgcat::mcset ru "Send message to group %s" "Отправка сообщения группе %s"
::msgcat::mcset ru "Send message..." "Отправить сообщение..."
::msgcat::mcset ru "Send request to: " "Отправка запроса: "



::msgcat::mcset ru "Send subscription at %s" "Отправка запроса на подписку на\
        %s"
::msgcat::mcset ru "Send subscription request" "Отправка запроса на подписку"
::msgcat::mcset ru "Send subscription request to %s" "Отправка запроса на\
        подписку %s"
::msgcat::mcset ru "Send subscription to: " "Отправка запроса на подписку: "
::msgcat::mcset ru "Send to server" "Отправить на сервер"

        "Указывает режим поиска в окнах разговора, протокола и обзора служб.\
        \"substring\" ищет подстроку, \"glob\" позволяет использовать\
        подстановочные символы, \"regexp\" использует регулярные выражения."
::msgcat::mcset ru "Speed:" "Скорость:"
::msgcat::mcset ru "Spell check options." "Параметры проверки правописания."
::msgcat::mcset ru "Spelling" "Орфография"
::msgcat::mcset ru "SSL & Compression" "SSL & Сжатие"
::msgcat::mcset ru "SSL certificate file (optional)." "Файл сертификата SSL\

        (необязательный параметр)."
::msgcat::mcset ru "SSL certificate:" "Сертификат SSL:"
::msgcat::mcset ru "SSL certification authority file or directory\
        (optional)." "Файл или директория центра сертификации (CA) SSL\
        (необязательный параметр)."
::msgcat::mcset ru "SSL Info" "Информация об SSL"
::msgcat::mcset ru "SSL private key file (optional)." "Файл секретного ключа\
        SSL ((необязательный параметр)."
::msgcat::mcset ru "Start chat" "Начать беседу"
::msgcat::mcset ru "Starting auto-away" "Устанавливается состояние \"Отошёл\"\
        (по бездействию)"
::msgcat::mcset ru "Starting login" "Начинается подключение"
::msgcat::mcset ru "STARTTLS aborted" "STARTTLS прерван"
::msgcat::mcset ru "STARTTLS failed" "STARTTLS не удался"
::msgcat::mcset ru "STARTTLS successful" "STARTTLS успешный"

::msgcat::mcset uk "Address 2:" "Адреса 2:"
::msgcat::mcset uk "Address Error" "Помилка адреси"
::msgcat::mcset uk "Address:" "Адреса:"
::msgcat::mcset uk "Admin tools" "Інструменти адміністратора"
::msgcat::mcset uk "Affiliation" "Ранг"
::msgcat::mcset uk "Alexey Shchepin" "Олексій Щєпін"
::msgcat::mcset uk "All" "Все"
::msgcat::mcset uk "All Files" "Всі файли"
::msgcat::mcset uk "All files" "Всі файли"
::msgcat::mcset uk "Allow downloading" "Дозволити завантаження"
::msgcat::mcset uk "Allow plaintext authentication mechanisms" "Дозволити\
        механізми авторизації, що використовують відкритий текст"
::msgcat::mcset uk "Allow plaintext authentication mechanisms (when password\
        is transmitted unencrypted)." "Дозволити механізми авторизації, що\
        використовують відкритий текст (при цьому пароль передається\

::msgcat::mcset uk "Role" "Роль"
::msgcat::mcset uk "Role:" "Роль:"
::msgcat::mcset uk "Room %s is successfully created" "Кімната %s створена\
        успішно"
::msgcat::mcset uk "Room is created" "Кімната створена"
::msgcat::mcset uk "Room is destroyed" "Кімната видалена"
::msgcat::mcset uk "Roster" "Ростер"
::msgcat::mcset uk "Roster Files" "Файли ростерів"
::msgcat::mcset uk "Roster group:" "Група ростера"
::msgcat::mcset uk "Roster item may be dropped not only over group name but\
        also over any item in group." "При перетягуванні контакта з однієї\
        групи ростера в іншу, його можна відпустити не тільки над назвою\
        групи але й над будь-яким контактом в цій групі."
::msgcat::mcset uk "Roster Notes" "Примітки у контактах"
::msgcat::mcset uk "Roster options." "Параметри ростера."

        disco windows. \"substring\" searches exact substring, \"glob\" uses\
        glob style matching, \"regexp\" allows to match regular expression."\
        "Вказує метод пошуку в вікнах чату, протоколу чи огляду служб.\
        \"substring\" шукає підрядок, \"glob\" дозволяє використовувати\
        підстановочні символи, \"regexp\" використовує регулярні вирази."
::msgcat::mcset uk "Spell check options." "Параметри перевірки правопису."
::msgcat::mcset uk "SSL & Compression" "SSL & Стиснення"
::msgcat::mcset uk "SSL certificate file (optional)." "Файл сертифіката SSL\

        (необов’язково)."
::msgcat::mcset uk "SSL certification authority file or directory\
        (optional)." "Файл чи тека центру сертифікації (CA) SSL\
        (необов’язковий параметр)."
::msgcat::mcset uk "SSL Info" "Інформація про SSL"
::msgcat::mcset uk "SSL private key file (optional)." "Файл секретного ключа\
        SSL (необов’язково)."
::msgcat::mcset uk "Start chat" "Розпочати розмову"
::msgcat::mcset uk "Starting auto-away" "Автоматичне встановлення стану\
        \"Відійшов\""
::msgcat::mcset uk "STARTTLS failed" "STARTTLS не вдався"
::msgcat::mcset uk "STARTTLS successful" "STARTTLS успішний"
::msgcat::mcset uk "State" "Стан"
::msgcat::mcset uk "State " "Область"

::msgcat::mcset uk "Ispell options. See ispell manual for\
        details.\n\nExamples:\n  -d russian\n  -d german -T latin1\n  -C -d\
        english" "Параметри Ispell. Дивіться посібник для\
        деталей.\n\nНаприклад:\n  -d ukrainian\n  -d german -T latin1\n  -C\
        -d english"
::msgcat::mcset uk "Spelling" "Правопис"

# ./gpgme.tcl
::msgcat::mcset uk "%s purportedly signed by %s can't be verified: %s." "Те,\
        що %s підписано %s, неможливо перевірити: %s."
::msgcat::mcset uk "GPG error" "Помилка GPG"

# ./muc.tcl
::msgcat::mcset uk "%s has been assigned a new affiliation: %s" "%s було\
        надано новий ранг: %s"
::msgcat::mcset uk "%s has been assigned a new role: %s" "%s було надано нову\
        роль: %s"
::msgcat::mcset uk "%s has been assigned a new room position: %s/%s" "%s було\
        надано нову посаду в кімнаті: %s/%s"

        конференцію..."
::msgcat::mcset uk "Update list" "Поновити список"

# ./plugins/general/gpgme.tcl
::msgcat::mcset uk "%s purportedly signed by %s using key 0x%s can't be\
        verified: %s." "Те, що %s підписано %s з використанням ключа 0x%s,\
        неможливо перевірити: %s."
::msgcat::mcset uk "Add your JID and timestamp to the GPG-signed outgoing\
        messages or presence updates. This prevents replay attacks, but shows\
        your JID in every message or presence status." "Додавати ваш JID та\
        наявний час до повідомлень та поновлень присутності. Це дозволяє\
        запобігти атаці повторними повідомленнями, але показує ваш реальний\
        JID у кожному повідомленні та поновленні статусу."
::msgcat::mcset uk "Encrypt messages (when possible)" "Шифрувати повідомлення\
        (де можливо)"
::msgcat::mcset uk "GPG-sign outgoing groupchat messages." "Підписувати\
        вихідні повідомлення з допомогою GPG у конференціях."
::msgcat::mcset uk "GPG-sign outgoing personal messages." "Підписувати\
        особисті вихідні повідомлення з допомогою GPG."
::msgcat::mcset uk "GPG-sign outgoing presence updates." "Підписувати вихідні\
        поновлення присутності з допомогою GPG."
::msgcat::mcset uk "Sign presence updates" "Підписувати поновлення\
        присутності"
::msgcat::mcset uk "Toggle signing presence updates" "Ввімкн./вимкн. підпис\
        поновлень присутності"














# ./plugins/general/autoaway.tcl
::msgcat::mcset uk "Stored user priority while she's away." "Збережений\
        пріоритет користувача доки вона в стані \"відійшла\""
::msgcat::mcset uk "Stored user status while she's away." "Збережений статус\
        користувача доки вона в стані \"відійшла\""
::msgcat::mcset uk "Stored user text status while she's away." "Збережений\

# ./proxy.tcl
::msgcat::mcset uk "Currently active profile" "Поточний діючий профіль"
::msgcat::mcset uk "Default empty profile" "Порожній профіль за\
        замовчуванням"
::msgcat::mcset uk "Profile from config file" "Профіль з конфігураційного\
        файлу"

# ./plugins/general/gpgme.tcl
::msgcat::mcset uk "not actually changed" "не змінився"
::msgcat::mcset uk "entirely new key" "зовсім новий ключ"
::msgcat::mcset uk "new user IDs" "нові ID користувача"
::msgcat::mcset uk "new signatures" "нові підписи"
::msgcat::mcset uk "new subkeys" "нові підключі"
::msgcat::mcset uk "contains private key" "містить закритий ключ"

#==================================================================

namespace eval :: {
proc load_ukrainian_procs {} {
    rename format_time ""
    rename uk_format_time format_time
}

        -group GPG -type boolean

    custom::defvar options(encrypt-traffic) 0 \
        [::msgcat::mc "GPG-encrypt outgoing messages where possible."] \
        -group GPG -type boolean

    custom::defvar options(prevent-replay-attack) 1 \
        [::msgcat::mc "Add your JID and timestamp to the GPG-signed\
                       outgoing messages or presence updates. This\
                       prevents replay attacks, but shows your JID\
                       in every message or presence status."] \
        -group GPG -type boolean

    custom::defvar options(key) "" \
        [::msgcat::mc "Use specified key ID for signing and decrypting\
                       messages."] \
        -group GPG -type string

    }
}

hook::add client_presence_hook ::ssj::check_signature

#############################################################################

proc ::ssj::add_timestamp_to_signature {varname xlib} {
    variable options
    upvar 2 $varname var

    if {!$options(prevent-replay-attack)} return

    if {![catch {signed:output $xlib $var} cdata] && $cdata ne ""} {
        set timestamp [clock format [clock seconds] \
                                    -format "%Y%m%dT%TZ" -gmt true]
        if {$var ne ""} {
            set var " $var"
        }
        set var "\[[::xmpp::jid::removeResource [connection_jid $xlib]],\
                 $timestamp\]$var"
    }
    return
}

hook::add rewrite_presence_status_hook ::ssj::add_timestamp_to_signature

proc ::ssj::make_signature {varname xlib status} {
    variable NS
    upvar 2 $varname var

    if {![catch {signed:output $xlib $status} cdata] && $cdata ne ""} {
        lappend var [::xmpp::xml::create x -xmlns $NS(signed) \
                                           -cdata $cdata]

    upvar 2 $vbody body
    upvar 2 $vx x

    if {!$options(prevent-replay-attack)} return

    if {![info exists body]} return

    if {![catch {ssj::signed:output $xlib $body $to} cdata] && $cdata ne ""} {

        set timestamp [clock format [clock seconds] \
                                    -format "%Y%m%dT%TZ" -gmt true]
        if {$body ne ""} {
            set body " $body"
        }
        set body "\[[::xmpp::jid::removeResource [connection_jid $xlib]],\
                  $timestamp\]$body"
    }
    return
}

hook::add rewrite_outgoing_message_hook ::ssj::add_timestamp 5

proc ::ssj::sign_encrypt_body \