lib/WikiDB/adodb/adodb-pear.inc.php

   1 <?php
   2 /**
   3  * @version V4.22 15 Apr 2004 (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.
   4  * Released under both BSD license and Lesser GPL library license.
   5  * Whenever there is any discrepancy between the two licenses,
   6  * the BSD license will take precedence.
   7  *
   8  * Set tabs to 4 for best viewing.
   9  *
  10  * PEAR DB Emulation Layer for ADODB.
  11  *
  12  * The following code is modelled on PEAR DB code by Stig Bakken <ssb@fast.no>                                                             |
  13  * and Tomas V.V.Cox <cox@idecnet.com>. Portions (c)1997-2002 The PHP Group.
  14  */
  15
  16  /*
  17  We support:
  18
  19  DB_Common
  20  ---------
  21      query - returns PEAR_Error on error
  22     limitQuery - return PEAR_Error on error
  23     prepare - does not return PEAR_Error on error
  24     execute - does not return PEAR_Error on error
  25     setFetchMode - supports ASSOC and ORDERED
  26     errorNative
  27     quote
  28     nextID
  29     disconnect
  30
  31  DB_Result
  32  ---------
  33      numRows - returns -1 if not supported
  34     numCols
  35     fetchInto - does not support passing of fetchmode
  36     fetchRows - does not support passing of fetchmode
  37     free
  38  */
  39
  40 define('ADODB_PEAR',dirname(__FILE__));
  41 include_once "PEAR.php";
  42 include_once ADODB_PEAR."/adodb-errorpear.inc.php";
  43 include_once ADODB_PEAR."/adodb.inc.php";
  44
  45 if (!defined('DB_OK')) {
  46 define("DB_OK", 1);
  47 define("DB_ERROR",-1);
  48 /**
  49  * This is a special constant that tells DB the user hasn't specified
  50  * any particular get mode, so the default should be used.
  51  */
  52
  53 define('DB_FETCHMODE_DEFAULT', 0);
  54
  55 /**
  56  * Column data indexed by numbers, ordered from 0 and up
  57  */
  58
  59 define('DB_FETCHMODE_ORDERED', 1);
  60
  61 /**
  62  * Column data indexed by column names
  63  */
  64
  65 define('DB_FETCHMODE_ASSOC', 2);
  66
  67 /* for compatibility */
  68
  69 define('DB_GETMODE_ORDERED', DB_FETCHMODE_ORDERED);
  70 define('DB_GETMODE_ASSOC',   DB_FETCHMODE_ASSOC);
  71
  72 /**
  73  * these are constants for the tableInfo-function
  74  * they are bitwised or'ed. so if there are more constants to be defined
  75  * in the future, adjust DB_TABLEINFO_FULL accordingly
  76  */
  77
  78 define('DB_TABLEINFO_ORDER', 1);
  79 define('DB_TABLEINFO_ORDERTABLE', 2);
  80 define('DB_TABLEINFO_FULL', 3);
  81 }
  82
  83 /**
  84  * The main "DB" class is simply a container class with some static
  85  * methods for creating DB objects as well as some utility functions
  86  * common to all parts of DB.
  87  *
  88  */
  89
  90 class DB
  91 {
  92     /**
  93      * Create a new DB object for the specified database type
  94      *
  95      * @param $type string database type, for example "mysql"
  96      *
  97      * @return object a newly created DB object, or a DB error code on
  98      * error
  99      */
 100
 101     function &factory($type)
 102     {
 103         include_once(ADODB_DIR."/drivers/adodb-$type.inc.php");
 104         $obj = &NewADOConnection($type);
 105         if (!is_object($obj)) $obj =& new PEAR_Error('Unknown Database Driver: '.$dsninfo['phptype'],-1);
 106         return $obj;
 107     }
 108
 109     /**
 110      * Create a new DB object and connect to the specified database
 111      *
 112      * @param $dsn mixed "data source name", see the DB::parseDSN
 113      * method for a description of the dsn format.  Can also be
 114      * specified as an array of the format returned by DB::parseDSN.
 115      *
 116      * @param $options mixed if boolean (or scalar), tells whether
 117      * this connection should be persistent (for backends that support
 118      * this).  This parameter can also be an array of options, see
 119      * DB_common::setOption for more information on connection
 120      * options.
 121      *
 122      * @return object a newly created DB connection object, or a DB
 123      * error object on error
 124      *
 125      * @see DB::parseDSN
 126      * @see DB::isError
 127      */
 128     function &connect($dsn, $options = false)
 129     {
 130         if (is_array($dsn)) {
 131             $dsninfo = $dsn;
 132         } else {
 133             $dsninfo = DB::parseDSN($dsn);
 134         }
 135         switch ($dsninfo["phptype"]) {
 136             case 'pgsql':       $type = 'postgres7'; break;
 137             case 'ifx':         $type = 'informix9'; break;
 138             default:            $type = $dsninfo["phptype"]; break;
 139         }
 140
 141         if (is_array($options) && isset($options["debug"]) &&
 142             $options["debug"] >= 2) {
 143             // expose php errors with sufficient debug level
 144              @include_once("adodb-$type.inc.php");
 145         } else {
 146              @include_once("adodb-$type.inc.php");
 147         }
 148
 149         @$obj =& NewADOConnection($type);
 150         if (!is_object($obj)) {
 151             $obj =& new PEAR_Error('Unknown Database Driver: '.$dsninfo['phptype'],-1);
 152             return $obj;
 153         }
 154         if (is_array($options)) {
 155             foreach($options as $k => $v) {
 156                 switch(strtolower($k)) {
 157                 case 'persistent':      $persist = $v; break;
 158                 #ibase
 159                 case 'dialect':         $obj->dialect = $v; break;
 160                 case 'charset':         $obj->charset = $v; break;
 161                 case 'buffers':         $obj->buffers = $v; break;
 162                 #ado
 163                 case 'charpage':        $obj->charPage = $v; break;
 164                 #mysql
 165                 case 'clientflags': $obj->clientFlags = $v; break;
 166                 }
 167             }
 168         } else {
 169                $persist = false;
 170         }
 171
 172         if (isset($dsninfo['socket'])) $dsninfo['hostspec'] .= ':'.$dsninfo['socket'];
 173         else if (isset($dsninfo['port'])) $dsninfo['hostspec'] .= ':'.$dsninfo['port'];
 174
 175         if($persist) $ok = $obj->PConnect($dsninfo['hostspec'], $dsninfo['username'],$dsninfo['password'],$dsninfo['database']);
 176         else  $ok = $obj->Connect($dsninfo['hostspec'], $dsninfo['username'],$dsninfo['password'],$dsninfo['database']);
 177
 178         if (!$ok) $obj = ADODB_PEAR_Error();
 179         return $obj;
 180     }
 181
 182     /**
 183      * Return the DB API version
 184      *
 185      * @return int the DB API version number
 186      */
 187     function apiVersion()
 188     {
 189         return 2;
 190     }
 191
 192     /**
 193      * Tell whether a result code from a DB method is an error
 194      *
 195      * @param $value int result code
 196      *
 197      * @return bool whether $value is an error
 198      */
 199     function isError($value)
 200     {
 201         return (is_object($value) &&
 202                         (strtolower(get_class($value)) == 'db_error' ||
 203                  is_subclass_of($value, 'db_error')));
 204     }
 205
 206
 207     /**
 208      * Tell whether a result code from a DB method is a warning.
 209      * Warnings differ from errors in that they are generated by DB,
 210      * and are not fatal.
 211      *
 212      * @param $value mixed result value
 213      *
 214      * @return bool whether $value is a warning
 215      */
 216     function isWarning($value)
 217     {
 218         return is_object($value) &&
 219                     (strtolower(get_class( $value )) == "db_warning" ||
 220              is_subclass_of($value, "db_warning"));
 221     }
 222
 223     /**
 224      * Parse a data source name
 225      *
 226      * @param $dsn string Data Source Name to be parsed
 227      *
 228      * @return array an associative array with the following keys:
 229      *
 230      *  phptype: Database backend used in PHP (mysql, odbc etc.)
 231      *  dbsyntax: Database used with regards to SQL syntax etc.
 232      *  protocol: Communication protocol to use (tcp, unix etc.)
 233      *  hostspec: Host specification (hostname[:port])
 234      *  database: Database to use on the DBMS server
 235      *  username: User name for login
 236      *  password: Password for login
 237      *
 238      * The format of the supplied DSN is in its fullest form:
 239      *
 240      *  phptype(dbsyntax)://username:password@protocol+hostspec/database
 241      *
 242      * Most variations are allowed:
 243      *
 244      *  phptype://username:password@protocol+hostspec:110//usr/db_file.db
 245      *  phptype://username:password@hostspec/database_name
 246      *  phptype://username:password@hostspec
 247      *  phptype://username@hostspec
 248      *  phptype://hostspec/database
 249      *  phptype://hostspec
 250      *  phptype(dbsyntax)
 251      *  phptype
 252      *
 253      * @author Tomas V.V.Cox <cox@idecnet.com>
 254      */
 255     function parseDSN($dsn)
 256     {
 257         if (is_array($dsn)) {
 258             return $dsn;
 259         }
 260
 261         $parsed = array(
 262             'phptype'  => false,
 263             'dbsyntax' => false,
 264             'protocol' => false,
 265             'hostspec' => false,
 266             'database' => false,
 267             'username' => false,
 268             'password' => false
 269         );
 270
 271         // Find phptype and dbsyntax
 272         if (($pos = strpos($dsn, '://')) !== false) {
 273             $str = substr($dsn, 0, $pos);
 274             $dsn = substr($dsn, $pos + 3);
 275         } else {
 276             $str = $dsn;
 277             $dsn = NULL;
 278         }
 279
 280         // Get phptype and dbsyntax
 281         // $str => phptype(dbsyntax)
 282         if (preg_match('|^(.+?)\((.*?)\)$|', $str, $arr)) {
 283             $parsed['phptype'] = $arr[1];
 284             $parsed['dbsyntax'] = (empty($arr[2])) ? $arr[1] : $arr[2];
 285         } else {
 286             $parsed['phptype'] = $str;
 287             $parsed['dbsyntax'] = $str;
 288         }
 289
 290         if (empty($dsn)) {
 291             return $parsed;
 292         }
 293
 294         // Get (if found): username and password
 295         // $dsn => username:password@protocol+hostspec/database
 296         if (($at = strpos($dsn,'@')) !== false) {
 297             $str = substr($dsn, 0, $at);
 298             $dsn = substr($dsn, $at + 1);
 299             if (($pos = strpos($str, ':')) !== false) {
 300                 $parsed['username'] = urldecode(substr($str, 0, $pos));
 301                 $parsed['password'] = urldecode(substr($str, $pos + 1));
 302             } else {
 303                 $parsed['username'] = urldecode($str);
 304             }
 305         }
 306
 307         // Find protocol and hostspec
 308         // $dsn => protocol+hostspec/database
 309         if (($pos=strpos($dsn, '/')) !== false) {
 310             $str = substr($dsn, 0, $pos);
 311             $dsn = substr($dsn, $pos + 1);
 312         } else {
 313             $str = $dsn;
 314             $dsn = NULL;
 315         }
 316
 317         // Get protocol + hostspec
 318         // $str => protocol+hostspec
 319         if (($pos=strpos($str, '+')) !== false) {
 320             $parsed['protocol'] = substr($str, 0, $pos);
 321             $parsed['hostspec'] = urldecode(substr($str, $pos + 1));
 322         } else {
 323             $parsed['hostspec'] = urldecode($str);
 324         }
 325
 326         // Get dabase if any
 327         // $dsn => database
 328         if (!empty($dsn)) {
 329             $parsed['database'] = $dsn;
 330         }
 331
 332         return $parsed;
 333     }
 334
 335     /**
 336      * Load a PHP database extension if it is not loaded already.
 337      *
 338      * @access public
 339      *
 340      * @param $name the base name of the extension (without the .so or
 341      * .dll suffix)
 342      *
 343      * @return bool true if the extension was already or successfully
 344      * loaded, false if it could not be loaded
 345      */
 346     function assertExtension($name)
 347     {
 348         if (!extension_loaded($name)) {
 349             $dlext = (strncmp(PHP_OS,'WIN',3) === 0) ? '.dll' : '.so';
 350             @dl($name . $dlext);
 351         }
 352         if (!extension_loaded($name)) {
 353             return false;
 354         }
 355         return true;
 356     }
 357 }
 358
 359 ?>