<?php
/**
 * class.ymlDomain.php
 * @package gulliver.system 
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2011 Colosa Inc.
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 * 
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 * 
 * For more information, contact Colosa Inc, 2566 Le Jeune Rd., 
 * Coral Gables, FL, 33134, USA, or email info@colosa.com.
 * 
 */

/**
 * @package gulliver.system
*/
require_once( PATH_THIRDPARTY.'lime/yaml.class.php');
/**
 * ymlDomain class 
 * @copyright (C) 2002 by Colosa Development Team.
 * @package gulliver.system
 */

class ymlDomain
{
  var $global;
  
  /**
   * function ymlDomain
   *
   * @access public
   * @return void
   */
  function ymlDomain()
  {
    $this->global = sfYAML::Load( PATH_FIXTURES . 'domain.yml');
  }
  
  /**
   * function addDomain
   *
   * @access public
   * @param string $domainName
   * @return boolean
   */
  function addDomain( $domainName )
  {
    $keys = $this->name2keys( $domainName );
    $currDomain =& $this->global;
    $i=0;
    for($i=0;$i<count($keys);$i++){
      if (is_array($currDomain)){
        if (!isset($currDomain[$keys[$i]])) $currDomain[$keys[$i]] = array();
        $currDomain =& $currDomain[$keys[$i]];
      }
      else{
        trigger_error( "Operation not possible: Subdomain is not present $domainName" , E_USER_ERROR );
        return FALSE;
      }
    }
    return TRUE; 
  }

  /**
   * function addDomainValue
   *
   * @access public
   * @param string $domainName
   * @param string $value
   * @return boolean
   */
  function addDomainValue( $domainName , $value )
  {
    $keys = $this->name2keys( $domainName );
    $currDomain =& $this->global;
    $i=0;
    for($i=0;$i<count($keys);$i++){
      if (is_array($currDomain)){
        $currDomain =& $currDomain[$keys[$i]];
      }
      else{
        trigger_error( "Operation not possible: Subdomain is not present $domainName" , E_USER_ERROR );
        return FALSE;
      }
    }
    $currDomain[]=$value;
    return TRUE; 
  }
  
  /**
   * function exists
   *
   * @access public
   * @param string $domainName
   * @return boolean
   */
  function exists( $domainName )
  {
    $keys = $this->name2keys( $domainName );
    $currDomain =& $this->global;
    $i=0;
    for($i=0;$i<count($keys);$i++){
      if (is_array($currDomain) && isset($currDomain[$keys[$i]]) ){
        $currDomain =& $currDomain[$keys[$i]];
      }
      else{
        return FALSE;
      }
    }
    return TRUE; 
  }
  
  /**
   * function get
   *
   * @access public
   * @param string $resource
   * @return array
   */
  function get($resource)
  {
    if (is_array($result=$this->load($resource))){
      //Get one value per each $item
      //Ex. *.first.name.es => Returns an array with all of the defined firstNames. 
      //    first.name.es => Returns an array with one firstName. 
      //    *.name.es => Returns an array with one value per each sub domain of name.es.
      //                  For example: if name.es has the subdomains: 
      //                  first.name.es and last.name.es, it returns an array of
      //                  two elements: one firstName and one lastName. 
      foreach($result as $key => $item){
        if (is_array($item)){
          $subResult = $this->plainArray($item);
          $result[$key] = $subResult[ array_rand( $subResult, 1 ) ];
        }
      }
      return $result;
    }
    else{
      return array('');
    }
  }

  /**
   * function name2keys
   *
   * @access public
   * @param string $resource
   * @return array
   */
  function name2keys( $resource )
  {
    if (strpos( $resource, '.' )!==FALSE){
      $revKeys=explode( '.', $resource );
      $keys=array();
      for($i=count($revKeys)-1;$i>=0;$i--){
        $keys[]=$revKeys[$i];
      }
    } 
    elseif (strpos( $resource, '/' )!==FALSE){
      $rootKeys=explode( '/', $resource );
      unset($rootKeys[0]);
      $keys=array_values($rootKeys);
    }
    else{
      $keys=array($resource);
    }
    return $keys;
  }
  
  /**
   * function load
   *
   * @access public
   * @param string $resource
   * @return array
   */
  function load($resource)
  {
    $keys = $this->name2keys( $resource );
    //Find in global variable
    if (count($this->getNode($keys[0],$this->global))>0){
      return $this->find( $keys, $this->global );
    }
    else{
      if (file_exists(PATH_FIXTURES . $keys[0] . '.yml')){
        $local = sfYAML::Load( PATH_FIXTURES . $keys[0] . '.yml');
        unset($keys[0]);
        $keys=array_values($keys);
        return $this->find( $keys, $local );
      }
      else{
        return NULL;
      }
    }
    return NULL;
  }
  
  /**
   * function find
   *
   * @access public
   * @param string $nodesKey
   * @param string $where
   * @return array
   */
  function find( $nodesKey , $where )
  {
    if (count($nodesKey)==1){
      return $this->getNode( $nodesKey[0], $where );
    }
    elseif (count($nodesKey)>1){
      $routes = $this->getNode( $nodesKey[0], $where );
      $result=array();
      unset($nodesKey[0]);
      $nodesKey=array_values($nodesKey);
      foreach($routes as $route){
        if (is_array( $route )){
          $subResult = $this->find( $nodesKey, $route );
          $this->arrayAppend( $result, $subResult );
        }
        else{
          $result[]=$route;
        }
      }
      return $result;
    }
    else{
      return array();
    }
  }

  /**
   * function getNode
   *
   * @access public
   * @param string $nodesKey
   * @param string $from
   * @return array
   */
  function getNode( $nodeKey , $from )
  {
    if($nodeKey==='*'){
      return array_values($from);
    }
    elseif (array_key_exists( $nodeKey, $from )){
      return array($from[$nodeKey]);
    }
    else{
      return array();
    }
  }
  
  /**
   * function plainArray
   *
   * @access public
   * @param array $array
   * @return array
   */
  function plainArray( $array )
  {
    $result=array();
    foreach($array as $item){
      if (is_array($item)){
        $appResult=$this->plainArray( $item );
        $this->arrayAppend( $result, $appResult );
      }
      else{
        $result[]=$item;
      }
    }
    return $result;
  }

  /**
   * function arrayAppend
   *
   * @access public
   * @param string $to
   * @param string $appendFrom
   * @return void
   */
  function arrayAppend( &$to , $appendFrom )
  {
    foreach($appendFrom as $appendItem) $to[]=$appendItem;
  } 
}