Bug fix when setting an appointment as No Show
[openemr.git] / gacl / adodb / server.php
blob157da626a7f24c4e173c0213ac29a3a5cc8d58f5
1 <?php
3 /**
4 * @version V4.92a 29 Aug 2006 (c) 2000-2006 John Lim (jlim#natsoft.com.my). All rights reserved.
5 * Released under both BSD license and Lesser GPL library license.
6 Whenever there is any discrepancy between the two licenses,
7 the BSD license will take precedence.
8 */
10 /* Documentation on usage is at http://php.weblogs.com/adodb_csv
12 * Legal query string parameters:
14 * sql = holds sql string
15 * nrows = number of rows to return
16 * offset = skip offset rows of data
17 * fetch = $ADODB_FETCH_MODE
19 * example:
21 * http://localhost/php/server.php?select+*+from+table&nrows=10&offset=2
25 /*
26 * Define the IP address you want to accept requests from
27 * as a security measure. If blank we accept anyone promisciously!
29 $ACCEPTIP = '127.0.0.1';
32 * Connection parameters
34 $driver = 'mysql';
35 $host = 'localhost'; // DSN for odbc
36 $uid = 'root';
37 $pwd = 'garbase-it-is';
38 $database = 'test';
40 /*============================ DO NOT MODIFY BELOW HERE =================================*/
41 // $sep must match csv2rs() in adodb.inc.php
42 $sep = ' :::: ';
44 include('./adodb.inc.php');
45 include_once(ADODB_DIR.'/adodb-csvlib.inc.php');
47 function err($s)
49 die('**** '.$s.' ');
52 // undo stupid magic quotes
53 function undomq(&$m)
55 if (get_magic_quotes_gpc()) {
56 // undo the damage
57 $m = str_replace('\\\\','\\',$m);
58 $m = str_replace('\"','"',$m);
59 $m = str_replace('\\\'','\'',$m);
62 return $m;
65 ///////////////////////////////////////// DEFINITIONS
68 $remote = $_SERVER["REMOTE_ADDR"];
71 if (!empty($ACCEPTIP))
72 if ($remote != '127.0.0.1' && $remote != $ACCEPTIP)
73 err("Unauthorised client: '$remote'");
76 if (empty($_REQUEST['sql'])) err('No SQL');
79 $conn = &ADONewConnection($driver);
81 if (!$conn->Connect($host,$uid,$pwd,$database)) err($conn->ErrorNo(). $sep . $conn->ErrorMsg());
82 $sql = undomq($_REQUEST['sql']);
84 if (isset($_REQUEST['fetch']))
85 $ADODB_FETCH_MODE = $_REQUEST['fetch'];
87 if (isset($_REQUEST['nrows'])) {
88 $nrows = $_REQUEST['nrows'];
89 $offset = isset($_REQUEST['offset']) ? $_REQUEST['offset'] : -1;
90 $rs = $conn->SelectLimit($sql,$nrows,$offset);
91 } else
92 $rs = $conn->Execute($sql);
93 if ($rs){
94 //$rs->timeToLive = 1;
95 echo _rs2serialize($rs,$conn,$sql);
96 $rs->Close();
97 } else
98 err($conn->ErrorNo(). $sep .$conn->ErrorMsg());