<html>
<body bgcolor=white>
<?php
/** 
 * V3.60 16 June 2003  (c) 2001-2002 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. 
 * 
 * set tabs to 8
 */
 
 // documentation on usage is at http://php.weblogs.com/adodb_csv
 
include('../adodb.inc.php');
include('../tohtml.inc.php');

 function &send2server($url,$sql)
 {
	$url .= '?sql='.urlencode($sql);
	print "<p>$url</p>";
	$rs = csv2rs($url,$err);
	if ($err) print $err;
	return $rs;
 }
 
 function print_pre($s)
 {
 	print "<pre>";print_r($s);print "</pre>";
 }


$serverURL = 'http://localhost/php/phplens/adodb/server.php';
$testhttp = false;

$sql1 = "insertz into products (productname) values ('testprod 1')";
$sql2 = "insert into products (productname) values ('testprod 1')";
$sql3 = "insert into products (productname) values ('testprod 2')";
$sql4 = "delete from products where productid>80";
$sql5 = 'select * from products';
	
if ($testhttp) {
	print "<a href=#c>Client Driver Tests</a><p>";
	print "<h3>Test Error</h3>";
	$rs = send2server($serverURL,$sql1);
	print_pre($rs);
	print "<hr>";
	
	print "<h3>Test Insert</h3>";
	
	$rs = send2server($serverURL,$sql2);
	print_pre($rs);
	print "<hr>";
	
	print "<h3>Test Insert2</h3>";
	
	$rs = send2server($serverURL,$sql3);
	print_pre($rs);
	print "<hr>";
	
	print "<h3>Test Delete</h3>";
	
	$rs = send2server($serverURL,$sql4);
	print_pre($rs);
	print "<hr>";
	
	
	print "<h3>Test Select</h3>";
	$rs = send2server($serverURL,$sql5);
	if ($rs) rs2html($rs);
	
	print "<hr>";
}


print "<a name=c><h1>CLIENT Driver Tests</h1>";
$conn = ADONewConnection('csv');
$conn->Connect($serverURL);
$conn->debug = true;

print "<h3>Bad SQL</h3>";

$rs = $conn->Execute($sql1);

print "<h3>Insert SQL 1</h3>";
$rs = $conn->Execute($sql2);

print "<h3>Insert SQL 2</h3>";
$rs = $conn->Execute($sql3);

print "<h3>Select SQL</h3>";
$rs = $conn->Execute($sql5);
if ($rs) rs2html($rs);

print "<h3>Delete SQL</h3>";
$rs = $conn->Execute($sql4);

print "<h3>Select SQL</h3>";
$rs = $conn->Execute($sql5);
if ($rs) rs2html($rs);


/* EXPECTED RESULTS FOR HTTP TEST:

Test Insert
http://localhost/php/adodb/server.php?sql=insert+into+products+%28productname%29+values+%28%27testprod%27%29

adorecordset Object
(
	[dataProvider] => native
	[fields] => 
	[blobSize] => 64
	[canSeek] => 
	[EOF] => 1
	[emptyTimeStamp] =>  
	[emptyDate] =>  
	[debug] => 
	[timeToLive] => 0
	[bind] => 
	[_numOfRows] => -1
	[_numOfFields] => 0
	[_queryID] => 1
	[_currentRow] => -1
	[_closed] => 
	[_inited] => 
	[sql] => insert into products (productname) values ('testprod')
	[affectedrows] => 1
	[insertid] => 81
)


--------------------------------------------------------------------------------

Test Insert2
http://localhost/php/adodb/server.php?sql=insert+into+products+%28productname%29+values+%28%27testprod%27%29

adorecordset Object
(
	[dataProvider] => native
	[fields] => 
	[blobSize] => 64
	[canSeek] => 
	[EOF] => 1
	[emptyTimeStamp] =>  
	[emptyDate] =>  
	[debug] => 
	[timeToLive] => 0
	[bind] => 
	[_numOfRows] => -1
	[_numOfFields] => 0
	[_queryID] => 1
	[_currentRow] => -1
	[_closed] => 
	[_inited] => 
	[sql] => insert into products (productname) values ('testprod')
	[affectedrows] => 1
	[insertid] => 82
)


--------------------------------------------------------------------------------

Test Delete
http://localhost/php/adodb/server.php?sql=delete+from+products+where+productid%3E80

adorecordset Object
(
	[dataProvider] => native
	[fields] => 
	[blobSize] => 64
	[canSeek] => 
	[EOF] => 1
	[emptyTimeStamp] =>  
	[emptyDate] =>  
	[debug] => 
	[timeToLive] => 0
	[bind] => 
	[_numOfRows] => -1
	[_numOfFields] => 0
	[_queryID] => 1
	[_currentRow] => -1
	[_closed] => 
	[_inited] => 
	[sql] => delete from products where productid>80
	[affectedrows] => 2
	[insertid] => 0
)

[more stuff deleted]
 .
 . 
 .
*/
?>
