forked from extern/egroupware
98 lines
2.3 KiB
PHP
98 lines
2.3 KiB
PHP
<?php
|
|
|
|
/**
|
|
* @version V4.50 6 July 2004 (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.
|
|
* Released under both BSD license and Lesser GPL library license.
|
|
Whenever there is any discrepancy between the two licenses,
|
|
the BSD license will take precedence.
|
|
*/
|
|
|
|
/* Documentation on usage is at http://php.weblogs.com/adodb_csv
|
|
*
|
|
* Legal query string parameters:
|
|
*
|
|
* sql = holds sql string
|
|
* nrows = number of rows to return
|
|
* offset = skip offset rows of data
|
|
* fetch = $ADODB_FETCH_MODE
|
|
*
|
|
* example:
|
|
*
|
|
* http://localhost/php/server.php?select+*+from+table&nrows=10&offset=2
|
|
*/
|
|
|
|
|
|
/*
|
|
* Define the IP address you want to accept requests from
|
|
* as a security measure. If blank we accept anyone promisciously!
|
|
*/
|
|
$ACCEPTIP = '';
|
|
|
|
/*
|
|
* Connection parameters
|
|
*/
|
|
$driver = 'mysql';
|
|
$host = 'localhost'; // DSN for odbc
|
|
$uid = 'root';
|
|
$pwd = '';
|
|
$database = 'test';
|
|
|
|
/*============================ DO NOT MODIFY BELOW HERE =================================*/
|
|
// $sep must match csv2rs() in adodb.inc.php
|
|
$sep = ' :::: ';
|
|
|
|
include('./adodb.inc.php');
|
|
include_once(ADODB_DIR.'/adodb-csvlib.inc.php');
|
|
|
|
function err($s)
|
|
{
|
|
die('**** '.$s.' ');
|
|
}
|
|
|
|
// undo stupid magic quotes
|
|
function undomq(&$m)
|
|
{
|
|
if (get_magic_quotes_gpc()) {
|
|
// undo the damage
|
|
$m = str_replace('\\\\','\\',$m);
|
|
$m = str_replace('\"','"',$m);
|
|
$m = str_replace('\\\'','\'',$m);
|
|
|
|
}
|
|
return $m;
|
|
}
|
|
|
|
///////////////////////////////////////// DEFINITIONS
|
|
|
|
|
|
$remote = $HTTP_SERVER_VARS["REMOTE_ADDR"];
|
|
|
|
if (empty($HTTP_GET_VARS['sql'])) err('No SQL');
|
|
|
|
if (!empty($ACCEPTIP))
|
|
if ($remote != '127.0.0.1' && $remote != $ACCEPTIP)
|
|
err("Unauthorised client: '$remote'");
|
|
|
|
|
|
$conn = &ADONewConnection($driver);
|
|
|
|
if (!$conn->Connect($host,$uid,$pwd,$database)) err($conn->ErrorNo(). $sep . $conn->ErrorMsg());
|
|
$sql = undomq($HTTP_GET_VARS['sql']);
|
|
|
|
if (isset($HTTP_GET_VARS['fetch']))
|
|
$ADODB_FETCH_MODE = $HTTP_GET_VARS['fetch'];
|
|
|
|
if (isset($HTTP_GET_VARS['nrows'])) {
|
|
$nrows = $HTTP_GET_VARS['nrows'];
|
|
$offset = isset($HTTP_GET_VARS['offset']) ? $HTTP_GET_VARS['offset'] : -1;
|
|
$rs = $conn->SelectLimit($sql,$nrows,$offset);
|
|
} else
|
|
$rs = $conn->Execute($sql);
|
|
if ($rs){
|
|
//$rs->timeToLive = 1;
|
|
echo _rs2serialize($rs,$conn,$sql);
|
|
$rs->Close();
|
|
} else
|
|
err($conn->ErrorNo(). $sep .$conn->ErrorMsg());
|
|
|
|
?>
|