The implementation of the voice menu on perl via usb modem Huawei e1550

Most recently, I wrote a post in which I gave a little theory, and described the practical implementation of a script that makes voice calls (alerts) of subscribers on the list via the Hyundai e1550 usb modem. In one of the comments, a question was asked about how to get data on pressing buttons on a subscriber’s phone during a voice connection. A detailed study of this issue led to the creation of this post.

This article will present the implementation of the voice menu, with the functions of:
- recording a voice message
- executing system commands.
All this has become possible thanks to the implementation of the DTMF decoder of signals based on Goertzel's algorithm.
As a bonus - an archive of the voice menu sources.


Development environment


operating system: Linux
Distribution: openSUSE 12.3
Kernel: 3.7.10-1.16-desktop # 1 SMP PREEMPT Fri May 31 20:21:23 UTC 2013 (97c14ba) i686 i686 i386 GNU / Linux
Programming language: Perl
usb modem: Huawei e1550

Let's get started


The implementation contains the following files and folders:
1. voice_menu.pl - the main script with the implementation of the voice menu functions
2. dtmf_decoder.pm - dtmf decoding module (pressing the phone buttons in tone dialing mode)
3. menu.01.pl - contains a description of the voice menu
4. menu.01 - folder with audio files for menu.01.pl
5. messages - folder with recordings of voice messages
voice_menu.pl
#!/usr/bin/perl

use v5.16;              # использовать версию Perl не ниже указанной
use strict;             # включить дополнительные проверки
use warnings;           # и расширенную диагностику
use diagnostics;        # выводить подробную диагностику ошибок
use utf8;
use locale;
no warnings 'utf8';

# подключаем модуль Time::HiRes и импортируем
# в текущее пространство имен функцию sleep
# особенность данной функции - возможность указывать
# задержку меньше секунды
use Time::HiRes qw(sleep usleep gettimeofday);

# подключаем модуль dtmf_decoder
use dtmf_decoder;


# Для информации:
# Сообщения типа CEND выдаются модемом при завершении вызова
# и содержат в себе информацию о вызове, о причине завершения вызова
# и о состоянии устройства.
# формат вывода ^CEND:call_index, duration, end_status, cc_cause
# где:
# call_index - уникальный идентификатор вызова
# duration - длительность вызова в секундах
# end_status - код статуса устройства после завершения вызова
# cc_cause - код причины завершения вызова

# при подключении модема к компьютеру с OS Linux
# создаются 3 usb интерфейса для обмена данными с модемом
# обычно это:
# /dev/ttyUSB0 - командный интерфейс модема
# /dev/ttyUSB1 - голосовой(при включенном голосовом режиме) интерфейс модема
# /dev/ttyUSB2 - командный интерфейс модема. Отличается от /dev/ttyUSB0 тем
# что с него можно читать не только ответы модема на команды, а также служебные
# сообщения. Такие как данные о качестве сигнала, вывод ^CEND и прочее

# указываем порт для отсылки модему звука
my $VOICE_PORT = "/dev/ttyUSB4";

# указываем порт для подачи модему команд
my $COMMAND_PORT = "/dev/ttyUSB5";

# устанавливаем в:
# 0 - чтобы отключить вывод отладочной информации
# 1 - чтобы включить вывод отладочной информации
my $VERBOSE = 0;

# Открываем командный порт модема на чтение и запись
open my $SENDPORT, '+<', $COMMAND_PORT or die "Can't open '$COMMAND_PORT': $!\n";

# Открываем голосовой  порт модема на чтение и запись
# чтение аудио потока из порта в данной программе не используется
# но вам ничто не мешает превратить данный скрипт в автоответчик например
open my $SENDPORT_WAV, '+<', $VOICE_PORT or die "Can't open '$VOICE_PORT': $!\n";


# вызываем функцию ожидания вызовов, которой передаются 1 параметр:
#  - имя файла с голосовым меню
expect_calls('menu.01.pl');

# по окончании обзвона закрываем все открытые файлы/порты
exit_call();



# данная функция производит обзвон абонентов по списку
sub expect_calls{
    # получаем имя файла с голосовым меню
    my $l_file = shift;

    # загружаем голосовое меню (файл menu.01.pl)
    my $menu = load_menu('menu.01.pl'); 

    # данная команда включает в модеме голосовой режим
    # один раз включив его можно удалить/заремарить
    # эту команду. Модем запомнит состояние.
    #at_send('AT^CVOICE=0'); 

    # данная команда включает в модеме отображение номера звонящего
    my $l_rec = at_send("AT+CLIP=1",qr/^(OK|ERROR)/);


    # цикл ожидания входящего звонка
    while ( ) {
        # при входящем звонке должно поступить сообщение RING
        $l_rec = at_rec(qr/^(RING)/);
        accept_call($menu);
    }
}


# данная функция производит попытку вызова указного номера
# и в случае успеха - транслирует голосовое сообщение
sub accept_call{
    my $menu = shift;

    # в этом массиве хранится стtк перемещений по меню
    my $position = [$menu];

    # текущее меню
    my $cmenu = $position->[0];

    my %call_info = ();
    # запоминаем время начала
    $call_info{start_time} = time;
    # ждем сообщения с номером телефона звонящего абонента #+CLIP: "+79117654321",145,,,,0
    $call_info{phone} = at_rec(qr/^\+CLIP\: \"(\+\d+)/);
    $call_info{phone} =~s/^\+\d//;
    # генерим имя файла для записи
    $call_info{record_fname} = "phone_$call_info{phone}.time_$call_info{start_time}";

    # принимаем входящий вызов
    my $l_rec = at_send("ATA",qr/^(OK|ERROR)/);
    return 0 if $l_rec eq "ERROR";

    # ожидаем установления соединения
    $l_rec = at_rec(qr/^\^??(CONN\:1|CEND\:|ERROR)/);
    return 0 if $l_rec ne "CONN:1";

    # переключаем модем в режим приема/передачи голоса
    # OK - переключение прошло успешно
    # ERROR - переключение не произведено
    # CEND:.... - абонент недоступен, занят или сбросил вызов
    $l_rec = at_send('AT^DDSETEX=2',qr/(OK|ERROR|CEND\:)/);
    return 0 if $l_rec ne "OK";

    # Если дошли до сюда - значит вызов установлен
    # Звук модему и от него передается порциями по 320 байт каждые 0.02 секунды
    print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \t"."Вызов принят.\n";

    my $checker = 0;

    my $dtmf = 0;

    # буфер для входящих аудиоданных данных
    my $snd_in;
    
    # буфер для исходящих аудиоданных данных
    my $snd_out = $cmenu->{info_voice};
    my $snd_count = 0;
    my $snd_max = scalar @{$snd_out};

    # открываем файл для записи входящего аудиопотока
    my $l_fh = new IO::File "> ./messages/$call_info{record_fname}.raw" or die "Cannot open $call_info{record_fname}.raw : $!";
    binmode($l_fh);

    # Устанавливаем служебную переменную $| в единицу это отключает буферизацию.
    # Таким образом данные в звуковой порт будут отправляться незамедлительно.
    $|=1;

    # проигрываем приветствие
    #play_voice($snd_out);

    # запоминаем время для отсчета 0.02 секунд
    my $before = gettimeofday;

    # основной цикл голосового меню
    while (){
        if ($snd_count == $snd_max) {
            if ($cmenu->{record}==1){
                    $snd_out = $menu->{standart_messages}{null}{title_voice};
                    $snd_max = scalar @{$snd_out};
                    $cmenu->{record}=2;
                    print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tПроизводится запись голосового сообщения в [./messages/$call_info{record_fname}.raw].\n";
            }

            $snd_count = 0;
        }

        syswrite  $SENDPORT_WAV, $snd_out->[$snd_count] , 320;

        sysread $SENDPORT_WAV, $snd_in, 320;
        syswrite  $l_fh, $snd_in, 320 if $cmenu->{record} && $cmenu->{record} == 2;

        $dtmf = dtmf_sample($snd_in);

        if ($dtmf) {
            #print "time: [$call_info{start_time}] \tphone: [$call_info{phoe}] \tНажата кнопка [$dtmf].\n";
            if ($dtmf eq '#') {
                print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tВыбран возврат в главное меню.\n";
                $position = [$menu];
                $cmenu = $position->[0];
                $snd_out = $menu->{info_voice};
                $snd_count = 0;
                $snd_max = scalar @{$snd_out};
            } elsif ($dtmf eq '*') {
                if ((scalar @{$position}) > 1) {
                    print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tВыбран возврат в предыдущее меню.\n";
                    shift @{$position};
                    $cmenu = $position->[0];
                    $snd_out = $cmenu->{info_voice};
                    $snd_count = 0;
                    $snd_max = scalar @{$snd_out};
                }
            } elsif ($cmenu->{menu}) {
                if ($cmenu->{menu}{$dtmf}) {
                    $cmenu = $cmenu->{menu}{$dtmf};
                    print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tВыбран пункт меню [$cmenu->{title}].\n";
                    unshift @{$position}, $cmenu;
                    $snd_out = $cmenu->{info_voice};
                    $snd_count = 0;
                    $snd_max = scalar @{$snd_out};
                    if ($cmenu->{command}) {
                        print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tВыполнена команда [$cmenu->{command}].\n";
                        system "$cmenu->{command} &";
                    }
                } 
            }
        }

        # мониторим состояние звонка
        if ($checker==10) {
            $l_rec = at_send("AT+CLCC",qr/^\^??(OK|ERROR|CEND)/);
            # выходим если сброшен
            if ($l_rec eq "CEND") {
                print "time: [$call_info{start_time}] \tphone: [$call_info{phone}] \tВызов завершен.\n";
                return 0
            }
            $checker=0;
        }

        # ряд управляющих циклом переменных
        $dtmf=0;
        $checker++;
        $snd_count++;

        # ожидаем остаток времени
        while( gettimeofday-$before < 0.02 ) { }
        $before = gettimeofday;
    }

    # Вешаем трубку.
    at_send('AT+CHUP');

    # закрываем файл с полученным сообщением
    close $l_fh;
}

sub play_voice{
    my $voice = shift;
    my $count = shift || 1;
    while ($count) {
        for my $sampe (@{$voice}){
            syswrite  $SENDPORT_WAV, $sampe, 320;
            #sleep(0.02);
            my $before = gettimeofday;
            while( gettimeofday-$before < 0.02 ) { }
        }
        $count--;
    }
}

# данная функция загружает голосовое меню
sub load_menu{
    my $l_file_name = shift;
    my %voice_menu = do $l_file_name;
    $voice_menu{standart_messages}{null}{title_voice} = load_voice($voice_menu{standart_messages}{null}{title_voice_fname});
    $voice_menu{standart_messages}{back}{title_voice} = load_voice($voice_menu{standart_messages}{back}{title_voice_fname});
    $voice_menu{standart_messages}{back_to_main}{title_voice} = load_voice($voice_menu{title_voice_fname});
    load_menu_voices(\%voice_menu,$voice_menu{standart_messages});
    return \%voice_menu;
}

# данная функция загружает аудиофайлы голосового меню
sub load_menu_voices{
    my $menu = shift;
    my $standart_messages = shift;
    $menu->{info_voice} = load_voice($menu->{info_voice_fname});
    for my $key (sort {$a <=> $b} keys %{$menu->{menu}}){
        my $cur = $menu->{menu}{$key};
        my $sub_voice = load_menu_voices($cur,$standart_messages);
        $menu->{info_voice} = [@{$menu->{info_voice}},@{$sub_voice}];
    }
    $menu->{info_voice} = [ @{$menu->{info_voice}},
                            @{$standart_messages->{back}{title_voice}},
                            @{$standart_messages->{back_to_main}{title_voice}},
                            @{$standart_messages->{null}{title_voice}},
                            @{$standart_messages->{null}{title_voice}}
                          ];
    return load_voice($menu->{title_voice_fname});
}

# данная функция загружает голосовое сообщение в массив кусками по 320 байт
# принимает 1 параметр - имя файла
# формат звуковых данных - pcm, моно, 8000 кГц, 16 бит, signed
sub load_voice{
    my $l_file_name = shift;
    print "FILENAME: [$l_file_name]\n";
    my $l_fh = new IO::File "< $l_file_name" or die "Cannot open $l_file_name : $!";
    binmode($l_fh);
    my @l_bufer = ();
    my $i=0;
    while (read($l_fh,$l_bufer[$i],320)) { $i++; }
    close $l_fh;
    return \@l_bufer;
}


# данная функция отправляет команду в командный порт модема
# и ждет ответа указанного в регулярном выражении
# принимает 2 параметра:
# 1-й - команда
# 2-й - регулярное выражение описывающее варианты ожидаемых ответов (по умолчанию OK)
sub at_send{
    my $l_cmd = shift;
    my $l_rx = shift || qr/(OK)/;
    print $SENDPORT "$l_cmd\r";
    print "SEND: [$l_cmd]\n" if $VERBOSE;
    return at_rec($l_rx);
}


# данная функция ждет от модема ответа указанного в регулярном выражении 
# принимает 1 параметра - регулярное выражение описывающее варианты ожидаемых ответов (по умолчанию OK)
sub at_rec{
    my $l_rx = shift || qr/OK/;
    my $recive='';
    #print "white: [$l_rx]\n";
    until ( $recive=~$l_rx ) {
	   $recive=<$SENDPORT>;
	   $recive=~s/[\n\r]+//msg;
	   print "RECIVE: [$recive]\n" if $VERBOSE && $recive;
    }
    $recive=~$l_rx;
    print "END RECIVE: [$recive] [$1] [$l_rx]\n" if $VERBOSE;
    return $1;
}


# данная функция закрывает ранее открытые порты модема
sub exit_call{
    print "ОПОВЕЩЕНИЕ ОКОНЧЕНО\n";
    close $SENDPORT_WAV;
    at_send('AT+CHUP');
    close $SENDPORT;
}


dtmf_decoder.pm
# модуль: dtmf_detect
# автор:  lastuniverse
# за основу взят Си код Mr. Blue:
#   http://www.phrack.org/issues.html?issue=50&id=13
# данный модуль содержит реализацию алгоритма Гёрцеля 
#   http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D0%93%D1%91%D1%80%D1%86%D0%B5%D0%BB%D1%8F
#   http://www.dsplib.ru/content/goertzel/goertzel.html

use v5.16;              # использовать версию Perl не ниже указанной
use strict;             # включить дополнительные проверки
use warnings;           # и расширенную диагностику
use diagnostics;        # выводить подробную диагностику ошибок
use utf8;
use locale;

package dtmf_decoder;   # указываем новое пространство имен

require Exporter;               # загрузить стандартный модуль Exporter
our @ISA = qw(Exporter);        # неизвестные имена искать в нем


our @EXPORT = qw(dtmf_sample dtmf_clear);   # имена, экспортируемые по умолчанию
our @EXPORT_OK = qw(_recalc );              # имена, экспортируемые по запросу

# в этом хэш массиве будем хранить все наши настройки и данные
my %o = (
  # хэш массив в котором будут храниться рассчитанные коэффициенты
  # необходимые для работы алгоритма Гёрцеля
  f => {
    '697' => { K => 0, C => 0 },
    '770' => { K => 0, C => 0 },
    '852' => { K => 0, C => 0 },
    '941' => { K => 0, C => 0 },
    '1209' => { K => 0, C => 0 },
    '1336' => { K => 0, C => 0 },
    '1477' => { K => 0, C => 0 },
    '1633' => { K => 0, C => 0 },
  },
  # список частот строк и столбцов таблицы dtmf сигналов
  #          1209 Гц   1336 Гц   1477 Гц   1633 Гц
  # 697 Гц   1         2         3         A 
  # 770 Гц   4         5         6         B
  # 852 Гц   7         8         9         C
  # 941 Гц   *         0         #         D   
  rf => [ '697', '770', '852', '941' ],
  cf => [ '1209', '1336', '1477', '1633' ],
  # Вспомогательный хэш массив для определения номера dtmf сигнала
  dtmf => {
    '697' => { '1209' => 1, '1336' => 2, '1477' => 3, '1633' => 4 },
    '770' => { '1209' => 5, '1336' => 6, '1477' => 7, '1633' => 8  },
    '852' => { '1209' => 9, '1336' => 10, '1477' => 11, '1633' => 12  },
    '941' => { '1209' => 13, '1336' => 14, '1477' => 15, '1633' => 16  },
  },
  # Список наименований dtmf сигналов (входным параметром является 
  # значение из вспомогательного массива dtmf)
  # выходным - наименование нажатой кгнопки
  info => ['NONE', '1', '2', '3', 'A', '4', '5', '6', 'B', '7', '8', '9', 'C', '*', '0', '#', 'D'],
  # далее идут параметры используемые для работы алгоритма
  tones => 0,   # рассчитывается. содержит количество обрабатываемых частот
  rate => 8000, # частота оцифровки обрабатываемого сигнала
  len => 100,   # количество оцифровок обрабатываемых за раз
                # значение выбрано из расчета обработать за раз пакет из 320 байт
                # считанных из аудио порта модема (2 байта на 1 оцифровку) 
                # (уменьшил до 100 для увеличения скорости обработки)
  range => 0.15,      # используется для приведения значений максимальной мощности
  thresh => 99999999, # используется для отсекания сигналов с мощностью меньше указанной
  mincount => 4,      # минимальное количество пакетов в которых фиксируется нажатие кнопки
                      # для того чтобы алгоритм считал кнопку нажатой
                      # range, thresh и mincount подбирались опытным путем и тестировались
                      # нескольких десятков звуковых файлов содержащих dtmf сигналы и посторонние
                      # шумовые эффекты.

  debug => 0,     # включает вывод отладочной информации 

  # хэш массив содержащий временные данные работы алгоритма
  t => {
    mincount => 0,
    sample => [],
    power =>  {},
    maxpower => 0,
    thresh => 0,
    on    =>  {},
    last_dtmf => ''
  }
);

# данная функция производит предварительный расчет коэффициентов необходимых для работы алгоритма
sub _recalc {
  $o{tones} = scalar keys %{$o{f}};
  for my $f (sort { $a <=> $b } keys %{$o{f}}) {
    $o{f}{$f}{K} = $o{len} * $f / $o{rate};
    $o{f}{$f}{C} = 2.0 * cos( 2.0 * 3.14159265 * $o{f}{$f}{K} / $o{len} );
    print "COEFF: [$f] \t[$o{f}{$f}{K}] \t[$o{f}{$f}{C}]\n" if $o{debug};
  }
}

# данная функция производит предварительный расчет мощностей гармоник (указанных частот)
sub _calc_power {
  my $freq_list = shift;
  my @fk = @{$freq_list};
  my %ff = %{$o{f}};
  my %fp = %{$o{t}{power}};

  my %u0 = ();
  my %u1 = ();
  my $t  = 0.0;
  my $in = 0.0;
  my $i  = 0;

  for my $f (@fk) {
    $u0{$f} = 0.0;
    $u1{$f} = 0.0;
  }

  while ($i<$o{len}) {   # feedback
    $in = $o{t}{sample}[$i] || 0; # >> 7;
    for my $f (@fk) {
      $t = $u0{$f};
      $u0{$f} = $in + $ff{$f}{C} * $u0{$f} - $u1{$f};
      $u1{$f} = $t;
    }
    $i++;
  }

  print "MAXPOWER: [" if $o{debug} > 1;
  for my $f (@fk) {
    $o{t}{power}{$f} = $u0{$f} * $u0{$f} + $u1{$f} * $u1{$f} - $ff{$f}{C} * $u0{$f} * $u1{$f}; 
    $o{t}{maxpower} = $o{t}{power}{$f} if $o{t}{power}{$f} > $o{t}{maxpower};
    print "$o{t}{maxpower}, " if $o{debug} > 1;
  }
  print "]\n" if $o{debug} > 1;
}

# данная функция отсекает пакеты с мощьностью сигнала ниже $o{t}{maxpower}
# расчитывает проходной уровень мощности для частот
# и фиксирует частоты уровень мощности которых выше проходного в массиве $o{t}{on}{$f}
sub _midle_calc {
  my $freq_list = shift;
  my @fl = @{$freq_list};
  _calc_power($freq_list);

  return 0 if $o{t}{maxpower} < $o{thresh};
  $o{t}{thresh} = $o{range}  * $o{t}{maxpower};
  
  my $on_count = 0;
  for my $f (@fl) {
    if ($o{t}{power}{$f} > $o{t}{thresh}) {
      $o{t}{on}{$f} = 1;
      $on_count++;
    } else {
      $o{t}{on}{$f} = 0;
    }
    
  }
  return $on_count;
}

# данная функция производит проверку наличия 2-х частот в обработанном пакете
# 1-й частоты из группы частот означающих номер строки из таблицы dtmf
# и 1-й частоты из группы частот означающих номер колонки из таблицы dtmf
# если проверка пройдена - возвращает значение из массива dtmf (номер)
sub _decode {
  my $row_count = _midle_calc($o{rf});
  return 0 unless $row_count;

  my $col_count += _midle_calc($o{cf});
  return 0 unless $col_count;
  return 0 unless $row_count == 1 && $col_count == 1;
  for my $dtmf (@{$o{rf}}) {
    if ($o{t}{on}{$dtmf}) {
      for my $f (@{$o{cf}}) {
        return $o{dtmf}{$dtmf}{$f} if $o{t}{on}{$f};
      }
    }
  }
  #return 0 if $on_count == 0;
  return 0; 
}

# данная функция производит финальную проверку наличия dtmf сигнала
# основываясь на его длительности (mincount) отсекая случайные срабатывания
# и возвращает название нажатой кнопки из массива info
sub _analise {
  my $x = _decode();
  _sample_clear();
  #return $x;

  if ($x && $x == $o{t}{last_dtmf}){
    $o{t}{mincount}++;
  } else {
    if ( $o{t}{last_dtmf} && $x != $o{t}{last_dtmf} ) {
      if ($o{t}{mincount} >= $o{mincount}){
        my $r = $o{t}{last_dtmf};
        $o{t}{last_dtmf} = $x;
        return $r;
      }
    }
    $o{t}{mincount} = 0;
  }
  
  $o{t}{last_dtmf} = $x;
  return 0;
}

# служебная функция для отчистки результатов промежуточных расчетов
# вызывается после расчетов мощьностей для каждого пакета
sub _sample_clear {
  $o{t}{sample} = [];
  $o{t}{power} = {};
  $o{t}{maxpower} = 0;
  $o{t}{on} = {};
  $o{t}{thresh} = 0;
}

# функция для отчистки результатов промежуточных расчетов
# вызывается по завершении голосового вызова
sub dtmf_clear {
  _sample_clear();
  $o{t}{mincount} = 0;
  $o{t}{last_dtmf} = {};
}

# функция принимающая на обработку пакет аудиоданных
# и возвращающая название нажатой кнопки в случае
# обнаружения dtmf сигнала
sub dtmf_sample {
  my $_ = shift;
  my @a = unpack("s$o{len}");
  $o{t}{sample} = \@a;
  my $x = _analise(); 
  print "DTMF: [".$o{info}[$x]."]\n" if $x; #&& $o{debug};
  return $o{info}[$x] if $x;

}

# производим расчет коэффициентов по умолчанию при подключении модуля
_recalc();

1;


menu.01.pl
use utf8;
use locale;
(
	standart_messages => {
		back => {
			title => "возврат в предыдущее меню", # заноситься в лог
			title_voice_fname	=> "./menu.01/back.raw" # озвучка при выборе меню (для возврата в предыдущее меню нажмите *)
		},
		null => {
			title_voice_fname	=> "./menu.01/null.raw" # озвучка при выборе меню (для возврата в предыдущее меню нажмите *)
		}
	},
	title => "главное меню", # заноситься в лог
	info_voice_fname	=> "./menu.01/main.menu.info.raw",	# озвучка при входе в меню	(вы находитесь в главном меню компании бла-бла-бла)
	title_voice_fname	=> "./menu.01/main.menu.title.raw",       # озвучка при выборе меню (для возврата в главное меню нажмите #)
	menu => {
		'1' => {
			title => "о нас", # заноситься в лог
			info_voice_fname	=> "./menu.01/sub.menu.1.info.raw",	# озвучка при входе в меню	(наша компания занимается предоставлением услуг в сфере бла-бла-бла)
			title_voice_fname	=> "./menu.01/sub.menu.1.title.raw"       # озвучка при выборе меню (если вы хотите узнать больше о нашей компании нажмите 1)
		},
		'2' => {
			title => "наши услуги", # заноситься в лог
			info_voice_fname	=> "./menu.01/sub.menu.2.info.raw",	# озвучка при входе в меню	(вы находитесь в меню - наши услуги)
			title_voice_fname	=> "./menu.01/sub.menu.2.title.raw",      # озвучка при выборе меню (если вы хотите ознакомиться с предоставляемыми нами услугами нажмите 2)
			menu => {
				'1'	=> {
					title => "набить морду соседу", # заноситься в лог
					info_voice_fname	=> "./menu.01/sub.menu.2.1.info.raw",	# озвучка при входе в меню	(стоимость услуги "набить морду соседу" составляет бла-бла-бла)
					title_voice_fname	=> "./menu.01/sub.menu.2.1.title.raw"    # озвучка при выборе меню (если вы хотите ознакомиться с условиями предоставления услуги "набить морду соседу" нажмите 1)
				},
				'2'	=> {
					title => "спровадить тещу", # заноситься в лог
					info_voice_fname	=> "./menu.01/sub.menu.2.2.info.raw",	# озвучка при входе в меню	(стоимость услуги "спровадить тещу" составляет бла-бла-бла)
					title_voice_fname	=> "./menu.01/sub.menu.2.2.title.raw"    # озвучка при выборе меню (если вы хотите ознакомиться с условиями предоставления услуги "спровадить тещу" нажмите 2)
				},

			}			
		},
		'9' => {
			title => "послушать анекдот", # заноситься в лог
			info_voice_fname	=> "./menu.01/sub.menu.9.info.raw",	# озвучка при входе в меню	(анекдот)
			title_voice_fname	=> "./menu.01/sub.menu.9.title.raw"       # озвучка при выборе меню (если вы хотите послушать анекдот нажмите 9)
		},
		'8' => {
			title => "удалить голосовое меню", # заноситься в лог
			info_voice_fname	=> "./menu.01/sub.menu.8.info.raw",	# озвучка при входе в меню	(голосовое меню удалено)
			title_voice_fname	=> "./menu.01/sub.menu.8.title.raw",      # озвучка при выборе меню (если вы хотите удалить программу "голосовое меню" нажмите 8)
			command	=> 'echo "Не стоит так делать -> rm -R *"'
		},
		'7' => {
			title => "оставить голосовое сообщение", # заноситься в лог
			info_voice_fname	=> "./menu.01/sub.menu.7.info.raw",	# озвучка при входе в меню	(вы можете оставить ваше сообщение после гудка)
			title_voice_fname	=> "./menu.01/sub.menu.7.title.raw",      # озвучка при выборе меню (если вы хотите оставить голосовое сообщение нажмите 7)
			record	=> 1
		}
	}
);


Promised Bonus

by popular demand, I uploaded all the available developments on the topic of the article on github.
If you find errors, write in a personal letter, I will correct it.