source: sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/server.php @ 8222

Revision 8222, 2.2 KB checked in by angelo, 11 years ago (diff)

Ticket #3491 - Compatibilizar Expresso com novas versoes do PHP

  • Property svn:eol-style set to native
  • Property svn:executable set to *
Line 
1<?php
2
3/**
4 * @version V4.93 10 Oct 2006 (c) 2000-2012 John Lim (jlim#natsoft.com). 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 */
9 
10/* Documentation on usage is at http://php.weblogs.com/adodb_csv
11 *
12 * Legal query string parameters:
13 *
14 * sql = holds sql string
15 * nrows = number of rows to return
16 * offset = skip offset rows of data
17 * fetch = $ADODB_FETCH_MODE
18 *
19 * example:
20 *
21 * http://localhost/php/server.php?select+*+from+table&nrows=10&offset=2
22 */
23
24
25/*
26 * Define the IP address you want to accept requests from
27 * as a security measure. If blank we accept anyone promisciously!
28 */
29$ACCEPTIP = '127.0.0.1';
30
31/*
32 * Connection parameters
33 */
34$driver = 'mysql';
35$host = 'localhost'; // DSN for odbc
36$uid = 'root';
37$pwd = 'garbase-it-is';
38$database = 'test';
39
40/*============================ DO NOT MODIFY BELOW HERE =================================*/
41// $sep must match csv2rs() in adodb.inc.php
42$sep = ' :::: ';
43
44include('./adodb.inc.php');
45include_once(ADODB_DIR.'/adodb-csvlib.inc.php');
46
47function err($s)
48{
49        die('**** '.$s.' ');
50}
51
52// undo stupid magic quotes
53function undomq(&$m)
54{
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);
60               
61        }
62        return $m;
63}
64
65///////////////////////////////////////// DEFINITIONS
66
67
68$remote = $_SERVER["REMOTE_ADDR"];
69 
70
71if (!empty($ACCEPTIP))
72 if ($remote != '127.0.0.1' && $remote != $ACCEPTIP)
73        err("Unauthorised client: '$remote'");
74       
75       
76if (empty($_REQUEST['sql'])) err('No SQL');
77
78
79$conn = ADONewConnection($driver);
80
81if (!$conn->Connect($host,$uid,$pwd,$database)) err($conn->ErrorNo(). $sep . $conn->ErrorMsg());
82$sql = undomq($_REQUEST['sql']);
83
84if (isset($_REQUEST['fetch']))
85        $ADODB_FETCH_MODE = $_REQUEST['fetch'];
86       
87if (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);
93if ($rs){
94        //$rs->timeToLive = 1;
95        echo _rs2serialize($rs,$conn,$sql);
96        $rs->Close();
97} else
98        err($conn->ErrorNo(). $sep .$conn->ErrorMsg());
99
100?>
Note: See TracBrowser for help on using the repository browser.