Биллинговая система Nodeny

#ee /usr/local/nodeny/web/lang/_RU_cap.pl
package lang::cap;
# M-P~UM-Q~AM-PM-;M-PM-8 M-PM-:M-Q~@M-PM-8M-Q~BM-PM-8M-Q~GM-PM-5M-Q~AM-PM-:M-PM-0M-Q~O M-PM->M-Q~HM-PM-8M-PM-1M-PM-:M-PM-0, M-Q~BM-PM-> M-PM-=M-PM-5 M-PM-8M-PM-7M-PM-2M-PM-5M-Q~
$fatal_error = <<TXT;
<p>M-P~TM-PM->M-Q~AM-Q~BM-Q~CM-PM-? M-PM-2 M-PM-8M-PM-=M-Q~BM-PM-5M-Q~@M-PM-=M-PM-5M-Q~B M-PM-7M-PM-0M-PM-1M-PM-;M-PM->M-PM-:M-PM-8M-Q~@M-PM->M-PM-2M-PM-0M-PM-=. M-P~RM-PM->M-PM
<p><ul>
<li>M-P~]M-PM-5M-PM-4M-PM->M-Q~AM-Q~BM-PM-0M-Q~BM-PM->M-Q~GM-PM-=M-PM-> M-Q~DM-PM-8M-PM-=M-PM-0M-PM-=M-Q~AM-PM->M-PM-2 M-PM-=M-PM-0 M-Q~AM-Q~GM-PM-5M-Q~BM-Q~C</li>
<li>M-P~RM-Q~K M-PM-=M-PM-5 M-PM-0M-PM-2M-Q~BM-PM->M-Q~@M-PM-8M-PM-7M-PM->M-PM-2M-PM-0M-PM-=M-Q~K</li>
<li>M-P~]M-PM-0M-Q~AM-Q~BM-Q~@M-PM->M-PM-9M-PM-:M-PM-8 M-PM-2M-PM-0M-Q~HM-PM-5M-PM-3M-PM-> M-Q~AM-PM-5M-Q~BM-PM-5M-PM-2M-PM->M-PM-3M-PM-> M-Q~AM-PM->M-PM-5M-PM-4M-PM-8M-PM-=M-PM
</ul></p>
TXT

# M-P~RM-Q~KM-PM-2M-PM->M-PM-4M-PM-8M-Q~BM-Q~AM-Q~O M-PM-:M-PM->M-PM-3M-PM-4M-PM-0 ip M-PM-=M-PM-5 M-Q~AM-Q~CM-Q~IM-PM-5M-Q~AM-Q~BM-PM-2M-Q~CM-PM-5M-Q~B M-PM-2 ip_pool M-PM-;M-P
# M-PM-:M-PM-;M-PM-8M-PM-5M-PM-=M-Q~B M-PM-=M-PM-8M-PM-:M-PM->M-PM-3M-PM-4M-PM-0 M-PM-=M-PM-5 M-PM-?M-Q~@M-PM-8M-PM-7M-PM-=M-PM-0M-PM-5M-Q~BM-Q~AM-Q~O, M-Q~GM-Q~BM-PM-> M-Q~AM-P
$wrong_ip = <<TXT;
<div class='normal_width'>
<p>M-P~TM-PM->M-Q~AM-Q~BM-Q~CM-PM-? M-PM-2 M-PM-8M-PM-=M-Q~BM-PM-5M-Q~@M-PM-=M-PM-5M-Q~B M-PM->M-Q~BM-Q~AM-Q~CM-Q~BM-Q~AM-Q~BM-PM-2M-Q~CM-PM-5M-Q~B.</p>

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-?M-PM->M-PM-;M-Q~LM-PM-7M-Q~CM-PM-5M-Q~BM-PM-5M-Q~AM-Q~L M-PM-?M-Q~@M-PM->M-PM-3M-Q~@M-PM-0M-PM-<M-PM-<M-PM->M-PM-9 M-PM-0M-PM-2M-Q~BM
M-PM->M-PM-=M-PM-8 M-PM-1M-Q~KM-PM-;M-PM-8 M-PM-8M-PM-7M-PM-<M-PM-5M-PM-=M-PM-5M-PM-=M-Q~K, M-PM-=M-PM-0M-PM-?M-Q~@M-PM-8M-PM-<M-PM-5M-Q~@, M-PM-:M-PM-0M-PM-:M-PM->M-PM-9-M-PM-;
M-BM-+M-P~_M-PM-0M-PM-=M-PM-5M-PM-;M-Q~L M-Q~CM-PM-?M-Q~@M-PM-0M-PM-2M-PM-;M-PM-5M-PM-=M-PM-8M-Q~OM-BM-; &rarr; M-BM-+M-P~_M-Q~@M-PM->M-Q~AM-PM-<M-PM->M-Q~BM-Q~@ M-Q~AM-PM->M-Q~
M-PM-=M-PM-0M-PM-6M-PM-<M-PM-8M-Q~BM-PM-5 M-PM-?M-Q~@M-PM-0M-PM-2M-Q~CM-Q~N M-PM-:M-PM-=M-PM->M-PM-?M-PM-:M-Q~C M-PM-<M-Q~KM-Q~HM-PM-8 M-PM-=M-PM-0 M-BM-+M-P~_M-PM->M-PM-4M-PM-:
M-PM-<M-Q~KM-Q~HM-PM-8 M-PM-=M-PM-0 M-BM-+M-P~_M-Q~@M-PM->M-Q~BM-PM->M-PM-:M-PM->M-PM-; M-PM-8M-PM-=M-Q~BM-PM-5M-Q~@M-PM-=M-PM-5M-Q~BM-PM-0 M-PM-2M-PM-5M-Q~@M-Q~AM-PM-8M-PM-8 4M

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-=M-PM-5 M-PM-?M-PM->M-PM-;M-Q~LM-PM-7M-Q~CM-PM-5M-Q~BM-PM-5M-Q~AM-Q~L M-PM-?M-Q~@M-PM->M-PM-3M-Q~@M-PM-0M-PM-<M-PM-<M-PM->M-PM-9 M-PM-
M-PM-?M-Q~@M-PM->M-PM-2M-PM-5M-Q~@M-Q~LM-Q~BM-PM-5, M-Q~GM-Q~BM-PM-> M-PM->M-PM-=M-PM-> (M-Q~AM-PM->M-PM-5M-PM-4M-PM-8M-PM-=M-PM-5M-PM-=M-PM-8M-PM-5) M-PM-7M-PM-0M-PM-?M-Q~CM-Q~

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-?M-PM->M-PM-4M-PM-:M-PM-;M-Q~NM-Q~GM-PM-5M-PM-=M-Q~K M-Q~GM-PM-5M-Q~@M-PM-5M-PM-7 M-PM-2M-PM-0M-Q~H M-PM-;M-PM-8M-Q~GM-PM-=M-Q~KM-PM-9

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-=M-PM-8M-Q~GM-PM-5M-PM-3M-PM-> M-PM-=M-PM-5 M-PM-?M-PM->M-PM-<M-PM->M-PM-3M-PM-0M-PM-5M-Q~B, M-PM-?M-PM->M-PM-7M-PM-2M-PM->M-PM-=M-PM-8M-Q~BM-PM-5
</div>
TXT

$no_auth = <<TXT;
<div class='normal_width'>
<p>M-P~TM-PM->M-Q~AM-Q~BM-Q~CM-PM-? M-PM-2 M-PM-8M-PM-=M-Q~BM-PM-5M-Q~@M-PM-=M-PM-5M-Q~B M-PM->M-Q~BM-Q~AM-Q~CM-Q~BM-Q~AM-Q~BM-PM-2M-Q~CM-PM-5M-Q~B M-Q~B.M-PM-:. M-PM-2M-Q~K M-P

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-?M-PM->M-PM-;M-Q~LM-PM-7M-Q~CM-PM-5M-Q~BM-PM-5M-Q~AM-Q~L M-PM-?M-Q~@M-PM->M-PM-3M-Q~@M-PM-0M-PM-<M-PM-<M-PM->M-PM-9 M-PM-0M-PM-2M-Q~BM
M-PM-2M-PM-5M-Q~@M-PM->M-Q~OM-Q~BM-PM-=M-PM->, M-PM-:M-PM-0M-PM-:M-PM-0M-Q~O-M-Q~BM-PM-> M-PM-?M-Q~@M-PM->M-PM-3M-Q~@M-PM-0M-PM-<M-PM-<M-PM-0 M-PM-1M-PM-;M-PM->M-PM-:M-PM-8M-Q~@
M-PM-4M-PM-;M-Q~O M-PM-7M-PM-0M-Q~IM-PM-8M-Q~BM-Q~K (M-PM-0M-PM-=M-Q~BM-PM-8M-PM-2M-PM-8M-Q~@M-Q~CM-Q~AM-Q~K, M-Q~DM-PM-0M-PM-5M-Q~@M-PM-2M-PM->M-PM-;M-Q~K).</p>

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-=M-PM-5 M-PM-?M-PM->M-PM-;M-Q~LM-PM-7M-Q~CM-PM-5M-Q~BM-PM-5M-Q~AM-Q~L M-PM-?M-Q~@M-PM->M-PM-3M-Q~@M-PM-0M-PM-<M-PM-<M-PM->M-PM-9 M-PM-

<p>M-P~UM-Q~AM-PM-;M-PM-8 M-PM-2M-Q~K M-PM-?M-PM->M-PM-4M-PM-:M-PM-;M-Q~NM-Q~GM-PM-5M-PM-=M-Q~K M-Q~GM-PM-5M-Q~@M-PM-5M-PM-7 M-PM-2M-PM-0M-Q~H M-PM-;M-PM-8M-Q~GM-PM-=M-Q~KM-PM-9

<p>M-P~]M-PM-0M-PM-:M-PM->M-PM-=M-PM-5M-Q~F, M-PM-2M-PM->M-PM-7M-PM-<M-PM->M-PM-6M-PM-=M-PM->, M-PM-0M-PM-2M-Q~BM-PM->M-Q~@M-PM-8M-PM-7M-PM-0M-Q~FM-PM-8M-Q~O M-PM-5M-Q~IM-PM-5 M
</div>
TXT
file "_RU_cap.pl", 88 lines, read only

cat /usr/local/nodeny/web/lang/_RU_cap.pl
 package lang::cap;
# Если критическая ошибка, то не известна причина отсутствия доступа в инет.
$fatal_error = <<TXT;
<p>Доступ в интернет заблокирован. Возможные причины:</p>
<p><ul>
<li>Недостаточно финансов на счету</li>
<li>Вы не авторизованы</li>
<li>Настройки вашего сетевого соединения некорректны</li>
</ul></p>
TXT

# Выводится когда ip не существует в ip_pool либо не привязан никакому клиенту.
# клиент никогда не признается, что сам изменил сетевые настройки, поэтому скажем, что "какая-то программа" изменила
$wrong_ip = <<TXT;
<div class='normal_width'>
<p>Доступ в интернет отсутствует.</p>

<p>Если вы пользуетесь программой авторизатором, то причина в сетевых настройках вашего компьютера. Возможно,
они были изменены, например, какой-либо программой. Зайдите в
«Панель управления» &rarr; «Просмотр состояния сети и задач» &rarr; «Изменение параметров адаптера»,
нажмите правую кнопку мыши на «Подключение по локальной сети», выберите пункт меню «свойства», затем двойной щелчок
мыши на «Протокол интернета версии 4». Проверьте корректность заполнения согласно бланку настроек.</p>

<p>Если вы не пользуетесь программой авторизатором, а запускаете ярлык «Высокоскоростное соединение»,
проверьте, что оно (соединение) запущено.</li>

<p>Если вы подключены через ваш личный роутер, возможно его необходимо перезагрузить.</li>

<p>Если ничего не помогает, позвоните в службу техподдержки и сообщите ей свой ip адрес: [b]</p>
</div>
TXT

$no_auth = <<TXT;
<div class='normal_width'>
<p>Доступ в интернет отсутствует т.к. вы не авторизованы.</p>

<p>Если вы пользуетесь программой авторизатором, запустите ее. Если авторизатор запущен, но ключик черного цвета -
вероятно, какая-то программа блокирует его работу. Попробуйте временно отключить программы, которые вы установили
для защиты (антивирусы, фаерволы).</p>

<p>Если вы не пользуетесь программой авторизатором, запустите ярлык «Высокоскоростное соединение».</li>

<p>Если вы подключены через ваш личный роутер, возможно его необходимо перезагрузить.</li>

<p>Наконец, возможно, авторизация еще не завершена и произойдет с секунды на секунду.</li>
</div>
TXT

$state_off = <<TXT;
<div class='normal_width'>
<p>Доступ в интернет заблокирован. Вероятно, на вашем счете недостаточно денег.
 <a href='xxxl'>Проверьте баланс</a>.</p>

<p>Пополнить счет можно:</p>

<p><ul>
<li>Карточкой пополнения счета (магазин на Гидропарковой между 11 и 15 домом, магазин на Бр.Трофимовых 241а).</li>
<li>Наличными в терминале. Для этого сперва необходимо создать заявку в
    <a href='xxxx'>клиентской статистике.</a></li>
<li>Попросить вашего знакомого в сети перевести часть положительного остатка с его счета на ваш счет.</li>
<li>Взять кредит в
    <a href='xxxx'>клиентской статистике.</a></li>
</ul></p>
</div>
TXT

$no_inet = <<TXT;
<div class='normal_width'>
<p>Доступ в интернет отсутствует т.к. у вас не подключена услуга, дающая доступ в интернет
Зайдите в клиентскую статистику и подключите ее.</p>
</div>
TXT

$ok = <<TXT;
<div class='normal_width'>
<p>Доступ в интернет открыт. В адресной строке введите нужный вам сайт.</p>
</div>
TXT

$read_msg = <<TXT;
<div class='normal_width'>
<div class='small_msg txtpadding big'>[]</div>
<div class='h_center'>
</div>
TXT

$msg_accept = 'Прочитал внимательно';
1;

#!/bin/sh

VER=`/usr/bin/uname -r`
echo -n "Enter the username: "
read username

#/etc/login.conf
cp /etc/login.conf /etc/login.conf.orig
echo 'russian|Russian Users Accounts:\
:charset=UTF-8:\
:lang=ru_RU.UTF-8:\
:tc=default:' >> /etc/login.conf

/usr/bin/cap_mkdb /etc/login.conf

/usr/sbin/pw usermod -n "$username" -L russian

#for csh
    cp /etc/csh.cshrc /etc/csh.cshrc.orig
    echo 'setenv LANG ru_RU.UTF-8
    setenv LC_CTYPE ru_RU.UTF-8
    setenv LC_COLLATE POSIX
    setenv LC_ALL ru_RU.UTF-8' > /etc/csh.cshrc

#for bash
    cp /etc/profile /etc/profile.orig
    echo 'LANG="ru_RU.UTF-8"; export LANG
    LC_CTYPE="ru_RU.UTF-8"; export LC_CTYPE
    LC_COLLATE="POSIX"; export LC_COLLATE
    LC_ALL="ru_RU.UTF-8"; export LC_ALL' > /etc/profile

   echo "Russification of the FreeBSD $VER is completed.  Please, reboot computer."

#locale
LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_ALL=ru_RU.UTF-8

#echo $TERM
xterm