<?php

#############################################################################

# This file holds the utility function getAllConcepts which calls the

# tapir service to find out all the concepts (data units) that are

# supported.  This list is necessary so that we know what to ask for

# when making the rquest.

#############################################################################

require_once('HTTP/Request.php'); // pear package

require_once('tapirRequestTemplate.php');

function getAllConcepts() {

    global $url;

    $error_log_filename = "error.log";

    $http_request = new HTTP_Request();

    $body = buildCapabilitiesRequest();

    $http_request->setMethod( 'POST' );

    $http_request->addHeader('Content-Type', 'text/xml');

    $http_request->addRawPostData( $body );

    $http_request->setURL( $url );

    $http_request->_timeout = 300;

    $http_request->_readTimeout = 300;

    // This can be used to see the entire request

    #$raw_request = $http_request->_buildRequest();

    #echo "\n\n" . $raw_request;

    $http_request->sendRequest();

    $response = $http_request->getResponseBody();

    $code = $http_request->getResponseCode();

    if ( $code != 200 ) // 200 = OK

    {

        $label = 'Unknown Error';

        switch ( $code )

        {

            case 201: $label = 'Created'; break;

            case 202: $label = 'Accepted'; break;

            case 203: $label = 'Non-Authoritative Information'; break;

            case 204: $label = 'No Content'; break;

            case 205: $label = 'Reset Content'; break;

            case 206: $label = 'Partial Content'; break;

            case 300: $label = 'Multiple Choices'; break;

            case 301: $label = 'Moved Permanently'; break;

            case 302: $label = 'Found'; break;

            case 303: $label = 'See Other'; break;

            case 304: $label = 'Not Modified'; break;

            case 305: $label = 'Use Proxy'; break;

            case 307: $label = 'Temporary Redirect'; break;

            case 400: $label = 'Bad Request'; break;

            case 401: $label = 'Unauthorized'; break;

            case 402: $label = 'Payment Required'; break;

            case 403: $label = 'Forbidden'; break;

            case 404: $label = 'Not Found'; break;

            case 405: $label = 'Method Not Allowed'; break;

            case 406: $label = 'Not Acceptable'; break;

            case 407: $label = 'Proxy Authentication Required'; break;

            case 408: $label = 'Request Timeout'; break;

            case 409: $label = 'Conflict'; break;

            case 410: $label = 'Gone'; break;

            case 411: $label = 'Length Required'; break;

            case 412: $label = 'Precondition Failed'; break;

            case 413: $label = 'Request Entity Too Large'; break;

            case 414: $label = 'Request-URI Too Long'; break;

            case 415: $label = 'Unsupported Media Type'; break;

            case 416: $label = 'Requested Range Not Satisfiable'; break;

            case 417: $label = 'Expectation Failed'; break;

            case 500: $label = 'Internal Server Error'; break;

            case 501: $label = 'Not Implemented'; break;

            case 502: $label = 'Bad Gateway'; break;

            case 503: $label = 'Service Unavailable'; break;

            case 504: $label = 'Gateway Timeout'; break;

            case 505: $label = 'HTTP Version Not Supported'; break;

	}

       $error_log = fopen($error_log_filename,"a");

       fwrite($error_log, "Service responded with HTTP ".$code." code: ".$label."\n".

              "while attempting to request supported concepts\n");

       fclose($error_log);

       echo( "Service responded with HTTP ".$code." code: ".$label."\n".

              "while attempting to request supported concepts\n");

       return 0;

    }

    #Weird encoding bug - need to remove the ^F and ^L characters so

    #that the xml parser won't choke.

    $xmlDoc = new DOMDocument();

    $response = preg_replace("//","6",$response);

    $response = preg_replace("//","12",$response);

    $xmlDoc->loadXML($response);

    $errors = $xmlDoc->getElementsByTagName("error");

    if($errors->length > 0) {

       $error_log = fopen($error_log_filename,"a");

       foreach($errors as $error) {

         fwrite($error_log, $error->nodeValue . "\n");

       }

       fclose($error_log);

       return 0;

    }

    $concepts = $xmlDoc->getElementsByTagName("mappedConcept");

    $concepts_array = array();

    if($concepts->length == 0) {

       $error_log = fopen($error_log_filename,"a");

       fwrite($error_log, "No mappedConcept node, assuming there's a missed error.\n");

       fclose($error_log);

       return 0;

    } else {

      foreach($concepts as $concept) {

        $concept_id = $concept->getAttribute("id");

        $concept_key = preg_replace("/\//","_",$concept_id);

        $concept_key = preg_replace("/\./","_",$concept_key);

        $concept_key = preg_replace("/:/","",$concept_key);

        $concepts_array[$concept_key] = $concept_id;

      }

    }

    return $concepts_array;

}

?>