aboutsummaryrefslogtreecommitdiffstats
path: root/trunk/pbx/ael/ael-test/ael-test19/extensions.ael
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/pbx/ael/ael-test/ael-test19/extensions.ael')
-rw-r--r--trunk/pbx/ael/ael-test/ael-test19/extensions.ael377
1 files changed, 0 insertions, 377 deletions
diff --git a/trunk/pbx/ael/ael-test/ael-test19/extensions.ael b/trunk/pbx/ael/ael-test/ael-test19/extensions.ael
deleted file mode 100644
index 07af91482..000000000
--- a/trunk/pbx/ael/ael-test/ael-test19/extensions.ael
+++ /dev/null
@@ -1,377 +0,0 @@
-context dialextens
-{
- /*
- 101 thru 123, 149 thru 152
- */
- _10X => Dial(Zap/${EXTEN:2},30,Ttw);
- _1ZX => Dial(Zap/${EXTEN:1},30,Ttw);
-}
-/*
- Due to extenal wiring:
-
- dialing 125 will ring 101
- dialing 126 will ring 102
- and so on until
- dialing 147 will ring 123
-
-We can dial out on zap 69 thru 72; and 25-47
-
-*/
-
-context dialthrus
-{
- /* 369-372; 325-347 */
- _3XX => Dial(Zap/${EXTEN:1},30,Ttw);
-}
-
-context t1incoming
-{
- includes
- {
- dialextens;
- parkedcalls;
- }
- s => {
- Answer();
- Background(welcome-to-test-machine);
- }
-
-}
-
-context t1extension
-{
- includes
- {
- dialextens;
- dialthrus;
- }
-
-}
-
-context incoming
-{
- includes
- {
- dialextens;
- parkedcalls;
- }
- s => {
- Answer();
- Background(welcome-to-test-machine);
- }
-}
-
-context incoming
-{
- s => {
- Answer();
- }
-}
-
-macro std-priv-exten( dev, ext , timeout, opts, torcont, dontcont )
-{
- // &increment_chosecount();
- dial_again:
- Dial(${dev},${timeout},${opts});
- switch(${DIALSTATUS})
- {
- case TORTURE:
- goto ${torcont}|s|begin;
- break;
-
- case DONTCALL:
- goto ${dontcont}|s|begin;
- break;
-
- case BUSY:
- label_busy:
- Read(reply|work-exten-busy|1||2|15);
- if ("${reply}"=="")
- goto label_busy; // infinite loop if Read has probs!!
- switch(${reply})
- {
- case 1:
- Set(time1=${EPOCH});
-
- label_redial:
-
- WaitMusicOnHold(5);
- Dial(${dev},${timeout},${opts});
-
- switch(${DIALSTATUS})
- {
- case BUSY:
- if(${EPOCH}-${time1} >= 20)
- goto label_busy;
- goto label_redial;
-
- default:
- return;// goto work_line|s|loopback;
- }
- break;
- case 2:
- Voicemail(${ext}|b);
- break;
- case 3:
- return; // goto work_line|s|loopback;
- default:
- Background(invalid);
- goto label_busy;
- }
- break;
-
- case ANSWER:
- break;
-
- case NOANSWER:
- noanswer_label:
- Read(reply|work-exten-noanswer|1|skip|2|15);
- switch(${reply})
- {
- case 1:
- switch(${ext})
- {
- case 10:
- Background(no-cell);
- break;
- case 11:
- // &ciddial(2729495,3072729495,30,tw,${GRAMS_TELCO},${WORK_TELCO});
- break;
- case 12:
- // &ciddial(2725560,3072725560,30,tw,${GRAMS_TELCO},${WORK_TELCO});
- break;
- case 13:
- // &ciddial(2720197,3072720197,30,tw,${GRAMS_TELCO},${WORK_TELCO});
- break;
- case 14:
- // &ciddial(2501174,3072501174,30,tw,${GRAMS_TELCO},${WORK_TELCO});
- break;
- case 15:
- Background(no-cell);
- break;
- case 16:
- Background(no-cell);
- break;
- default:
- Background(invalid);
- break;
- }
- goto noanswer_label;
- break;
- case 2:
- Voicemail(${ext}|u);
- break;
- case 3:
- return; // goto work_line|s|loopback;
- default:
- Background(invalid);
- goto noanswer_label;
- }
- Voicemail(${ext}|u);
- break;
- default:
- Voicemail(${ext}|u);
- }
-}
-/* Putting these 3 funcs in extensions.conf!
-macro funcC(a,b)
-{
- Set(Key=);
- menu:
- Read(Key,main-menu,1,n,1,5);
- if("${Key}" = "2")
- goto y,lab1;
- catch y
- { lab1:
- &funcB(${a},${b});
- }
-}
-
-macro funcB(a,b)
-{
- Set(Key=);
- menu:
- Read(Key,tt-monkeys,1,n,1,5);
- if("${Key}" = "2")
- goto z,lab2;
- catch z
- { lab2:
- &funcC(${a},${b});
- }
-}
-
-macro funcA()
-{
- &funcB(1,2);
-}
-*/
-
-context extension
-{
- includes
- {
- dialextens;
- dialthrus;
- parkedcalls;
- }
- 5 => {
- Record(recording:wav);
- Background(recording);
- }
-
- 81 => {
- iterations=1000000;
- Set(time1=${EPOCH});
- for(i=1; ${i}<${iterations}; i=${i}+1)
- {
- NoOp(Hello);
- }
- Set(time2=${EPOCH});
- Verbose(The time diff is $[${time2} - ${time1} ] seconds);
- Verbose(Which means that the priorities/sec = $[4* ${iterations} / (${time2} - ${time1}) ]);
- SayNumber($[4 * ${iterations} / (${time2} - ${time1}) ]);
- }
- 82 => {
- &ndeep(100000);
- Verbose(Finished 100000 levels deep call!);
- }
- 83 => {
- switch (${EXTEN})
- {
- pattern 8X:
- Verbose(do something to prepare it);
- pattern 9X:
- Verbose(handle both 1xx and 2xx calls);
- pattern [4-7]X:
- Verbose(and this too!);
- }
- Set(junky=${RAND(0|99999)});
- Verbose(Here is a random number: ${junky}.);
- }
- 84 => {
- agi(agi://192.168.134.252/|hello|goodbye|whatever|whoknows,hell2,hello3);
- }
- 85 => {
- &std-priv-exten( Zap/50, 150 , 25, mtw, torcont, dontcont );
- }
- 86 => {
- Verbose(The version is: ${VERSION()} );
- Verbose(The versionnum is: ${VERSION(ASTERISK_VERSION_NUM)} );
- Verbose(The user is: ${VERSION(BUILD_USER)} );
- Verbose(The hostname is: ${VERSION(BUILD_HOSTNAME)} );
- Verbose(The machine is: ${VERSION(BUILD_MACHINE)} );
- Verbose(The OS is: ${VERSION(BUILD_OS)} );
- Verbose(The date is: ${VERSION(BUILD_DATE)} );
- Verbose(The kernel is: ${VERSION(BUILD_KERNEL)} );
- Set(vinf=${VERSION()});
- Set(vrand=${RAND()});
- if( ${ISNULL(${vinf})} )
- {
- if( ${ISNULL(${vrand})} )
- Verbose(Version 1.2 or earlier);
- else
- Verbose(Version 1.4!!!);
- }
- else
- Verbose(${vinf} indicates version pre-1.6 or higher);
- }
- 871 => {
- NoOp( 1 1 1 1 1 1 1);
- NoOp( 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6);
- NoOp(012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678890123456789012345678901234567890);
- NoOp(${EXTEN:1:2} ${EXTEN} ${EXTEN:1} 1 1 1 1 1 1 1);
- &dialoutpstn(${TDIRECTCALL-PST}/0${EXTEN},${E${CALLERID(num)}-OPT},${TDIRECTCALL-CID},${TDIRECTCALL-MAX},RotaPadrao) ;
-
- }
- 872 => {
- Set(ChannelOnly=${CUT(CHANNEL||1)});
- Verbose(ChannelOnly=${ChannelOnly}; neat huh?);
- Set(ChannelOnly=${CUT(CHANNEL,,1)});
- Verbose(ChannelOnly=${ChannelOnly}; neat huh?);
- }
- 873 => {
- NOOP(this is a forkcdr test);
- Set(CALLERID(num)=1234567890);
- Set(CALLERID(name)=before fork);
- Forkcdr(v);
- Set(CALLERID(num)=0987654321);
- Set(CALLERID(name)=after fork);
- Answer();
- Echo();
- Hangup();
- }
- 874 => {
- SayDigits(307-754-5675);
- SayPhoneNumber(307-754-5675);
- SayDigits(--);
- SayPhoneNumber(123-456-7890);
- SayDigits(++);
- SayPhoneNumber(307-754-4454);
- }
- 875 => {
- &funcA();
- &funcD();
- }
- 876 => {
- NoOp(Query resultid ${connid} SELECT var1\, var2 FROM did);
- NoOp($["Query resultid ${connid} SELECT var1\, var2 FROM did"]);
- NoOp($["Query resultid ${connid} SELECT var1, var2 FROM did"]);
- goto test5,s,1;
- }
- 88 => {
- SET(LIMIT_PLAYAUDIO_CALLER=yes);
- SET(LIMIT_PLAYAUDIO_CALLEE=no);
- SET(LIMIT_TIMEOUT_FILE=timeup);
- SET(LIMIT_CONNECT_FILE=limit60);
- SET(LIMIT_WARNING_FILE=almostup);
- Dial(Zap/51,20,L(60000:30000:8000));
- }
- 89 => {
- goto callbackmenu|100|1;
- }
-}
-
-context income1
-{
- s => {
- Answer();
- Dial(Zap/50,20,m);
- }
- 150 => Dial(Zap/50,20,m);
-}
-
-context callbackmenu
-{
- _X. => {
- Answer();
- Wait(1);
- Set(TIMEOUT(digit)=5);
- Set(TIMEOUT(response)=30);
- DISA(no-password,callbackdialout);
- }
-}
-
-context callbackdialout
-{
- _X. => {
- Dial(Zap/51,20,w);
- }
-
-}
-
-
-macro dialoutpstn(something1, something2, something3, something4, something5)
-{
- Verbose(${something1}--- ${something2}--- ${something3}--- ${something4}--- ${something5});
-}
-
-macro ndeep(level)
-{
- if( ${level} == 0)
- {
- Verbose(2|Got to Level 0);
- return;
- }
- &ndeep($[${level}-1]);
- return;
-}