Как переслать текущий вызов Asterisk в AGI с использованием Perl? - PullRequest
3 голосов
/ 27 января 2010

У меня есть УАТС на основе звездочки, и я смог успешно запустить сценарий AGI с веб-панели управления УАТС.

Потому что я звоню в AGI из Perl (пока ничего не знаю) ...
Команды звездочки выглядят так:

    print "SET CALLERID $newcid \"\"\n";

Пока я не ожидаю необходимости каких-либо поисков в базе данных и т. Д. Я просто хочу установить идентификатор вызывающего абонента (что я уже могу сделать) - затем переадресовать вызов на определенный номер.

Может кто-нибудь показать мне, как переадресовать текущий вызов, используя стиль AGI / perl для выполнения команд звездочки, показанных выше?

К вашему сведению: я видел несколько примеров, использующих такой формат:

    Exten => blah blah....

Но я не уверен, как преобразовать это в формат AGI / perl.

1 Ответ

4 голосов
/ 27 января 2010
print "EXEC DIAL \"Zap/1/5551234567\"\n";

или, если вы используете Asterisk::AGI,

$AGI->exec("DIAL", "Zap/1/5551234567");
...