<?php

/******************************************************************************
 * PHP include file to execute Turf data retrieval instructions
 * and return the resulting data structure
 * v0.51 (20010406) by fastjack@turf.org
 *****************************************************************************/

function turf_urldecode( &$arr ) {
    while ( list( $key, $value ) = each( $arr ) ) {
        if ( is_array( $value ) ) {
            turf_urldecode( $arr[$key] );
        }
        else
            $arr[$key] = urldecode( $value );
    }
}

function turf_fetch_data( $cmds ) {
    $return = array();
    $rawdata = "";

    $query = "http://turf.org:4002";
    #$query = "http://fastjack.turf.org:4002";
    #$query = "http://127.0.0.1:1236";

    for ( $index = 0, $end = count( $cmds ); $index < $end; ++$index ) {
        $query .= $cmds[$index] . ";";
    }

    # Some people report a lot of endpoint not connect errors or other
    # misc problems from file() - let's see if this fixes it.
    for ( $attempt = 0; $attempt < 20; ++$attempt ) {
        @$rawdata = file( $query );

        if ( $rawdata != "" )
            break;
    }

    for ( $index = 0, $end = count( $rawdata ); $index < $end; ++$index ) {
        $rawdata[$index] = ereg_replace( "[\r\n]", "", $rawdata[$index] );

        if ( $rawdata[$index] == "" )
            continue;

        if ( ereg( "^command=\"(.*)\"", $rawdata[$index], $cmd ) ) {
            $cmd = urldecode( $cmd[1] );
            $return[$cmd] = array( "docstring"  =>  "",
                                   "error"       =>  "",
                                   "records"     =>  array() );
            $record = 0;
            continue;
        }

        if ( ereg( "^docstring=\"(.*)\"", $rawdata[$index], $match ) ) {
            $return[$cmd]["docstring"] = urldecode( $match[1] );
            continue;
        }

        if ( ereg( "^error=\"(.*)\"", $rawdata[$index], $match ) ) {
            $return[$cmd]["error"] = urldecode( $match[1] );
            continue;
        }

        $return[$cmd]["records"][$record++] =
            turf_record_parse( $rawdata[$index] );
    }

    return $return;
}

function turf_record_parse( $line ) {
    $len = strlen( $line );
    $out_string = "";

    for ( $index = 0; $index < $len; ++$index ) {
        if ( $line[$index] == '{' ) {
            $out_string .= "array(";
        } elseif ( $line[$index] == '}' ) {
            $out_string .= ")";
        } elseif ( $line[$index] == '(' ) {
            $out_string .= "array(";
        } elseif ( $line[$index] == '=' ) {
            $out_string .= "=>";
        } else {
            $out_string .= $line[$index];
        }
    }

    $out_string = ereg_replace( "([^ (,=]+)=", "\"\\1\"=", $out_string );
    $out_string = ereg_replace( ", *)", ")", $out_string );
    $out_string = ereg_replace( ", *$", "", $out_string );

    eval( "\$struct = array( " . $out_string . " );" );

    turf_urldecode( $struct );

    return $struct;
}

?>