extensions-pngnpbx-abc-v16c.ael2

/*
 * Always Be Conferencing
 * ======================
 *
 * Creator: chris @ Penguin PBX Solutions
 * Version: 16c
 * Release: 2020-01-31
 * License: Creative Commons Zero v1.0 Universal (CC0 1.0)
 *
 * ABC starts your Conference Bridge in ASTERISK(R) by Originating calls
 * to other participants. They will be joined *before* they answer the call.
 * There is no beep or prompt before they join. Conference will continue
 * until all parties disconnect - so the original caller can hang up, even
 * before the call is connected to any other participants, and those
 * yet-to-answer participants can chat amongst themselves when they finally
 * do answer the call. (There are no marked or admin users.)
 *
 * Call Detail Records will be saved in files based on whatever ABC type name
 * you specify ie. the account code will be set to this name on all channels.
 * In the examples (below) it would be "abctest.csv" in the same directory
 * as your "Master.csv" (assuming you are using CSV for CDRs.)
 *
 * Optionally you can record the call (see example #2 below).
 * Look for the recordings in "/var/spool/asterisk/monitor/" directory.
 * The ABC type name will be used to prefix the files (one file per leg.)
 * CAREFUL when recording eg. legal issues, drive space, privacy, etc.
 *
 * This file is configured in the ASTERISK Extension Language. You'll want to 
 * copy or include this file into the "/etc/asterisk/extensions.ael" file.
 * But then you can call it from standard dial plan in "extensions.conf"
 * -- or "extensions_custom.conf" if you are using FreePBX(R) -- via a context
 * similar to the following:
 *
 * [from-internal-custom-1]
 * exten = 933,1,NoOp(Always Be Conferencing - PenguinPBX.com) ; Please copy and change as you wish!
 *  same = n,Set(path=PJSIP/${EXTEN}@#YOUR-TRUNK#)             ; CHANGE ME! Endpoint section defined in your PJSIP configuration.
 *  same = n,Set(callback=3035557729)                          ; CHANGE ME! Your call-back telephone number (probably 10 digits in the USA.)
 *  same = n,Set(friend=PJSIP/1113)                            ; CHANGE ME! The local PJSIP endpoint to bridge into the call.
 *  same = n,Set(abctypename=abctest)                          ; CHANGE ME! Use abctest as the conf type name.
 *  same = n,Set(ringtime=120)                                 ; MAYBE CHANGE ME! Rings remote end / path for 2 minutes.
 *  same = n,AELSub(pngnpbx-abc-simple,${abctypename})         ; Simple setup. (Either "abc-simple" or "abc-init" must be first.)
 *  same = n,AELSub(pngnpbx-abc-path,1,${ringtime},${path})    ; Set the first (and only) call path to use on call to remote end.
 *  same = n,AELSub(pngnpbx-abc-remote,${callback})            ; Dial out the path/trunk using your call-back number as the Caller ID number.
 *  same = n,AELSub(pngnpbx-abc-friend,1,${friend})            ; Bridge in the other attendee automatically.
 *  same = n,AELSub(pngnpbx-abc-howdy-yall)                    ; Enter the conference. No more dial plan processing occurs for caller.
 *
 * ...be sure to include the context from wherever your phones start, or setup
 * a Custom Destination / Custom Extension for it in your PBX GUI.
 *
 * Here is the same example, but in extensions.AEL configuration instead of standard extensions.CONF format: 
 *
 * context from-internal-custom-1-ael {
 *      933 => {
 *          NoOp(Always Be Conferencing - PenguinPBX.com);  // Please copy and change as you wish!
 *          Set(path=PJSIP/${EXTEN}@#YOUR-TRUNK#);          // CHANGE ME! Endpoint section defined in your PJSIP configuration.
 *          Set(callback=3035557729);                       // CHANGE ME! Your call-back telephone number (probably 10 digits in the USA.)
 *          Set(friend=PJSIP/1113);                         // CHANGE ME! The local PJSIP endpoint to bridge into the call.
 *          Set(abctypename=abctest);                       // CHANGE ME! Use abctest as the conf type name.
 *          Set(ringtime=120);                              // MAYBE CHANGE ME! Rings remote end / path for 2 minutes.
 *          &pngnpbx-abc-simple(${abctypename});            // Simple setup. (Either "abc-simple" or "abc-init" must be first.)
 *          &pngnpbx-abc-path(1,${ringtime},${path});       // Set the first (and only) call path to use on call to remote end.
 *          &pngnpbx-abc-remote(${callback});               // Dial out the path/trunk using your call-back number as the Caller ID number.
 *          &pngnpbx-abc-friend(1,${friend});               // Bridge in the other attendee automatically.
 *          &pngnpbx-abc-howdy-yall();                      // Enter the conference. No more dial plan processing occurs for caller.
 *      }
 * }
 *
 * Slightly more involved example -- adds multiple remote paths, call recording, geolocation, and additional friend phones:
 *
 * [from-internal-custom-2]
 * exten = 123222,1,NoOp(Always Be Conferencing - PenguinPBX.com)                           ; Please copy and change as you wish!
 *  same = n,Set(gpsurl=https://abc.penguinpbx.com/loc/)                                    ; URL that will be included in Geolocation SIP header.
 *  same = n,Set(path1=DAHDI/#YOUR-TRUNK-1#/${EXTEN})                                       ; Endpoint section defined in your DAHDI configuration.
 *  same = n,Set(path2=PJSIP/${EXTEN}@#YOUR-TRUNK-2#)                                       ; A PJSIP endpoint section - used if first path is down/unreachable.
 *  same = n,Set(path3=PJSIP/${EXTEN}@#YOUR-TRUNK-3#)                                       ; Yet another endpoint section defined in your PJSIP configuration.
 *  same = n,AELSub(pngnpbx-abc-init,abctest,record,3600,,announce)                         ; Use abctest as the conf type name, save WAVs, limit to 1 hour, and announce GPS.
 *  same = n,AELSub(pngnpbx-abc-path,1,10,${path1})                                         ; Set the first call path / trunk name to use on call to remote end. Ring 10 seconds.
 *  same = n,AELSub(pngnpbx-abc-path,2,60,${path2})                                         ; Set the second call path - used only on failover of first call path. Ring 1 minute.
 *  same = n,AELSub(pngnpbx-abc-path,3,300,${path3})                                        ; Set the third call path - used only on failover of second call path. Ring 5 minutes.
 *  same = n,NoOp(About to change flow based on caller ID number.)                          ; Specifically changing between 1101 and 1102 in this example.
 *  same = n,Set(cleancid=${FILTER(a-zA-Z0-9,${CALLERID(num)})})
 *  same = n,Set(gotdialplan=${DIALPLAN_EXISTS(${CONTEXT},${EXTEN},x${cleancid})})
 *  same = n,GotoIf($[${gotdialplan}]?x${cleancid}:xunknown)
 *
 *  same = n(xunknown),NoOp()                                                   ; Use defaults from x1101 for unknown callers.)
 *  same = n(x1101),NoOp()
 *  same = n,AELSub(pngnpbx-abc-gps,39.739,-104.990,${gpsurl})                  ; Set Geolocation SIP header to URL and GPS co-ordinates #1.
 *  same = n,AELSub(pngnpbx-abc-sa,144 W Colfax Ave,Denver,CO,80202)            ; Street Address, city name, state abbreviation, zip code
 *  same = n,AELSub(pngnpbx-abc-ai,Picnic Shelter 4)                            ; Additional Information. SA + AI = Dispatchable Location
 *  same = n,AELSub(pngnpbx-abc-remote,3035557729)                              ; Dial out the trunk(s).
 *  same = n,Goto(friends)
 *
 *  same = n(x1102),NoOp()                                                      ; These three phones are in the same room.
 *  same = n(x1103),NoOp()
 *  same = n(x1104),NoOp()
 *  same = n,AELSub(pngnpbx-abc-gps,39.588,-105.644,${gpsurl})                  ; Set Geolocation SIP header to URL and GPS co-ordinates #2.
 *  same = n,AELSub(pngnpbx-abc-sa,Mount Evans Ridge,Idaho Springs,CO,80452)    ; Street Address, city name, state abbreviation, zip Code
 *  same = n,AELSub(pngnpbx-abc-ai,Room 225)                                    ; Additional Information. SA + AI = Dispatchable Location
 *  same = n,AELSub(pngnpbx-abc-remote,7205557729)                              ; Dial out the trunk(s) using a different call-back number as the Caller ID number.
 *  same = n,Goto(friends)
 * 
 *  same = n(friends),NoOp(Remote dial started. Now adding friends to call.)    ; Most critical is the remote call.
 *  same = n,AELSub(pngnpbx-abc-friend,1,PJSIP/1113)                            ; Bridge in friend.
 *  same = n,AELSub(pngnpbx-abc-friend,2,PJSIP/1114)                            ; Bridge in another friend.
 *  same = n,AELSub(pngnpbx-abc-friend,3,PJSIP/1115)                            ; Bridge in yet another friend. (Up to 20 total participants by default.)
 *  same = n,AELSub(pngnpbx-abc-howdy-yall)                                     ; Enter the conference. No more dial plan processing occurs for caller.
 *
 * IMPORTANT:
 * YOU MUST CHANGE #YOUR-TRUNK-s# and choose valid Call-Back numbers !!!
 * ALSO CHANGE 1101, 1102, 1113, 1114, and 1115 to match your extension numbers.
 * AND if you want to send GPS co-ordinates, then please change those, too!
 *
 * Tested with PJSIP on ASTERISK certified version 16.3-cert1.
 * It should also work with any channel technology (see DAHDI in example #2.)
 * Non-numeric extension numbers should work, but you should test it yourself.
 * Actually you should probably test and verify with multiple test calls.
 *
 * Frequently Asked Questions
 * ==========================
 *
 *
 * Question:
 *      What are the conference menu options ?
 * Answer:
 *      * YOU ARE HERE! Speaks GPS co-ordinates of the caller into the conference.
 *      0 Operator - Plays back all of the menu options. Just to your phone. TODO!
 *      1 (empty)
 *      2 "A"dditional information (eg. Room Number) is spoken into the conference.
 *      3 "D"ecrease listening volume - only on your phone.
 *      4 "I"ncrease listening volume - only on your phone.
 *      5 "L"ocal extension number is spoken into the conference.
 *      6 "N"umber to call back and reach the caller is spoken into the conference.
 *      7 "S"treet address and additional information of caller is spoken into the conference.
 *      8 (empty)
 *      9 "W"hat the? Redial the remote destination phone number into the conference.
 *      # Halts any automated message playbacks (may have to press it twice sometimes.)
 * 
 * Question:
 *      Why do I hear ring back tone until the friend(s) pick up and answer ?
 * Answer:
 *      You'll need to add a new line to indications.conf for each tone zone
 *      you offer to your users in order to produce a 'silent' ringer.
 *
 *      (...scroll down to find the section...)
 *      [us]
 *      description = United States / North America
 *      silent = 0/15000
 *      (...the rest of the tones...)
 *
 *      ...but to avoid a restart, for testing, on the Asterisk CLI, you can do:
 *      CLI> indication add us silent 0/15000
 * 
 *
 * ASTERISK, FreePBX and DAHDI are registered trademarks of Sangoma.
 * Penguin PBX Solutions is not affiliated with Sangoma.
 *
 */

/* Either "simple" or "init" macro needs to be entered first,
 * from somewhere outside of this file, in order to activate the
 * conference room. */
macro pngnpbx-abc-simple(type_) {
    &pngnpbx-abc-init(${type_},,,,);
    return;
}

/* The "init" macro (re)sets up several things for the conference room. */
macro pngnpbx-abc-init(type_,record_,conftimeout_,abcid_,announce_) {
    Set(LOCAL(startstamp)=${STRFTIME(,UTC,%F %H:%M:%S.%3q)} UTC);
    local cnftmt=;
    DumpChan(5);
    if( ${LEN(${type_})} > 0 ) {
        Set(pngnpbx_abc_type=${type_});
    } else {
        Set(pngnpbx_abc_type=default);
    }
    Set(CHANNEL(accountcode)=${pngnpbx_abc_type});
    if( ${LEN(${abcid_})} > 0 ) {
        Set(pngnpbx_abc_id=${FILTER(a-zA-Z0-9,${abcid_})});
    } else {
        // This default only works if each phone has a unique caller ID number.
        // Otherwise, you'll need to specify your own conference ID number.
        // (But if your extensions have matching numbers... please just stop that.)
        Set(pngnpbx_abc_id=${FILTER(a-zA-Z0-9,${CALLERID(num)})});
    }
    Set(cnftmt=${FILTER(0-9,${conftimeout_})});
    if( ${LEN(${cnftmt})} == 0 ) {
        Set(cnftmt=14400);
    }
    // TODO: Check if the conference is already/still running.
    DBdeltree(pngnpbx/abc/${pngnpbx_abc_id});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/init)=${startstamp});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/type)=${pngnpbx_abc_type});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/cidnum)=${CALLERID(num)});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/cidname)=${CALLERID(name)});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dnid)=${CALLERID(DNID)});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/conftimeout)=${cnftmt});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/ttsactive)=0);
    if( "x${TOLOWER(${record_})}" == "xrecord" ) {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/record)=yes);
    } else {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/record)=no);
    }
    if( "x${TOLOWER(${announce_})}" == "xannounce" ) {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/announce)=yes);
    } else {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/announce)=no);
    }
    return;
}

/* The "remote" macro should be entered once per conference.
 * It is (arguably) the most important destination and probably what the user dialed. */
macro pngnpbx-abc-remote(cidnum_) {
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/outboundcidnum)=${cidnum_});
    Originate(Local/${pngnpbx_abc_id}@pngnpbx-abc-bridge,exten,pngnpbx-abc-dial,${pngnpbx_abc_id}-0ABC,1,1);
    return;
}

/* The "friend" macro can be entered multiple times, once per each additional participant. */
macro pngnpbx-abc-friend(position_,dialstr_) {
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/friend/${position_}/dialstr)=${dialstr_});
    Originate(Local/${pngnpbx_abc_id}@pngnpbx-abc-bridge,exten,pngnpbx-abc-dial,${pngnpbx_abc_id}-${position_},1,1);
    return;
}

/* The "paths" macro supports multiple dial strings to try and
 * reach the far end, in a failover manner, in case some routes are down. */
macro pngnpbx-abc-path(position_,timeout_,dialstr_) {
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/outpath/${position_}/dialstr)=${dialstr_});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/outpath/${position_}/timeout)=${timeout_});
    return;
}

/* The "gps" macro is optional; if used it should be entered immediately after "init". */
macro pngnpbx-abc-gps(lat_,lon_,url_) {
    if( ${LEN(${lat_})} > 0 ) {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/gps/lat)=${lat_});
        if( ${LEN(${lon_})} > 0 ) {
            Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/gps/lon)=${lon_});
        }
    }
    if( ${LEN(${url_})} > 0 ) {
        Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/gps/url)=${url_});
    }
    return;
} 

macro pngnpbx-abc-sa(street_,city_,state_,zip_) {
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dloc/street)=${street_});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dloc/city)=${city_});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dloc/state)=${state_});
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dloc/zip)=${zip_});
    return;
}

macro pngnpbx-abc-ai(info_) {
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/dloc/ainfo)=${info_});
    return;
}

/* The "geohdrs" macro is another internal helper, only utilized in tandem with "gps" macro. */
macro pngnpbx-abc-geohdrs(abcid_) {
    local lat=;
    local lon=;
    local url=;
    // TODO: check if this is an outgoing PJSIP channel
    Set(lat=${DB(pngnpbx/abc/${abcid_}/gps/lat)});
    Set(lon=${DB(pngnpbx/abc/${abcid_}/gps/lon)});
    Set(url=${DB(pngnpbx/abc/${abcid_}/gps/url)});
    Set(PJSIP_HEADER(add,Geolocation)=<${url}?lat=${lat}&lon=${lon}>);
    Set(PJSIP_HEADER(add,Geolocation-Routing)=no);
    return;
}

/* The "cbo-" macros are internal and helps avoid editing confbridge.conf file. */
macro pngnpbx-abc-cbo-specs(cnftmt_) {
    CONFBRIDGE(user,admin)=no;
    CONFBRIDGE(user,announce_join_leave)=no;
    CONFBRIDGE(user,announce_only_user)=no;
    CONFBRIDGE(user,announce_user_count)=no;
    CONFBRIDGE(user,dsp_drop_silence)=yes;
    CONFBRIDGE(user,end_marked)=no;
    CONFBRIDGE(user,jitterbuffer)=yes;
    CONFBRIDGE(user,music_on_hold_when_empty)=no;
    CONFBRIDGE(user,quiet)=yes;
    CONFBRIDGE(user,startmuted)=no;
    CONFBRIDGE(user,timeout)=${cnftmt_};
    CONFBRIDGE(user,wait_marked)=no;
    CONFBRIDGE(user,dtmf_passthrough)=yes;
}

macro pngnpbx-abc-cbo(abcid_) {
    local cnftmt=;
    local dorecord=;
    local abctype=;
    local saymenu="silence/1";
    Set(cnftmt=${DB(pngnpbx/abc/${abcid_}/conftimeout)});
    Set(TIMEOUT(absolute)=${cnftmt});
    Set(dorecord=${DB(pngnpbx/abc/${abcid_}/record)});
    if( "x${dorecord}" == "xyes" ) {
        Set(abctype=${DB(pngnpbx/abc/${abcid_}/type)});
        // TODO: file bug because certified version number issue
        if( ${VERSION(ASTERISK_VERSION_NUM)} >= 160000 
         || "${VERSION()}" == "certified/16.3-cert1" ) {
            MixMonitor(${abctype}-${abcid_}-${UNIQUEID}.wav);
        } else {
            Monitor(wav,${abctype}-${abcid_}-${UNIQUEID});
        }
    }
    &pngnpbx-abc-cbo-specs(${cnftmt});
    CONFBRIDGE(bridge,max_members)=20;
    // Dynamic menu change requires first choosing template.
    // TODO: file a bug report because no template = crash
    CONFBRIDGE(menu,template)=default_menu;
    //CONFBRIDGE(menu,clear)=hmm;
    Set(CONFBRIDGE(menu,*)=dialplan_exec(pngnpbx-abc-hola-gps,${abcid_},1)); // HERE!
    Set(CONFBRIDGE(menu,0)=playback_and_continue(${saymenu})); // Operator
    Set(CONFBRIDGE(menu,1)=no_op); // (blank)
    Set(CONFBRIDGE(menu,2)=dialplan_exec(pngnpbx-abc-hola-ainfo,${abcid_},1)); // A
    Set(CONFBRIDGE(menu,3)=decrease_listening_volume); // D
    Set(CONFBRIDGE(menu,4)=increase_listening_volume); // I
    Set(CONFBRIDGE(menu,5)=dialplan_exec(pngnpbx-abc-hola-exten,${abcid_},1)); // L
    Set(CONFBRIDGE(menu,6)=dialplan_exec(pngnpbx-abc-hola-cbnum,${abcid_},1)); // N
    Set(CONFBRIDGE(menu,7)=dialplan_exec(pngnpbx-abc-hola-dloc,${abcid_},1)); // S
    Set(CONFBRIDGE(menu,8)=no_op); // TUV
    Set(CONFBRIDGE(menu,9)=dialplan_exec(pngnpbx-abc-redial,${abcid_},1)); // W
    return;
}

/* The "howdy-yall" macro is the final needed step for connecting the caller. */
macro pngnpbx-abc-howdy-yall() {
    CONNECTEDLINE(num,i) = ${CALLERID(DNID)};
    CONNECTEDLINE(name,i) = "${TOUPPER(${pngnpbx_abc_type})} ConfCall";
    CONNECTEDLINE(pres) = allowed;
    &pngnpbx-abc-cbo(${pngnpbx_abc_id});
    Set(nowstamp=${STRFTIME(,UTC,%F %H:%M:%S.%3q)} UTC);
    Set(DB(pngnpbx/abc/${pngnpbx_abc_id}/howdy)=${nowstamp});
    ConfBridge(pngnpbx-abc-${pngnpbx_abc_id});
    return;
}

/* The "account" macro is called internally from several places. */
macro pngnpbx-abc-account(x) {
    Answer();
    Set(abcid=${FILTER(a-zA-Z0-9,${x})});
    Set(abctype=${DB(pngnpbx/abc/${abcid}/type)});
    Set(CHANNEL(accountcode)=${abctype});
    return;
}

/* The "tunes" macro plays a little ditty. */
macro pngnpbx-abc-tunes() {
    Answer();
    Playtones(M72+M64/80,0+0/20,M70+M64/80,0+0/20,M74+M64/80,0+0/100);
    Wait(.3);
    return;
}

/* The "tts-status" macro helps keep multiple sounds from playing at the same time. */
macro pngnpbx-abc-tts-status(abcid_,status_) {
    Set(ttsact=${DB(pngnpbx/abc/${abcid_}/ttsactive)});
    if( "x${ttsact}" == "x1" && "x${status_}" == "x1" ) {
        Hangup();
    }
    Set(DB(pngnpbx/abc/${abcid_}/ttsactive)=${status_});
    return;
}

/* The "tts-gps" context Speaks out the GPS co-ordinates of the OG caller. */
context pngnpbx-abc-tts-gps {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-tts-status(${abcid},1);
        Set(SAY_DTMF_INTERRUPT=true);
        Set(lat=${DB(pngnpbx/abc/${abcid}/gps/lat)});
        Set(lon=${DB(pngnpbx/abc/${abcid}/gps/lon)});
        &pngnpbx-abc-tunes();
        if( ${LEN(${lat})} > 0 && ${LEN(${lon})} > 0 ) {
            SayAlpha(gps);
            SayNumber(${CUT(lat,.,1)});
            Background(point);
            SayDigits(${CUT(lat,.,2)});
            Background(by);
            SayNumber(${CUT(lon,.,1)});
            Background(point);
            SayDigits(${CUT(lon,.,2)});
        }
    }
    # => &pngnpbx-abc-tts-status(${abcid},0);
    h => &pngnpbx-abc-tts-status(${abcid},0);
}

/* The "tts-dloc" context speaks out the dispatchable location of the OG caller. */
context pngnpbx-abc-tts-dloc {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-tts-status(${abcid},1);
        Set(SAY_DTMF_INTERRUPT=true);
        Set(street=${DB(pngnpbx/abc/${abcid}/dloc/street)});
        Set(city=${DB(pngnpbx/abc/${abcid}/dloc/city)});
        Set(state=${DB(pngnpbx/abc/${abcid}/dloc/state)});
        Set(zip=${DB(pngnpbx/abc/${abcid}/dloc/zip)});
        Set(ainfo=${DB(pngnpbx/abc/${abcid}/dloc/ainfo)});
        &pngnpbx-abc-tunes();
        if( ${LEN(${street})} == 0
         || ${LEN(${city})} == 0 
         || ${LEN(${state})} == 0 
         || ${LEN(${zip})} == 0 ) {
            Hangup();
        }
        Background(zip-code);
        SayAlpha(${zip});
        Background(address);
        SayAlpha(${street});
        WaitExten(1);
        SayAlpha(${city});
        WaitExten(0.5);
        SayAlpha(${state});
        if( ${LEN(${ainfo})} == 0 ) {
            Hangup();
        }
        WaitExten(0.25);
        Background(added&information);
        SayAlpha(${ainfo});
    }
    # => &pngnpbx-abc-tts-status(${abcid},0);
    h => &pngnpbx-abc-tts-status(${abcid},0);
}

/* Speaks out the additional address information of the OG caller. */
context pngnpbx-abc-tts-ainfo {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-tts-status(${abcid},1);
        Set(SAY_DTMF_INTERRUPT=true);
        Set(ainfo=${DB(pngnpbx/abc/${abcid}/dloc/ainfo)});
        &pngnpbx-abc-tunes();
        if( ${LEN(${ainfo})} == 0 ) {
            Hangup();
        }
        Background(added&information);
        SayAlpha(${ainfo});
    } 
    # => &pngnpbx-abc-tts-status(${abcid},0);
    h => &pngnpbx-abc-tts-status(${abcid},0);
}

/* The "tts-exten" context speaks out the extension number of the OG caller. */
context pngnpbx-abc-tts-exten {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-tts-status(${abcid},1);
        Set(SAY_DTMF_INTERRUPT=true);
        Set(cidnum=${DB(pngnpbx/abc/${abcid}/cidnum)});
        &pngnpbx-abc-tunes();
        if( ${LEN(${cidnum})} == 0 ) {
            Hangup();
        }
        Background(extension);
        SayDigits(${cidnum});
    } 
    # => &pngnpbx-abc-tts-status(${abcid},0);
    h => &pngnpbx-abc-tts-status(${abcid},0);
}

/* The "tts-cbnum" context speaks out the call back number of the OG caller. */
context pngnpbx-abc-tts-cbnum {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-tts-status(${abcid},1);
        Set(SAY_DTMF_INTERRUPT=true);
        Set(cbnum=${DB(pngnpbx/abc/${abcid}/outboundcidnum)});
        &pngnpbx-abc-tunes();
        if( ${LEN(${cbnum})} == 0 ) {
            Hangup();
        }
        Background(call&from);
        SayDigits(${cbnum});
    } 
    # => &pngnpbx-abc-tts-status(${abcid},0);
    h => &pngnpbx-abc-tts-status(${abcid},0);
}

/* The "hola-" contexts spools calls into the conference for Text-To-Speech. */
context pngnpbx-abc-hola-gps {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-gps,${abcid},1,1);
    }
}

context pngnpbx-abc-hola-dloc {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-dloc,${abcid},1,1);
    }
}

context pngnpbx-abc-hola-ainfo {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-ainfo,${abcid},1,1);
    }
}

context pngnpbx-abc-hola-exten {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-exten,${abcid},1,1);
    }
}

context pngnpbx-abc-hola-cbnum {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-cbnum,${abcid},1,1);
    }
}

/* Anchor point for the "hola" shouts into the conference. */
context pngnpbx-abc-hola {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Set(cnftmt=${DB(pngnpbx/abc/${abcid}/conftimeout)});
        &pngnpbx-abc-cbo-specs(${cnftmt});
        ConfBridge(pngnpbx-abc-${abcid});
    }
}

/* The "bridge" context puts spooled calls in the conference. */
context pngnpbx-abc-bridge {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        &pngnpbx-abc-cbo(${abcid});
        ConfBridge(pngnpbx-abc-${abcid});
    }
}

/* Triggered from the menu to re-attempt the outbound remote call. */
context pngnpbx-abc-redial {
    _[a-zA-Z0-9]. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Originate(Local/${abcid}@pngnpbx-abc-bridge,exten,pngnpbx-abc-dial,${abcid}-0ABC,1,1);
    }
}

/* The "answered" context is for after the dial picks up on remote end.
 * It should be entered only from a Dial option 'G' which is why it looks weird.
 * Do not be fooled by the Hangup in the first line. KEEP IT THERE. */
context pngnpbx-abc-answered {
    _[a-zA-Z0-9]. => {
        Hangup(); // caller enters here but it is not needed
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${EXTEN})});
        Set(doannounce=${DB(pngnpbx/abc/${abcid}/announce)});
        Set(dorecord=${DB(pngnpbx/abc/${abcid_}/record)});
        if( "x${doannounce}" == "xyes" ) {
            Originate(Local/${abcid}@pngnpbx-abc-hola,exten,pngnpbx-abc-tts-gps,${abcid},1,1);
        }
        &pngnpbx-abc-cbo(${abcid});
        ConfBridge(pngnpbx-abc-${abcid});
    }
}

/* The "dial" context actually makes the phones ring. */
context pngnpbx-abc-dial {
    _[a-zA-Z0-9].-. => {
        &pngnpbx-abc-account(${FILTER(a-zA-Z0-9,${CUT(EXTEN,-,1)})});
        Set(position=${FILTER(0-9,${CUT(EXTEN,-,2)})});
        Set(tofriend=${DB(pngnpbx/abc/${abcid}/friend/${position}/dialstr)});
        Set(outboundcidnum=${DB(pngnpbx/abc/${abcid}/outboundcidnum)});
        Set(abctype=${DB(pngnpbx/abc/${abcid}/type)});
        Set(abccidnum=${DB(pngnpbx/abc/${abcid}/cidnum)});
        Set(abccidname=${DB(pngnpbx/abc/${abcid}/cidname)});
        Set(abcdnid=${DB(pngnpbx/abc/${abcid}/dnid)});
        Set(cnftmt=${DB(pngnpbx/abc/${abcid}/conftimeout)});
        Set(CHANNEL(accountcode)=${abctype});
        Set(TIMEOUT(absolute)=${cnftmt});
        if( ${LEN(${tofriend})} > 0 ) {
            Set(CALLERID(num)=${abccidnum});
            Set(CALLERID(name)=${TOUPPER(${abctype})}:${abccidname} dialed ${abcdnid} as ${outboundcidnum});
            // The silent ringer should be defined in indications.conf.
            // See more info at the top of this file.
            Set(abcdialopts=ir(silent));
            // TODO: Add Alert-Info headers for auto-answer.
            // Try to dial out a couple of times, one minute each try...
            Dial(${tofriend},60,${abcdialopts});
            if( "${DIALSTATUS}" != "ANSWERED" ) {
                Wait(2);
                Dial(${tofriend},60,${abcdialopts});
            }
        } else {
            Set(abcdialopts=i);
            Set(CALLERID(num)=${outboundcidnum});
            Set(lat=${DB(pngnpbx/abc/${abcid}/gps/lat)});
            Set(lon=${DB(pngnpbx/abc/${abcid}/gps/lon)});
            if( ${LEN(${lat})} == 0 || ${LEN(${lon})} == 0 ) {
                Set(CALLERID(name)=${abccidname});
            } else {
                // Really cool if/when the provider lets this get to the far end (some do!)
                Set(CALLERID(name)=LAT${lat}LON${lon}:${abccidname});
                // No biggee if no URL at least we modded/overloaded the caller ID name.
                Set(gpsurl=${DB(pngnpbx/abc/${abcid}/gps/url)});
                if( ${LEN(${gpsurl})} > 0 ) {
                    // Macros in AEL are Gosubs with snake-like extension names.
                    // (Maybe pronounced 'sssssss'.)
                    Set(abcdialopts=${abcdialopts}b(pngnpbx-abc-geohdrs^~~s~~^1(${abcid})));
                    // TODO: Adjust Contact header for setting name and call back number (on some providers.)
                    Set(abcdialopts=${abcdialopts}G(pngnpbx-abc-answered^${abcid}^1));
                }
            }
            for( i=1; ${i} <= 3; i=${i} + 1 ) {
                Set(opdialstr=${DB(pngnpbx/abc/${abcid}/outpath/${i}/dialstr)});
                Set(optimeout=${DB(pngnpbx/abc/${abcid}/outpath/${i}/timeout)});
                if( ${LEN(${opdialstr})} == 0 ) {
                    break;
                }
                if( ${LEN(${optimeout})} == 0 ) {
                    Set(optimeout=300);
                }
                Dial(${opdialstr},${optimeout},${abcdialopts});
                if( "${DIALSTATUS}" == "ANSWERED" ) {
                    break;
                } 
                Wait(2);
            }
        }
    }
}