[general]
 displaysystemname = no
 enabled = yes
 port = 5038
 bindaddr = 127.0.0.1
 [admin]
 secret = secret5
 deny = 0.0.0.0/0.0.0.0
 permit = 127.0.0.1/255.255.255.255
 read = all,system,call,log,verbose,command,agent,user,config
 write = all,system,call,log,verbose,command,agent,user,config

После чего можно сделать вот так

$ telnet 127.0.0.1 5038
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Asterisk Call Manager/1.0

вводим команды и после несколько раз нажимаем enter

Action: Login
ActionID: 1
Username: admin
Secret: secret5

получаем ответ

Response: Success
ActionID: 1
Message: Authentication accepted

дальше можно сделать вот так

Action: Queues
ActionID: 2

и получить ответ

supports has 0 calls (max unlimited) in 'ringall' strategy (0s holdtime), W:0, C:0, A:0, SL:0.0% within 0s
   Members:
      SIP/100 (Unavailable) has taken no calls yet
      SIP/101 (Unavailable) has taken no calls yet
      SIP/102 (Not in use) has taken no calls yet
      SIP/103 (Unavailable) has taken no calls yet
      SIP/104 (Not in use) has taken no calls yet
   No Callers

Если посмотреть список доступных функций, то открывается массу возможностей по управлению asterisk в реальном времени без редактирования конфигов. Дело за малым – найти библиотеку для работы с AMI, чтобы самому не писать обвязку для работы с TCP сокетами и т.п. Библиотек много, кажется есть почти для каждого популярного языка программирования. Я выбрал для PHP asterisk-php-api, можно скачать с google code. Напишем пример для статистики по очередям

<?php
require "AsteriskManager.php";
$params = array('server' => '127.0.0.1', 'port' => '5038');
$ast = new Net_AsteriskManager($params);
try {
    $ast->connect();
} catch (PEAR_Exception $e) {
    echo $e;
}
try {
    $ast->login('admin', 'secret5');
} catch(PEAR_Exception $e) {
    echo $e;
}
try {
    $queuestatus = $ast->getQueues();
} catch(PEAR_Exception $e) {
    echo $e;
}

echo $queuestatus;
?>

Вид конечно не очень, но все понятно, можно сделать страницу с авторефрешем и присматривать за работой очередей asterisk.

* Queues depend on the channel driver reporting the proper state
  for each member of the queue. To get proper signalling on
  queue members that use the SIP channel driver, you need to
  enable a call limit (could be set to a high value so it
  is not put into action) and also make sure that both inbound
  and outbound calls are accounted for.

  Example:
       [general]
       limitonpeer = yes
       [peername]
       type=friend
       call-limit=10

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

Теперь разобьем общую задачу на более мелкие:
1) Первым делом нужно определить, нужно ли звонку выставить более высокий приоритет
2) Выставить приоритет
3) Поставить звонок в очередь

Все эти задачи реализованы в контексте:

[queue]
exten => s,1,GotoIf(${DB_EXISTS(vipclients/${CALLERID(num)})}?setprior)
exten => s,n,Set(QUEUE_PRIO=5)
exten => s,n(gotoqueue),Queue(manager-queue)
exten => s,n,Hungup()
exten => s,n(setprior),Set(QUEUE_PRIO=10)
exten => s,n,Goto(gotoqueue)

exten => h,1,Hangup()
exten => i,1,Hangup()

В первой строчке проверяется база astdb на наличие номера в семействе vipclients (в это семейство будут помещаться номера с повышенным приоритетом). Если номер есть в базе, то звонок перекидывается к метке setprior, где выставляется более высокий приоритет, после чего звонок перекидывается в очередь (gotoqueue).

Сейчас расскажу как.

Для организации черного списка номеров в asterisk есть специальная функция BLACKLIST, функция появилась в версии 1.4 и заменила собой устаревшую LookupBlaclist().

Посмотреть описание функции можно так.

office-pbx*CLI> core show function BLACKLIST

Теперь напишем нужный dialplan

[incoming]
exten=>7495XXXXXXX,1,Answer()
exten=>7495XXXXXXX,n,GotoIf($[${BLACKLIST()}=1]?blacklist)
exten=>7495XXXXXXX,n,GoTo(call4nums,s,1)
exten=>7495XXXXXXX,n(blacklist),Hangup()
exten=>h,1,Hangup()
exten=>i,1,Hangup()

BLACKLIST() проверяет в базе данных AstDB в семействе blacklist ключ, равный Caller*ID, со значением 1. Если ключ есть и значение равно единице, то BLACKLIST() возвращает 1. Что проверяется вот этой строчкой:

exten=>7495XXXXXXX,n,GotoIf($[${BLACKLIST()}=1]?blacklist)

Если условие выполняется, то вызывается extension с пометкой blacklist

exten=>7495XXXXXXX,n(blacklist),Hangup()

Для управления черным списком можно использовать CLI:

office-pbx*CLI> database put blacklist 74957007070 1
office-pbx*CLI> database del blacklist 74957007070

Чтобы упросить себе жизнь, можно написать shell скрипт:

~ # cat /root/bin/astblacklist.sh
#!/bin/bash

function helpfunction {
  echo "astblacklist.sh [show|add|del][CALLERID]"
  echo show - show blacklist AstDB family
  echo add CALLERID - add CALLERID to blacklist
  echo del CALLERID - add CALLERID to blacklist
}

ACTION=$1
CALLERID=$2

if [ ${ACTION} == 'show' ]; then
  asterisk -r -x "database show" | fgrep blacklist
  exit 0
fi

if [ ${ACTION} == 'add' ] || [ ${ACTION} == 'del' ]; then
  if [ -z ${CALLERID} ]; then
    helpfunction
    exit 1
  fi

  if [ ${ACTION} == 'add' ];then
    asterisk -r -x "database put blacklist ${CALLERID} 1"
    exit 0
  fi

  if [ ${ACTION} == 'del' ];then
    asterisk -r -x "database del blacklist ${CALLERID}"
    exit 0
  fi
fi

helpfunction

Можно изменять базу и при помощи extensions, для этого в asterisk 1.4 есть функция DB и DB_DELETE

[add-to-backlist]
exten=>_X.,1,Set(DB(blacklist/${EXTEN})=1)
exten=>_X.,n,background(demo-thanks)
exten=>_X.,n,Wait(1)
exten=>_X.,n,Hangup()

exten=>t,1,Hangup()
exten=>h,1,Hangup()
exten=>i,1,Hungup()

[del-from-backlist]
exten=>_X.,1,NoOp(${DB_DELETE(blacklist/${EXTEN})})
exten=>_X.,n,background(demo-thanks)
exten=>_X.,n,Wait(1)
exten=>_X.,n,Hangup()

exten=>t,1,Hangup()
exten=>h,1,Hangup()
exten=>i,1,Hungup()

Эти два контекста при помощи функций DB и DB_DELETE добавляют и удаляют из blacklist. Теперь нужно только вызвать их. Для этого в общем плане набора создаем два extension

exten => _*1*X.,1,Goto(add-to-backlist,${EXTEN:3},1)
exten => _*2*X.,1,Goto(del-from-backlist,${EXTEN:3},1)

Несколько полезных ссылок:
Функция DB
Функция DB_DELETE
Более продвинутая реализация черного списка