\n";
        ob_start();
        print_r($var);
        $var = ob_get_clean();

        if ($showHtml)
        {
            $var = str_replace('<', '<', str_replace('>', '>', $var));
        }

        print "{$var}\n

 tags around
 * the output of given array. Similar to debug().
 *
 * @see   debug()
 * @param array   $var
 */
function pr($var)
{
    if(DEBUG > 0)
    {
        echo "
";
        print_r($var);
        echo "
";
    }
}

/**
 * Display parameter
 *
 * @param  mixed  $p Parameter as string or array
 * @return string
 */
function params($p)
{
    if (!is_array($p) || count($p) == 0)
    {
        return null;
    }
    else
    {
        if (is_array($p[0]) && count($p) == 1)
        {
            return $p[0];
        }
        else
        {
            return $p;
        }
    }

}

/**
 * Returns the REQUEST_URI from the server environment, or, failing that,
 * constructs a new one, using the PHP_SELF constant and other variables.
 *
 * @return string URI
 */
function setUri()
{
    if (env('REQUEST_URI'))
    {
        $uri = env('REQUEST_URI');
    }
    else
    {
        if (env('argv'))
        {
            $uri = env('argv');
            $uri = env('PHP_SELF') .'/'. $uri[0];
        }
        else
        {
            $uri = env('PHP_SELF') .'/'. env('QUERY_STRING');
        }
    }
    return $uri;
}

/**
 * Gets an environment variable from available sources.
 * Used as a backup if $_SERVER/$_ENV are disabled.
 *
 * @param  string $key Environment variable name.
 * @return string Environment variable setting.
 */
function env($key)
{
    if (isset($_SERVER[$key]))
    {
        return $_SERVER[$key];
    }
    elseif (isset($_ENV[$key]))
    {
        return $_ENV[$key];
    }
    elseif (getenv($key) !== false)
    {
        return getenv($key);
    }
    if ($key == 'DOCUMENT_ROOT')
    {
        $offset = 0;
        if (!strpos(env('SCRIPT_NAME'), '.php'))
        {
            $offset = 4;
        }
        return substr(env('SCRIPT_FILENAME'), 0, strlen(env('SCRIPT_FILENAME')) - (strlen(env('SCRIPT_NAME')) + $offset));
    }
    if ($key == 'PHP_SELF')
    {
        return r(env('DOCUMENT_ROOT'), '', env('SCRIPT_FILENAME'));
    }
    return null;
}

if (!function_exists('file_get_contents'))
{
    /**
     * Returns contents of a file as a string.
     *
     * @param  string  $fileName       Name of the file.
     * @param  boolean $useIncludePath Wheter the function should use the
     *                                 include path or not.
     * @return mixed   Boolean false or contents of required file.
     */
    function file_get_contents($fileName, $useIncludePath = false)
    {
        $res = fopen($fileName, 'rb', $useIncludePath);
        if ($res === false)
        {
            trigger_error('file_get_contents() failed to open stream: No such file or directory', E_USER_WARNING);
            return false;
        }

        clearstatcache();

        if ($fileSize = @filesize($fileName))
        {
            $data = fread($res, $fileSize);
        }
        else
        {
            $data = '';
            while (!feof($res))
            {
                $data .= fread($res, 8192);
            }
        }

        return "$data\n";
    }
}

if (!function_exists('file_put_contents'))
{
    /**
     * Writes data into file.
     *
     * If file exists, it will be overwritten. If data is an array, it will be
     * join()ed with an empty string.
     *
     * @param string $fileName File name.
     * @param mixed  $data     String or array.
     */
    function file_put_contents($fileName, $data)
    {
        if (is_array($data))
        {
            $data = join('', $data);
        }
        $res = @fopen($fileName, 'w+b');
        if ($res)
        {
            @fwrite($res, $data);
        }
    }
}

/**
 * Reads/writes temporary data to cache files or session.
 *
 * @param  string $path    File path within /tmp to save the file.
 * @param  mixed  $data    The data to save to the temporary file.
 * @param  mixed  $expires A valid strtotime string when the data expires.
 * @param  string $target  The target of the cached data; either 'cache' or 'public'.
 * @return mixed  The contents of the temporary file.
 */
function cache($path, $data = null, $expires = '+1 day', $target = 'cache')
{
    if (is_string($expires))
    {
        $expires = strtotime($expires);
    }

    switch (low($target))
    {
        case 'cache':
            $filename = CACHE . $path;
        break;
        case 'public':
            $filename = WWW_ROOT . $path;
        break;
    }

    $now      = time();
    $timediff = $expires - $now;
    $filetime = @filemtime($filename);

    if ($data == null)
    {
        // Read data from file
        if (file_exists($filename) && $filetime !== false)
        {
            if ($filetime + $timediff < $now)
            {
                // File has expired
                @unlink($filename);
            }
            else
            {
                $data = file_get_contents($filename);
            }
        }
    }
    else
    {
        file_put_contents($filename, $data);
    }
    return $data;
}

function stripslashes_deep($value)
{
    $value = is_array($value) ?
             array_map('stripslashes_deep', $value) :
             stripslashes($value);
             return $value;
}
/**
 * Returns a translated string if one is found,
 * or the submitted message if not found.
 *
 * @param  unknown_type $msg
 * @param  unknown_type $return
 * @return unknown
 * @todo Not implemented in 0.10.x.x
 */
function __($msg, $return = null)
{
        return $msg;
}


/**
 * Counts the dimensions of an array
 *
 * @param array $array
 * @return int The number of dimensions in $array
 */
function countdim($array)
{
    if (is_array(reset($array)))
    {
        $return = countdim(reset($array)) + 1;
    }
    else
    {
        $return = 1;
    }
    return $return;
}

?>