<?php
/**
 * @package  FS_CURL
 * @subpackage FS_CURL_Configuration
 * fs_curl.php
 */
if (basename($_SERVER['PHP_SELF']) == basename(__FILE__)) {
    header('Location: index.php');
}

/**
 * @package FS_CURL
 * @license BSD
 * @author Raymond Chandler (intralanman) <intralanman@gmail.com>
 * @version 0.1
 * FreeSWITCH CURL base class
 * Base class for all curl XML output, contains methods for XML output and
 * connecting to a database
 * @return void
 */
class fs_curl {
/**
 * FS_PDO Object
 * @link http://www.php.net/pdo
 * @var $db FS_PDO
 */
    public $db;
    /**
     * Array of _REQUEST parameters passed
     *
     * @var array
     */
    public $request;
    /**
     * XMLWriter object
     * @link http://php.net/XMLWriter
     * @var object
     */
    public $xmlw;
    /**
     * Array of comments to be output in the XML
     * @see fs_curl::comment
     * @var array
     */
    private $comments;

    /**
     * Instantiation of XMLWriter and FS_PDO
     * This method will instantiate the FS_PDO and XMLWriter classes for use
     * in child classes
     * @return void
     */
    public function fs_curl() {
        openlog('fs_curl', LOG_NDELAY | LOG_PID, LOG_USER);
        header('Content-Type: text/xml');
        $this -> generate_request_array();
        $this -> open_xml();
        $inc = array('required'=>'libs/fs_pdo.php'); // include an external file. i.e. 'required'=>'important_file.php'
        $this -> include_files($inc);
        $this -> connect_db(DEFAULT_DSN, DEFAULT_DSN_LOGIN, DEFAULT_DSN_PASSWORD );
        set_error_handler(array($this, 'error_handler'));
    //trigger_error('blah', E_USER_ERROR);
    }

    /**
     * Connect to a database via FS_PDO
     * @param mixed $dsn data source for database connection (array or string)
     * @return void
     */
    public function connect_db($dsn, $login, $password) {
        try {
            $this -> db = new FS_PDO($dsn, $login, $password);
        } catch(Exception $e) {
            $this -> comment($e->getMessage());
            $this -> file_not_found(); //program terminates in function file_not_found()
        }
        $driver = $this->db->getAttribute(constant("PDO::ATTR_DRIVER_NAME"));
        $this->debug("our driver is $driver");
        switch ($driver) {
            case 'mysql':
                $quoter = '`';
                break;
            case 'pgsql':
                $quoter = '"';
                break;
            default:
                $quoter = '';
                break;
        }
        define('DB_FIELD_QUOTE', $quoter);
    }

    /**
     * Method to add comments to XML
     * Adds a comment to be displayed in the final XML
     * @param string $comment comment string to be output in XML
     * @return void
     */
    public function comment($comment) {
        $this -> comments[] = $comment;
    }

    /**
     * Generate a globally accesible array of the _REQUEST parameters passed
     * Generates an array from the _REQUEST parameters that were passed, keeping
     * all key => value combinations intact
     * @return void
     */
    private function generate_request_array() {
        while (list($req_key, $req_val) = each($_REQUEST)) {
			if (!defined('FS_CURL_DEBUG') && $req_key == 'fs_curl_debug') {
				define('FS_CURL_DEBUG', $req_val);
			}
			//$this -> comment("$req_key => $req_val");
            $this -> request[$req_key] = $req_val;
        }
    }

    /**
     * Actual Instantiation of XMLWriter Object
     * This method creates an XMLWriter Object and sets some needed options
     * @return void
     */
    private function open_xml() {
        $this -> xmlw = new XMLWriter();
        $this -> xmlw -> openMemory();
        if (array_key_exists('fs_curl_debug', $this -> request)
            && $this -> request['fs_curl_debug'] > 0) {
            $this -> xmlw -> setIndent(true);
            $this -> xmlw -> setIndentString('  ');
        } else {
            $this -> xmlw -> setIndent(false);
            $this -> xmlw -> setIndentString('  ');
        }
        $this -> xmlw -> startDocument('1.0', 'UTF-8', 'no');
        //set the freeswitch document type
        $this -> xmlw -> startElement('document');
        $this -> xmlw -> writeAttribute('type', 'freeswitch/xml');
    }

    /**
     * Method to call on any error that can not be revovered from
     * This method was written to return a valid XML response to FreeSWITCH
     * in the event that we are unable to generate a valid configuration file
     * from the passed information
     * @return void
     */
    public function file_not_found() {
        $this -> comment('Include Path = ' . ini_get('include_path'));
        $not_found = new XMLWriter();
        $not_found -> openMemory();
        $not_found -> setIndent(true);
        $not_found -> setIndentString('  ');
        $not_found -> startDocument('1.0', 'UTF-8', 'no');
        //set the freeswitch document type
        $not_found -> startElement('document');
        $not_found -> writeAttribute('type', 'freeswitch/xml');
        $not_found -> startElement('section');
        $not_found -> writeAttribute('name', 'result');
        $not_found -> startElement('result');
        $not_found -> writeAttribute('status', 'not found');
        $not_found -> endElement();
        $not_found -> endElement();
        /* we put the comments inside the root element so we don't
         * get complaints about markup outside of it */
        $this -> comments2xml($not_found, $this -> comments);
        $not_found -> endElement();
        echo $not_found -> outputMemory();
        exit();
    }

    /**
     * Generate XML comments from comments array
     * This [recursive] method will iterate over the passed array, writing XML
     * comments and calling itself in the event that the "comment" is an array
     * @param object $xml_obj Already instantiated XMLWriter object
     * @param array $comments [Multi-dementional] Array of comments to be added
     * @param integer $space_pad Number of spaces to indent the comments
     * @return void
     */
    private function comments2xml($xml_obj, $comments, $space_pad=0) {
        $comment_count = count($comments);
        for ($i = 0; $i < $comment_count; $i++) {
            if (array_key_exists($i, $comments)) {
                if (!is_array($comments[$i])) {
                    $xml_obj -> writeComment(" " . $comments[$i] . " ");
                } else {
                    $this -> comments2xml($xml_obj, $comments[$i], $space_pad + 2);
                }
            }
        }
    }

    /**
     * End open XML elments in XMLWriter object
     * @return void
     */
    private function close_xml() {
        $this -> xmlw -> endElement();
        $this -> xmlw -> endElement();
        $this -> xmlw -> endElement();
    }

    /**
     * Close and Output XML and stop script execution
     * @return void
     */
    public function output_xml() {
        $this->comment(
            sprintf('Total # of Queries Run: %d', $this->db->counter)
        );
        $this -> comment(sprintf("Estimated Execution Time Is: %s"
            , (preg_replace(
            '/^0\.(\d+) (\d+)$/', '\2.\1', microtime()) - START_TIME)
        ));

        $this -> comments2xml($this -> xmlw, $this -> comments);
        $this -> close_xml();
        $xml_out = $this -> xmlw -> outputMemory();
        $this -> debug('---- Start XML Output ----');
        $this -> debug(explode("\n", $xml_out));
        $this -> debug('---- End XML Output ----');
        echo $xml_out;
        exit();
    }

    /**
     * Recursive method to add an array of comments
     * @return void
     */
    public function comment_array($array, $spacepad=0) {
        $spaces = str_repeat(' ', $spacepad);
        foreach ($array as $key => $val) {
            if (is_array($val)) {
                $this -> comment("$spaces$key => Array");
                $this -> comment_array($val, $spacepad+2);
            } else {
                $this -> comment("$spaces$key => $val");
            }
        }
    }

    /**
     * Include files for child classes
     * This method will include the files needed by child classes.
     * Expects an associative array of type => path
     * where type = [required|any other string]
     * @param array $file_array associative array of files to include
     * @return void
     * @todo add other types for different levels of errors
     */
    public function include_files($file_array) {
        $return = FS_CURL_SUCCESS;
        while (list($type, $file) = each($file_array)) {
            $inc = @include_once($file);
            if (!$inc) {
                $comment = sprintf(
                    'Unable To Include %s File %s', $type, $file
                );
                $this -> comment($comment);
                if ($type == 'required') {
                    $return = FS_CURL_CRITICAL;
                } else {
                    if ($return != FS_CURL_CRITICAL) {
                        $return = FS_CURL_WARNING;
                    }
                }
            }
        }
        if ($return == FS_CURL_CRITICAL) {
            $this -> file_not_found();
        }
        return $return;
    }

    /**
     * Class-wide error handler
     * This method should be called whenever there is an error in any child
     * classes, script execution and returning is pariatlly determined by
     * defines
     * @see RETURN_ON_WARN
     * @return void
     * @todo add other defines that control what, if any, comments gets output
     */
    public function error_handler($no, $str, $file, $line) {
        if ($no == E_STRICT) {
            return true;
        }
        $file = preg_replace('/\.(inc|php)$/', '', $file);
        $this -> comment(basename($file) . ":$line - $no:$str");

        switch ($no) {
            case E_USER_NOTICE:
            case E_NOTICE:
                break;
            case E_USER_WARNING:
            case E_WARNING:
                if (defined('RETURN_ON_WARN') && RETURN_ON_WARN == true) {
                    break;
                }
            case E_ERROR:
            case E_USER_ERROR:
            default:
                $this -> file_not_found();
        }
        return true;
    }

    /**
     * Function to print out debugging info
     * This method will recieve arbitrary data and send it using your method of
     * choice.... enable/disable by defining FS_CURL_DEBUG to and arbitrary integer
     * @param mixed $input what to debug, arrays and strings tested, objects MAY work
     * @param integer $debug_level debug if $debug_level <= FS_CURL_DEBUG
     * @param integer $spaces
     */
    public function debug($input, $debug_level=-1, $spaces=0) {
        if (defined('FS_CURL_DEBUG') && $debug_level <= FS_CURL_DEBUG ) {
            if (is_array($input)) {
                $this -> debug('Array (', $debug_level, $spaces);
                foreach ($input as $key=>$val) {
                    if (is_array($val) || is_object($val)) {
                        $this -> debug("[$key] => $val", $debug_level, $spaces+4);
                        $this -> debug('(', $debug_level, $spaces + 8);
                        $this -> debug($val, $debug_level, $spaces + 8);
                    } else {
                        $this -> debug("[$key] => '$val'", $debug_level, $spaces + 4);
                    }
                }
                $this -> debug(")", $debug_level, $spaces);
            } else {
                $debug_str = sprintf("%s%s"
                    , str_repeat(' ', $spaces), $input
                );
                switch (FS_DEBUG_TYPE) {
                    case 0:
                        syslog(LOG_NOTICE, $debug_str);
                        break;
                    case 1:
                        $debug_str = preg_replace('/--/', '- - ', $debug_str);
                        $this -> comment($debug_str);
                        break;
                    case 2:
                        $ptr = fopen(FS_DEBUG_FILE, 'a');
                        fputs($ptr, "$debug_str\r\n");
                        fclose($ptr);
                        break;
                    default:
                        return;
                }
            }
        }
    }
}

