asterisk/pbx/ael/ael-test/ael-test7/extensions.ael

//
// Example AEL config file
//

globals {
	CONSOLE=Console/dsp;
	TRUNKMSD=0;					//MSD digits to strip (usually 1 or 0)
	TRUNCPROTO=SIP;
	TRUNK=sunrocket;
	PSTN=pstn-spa3k;
	PSTNPROTO=SIP;
	TARIOPROTO=SIP;
	TARIO=tario;
	CPPROTO=SIP;
	CPACKET1=callpacket1;
	CPACKET2=callpacket2;
	SELLVOIP=1577040314;
	SVPROTO=IAX2;
};


macro stdexten (ext , dev ) {
	PrivacyManager(3,10);
	if("${PRIVACYMGRSTATUS}" = "FAILED") {
		Playback(vm-goodbye);
		Hangup();
	};

	AGI(calleridnamelookup.agi);
        Dial(${dev}/${ext},30,t);
        switch(${DIALSTATUS}) {
        case BUSY:
                Voicemail(b${ext});
                break;
        default:
                Voicemail(u${ext});
        };
        catch a {
                VoiceMailMain(${ext});
                return;
        };
};

macro announce_minutes(minutes) {
	Playback(vm-youhave);
	SayNumber(${minutes});
	Playback(vm-minutes);
	Wait(1);
};

// Check if given provider allows only some free minutes per month
// and announce number of free minutes remaining.
// The limit will be reset monthly by cron job.
// The macro sets the following variables:
// MINUTES_LIMIT - number of free minutes per month
// MINUTES_USED - number of free minutes used in the current month
// PROVIDER - provider name

macro checkanddial(prov,proto,ext,arg1,arg2,arg3,arg4) {
	Set(MINUTES_LIMIT=0);
	Set(MINUTES_USED=0);
	Set(PROVIDER=${prov});

	if(${DB_EXISTS(Provider/${prov}/used)})
		Set(MINUTES_USED=${DB_RESULT});
	
	country_c = 0;
	switch(${LEN(${ext})}) {	//assuming all international numbers are 11 digits long.
	case 10:			//NXXNXXXXXX
		country_c=1;
		break;
	case 11:			//XNXXNXXXXXX
		country_c = ${ext:0:1};
		break;
	default:			//011XNXXNXXXXXX
		country_c = ${ext:3:1};
		break;
	};
		
	if("${prov}" = "${TRUNK}" & ${country_c} != 1) {	// SunRocket international calls
		Set(MINUTES_LIMIT=${DB(Provider/${prov}/limit)});
		&announce_minutes($[${MINUTES_LIMIT} - ${MINUTES_USED}]);
	};
	if("${prov}" = "${CPACKET1}" | "${prov}" = "${CPACKET2}") {			// Callpacket has a limit on domestic calls
		Set(MINUTES_LIMIT=${DB(Provider/${prov}/limit)});
		&announce_minutes($[${MINUTES_LIMIT} - ${MINUTES_USED}]);
	};
	DeadAGI(dial.agi,${proto}/${ext}@${prov},${arg1},${arg2},${arg3},${arg4});
};

macro trunkdial(ext) {	// Dial sunrocket and set correct collerid
	if("${CALLERID(num)}" = "1") {
		Set(CALLERID(num)=7322271653);
	} else {
		Set(CALLERID(num)=7326260100);
	};
	Set(CALLERID(name)=Sergey Okhapkin);
	&checkanddial(${TRUNK},${TRUNCPROTO},${ext},60,T);
	Hangup;
};

macro checklocal(ext) {	// lookup the number in DB and call the number via pstn or sunrocket
	Set(AREACODE=${ext:0:3});
	Set(EXCHANGE=${ext:3:3});
	Set(IS_LOCAL=${DB_EXISTS(localnum/${AREACODE}/${EXCHANGE})});
	if(${IS_LOCAL}) {
		&checkanddial(${PSTN},${PSTNPROTO},${ext},60,T);
		if ("${DIALSTATUS}" = "BUSY")
			&trunkdial(${ext});
	} else
		&trunkdial(${ext});
};

macro autodial(ext) {	// Find Least Cost Route
	LCDial(${ext},60,T);
	if("${DIALSTATUS}" = "NOPROVIDER")
		Playback(invalid);
	Hangup();
};

context default {	// Calls to us
	s => {
		Wait(1);
		Answer;
start:
		Set(TIMEOUT(digit)=3);
		Set(TIMEOUT(response)=10);
repeat:
		for (x=0; ${x} < 5; x=${x} + 1) {
			Background(home/greeting);
			WaitExten();
		};
	};
	t => jump *;
	i => {	// invalid extension
		Playback(invalid);
		goto s|repeat;
	};
	_* => {
		Playback(vm-goodbye);
		Wait(1);
		Hangup;
	};
	1 => &stdexten(1,SIP/1);
	2 => &stdexten(2,SIP/2);
	3 => &stdexten(3,SIP/3);

	2271653 => jump 1;
	7322271653 => jump 1;
	17322271653 => jump 1;

	6260100 => jump 2;
	7326260100 => jump 2;
	17326260100 => jump 2;
	8058701100 => jump 2;
	3103622835 => jump 2;
	sos => jump 2;
	1400898 => jump 2;

	6260101 => jump s;
	7326260101 => jump s;
	17326260101 => jump s;

	2271677 => jump 3;
	7322271677 => jump 3;
	17322271677 => jump 3;
	galka => jump 3;
	911 => Dial(${PSTNPROTO}/911@${PSTN},60,);
	380 => Dial(SIP/topspeen@212.40.38.70,60,T);

	// Fun stuff
	100 => {
		SayUnixTime();
		goto s|start;
	};
	101 => {	// Voicemail
		VoicemailMain(${CALLERID(num)});
		Hangup;
	};
	102 => MusicOnHold();
//	103 => {
//		Wait(1);
//start:
//		Read(NUMBER,vm-enter-num-to-call);
//		LCDial(${NUMBER},T);
//		goto start;
//	};
	105 => jump s@phrase-menu;
	7312 => {
		ForkCDR;
		Set(CALLERID(name)=Sergey Okhapkin);
		Set(CALLERID(num)=7326260100);
		DISA(1111|home);
	};
};

context goiax {
	s => {
		Answer();
		Ringing();
		Wait(1);
start:
		Read(NUMBER,vm-enter-num-to-call);
		Set(CALLERID(name)=Central NJ);
		Dial(IAX2/14301@fwdOUT/q${NUMBER},60,T);
		goto start;
	};

};

context phrase-menu {

	s => {
		Answer;			// Answer the line
		TIMEOUT(digit)=2; 	// Set Digit Timeout to 5 seconds
		TIMEOUT(response)=10; 	// Set Response Timeout to 10 seconds
		BackGround(custom/phrase-menu);	//  Play main menu.
	};
	1 => {				// Phrase Recording
		Wait(1);
		Read(PHRASEID|custom/enter-phrase-num);
		Wait(2); 		// give yourself 2 secs to take a breath and wait for beep
		Record(custom/${PHRASEID}:gsm);
		Wait(2);
		Playback(custom/${PHRASEID});
		Wait(1);
		jump s;
	};
	2 => {				// Phrase review
		Wait(1);
		Read(PHRASEID|custom/enter-phrase-num);
		Wait(1);
		Playback(custom/${PHRASEID});
		Wait(1);
		jump s;
	};
	t => Hangup;
	i => {
		Playback(custom/invalid-option);
		jump s;
	};
};

context outbound {
	// North America seven-, ten- and eleven digits
	_NXXXXXX => &autodial(1732${EXTEN});
	_NXXNXXXXXX => &autodial(1${EXTEN});
	_ZNXXNXXXXX. => &autodial(${EXTEN});
	// Toll free numbers via PSTN
//	_1800NXXXXXX => &checkanddial(${PSTN},${PSTNPROTO},${EXTEN},60,T);
//	_1888NXXXXXX => &checkanddial(${PSTN},${PSTNPROTO},${EXTEN},60,T);
//	_1877NXXXXXX => &checkanddial(${PSTN},${PSTNPROTO},${EXTEN},60,T);
//	_1866NXXXXXX => &checkanddial(${PSTN},${PSTNPROTO},${EXTEN},60,T);

	_011. => {	//International context accessed through trunk
		&trunkdial(${EXTEN});
	};
	_012. => {	//fwdOUT
		Set(CALLERID(name)=Central NJ);
		Dial(IAX2/14301@fwdOUT/q${EXTEN:3},60,T);
	};                     
	_013X. => {	//NECC
		Dial(${PSTNPROTO}/011${EXTEN:3}@${PSTN},60,T);
	};
	_0131. => {	//NECC to US
		Dial(${PSTNPROTO}/${EXTEN:3}@${PSTN},60,T);
	};
	_014. => {	//TARIO by SIP ID
		Set(CALLERID(name)=Sergey Okhapkin);
		Set(CALLERID(num)=1400898);
		Dial(${TARIOPROTO}/${EXTEN:3}@${TARIO},60,T);
	};
	_0157. => {	//TARIO outbound Russia
		Set(CALLERID(name)=Sergey Okhapkin);
		Set(CALLERID(num)=1400898);
		Dial(${TARIOPROTO}/8${EXTEN:4}@${TARIO},60,T);
	};
//	_015. => {	//TARIO outbound international
//		CALLERID(name)="Sergey Okhapkin";
//		CALLERID(num)=1400898;
//		Dial(${TARIOPROTO}/810${EXTEN:3}@${TARIO},60,T);
//	};
	_0161NXXNXXXXXX => {	//Callpacket outbound USA/Canada
		&checkanddial(${CPACKET1},${CPPROTO},${EXTEN:3},60,T);
	};
	_0171NXXNXXXXXX => {	//Callpacket outbound USA/Canada
		&checkanddial(${CPACKET2},${CPPROTO},${EXTEN:3},60,T);
	};
	_0181NXXNXXXXXX => {	//sellvoip outbound USA/Canada
		Dial(${SVPROTO}/${SELLVOIP}@${SELLVOIP}/${EXTEN:3},60,T);
	};
	_019. => {	//Voipbuster
		Dial(IAX2/sokhapkin@voipbuster/00${EXTEN:3},60,T);
	};
};

context home {		//calls from us
	includes {
		default;
		outbound;
	};
};

context sunrocket-in {
	7322271653 => jump s;
	7326260100 => jump 2@default;
	s => {
		if("${CALLERID(num)}" = "sunrocketcom")
			Set(CALLERID(num)=);
		switch(${CALLERID(RDNIS)}) {
		case 7326260100:
			jump 2@default;
			break;
		case 7326260101:
			jump s@default;
			break;
		default:
			jump 1@default;
			break;
		};
	};
};

context pstn-in {
	3 => {
		if ("${CALLERID(num)}" = "7322271677")
			Set(CALLERID(num)=);
		jump 3@default;
	};
};

context tario.net-in {
	_X. => {
		Set(CALLERID(name)=);
		if("${CALLERID(num):-11:1}" = "8")
			Set(CALLERID(num)=7${CALLERID(num):1});
		if("${SIP_HEADER(To)}" = "<sip:2271677@sipnet.ru>") {
			jump 3@default;
		} else if("${SIP_HEADER(To)}" = "<sip:2271653@sipnet.ru>") {
			jump 1@default;
		} else
			jump 2@default;                                                     
	};
};

context from-callpacket {
	8058701100 => jump 2@default;
	3103622835 => {
		Answer;
		Ringing;
		Wait(10);
		Voicemail(b3103622835);
		Hangup;
	};
	a => Hangup;
};

context fromfwdOUT {	//  make sure we only accept US and Canada calls, limit to 30 minutes
	includes {
		fromfwdOUT-catchbad;
		fromfwdOUT-isgood;
		fromfwdOUT-catchall;
	};
};

context fromfwdOUT-isgood {
	_17326260100 => jump 2@default;
	_17326260101 => jump s@default;
	_17322271653 => jump 1@default;
	_17322271677 => jump 3@default;
	_1NXXNXXXXXX => {
		Set(CALLERID(name)=Sergey Okhapkin);
//		Set(CALLERID(num)=7326260100);
//		Dial(${TRUNCPROTO}/*67${EXTEN:${TRUNKMSD}}@${TRUNK},60,,L(1800000:60000));
		Dial(${CPPROTO}/${EXTEN}@${CPACKET2},60,,L(1800000:60000));
	};
};

context fromfwdOUT-catchbad {	//block bahamas, etc
	_1900. => congestion    ; //N11
	_1XXX976. => congestion ; //N11
	_1XXX555. => congestion ; //N11
	_1X11. => congestion    ; //N11
	_1867. => congestion    ; //Yukon (sorry mike)

		// exten => _1NPA Country
	_1242. => congestion;   //BAHAMAS
	_1246. => congestion;   //BARBADOS
	_1264. => congestion;   //ANGUILLA
	_1268. => congestion;   //ANTIGUA/BARBUDA
	_1284. => congestion;   //BRITISH VIRGIN ISLANDS
	_1345. => congestion;   //CAYMAN ISLANDS
	_1441. => congestion;   //BERMUDA
	_1473. => congestion;   //GRENADA
	_1649. => congestion;   //TURKS & CAICOS ISLANDS
	_1664. => congestion;   //MONTSERRAT
	_1758. => congestion;   //ST. LUCIA
	_1767. => congestion;   //DOMINICA
	_1784. => congestion;   //ST. VINCENT & GRENADINES
	_1809. => congestion;   //DOMINICAN REPUBLIC
	_1829. => congestion;   //DOMINICAN REPUBLIC
	_1868. => congestion;   //TRINIDAD AND TOBAGO
	_1869. => congestion;   //ST. KITTS AND NEVIS
	_1876. => congestion;   //JAMAICA
	_1787. => congestion;   //Puerto Rico 787, 939 $0.07
	_1939. => congestion;   //Puerto Rico 787, 939 $0.07
	_1671. => congestion;   //Guam 671 $0.08
	_1340. => congestion;   //U.S. Virgin Islands 340 $0.06
};

context fromfwdOUT-catchall {
	_X. => Congestion;
	h => Hangup    ;	//hangup event
	i => Hangup    ;	//invalid event
	t => Hangup    ;	//timeout event
};

context ael-demo {
	s => {
		Wait(1);
		Answer();
		TIMEOUT(digit)=5;
		TIMEOUT(response)=10;
restart:
		Background(demo-congrats);
instructions:
		for (x=0; ${x} < 3; x=${x} + 1) {
			Background(demo-instruct);
			WaitExten();
		};
	};
	2 => {
		Background(demo-moreinfo);
		goto s|instructions;
	};
	3 => {
		LANGUAGE()=fr;
		goto s|restart;
	};
	500 => {
		Playback(demo-abouttotry);
		Dial(IAX2/guest@misery.digium.com);
		Playback(demo-nogo);
		goto s|instructions;
	};
	600 => {
		Playback(demo-echotest);
		Echo();
		Playback(demo-echodone);
		goto s|instructions;
	};
	_1234 => &std-exten-ael(${EXTEN}, "IAX2");
	# => {
		Playback(demo-thanks);
		Hangup();
	};
	t => jump #;
	i => Playback(invalid);
};