Есть диал план исходяших звонков.
На Ваш взгляд что можно улучшить в нём?

можно просто советы рекомендаций.
[general]
static=yes
writeprotect=no
;autofallthrough=no
clearglobalvars=no

[globals]
DTO=60
TRUNK_OUT=ZAP/G1
RECEP_GROUP=SIP/100&SIP/101
OUTGOING_CID=


[external]
exten => _8[0348].,1,Set(CALLERID(num)=2388217)
exten => _8[0348].,n,Noop([SIP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _8[0348].,n,AGI(recording.pl|1)
exten => _8[0348].,n,Dial(SIP/${EXTEN}@sipnet,${DTO},tT))
exten => _8922.,1,Set(CALLERID(num)=2388217)
exten => _8922.,n,Noop([SIP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _8922.,n,AGI(recording.pl|1)
exten => _8922.,n,Dial(SIP/${EXTEN}@sipnet,${DTO},tT))
exten => _8916618.,1,Set(CALLERID(num)=2388217)
exten => _8916618.,n,Noop([SIP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _8916618.,n,AGI(recording.pl|1)
exten => _8916618.,n,Dial(SIP/${EXTEN}@sipnet,${DTO},tT))

exten => _810.,1,Set(CALLERID(num)=2388217)
exten => _810.,n,Noop([SIP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _810.,n,AGI(recording.pl|1)
exten => _810.,n,Dial(SIP/${EXTEN}@sipnet,${DTO},tT))
exten => _89XXXXXXXXX,1,Set(CALLERID(num)=${OUTGOING_CID})
exten => _89XXXXXXXXX,n,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _89XXXXXXXXX,n,AGI(recording.pl|1)
exten => _89XXXXXXXXX,n,Dial(${TRUNK_OUT}/${EXTEN},${DTO},tT)

exten => _9495XXXXXXX,1,Set(CALLERID(num)=${OUTGOING_CID})
exten => _9495XXXXXXX,n,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _9495XXXXXXX,n,AGI(recording.pl|1)
exten => _9495XXXXXXX,n,Dial(${TRUNK_OUT}/${EXTEN:4},${DTO},tT)
exten => _9499XXXXXXX,1,Set(CALLERID(num)=${OUTGOING_CID})
exten => _9499XXXXXXX,n,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _9499XXXXXXX,n,AGI(recording.pl|1)
exten => _9499XXXXXXX,n,Dial(${TRUNK_OUT}/8${EXTEN:1},${DTO},tT)
exten => _9XXXXXXX,1,Set(CALLERID(num)=${OUTGOING_CID})
exten => _9XXXXXXX,n,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _9XXXXXXX,n,AGI(recording.pl|1)
exten => _9XXXXXXX,n,Dial(${TRUNK_OUT}/${EXTEN:1},${DTO},tT)
exten => _0[12349],1,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => _0[12349],n,AGI(recording.pl|1)
exten => _0[12349],n,Dial(${TRUNK_OUT}/${EXTEN},${DTO},tT)
exten => 9100,1,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => 9100,n,AGI(recording.pl|1)
exten => 9100,n,Dial(${TRUNK_OUT}/${EXTEN:1},${DTO},tT)
exten => 9112,1,Noop([ZAP] Remote ${CALLERID(num)} -> ${EXTEN})
exten => 9112,n,AGI(recording.pl|1)
exten => 9112,n,Dial(${TRUNK_OUT}/${EXTEN},${DTO},tT)

это все? если да, то поставь триксбокс и посмотри диалплан там.

а касательно твоего: можно повторяющиеся фрагменты вынести в макросы

495,499 -> 49[59]

ну и как уже сказано - макросы!

Нет это не все!
Есть входяший диал план
[incoming1]
exten => s,1,Noop(Incoming call to ${EXTEN})
exten => s,n,Set(WI_NUMBER=телефоный_номер)
exten => s,n,Goto(web-ivr,s,major)

[incoming2]
exten => s,1,Noop(Incoming call to ${EXTEN})
exten => s,n,Set(WI_NUMBER=телефоный_номер)
exten => s,n,Goto(web-ivr,s,major)

[incoming3]
exten => s,1,Noop(Incoming call to ${EXTEN})
exten => s,n,Set(WI_NUMBER=телефоный_номер)
exten => s,n,Goto(web-ivr,s,major) Входяшие

[incoming4]
exten => s,1,Noop(Incoming call to ${EXTEN})
exten => s,n,Set(WI_NUMBER=телефоный_номер)
exten => s,n,Goto(web-ivr,s,major)

[incoming]
exten => s,1,Answer
exten => s,n,AGI(recording.pl|1)
exten => s,n,Waitexten(10)
exten => s,n,Dial(SIP/100,60,rtT)


Контекст incoming переходит по условию Goto в контекст web-ivr
в контексте web-ivr идёт вызов AGI (web_ivr.pl|major|${WI_NUMBER})
exten => s,1,Noop(Web-IVR menu)
exten => s,n(major),AGI(web_ivr.pl|major|${WI_NUMBER})
exten => s,n,Answer
exten => s,n,Goto(intro)
exten => s,n(slave),AGI(web_ivr.pl|slave)
exten => s,n(intro),Wait(2)
exten => s,n,AGI(recording.pl|1)
exten => s,n,Background(${WI_SOUNDFILE})
exten => s,n,WaitExten(${WI_WAITEXTEN})
(web_ivr.pl|major|${WI_NUMBER}) вот тут начинаю тупить и не понимать что дальше делает логика диал плана,так как нужно разбираться в перл скрипте web_ivr.pl.

Покажите пожалуйста, как обращаетесь в recording.pl (или любом другом) к, переданной из диалплана, переменной?

recording.pl это запись разговоров
меня интересует больше web-ivr.pl

Я видимо неправильно выразился... У меня в последнем эксперименте никак не выходило получить переданные переменные командой $AGI->ReadParse(). Вот потому я и хотел взглянуть на Ваш вариант, может я что-то не так делаю, хотя вроде все по voip-info.org

P.S.:Готов взамен на результативную консультацию разобрать и собрать по новой Ваш скрипт=)

Вам скинуть скрипт?

cpirt [ на ] yandexтчкru

Выслал тока что на почту.\