sistema/local_lib/intranetdb.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
   3 // +----------------------------------------------------------------------+
   4 // | PHP Version 4                                                        |
   5 // +----------------------------------------------------------------------+
   6 // | Copyright (c) 1997-2003 The PHP Group                                |
   7 // +----------------------------------------------------------------------+
   8 // | This source file is subject to version 2.02 of the PHP license,      |
   9 // | that is bundled with this package in the file LICENSE, and is        |
  10 // | available at through the world-wide-web at                           |
  11 // | http://www.php.net/license/2_02.txt.                                 |
  12 // | If you did not receive a copy of the PHP license and are unable to   |
  13 // | obtain it through the world-wide-web, please send a note to          |
  14 // | license@php.net so we can mail you a copy immediately.               |
  15 // +----------------------------------------------------------------------+
  16 // | Created: Mon Jun 9 17:53:31 2003
  17 // | Author:  Gonzalo Merayo <gmeray@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id: bandadb.php 12 2003-06-24 16:54:23Z gmeray $
  21 // $Author: gmeray $
  22 // $URL: http://portal.mecon.ar/svn/bandas/sistema/lib/bandadb.php $
  23 // $Date: 2003-06-24 13:54:23 -0300 (Tue, 24 Jun 2003) $
  24 // $Rev: 12 $
  25 //
  26
  27 #require_once 'PEAR.php';
  28 require_once 'DB.php';
  29
  30
  31
  32 // +X2C Class 121 :BandaDB
  33 /**
  34  * @access public
  35  */
  36 class IntranetDB extends DB {
  37   // ~X2C
  38
  39   // +X2C Operation 122
  40   /**
  41    * @return void
  42    * @access public
  43    */
  44   function connect() // ~X2C
  45   {
  46     $conf = include 'configuracion.php';
  47     $dsn = $conf['db_type'].'://'.$conf['db_user'].':'.$conf['db_pass'].'@'.$conf['db_host'].'/'.$conf['db_name'];
  48     $db = DB::connect($dsn,true);
  49     if (DB::isError($db)) {
  50       die ($db->getMessage());
  51     }
  52     return $db;
  53   }
  54   // -X2C
  55
  56 } // -X2C Class :BandaDB
  57 ?>