Как реализовать цикл в диалплане

Question

Здравствуйте. Есть строка вида

a1-a2;b1-b2;c1-c2;d1-d2......

Нужно пробежаться по ней в цикле. Не смог придумать ничего умнее AGI.

#!/usr/bin/perl
use Asterisk::AGI

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my @list = split(';', $input{'arg_1'});
my @token;

my $index = $AGI->get_variable('index');

if ($index < scalar(@list)) {
  @token = split('-', $list[$index]);
  $AGI->set_variable('X1', $token[0]);
  $AGI->set_variable('X2', $token[1]);
} else {
  $AGI->set_variable('break', 'true');
}

exit 0;

Диалплан

exten => _X.,1,Noop
  same => n,Set(input_string=a1-a2;b1-b2;c1-c2;d1-d2) ; строка вытягивается из БД
  same => n,Set(index=0)
  same => n,Set(break=false)
  same => n(loop),AGI(blah-blah.pl,${input_string)
  same => n,GotoIf($["${break}"="true"]?end)
  ... тут манипулируем содержимым очередного цикла итерации (X1, X2)
  same => n,Set(index=$[${index}+1])
  same => n,Goto(loop)
  same => n(end),Noop

Полностью вынести логику диалплана в AGI нельзя, но и цикл такой мне видится кривым. В первую очередь в точки зрения производительности. Как оптимально решить задачу ?

Accepted Answer

4

в астриске есть функция CUT

работает прекрасно

ораганизовываете цикл в котором просто берете следующую подстрочку.

agi не нужен.

пример я писал вот тут http://asterisk-support.ru/question/13916/dialplan-balansirovka-i-tsikl-mezhdu-trankami/#19951

а порстейший цикл с использованием cut выглядит вот так

exten => s,1,Set(var=1-2-3-4-5)
exten => s,n(loop),Set(val=${CUT(var,-,1)})
exten => s,n,Set(var=${CUT(var,-,2-)})
exten => s,n,Noop(тело цикла, переменные var=${var} val=${val})
exten => s,n,GotoIF($[ "${var}" == "" ]?end_of_loop)
exten => s,n,Goto(loop);
exten => s,n(end_of_loop),Noop(" тут пишите что дальше делать")

Чтоб понимать как в диалплане делаются такие штуки надо ознакомится с вот такой концепцией нормальный алгоритм, которая входит в курс во всех вузах ИТ профиля. собственно диалплан астриска на это крайне похож.

А еще таких примеров(правда большей частью выполненых на 3ку) полно в диалплане freepbx. Полезно его почитать.

ссылка удалить спам редактировать

ответил 2013-07-17 17:31:46 +0400

meral

23347 ● 24 ● 20 ● 177
http://pro-sip.net/

обновил 2013-07-18 00:58:08 +0400

Comments

Подскажите как, я только хотел писать вопрос и увидел этот, можно ли строку неизвестного размера например 101-102-103-104... Как то в цикле обходить и вызывать DIAL для каждого номера. Идея в том что из базы вытягивается набор сип номеров который нужно обзвонить. Вот только загвоздка в том что я не знаю заранее размера строки, есть ли способ распарсить строку неизвестного размера по заданому разделителю и получить каждый элемент этой строки для передачи функции Dial ?

godlike ( 2013-07-17 17:39:20 +0400 )редактировать

Этот способ не работает, если неизвестна длина массива на который разбивается строка. Можно попробовать, т.к. вытащить длину массива через AGI один раз это лучше, чем вызывать скрипт при каждом обходе цикла, но все равно не айс.

bb2kp ( 2013-07-17 21:44:20 +0400 )редактировать

1

крутить func POP не сработает? здесь http://www.voip-info.org/wiki/view/Asterisk+func+fieldqty

octopas ( 2013-07-17 22:02:41 +0400 )редактировать

2bbkp хз. у меня все работает. в данном примере вообще не важна длина строки.

meral ( 2013-07-18 00:33:50 +0400 )редактировать

кстати если вы не в курсе, граматика диалплана астерсика полная. тем кто не пропускал пары в универе это говорит о том, что написать можно любую задачу без внешних скриптов. хотя не всегда имеет смысл. в данном случае - имеет смысл agi не использовать.

meral ( 2013-07-18 00:42:24 +0400 )редактировать

я пока не вьехал как, но ваш скрипт действительно работает, спасибо большое за пример

godlike ( 2013-07-18 01:22:07 +0400 )редактировать

че там непонятного? он берет самый первый аргумент и строке присваивает все остальные(второй и дльше). и так пока строка не кончится.

meral ( 2013-07-18 10:27:41 +0400 )редактировать

2meral в добавлении и в качестве реторики и новичкам на заметку - по поводу полной грамматики диалплана - goto это общепризнанный анти-паттерн в программировании, используется повсеместно в астерисковском диалплане что показывает что ничего более-менее комплексного без AEL/AGI/lua для * реализовывать не рекомендуется (а с учетом того что рано или поздно грамотному админу скорее всего придется - это все равно что переучиваться с бейсика на C). смысл использовать 3 оператора где можно заменить одним ...

octopas ( 2013-07-19 00:04:02 +0400 )редактировать

давайте не путать гармматики и языки высокого уровня. диаплан - это граматика. вы бы еще посетовали что ни в одном процессоре в ассемблере нету команд типа repeat/function. а смысл использовать cut вместо pop - совместимость. но вам она не нужна, успокойтесь.

meral ( 2013-07-19 19:25:06 +0400 )редактировать

Answer 2

Вот мой код с циклом слегка модифицированный и исправленный (под 1.8): Может кому пригодиться:

exten => X.,1,Macro(inbound,101-106-109-110-125-130)

[macro-inbound]
exten => s,1,Set(i=0)
same => n(loop),Set(i=$[${i} + 1])
same => n,NoOp(${i})
same => n,Set(donow=${CUT(ARG1,-,${i})})
same => n,GotoIF($[ "${donow}" == "" ]?end)
same => n,Set(numlist=${numlist}SIP/${donow}&)
same => n,Goto(s,loop)
same => n(end),Set(nums=${numlist:0:-1})
same => n,NoOp(--------------- ${nums})
same => n,Dial(${nums},60)

Парсяться номера, и звонят одновременно.

WHILE для слабаков?
zzuz ( 2015-03-26 19:40:52 +0400 )редактировать
а чем он лучше предыдущего?
meral ( 2015-03-26 21:04:34 +0400 )редактировать
Видимо тем , что нагружен излишними переменными. Так выглядит эпичней и громадней.
zzuz ( 2015-03-27 01:13:30 +0400 )редактировать

Answer 3

0

Согласен, While всё-таки более по-человечески, а вместо CUT, функция SHIFT лучше подойдет в данном случае:

same => n,while ("${SET(var=${SHIFT(array)})}" != "")
same => n,Verobse(${var})
same => n,EndWile                               }

в ael ещё проще:

while ("${SET(var=${SHIFT(array)})}" != "") 
    { 
        Verbose(${var}); 
    }

ссылка удалить спам редактировать

ответил 2015-04-03 07:43:22 +0400

kolos
1 ● 1

обновил 2015-04-03 07:43:43 +0400

Comments

ну и нафига все это? вы когда исползуете новые конструкции, не забывайте добавить с какой версии это вообще работает. вы тут подразумеваете array, который явно явлется излишеством для задачи. и вообще на дату темы смотрели?

meral ( 2015-04-03 12:57:36 +0400 )редактировать

Как реализовать цикл в диалплане

3 Ответа

Comments

Comments

Comments

Ваш ответ

Закладки и информация

Статистика

Похожие вопросы: