Ticket #2589: devstate.agi

#!/usr/bin/env php
<?php 

$config = parse_amportal_conf( "/etc/amportal.conf" );

require_once "phpagi.php";
require_once "phpagi-asmanager.php";

$debug = 4;

$rc             = "";           // Catch return code

$AGI = new AGI();
debug("Starting New devstate.agi", 1);

$priority = get_var( $AGI, "priority" ) + 1;
debug( "priority is $priority", 1 );

$extnum         = get_var( $AGI, "ARG1" );

if (empty($extnum))     $extnum         = 0;

debug("Devstate Check extnum:   '$extnum'", 4);

$extstate = is_ext_avail($extnum);
// get ExtensionState: 0-idle; 1-busy; 4-unavail; 8-ringing <--- these are unconfirmed
debug("Extension $extnum has ExtensionState: $extstate",1);
$AGI->set_variable('PEERDEVSTATE',$extstate);


// EOF devstate.agi
exit( 0 );

// helper functions
function get_var( $agi, $value)
{
        $r = $agi->get_variable( $value );
        
        if ($r['result'] == 1)
        {
                $result = $r['data'];
                return $result;
        }
        else
                return '';
}


function debug($string, $level=3)
{
        global $AGI;
        $AGI->verbose($string, $level);
}

function mycallback( $rc )
{
        debug("User hung up. (rc=" . $rc . ")", 1);
        exit ($rc);
}

function is_ext_avail( $extnum )
{
        global $config;
                
        $astman = new AGI_AsteriskManager( );   
        if (!$astman->connect("127.0.0.1", $config["AMPMGRUSER"] , $config["AMPMGRPASS"]))
        {
                return false;
        }
        
        $status = $astman->ExtensionState( $extnum, 'from-internal' );
        $astman->disconnect();
                
        $status = $status['Status'];
        debug("ExtensionState: $status", 4);
        return $status;
        
}

function parse_amportal_conf($filename) 
{
        $file = file($filename);
        $matches = array();
        $matchpattern = '/^\s*([a-zA-Z0-9]+)\s*=\s*(.*)\s*([;#].*)?/';
        foreach ($file as $line)
        {
                if (preg_match($matchpattern, $line, $matches)) 
                {
                        $conf[ $matches[1] ] = $matches[2];
                }
        }
        return $conf;
}

?>