Subversion Repositories Sites.tela-botanica.org

<?php
/**
 * $Id: tapir.php 1953 2009-01-05 19:59:53Z rdg $
 * 
 * LICENSE INFORMATION
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * 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 General Public License for more details:
 * 
 * http://www.gnu.org/copyleft/gpl.html
 * 
 * 
 * @author Renato De Giovanni <renato [at] cria . org . br>
 * @author Dave Vieglais (Biodiversity Research Center, University of Kansas)
 * 
 * ACKNOWLEDGEMENTS
 * 
 * TapirLink has been generously funded by the Biodiversity 
 * Information Standards, TDWG, with resources from the Gordon and 
 * Betty Moore Foundation. The Global Biodiversity Information 
 * Facility, GBIF, has also been a major supporter of the TAPIR 
 * initiative since its very beginning and also collaborated to 
 * test this software.
 *
 * TapirLink was based on the DiGIR PHP provider, which was 
 * originally developed by Dave Vieglais from the Biodiversity 
 * Research Center, University of Kansas. The software is now being 
 * distributed under the GPL with permission from its original
 * author. The original copyright information is also 
 * reproduced below.
 * 
 * --------------------------------
 * 
 * Copyright (c) 2002 The University of Kansas Natural History 
 * Museum and Biodiversity Research Center. All rights reserved.
 * 
 * Permission is hereby granted, free of charge, to any person 
 * obtaining a copy of this software and associated documentation 
 * files (the "Software"), to deal with the Software without 
 * restriction, including without limitation the rights to use, 
 * copy, modify, merge, publish, distribute, sublicense, and/or 
 * sell copies of the Software, and to permit persons to whom the 
 * Software is furnished to do so, subject to the following 
 * conditions:
 * 
 * - Redistributions of source code must retain the above copyright 
 * notice, this list of conditions and the following disclaimers.
 * 
 * - Redistributions in binary form must reproduce the above 
 * copyright notice, this list of conditions and the following 
 * disclaimers in the documentation and/or other materials provided 
 * with the distribution.
 * 
 * - Neither the names of The University of Kansas Natural History 
 * Museum and Biodiversity Research Center, The University of Kansas 
 * at Lawrence, nor the names of its contributors may be used to 
 * endorse or promote products derived from this Software without 
 * specific prior written permission.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
 * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
 * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR COPYRIGHT 
 * HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
 * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
 * DEALINGS IN THE SOFTWARE.
 */

// Definition of this constant can be used to indicate that
// the Web Service (tapir.php) was called
define( 'TP_RUNNING_TAPIR', 1 );

require_once('tapir_globals.php');
require_once('TpUtils.php');
require_once('TpServiceUtils.php');
require_once('TpDiagnostics.php');
require_once('TpResources.php');
require_once('TpRequest.php');
require_once('TpResponse.php');

// Register a new error handler
$old_error_handler = set_error_handler( 'TapirErrorHandler' );

// Avoid HTML in errors
ini_set( 'html_errors', false );

// Store timestamp for profiling
define( 'INITIAL_TIMESTAMP', TpUtils::MicrotimeFloat() );

// Logs
TpUtils::InitializeLogs();

// Main logger
global $g_log;

// Debug logger
global $g_dlog;

$g_dlog->debug( '[Starting debug log]' );
$g_dlog->debug( 'TapirLink version: '.TP_VERSION.' (revision '.TP_REVISION.')' );

$request_uri = ( isset( $_SERVER['REQUEST_URI'] ) ) ? $_SERVER['REQUEST_URI'] : 'null';

$g_dlog->debug( 'Request URI: '.$request_uri );
$g_dlog->debug( 'Include path: '.ini_get( 'include_path' ) );

// Set the maximum script run time
// Note: if php set safe mode is on then this can't be set from here, 
// and will need to be set in php.ini file
// Définit à 120 par TapirLink mis à 60 globalement pour Sequoia car safe_mode actif
if (! ini_get('safe_mode') ) {
        set_time_limit( TP_MAX_RUNTIME );
}

// Debugging
if ( ! defined( '_DEBUG' ) )
{
    // Load the value from a request variable called "debug", default is false
    // for security reasons
    if ( TP_ALLOW_DEBUG )
    {
        define( '_DEBUG', (bool)TpUtils::GetVar( 'debug', false ) );
    }
    else
    {
        define( '_DEBUG', false );
    }
}

// Instantiate request object
$request = new TpRequest();

// If no resource was specified in the request URI, then dump some help information
if ( ! $request->ExtractResourceCode() )
{
   include_once( 'index.php' );
   die();
}

// Get resource code and check if it's valid
$resource_code = $request->GetResourceCode();

$r_resources =& TpResources::GetInstance();

$raise_errors = false;
$r_resource =& $r_resources->GetResource( $resource_code, $raise_errors );

if ( $r_resource == null )
{
    $response = new TpResponse( $request );
    $response->ReturnError( 'Resource "'.$resource_code.'" not found.' );
    die();
}

$r_resources->SetCurrentResourceCode( $resource_code );

if ( $r_resource->GetStatus() != 'active' )
{
    $response = new TpResponse( $request );
    $response->ReturnError( 'Resource "'.$resource_code.'" is not active.' );
    die();
}

// Check PHP version
$current_version = phpversion();

if ( version_compare( $current_version, '5.0', '<' ) > 0 )
{
    if ( version_compare( $current_version, TP_MIN_PHP_VERSION, '<' ) > 0 )
    {
        $msg = 'PHP Version '.TP_MIN_PHP_VERSION.' or later required. '.
               'Some features may not be available. Detected version '.$current_version;
        TpDiagnostics::Append( DC_VERSION_MISMATCH, $msg, DIAG_WARN );
    }
}
else if ( version_compare( $current_version, '6.0', '<' ) > 0 )
{
    if ( version_compare( $current_version, '5.0.3', '<' ) > 0 )
    {
        // Avoid bug in "xml_set_start_namespace_decl_handler"
        $msg = 'Provider error: Unsupported PHP version ('.$current_version.'). To '.
               'use PHP5 it is necessary to have at least version 5.0.3';

        $response = new TpResponse( $request );
        $response->ReturnError( $msg );
        die();
    }
}

// Get parameters
if ( ! $request->InitializeParameters() or 
     TpDiagnostics::Count( array( DIAG_ERROR, DIAG_FATAL ) ) )
{
    $response = new TpResponse( $request );
    $response->ReturnError( 'Failed to parse request' );
    die();
}

// By default, assume that the database encoding cannot be detected 
// by the mb_detect_encoding PHP function
global $g_encoding_can_be_detected;

$operation = $request->GetOperation();

if ( $operation == 'ping' )
{
    require_once('TpPingResponse.php');

    $response = new TpPingResponse( $request );
}
else if ( $operation == 'capabilities' )
{
    require_once('TpCapabilitiesResponse.php');

    $response = new TpCapabilitiesResponse( $request );
}
else if ( $operation == 'metadata' )
{
    require_once('TpMetadataResponse.php');

    $response = new TpMetadataResponse( $request );
}
else if ( $operation == 'inventory' )
{
    require_once('TpInventoryResponse.php');

    $response = new TpInventoryResponse( $request );
}
else if ( $operation == 'search' )
{
    require_once('TpSearchResponse.php');

    $response = new TpSearchResponse( $request );
}
else
{
    // Unknown operation 
    $response = new TpResponse( $request );
    $response->ReturnError( 'Unknown operation "'.$operation.'"' );
    die();
}

$response->Process();

exit();

?>