;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; from http://www.ip-phone-forum.de/forum/viewtopic.php?p=27089#27089
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[general]
static=yes
writeprotect=no
[globals]
VOIPMSN=Zap/g1 ; VOIPMSN ist die NT-Karte f³r die Isdn-Telefone/TK
TCOM=Zap/g2 ; TCOM ist die TE-Karte zum NTBA
[default]
include => sip2out ; Sip2out wird spõter verwendet um ein "Amtsgesprõch"
; von einem Sip-Telefon aus zu f³hren
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Als nõchsten definiere ich Benuzter-Macro. Diese setzen diverse Variablen:
; MYNAME -> Eigener Name,
; MYMSN -> eigene MSN,
; Sip-User falls ein anruf reinkommt,
; bevorzugtes call-Macro (VOIP oder PSTN) und diverse Sip-Accounts.
; Die Endung -intl wird spõter noch wichtig
;
[macro-user942622]
exten => s,1,SetVar(MYNAME=MSN942622)
exten => s,2,SetVar(MYMSN=942622)
exten => s,3,SetVar(MYSIPGROUP=SIP/22)
exten => s,4,SetVar(MYCALLMACRO=callwithsip)
exten => s,5,SetVar(MYNUMSIP=1)
exten => s,6,SetVar(MYSIP1=einsundeins)
[macro-user9129813]
exten => s,1,SetVar(MYNAME=MSN9129813)
exten => s,2,SetVar(MYMSN=13)
exten => s,3,SetVar(MYSIPGROUP=SIP/13)
exten => s,4,SetVar(MYCALLMACRO=callwithsip)
exten => s,5,SetVar(MYNUMSIP=1)
exten => s,6,SetVar(MYSIP1=einsundeins)
[macro-user9129816]
exten => s,1,SetVar(MYNAME=MSN9129816)
exten => s,2,SetVar(MYMSN=9129816)
exten => s,3,SetVar(MYSIPGROUP=SIP/16)
exten => s,4,SetVar(MYCALLMACRO=callwithpstn)
exten => s,5,SetVar(MYNUMSIP=1)
exten => s,6,SetVar(MYSIP1=einsundeins)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Hier wurden die zwei Call-Macros definiert. Zuerst wird festgelegt mit welcher
; Absender-Kennung. Dann ausgewõhlt welche Nummer (evtl. ist ein CbC-Anbieter
; eingetragen, oder aber die Nummer muss im internationalen Format vorliegen?
; Nõmlich genau dann, wenn ein Sip-Account auf -intl endet.
;
; Diverse Variablen werden erst spõter gesetzt. Falls ein CbC oder Sip-Anbieter
; congested ist, wird auf PSTN zur³ckgefallen.
; outgoing calls
[macro-callwithpstn]
;ARG1 = calleridnum
;ARG2 = calleridname
exten => s,1,SetCIDNum(${ARG1})
exten => s,2,SetCIDName(${ARG2})
exten => s,3,Dial(${TCOM}/${CBC}${EWL},60,Ttr)
exten => s,104,GotoIf($[${DIALSTATUS} = CONGESTION]?109:110)
exten => s,105,Dial(${TCOM}/${EWL},60,Ttr)
exten => s,106,Playtones(busy);
exten => s,107,Busy
[macro-callwithsip]
;ARG1 = calleridnum
;ARG2 = calleridname
;ARG3 = sipprovider
;exten => s,1,SetCIDNum(${ARG1})
;exten => s,2,SetCIDName(${ARG2})
exten => s,3,SetVar(NUMBER2DIAL=${EWL})
;exten => s,4,GotoIf($[${ARG3:-5} = -intl]?5:6)
exten => s,5,SetVar(NUMBER2DIAL=${INTL})
exten => s,6,Dial(SIP/${NUMBER2DIAL}@${ARG3},60,Ttr)
exten => s,107,GotoIf($[${DIALSTATUS} = CONGESTION]?108:109)
exten => s,108,Macro(callwithpstn,${ARG1},${ARG2})
exten => s,109,Playtones(busy);
exten => s,110,Busy
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Wenn spõter (weiter unten) ein Nummer gewõhlt wurde, wird jetzt getestet,
; ob diese verboten ist (forbidden). Dann wird ein entsprechende Macro gestartet.
; Oder aber, ob es ein Notruf ist (110, 112, 19222). Dann geht das Gesprõch auf
; jeden Fall ³ber die Telekom. Oder ob diese Wahlregel ³ber VOIP oder ISDN geroutet
; werden soll. Zum Beispiel werden alle Anrufe an die Uni Saarland ³ber einen
; Uni-Saarland Sipaccount geroutet, oder alle 0800er Nummern immer ³ber ISDN.
;
; Achso: Wenn jemand selbst einen Call-by-Call Anbieter mitwõhlt (010x), dann geht
; das Gesprõch auch ³ber ISDN raus, da die Sip-Provider mit 010x nichts anfangen k÷nnen.
;
; Achso: Im Grunde hat die Fritzboxfon auch dieses Verhalten. Aber hier kann man noch
; so witzige Sachen machen, wir nummern umschreiben, zum Beispiel weil ein Sip-Provider
; keine ENUM-Aufl÷sung macht, man selbst aber einen entsprechende SipgateNummer
; des Anzurufenden kennt.
[macro-notallowed]
exten => s,1,Answer
exten => s,2,Wait(0.5)
exten => s,3,Playback(ss-noservice)
exten => s,4,Hangup
[forbidden]
; 019x
exten => _019X.,1,Macro(notallowed)
; 0900
exten => _0900X.,1,Macro(notallowed)
; EMSAT
exten => _0088X.,1,Macro(notallowed)
[emergency]
; re-rewrite emergency call numbers
exten => _0110,1,SetVar(EWL=110)
exten => _0110,2,Macro(callwithpstn,${MYMSN},${MYNAME})
exten => _0112,1,SetVar(EWL=112)
exten => _0112,2,Macro(callwithpstn,${MYMSN},${MYNAME})
exten => _019222,1,SetVar(EWL=19222)
exten => _019222,2,Macro(callwithpstn,${MYMSN},${MYNAME})
[preselection]
; dial the following prefixes with a defined method
; university of saarland
;exten => _0681302X.,1,Macro(callwithsip,${MYMSN},${MYNAME},eric-unisaarland-intl)
; freecall
exten => _0800X.,1,Macro(callwithpstn,${MYMSN},${MYNAME})
; user-defined call-by-call
exten => _010X.,1,Macro(callwithpstn,${MYMSN},${MYNAME})
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Jetzt wird es witzig: Call-By-Call
; F³r alle Nummern wird vorlõufig ein bester CbC-Provider bestimmt -
; auch wenn das Gesprõche spõter ³ber VoIP geht. Aber sicher ist sicher.
; Die Liste hier ist sehr einfach. Die beachten momentan den Sonntags-XXL
; Tarif der Telekom und ansonsten diverse Dumping-Preise,
; die es momentan gibt (oder auch schon nicht mehr).
; Unterschieden wird nach local (bei mir jetzt als Beispiel XXXX),
; international (00x), long-distance (alles was nicht 0xxx, aber nicht XXXX) und Handies.
;
; automatic call-by-call
[macro-cbc]
exten => s,1,SetVar(CBC=${ARG1})
exten => s,2,Macro(${CALLMACRO2USE},${MYMSN},${MYNAME},${SIP2USE})
exten => s,3,Hangup
[cbc-01071-international]
exten => _00ZX.,1,Macro(cbc,01071)
[cbc-01071-cellphones]
exten => _016X.,1,Macro(cbc,01071)
exten => _017X.,1,Macro(cbc,01071)
[cbc-01071-longdistance]
exten => _0ZX.,1,Macro(cbc,01071)
[cbc-01019-local]
exten => _XXXXX.,1,Macro(cbc,01019)
[cbc-xxl]
exten => _0ZX.,1,Macro(cbc,01033)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Achtung!
; Wichtig ist die Reihenfolge. Sonst lõuft alles in nocbc.
; no callbycall
[nocbc]
exten => _X.,1,Macro(cbc)
[cbc]
;exten => _XXXXX.,1,Macro(cbc)
include => cbc-01019-local|*|mon-sat|*|*
include => cbc-01071-international
include => cbc-01071-cellphones
include => cbc-01071-longdistance|*|mon-sat|*|*
include => cbc-xxl|*|sun|*|*
include => nocbc;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Der Number-Preselection Kontext unterscheidet sich vom line-preselection nur um eine Zeile.
; Nõmlich dem include von oben beschriebenen preselection Kontext.
; Wenn man nõmlich gleich (einen Moment noch) bewusst eine bestimmt Leitung wõhlt (ISDN oder SIPx)
; dann braucht man kein preselection.
[standard]
exten => h,1,NoOp
exten => t,1,Playtones(busy)
exten => t,2,Busy
[number-preselection]
include => emergency
include => forbidden
include => preselection
include => cbc
include => standard
[line-preselection]
include => emergency
include => forbidden
include => cbc
include => standard
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Noch zwei Macros; Letzteres sagt dem Benutzer nur, dass er wohl eine falsche
; Leitung gewõhlt hat. Das erste schreibt die gewõhlte Nummer in zwei Formate:
; International mit +xx am Anfang, und eine wie man es am z.B. Handy wõhlen w³rde
; (ausser man wõhlt dort intl). Die Variablen heisen INTL und EWL.
; Wie ihr seht ,wird auch eine Ortzvorwahl automatisch ergõnzt
[macro-numbers]
; ARG1 number to rewrite
; sets
; EWL (exten with local)
; INTL (international format)
exten => s,1,GotoIf($[${ARG1:0:2} = 00]?2:5)
exten => s,2,SetVar(EWL=${ARG1})
exten => s,3,SetVar(INTL=+${ARG1:2})
exten => s,4,Goto(11)
exten => s,5,GotoIf($[${ARG1:0:1} = 0]?6:9)
exten => s,6,SetVar(EWL=${ARG1})
exten => s,7,SetVar(INTL=+49${ARG1:1})
exten => s,8,Goto(11)
exten => s,9,SetVar(EWL=XXXX${ARG1})
exten => s,10,SetVar(INTL=+49XXX${ARG1})
exten => s,11,NoOp
[macro-invalidline]
exten => s,1,Answer
exten => s,2,Wait(0.5)
exten => s,3,Playback(privacy-incorrect)
exten => s,4,Hangup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Was passiert wenn nun gwõhlt wird - Ganz einfach!
; Wenn die Nummer mit 1* beginnt, will ich ³ber ISDN raustelefonieren.
; Wenn sie mit 2* beginnt soll der Anruf ³ber den Default (1) Sipprovider gehen
; (und wie man mit etwas Code-anschauen erkennen kann ist das Benutzerabhõngig,
; d.h. f³r jede MSN kann ich entsprechende Accounts einrichten).
; Mit 2Z* kann man einen bestimmten Sip-Provider wõhlen, der aber auch exitsieren muss.
; Ansonsten geht das ganze nach Number-Preselection und die k³mmert sich um eine nette
;und vor allem automatische Anwahl
[callout]
; use pstn line (no sip provider needed)
exten => _1*X.,1,SetVar(CALLMACRO2USE=callwithpstn)
exten => _1*X.,2,Macro(numbers,${EXTEN:2})
exten => _1*X.,3,Goto(line-preselection,${EWL},1)
; use default sipline (MYSIP1)
; forbid CbX over sip
exten => _2*010X.,1,Macro(invalidline)
exten => _2*X.,1,SetVar(CALLMACRO2USE=callwithsip)
exten => _2*X.,2,SetVar(SIP2USE=${MYSIP1})
exten => _2*X.,3,Macro(numbers,${EXTEN:2})
exten => _2*X.,4,Goto(line-preselection,${EWL},1)
; use special sipline (MYSIPx)
;forbid CbC over sip
;exten => _2Z*010X.,1,Macro(invalidline)
;exten => _2Z*X.,1,SetVar(CALLMACRO2USE=callwithsip)
;exten => _2Z*X.,2,GotoIf($[${EXTEN:1:1} <= ${MYNUMSIP}]?3:7)
;exten => _2Z*X.,3,SetVar(SIP2USE=${MYSIP${EXTEN:1:1}})
;exten => _2Z*X.,4,Macro(numbers,${EXTEN:3})
;exten => _2Z*X.,5,Goto(line-preselection,${EWL},1)
;exten => _2Z*X.,6,Goto(8)
;exten => _2Z*X.,7,Macro(invalidline)
;exten => _2Z*X.,8,NoOp
; choose best service by number (fallback is MYCALLMACRO)
exten => _XXX.,1,SetVar(CALLMACRO2USE=${MYCALLMACRO})
exten => _XXX.,2,SetVar(SIP2USE=${MYSIP1})
exten => _XXX.,3,Macro(numbers,${EXTEN})
exten => _XXX.,4,Goto(number-preselection,${EWL},1)
;include => sipphones
; if the number does not start with three digits -> invalid
exten => i,1,Macro(invalidline)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Fehlt nur noch eins - Wie kommt man in den den callout Kontext?
; So:
[isdn2out]
exten => s,1,Wait(0.1)
exten => s,2,DigitTimeout(2)
exten => s,3,SetLanguage(de)
exten => s,4,Macro(user${CALLINGNUM})
exten => _X.,1,Wait(0.1)
exten => _X.,2,DigitTimeout(2)
exten => _X.,3,SetLanguage(de)
exten => _X.,4,Macro(user${CALLINGNUM})
exten => _X.,5,Goto(callout,${EXTEN},1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Je nachdem ob man eine TK oder direkt ein Telefon dranhõngt, will man im sip2out auch zunõchst
; eine 0 wõhlen. Die kann man vor X. einf³gen
[sip2out]
exten => _0X./22,1,Macro(user942622)
exten => _0X./22,2,Goto(callout,${EXTEN:1},1)
exten => _0X./13,1,Macro(user9129813)
exten => _0X./13,2,Goto(callout,${EXTEN:1},1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; in-coming calls
[macro-call-tk]
exten => s,1,Wait(0.1)
exten => s,2,Macro(user${MACRO_EXTEN})
exten => s,3,SetCIDNum(${CALLERIDNUM})
exten => s,4,Dial(${VOIPMSN}/${MYMSN},60,Ttr)
exten => s,105,Busy
[macro-call-sip]
exten => s,1,Wait(0.1)
exten => s,2,Macro(user${MACRO_EXTEN})
exten => s,3,SetCIDNum(0${CALLERIDNUM})
exten => s,4,Dial(${VOIPMSN}/${MYMSN},60,Ttr)
;exten => s,4,Dial(${MYSIPGROUP},60,Ttr) ;;;;;;;;;;;; f³r sip gerõte
exten => s,105,Busy
[tcom-in]
exten => 942622,1,Macro(call-tk)
exten => 9129813,1,Macro(call-sip)
exten => 9129816,1,Macro(call-tk)
exten => i,1,Congestion
exten => h,1,NoOp
exten => t,1,Busy
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
