EDIT

<?php

/**

 * @file

 * Functions which are required or useful when accessing and processing CDM Data Store Webservices

 * ----------------------

 * Copyright (C) 2007 EDIT

 */

require_once ('xml2json.php');

  $requirements['cdm_api'] = array(

    'title' => t('CDM API')

  );

  if( function_exists('curl_init') ){

  } else {

    $requirements['cdm_api']['value'] =  'CURL php extension is missing.';

  }

  //FIXME: once _get_content_fsockopen is implemented change  severity to  REQUIREMENT_WARNING,

  $requirements['cdm_api']['severity'] =  (function_exists('curl_init') ? REQUIREMENT_OK : REQUIREMENT_ERROR);

  return $requirements;

  $items = array();

  if ($may_cache) {

      'callback' => 'proxy_content',

      'access' => true,

      'type' => MENU_CALLBACK,

    $items[] = array(

      // usage: url('cdm_api/proxy/'.urlencode($content_url)."/$theme");

      'path' => 'cdm_api/setvalue/session',

      'callback' => 'setvalue_session',

      'access' => true,

      'type' => MENU_CALLBACK,

    );

  return $items;

/**

 * Configures the settings forfm for the CDM-API module.

 *

 * @return Array Drupal settings form

 */

      '#title' => t('CDM Web Service'),

      '#collapsible' => FALSE,

      '#collapsed' => FALSE,

  );

  $form['cdm_webservice']['cdm_webservice_url'] =  array(

    '#type' => 'textfield',

    '#title'         => t('CDM Web Service URL'),

    '#description'   => t('The URL of CDM Webservice which delivers the data to be published.'),

  $form['cdm_webservice']['taxontree_ranklimit'] =  array(

    '#type'          => 'select',

    '#title'         => t('Rank of highest displayed taxon'),

  );

  /*

    '#type' => 'checkbox',

    '#title'         => t('Use Web Service Stub'),

    '#default_value' => variable_get('cdm_webservice_isStub', 1),

    '#description'   => t('Use a static web service stub. Only for development. For further information please refer to the ')

  .l('ws_stub/README.txt', 'http://dev.e-taxonomy.eu/svn/trunk/drupal/modules/cdm_dataportal/cdm/ws_stub/README.txt', array('target'=>'_blank')),

  );

  $form['cdm_webservice']['cdm_webservice_type'] =  array(

    '#default_value' => variable_get('cdm_webservice_type', 'json'),

            'xml'  => t('XML'),

            'json' => t('JSON'),

    '#description'   => t('The response data type of the web service.'),

  );

  $form['cdm_webservice']['cdm_webservice_cache'] =  array(

    '#type' => 'checkbox',

    '#title'         => t('Enable Caching'),

    '#default_value' => variable_get('cdm_webservice_cache', 1),

      .'that is requests which only have one parameter generally a UUID or a concatenation of UUIDs')

  $form['cdm_webservice']['proxy'] = array(

      '#type' => 'fieldset',

      '#title' => t('Proxy'),

      '#collapsible' => TRUE,

      '#collapsed' => TRUE

  );

  $form['cdm_webservice']['proxy']['cdm_webservice_proxy_url'] =  array(

    '#type' => 'textfield',

    '#title'         => t('Proxy URL'),

    to connect the web service over the given proxy server.

    '#default_value' => variable_get('cdm_webservice_proxy_url', false),

  );

  $form['cdm_webservice']['proxy']['cdm_webservice_proxy_port'] =  array(

    '#type' => 'textfield',

    '#title'         => t('Proxy Port'),

    '#default_value' => variable_get('cdm_webservice_proxy_port', '80'),

  );

  $form['cdm_webservice']['proxy']['cdm_webservice_proxy_usr'] =  array(

    '#type' => 'textfield',

    '#title'         => t('Login'),

    '#default_value' => variable_get('cdm_webservice_proxy_usr', false),

  );

  $form['cdm_webservice']['proxy']['cdm_webservice_proxy_pwd'] =  array(

    '#type' => 'textfield',

    '#title'         => t('Password'),

    '#default_value' => variable_get('cdm_webservice_proxy_pwd', false),

  );

  $form['cdm_webservice']['cdm_webservice_debug'] =  array(

    '#type' => 'checkbox',

    '#title'         => t('Debug CDM Web Service'),

    '#default_value' => variable_get('cdm_webservice_debug', 1),

}

 * Implementation of hook_cron().

 *

 * Expire outdated cache entries

 */

function cdm_api_cron() {

  cache_clear_all(NULL, 'cache_cdm_ws');

}

// ----------------------------------------------------------- //

/**

 * @param String $tag

   $i = 0;

   return $out;

}

/**

 * Finds the text tagged with $$tag_type in an array of taggedText instances

 *

 * @param array $taggedtxt

 * @param string $tag_type

 * @return the text mapped by $tag_type or an empty string

 */

function cdm_taggedtext_value(array &$taggedtxt = array(), $tag_type){

  foreach($taggedtxt as $tagtxt){

    if($tagtxt->type == $tag_type)

    return $tagtxt->text;

  }

  return '';

}

/**

 * media Array [4]

 *   representations Array [3]

 *       mimeType  image/jpeg

 *       representationParts Array [1]

 *           duration  0

 *           heigth  0

 *           size  0

 *           uri http://wp5.e-taxonomy.eu/dataportal/cichorieae/media/protolog/jpeg/Acanthocephalus_p1.jpg

 *           uuid  15c687f1-f79d-4b79-992f-7ba0f55e610b

 *           width 0

 *       suffix  jpg

 *       uuid  930b7d51-e7b6-4350-b21e-8124b14fe29b

 *   title

 *   uuid  17e514f1-7a8e-4daa-87ea-8f13f8742cf9

 *

 * @param unknown_type $width

 * @param unknown_type $height

 * @return unknown

 */

  $prefRepr = array();

  }

  while(count($mimeTypes) > 0){

    // getRepresentationByMimeType

    $mimeType = array_shift($mimeTypes);

      if($representation->mimeType == $mimeType){

        $mimeTypes = array();

        $dwa = 0;

        // look for part with the best matching size

          if($dw < 0){

            $dw *= -1;

          }

          $dwa+= $dw;

        $prefRepr[$dwa.'_'.$mimeTypeKey] = $representation;

    }

  }

  // sort

  krsort($prefRepr);

  // return

  return $prefRepr;

}

 * of the form yyyy-MM-dd and returns the year as String. 

 *

 * @return String 

function partialToYear($partial){

      return $year;

/**

 * In case the month is unknown (= ???) null is returned.

 *

 * @return String 

function partialToMonth($partial){

    $month = substr($partial, 5, 2);

    if($month != '??'){

      return $month;

    }

/**

 * In case the day is unknown (= ???) null is returned.

 *

 * @return String 

function partialToDay($partial){

    $day = substr($partial, 7, 2);

    if($day != '??'){

      return $day;

    }

 * @param $pathParameters an array of path elements, or a single element

 * @param $query  A query string to append to the URL.

 * @return unknown_type

  $path_params = '';

   * substitute all place holders ($0, $1, ..) in the 

   */

  static $helperArray = array();

    $pathParameters = $helperArray;

  }

  while(strpos($uri_pattern, "$".$i) !== FALSE){

    if(count($pathParameters) <= $i){

      drupal_set_message('cdm_compose_url(): missing pathParameters', 'debug');

    }

  /* (2)

   * Append all remaining element of the $pathParameters array as path elements

   */

  if(count($pathParameters) > $i){

    // strip trailing slashes

      $uri_pattern = substr($uri_pattern, 0, strlen($uri_pattern) - 1); 

    while(count($pathParameters) > $i){

      $uri_pattern .= '/' . $pathParameters[$i];

      ++$i;

   * Append the query string supplied by $query

   */

  if (isset($query)) {

    $uri_pattern .= (strpos($uri_pattern, '?') !== FALSE ? '&' : '?') . $query;

  $uri = variable_get('cdm_webservice_url', '').$path;

  return $uri;

  $uri = urldecode($uriEncoded);

  $request_method = strtoupper($_SERVER["REQUEST_METHOD"]);

  if($request_method == "POST"){

    $parameters = $_POST;

    $post_data = array();

    foreach ($parameters as $k=>$v)

    {

        $post_data[] = "$k=".utf8_encode($v);

    }

    $post_data = implode(',', $post_data);

    // testing

    header('Content-Type: '.$theme);

    exit;

  } else {

    //TODO reconsider caching logic in this function

    if(!$theme){

      // print out JSON, the cache cannot be used since it contains objects

      exit;

      print call_user_func_array('theme', $args);

    }

  if(strlen(arg(3)) > 0){

    $keys = explode('|', arg(3));

  }

  $val = arg(4);

  // prevent from malicous tags  

  $val = strip_tags($val);

  $var = &$_SESSION;

  $i = 0;

  foreach($keys as $key){

    $hasMoreKeys = ++$i < count($var);

    if($hasMoreKeys && (!isset($var[$key]) || !is_array($var[$key]))){

      $var[$key] = array();

    }

    $var = &$var[$key];

  }

  $var = $val;

}

  // usage: url('cdm_api/proxy/'.urlencode($content_url)."/$theme");)

  return url('cdm_api/proxy/'.urlencode($uri).($theme?"/$theme":''));

}

 * Enter description here...

 *

 * @param String $resourceURI

 * @param pageSize

 *            the maximum number of entities returned per page (can be null

 *            to return all entities in a single page)

 * @param pageNumber

 *            the number of the page to be returned, the first page has the

 *            pageNumber = 1

 * @return unknown

 */

function cdm_ws_page($resourceURI, $pageSize, $pageNumber){

function cdm_ws_taxonomy_find($uuid, $rank = null, $viewUuid = null){

/**

 * Enter description here...

 *

 * @param unknown_type $secUuid

 * @param unknown_type $path

 * @return unknown

 */

 return cdm_ws_get(cdm_ws_taxonomy_compose_resourcePath($path));

  $viewrank =  _cdm_taxonomy_compose_viewrank();

}

/**

 * Enter description here...

 *

 * @param UUID $secUuid

 * @param String $path

 * @return unknown

 */

 $viewrank =  _cdm_taxonomy_compose_viewrank();

 return cdm_ws_get(CDM_WS_TAXONOMY .  ($viewrank ? '/' .$viewrank : '' )  . '/' . $path . '/path' );

/**

 * Enter description here...

 *

 * @param UUID $viewUuid

 * @param String $rank

 * @return unknown

 */

  $viewUuid = variable_get('cdm_taxonomictree_uuid', false);

  if(!$viewUuid){

    return;

  $rank = variable_get('taxontree_ranklimit', DEFAULT_TAXONTREE_RANKLIMIT);

  return $viewUuid . (empty($rank) ? '' : ','.$rank);

  global $rankVocabularyOptions;

  if(!$rankVocabularyOptions){

    $vocab = cdm_ws_get(CDM_WS_TERMVOCABULARY, UUID_RANK);

    $rankVocabularyOptions = array();

    foreach($vocab->terms as $term){

      $rankVocabularyOptions[$term->uuid] = t($term->representation_L10n);

    }

    array_reverse($rankVocabularyOptions);

  }

  return $rankVocabularyOptions;

}

  if(!$featureTree){

    drupal_set_message('cdm_ws_descriptions_by_featuretree() - No feature supplied', 'error');

    return false;

  }

  if($isDescriptionsSeparated){

    // merge any description into a sparate feature tree

    foreach($descriptions as $desc){

      $mergedNodes = _mergeFeatureTreeDesciptions($featureTree->root->children, $desc->elements);

      $mergedTree = clone $featureTree;

      $mergedTree->root->children = $mergedNodes;

      $mergedTrees[] = $mergedTree;

    }

  } else {

    // combine all descripions into one feature tree

    foreach($descriptions as $desc){

      $mergedNodes = _mergeFeatureTreeDesciptions($featureTree->root->children, $desc->elements);

      $featureTree->root->children = $mergedNodes;

    }

    $mergedTrees[] = $featureTree;

  }

 return $mergedTrees;

}

function _mergeFeatureTreeDesciptions($featureNodes, $descriptionElements){

  foreach($featureNodes as &$node){

      if($element->feature->uuid == $node->feature->uuid){

        if(!isset($node->descriptionElements)){

          $node->descriptionElements = array();

        }

        $node->descriptionElements[] = $element;

      }

    }

    // recurse into node children

    if(is_array($node->children)){

      foreach($node->children as $nodes){

        $mergedChildNodes = _mergeFeatureTreeDesciptions($nodes, $descriptionElements);

        $node->children = $mergedChildNodes;

      }

    }

  }

  return $featureNodes;

}

 * The XML is turned into a object which is returned.

 * @param $pathParameters

 * @param $query

 * @param $method the HTTP method to use, valuid values are "GET" or "POST";

 * @param $absoluteURI

 * @return unknown_type

function cdm_ws_get($uri, $pathParameters = array(), $query = null, $method="GET", $absoluteURI = false){

  if(!$absoluteURI){

    $uri = cdm_compose_url($uri, $pathParameters, $query);

  }

  $do_cache = $do_cache && str_beginsWith($uri, variable_get('cdm_webservice_url', '#EMPTY#'));

    // load fresh data from webservice

    $time_parse_start = microtime(true);

  static $cummulated_time_get;

  $cummulated_time_get += $time_get;

  $cummulated_time_parse += $time_parse;

  $message .= '[fetched in: '.sprintf('%3.3f', $time_get).'s('.sprintf('%3.3f', $cummulated_time_get).'s); ';

  $message .= 'parsed in '.sprintf('%3.3f', $time_parse).' s('.sprintf('%3.3f', $cummulated_time_parse).'s); ';

  $message .= '<a href="'.$uri.'.xml" target="data" class="'.$success_msg.'">xml</a>,';

  $message .= '<a href="'.$uri.'.json" target="data" class="'.$success_msg.'">json</a>';

  $message .= '] ';

  drupal_set_message($message, 'debug');

}