<?php
  // Start demo
  echo "Pear";
  require_once("PEAR.php");
  require_once("DB.php");
  echo " 1";
  PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, 'error_handler');
  echo " 2";
  // Define firebird dB to use
  // Set Data Store Name string: ibase://sysdba:X6vVRe+0@prueba/employee.fdb
  $dsn = array(
         'phptype'  => 'ibase',
         'username' => 'sysdba',
         'password' => 'X6vVRe+0',
         'hostspec' => 'prueba',
         'database' => 'employee.fdb',
  );
  echo " 3";
  // Set run time options 
  $options = array(
             'debug'      => 2,
             'persistent' => true,
  );
  echo " 4";
  //   Connect
  $db = DB::connect($dsn,$options);
  echo " 5";
  //   SQL Query
  $sql = "select * from country";
  $result = $db->query($sql);
  echo " 6";
  //   Disconnect
  $db->disconnect();
  echo " 7";
  // End demo
  unset( $dsn, $db, $options, $sql, $result );
  echo " ok";

function error_handler(&$obj) {
  $msg  = $obj->getMessage();
  $code = $obj->getCode();
  $info = $obj->getUserInfo();
  printf('<h2 style=color:#cc0000>%s(%d)</h2>',$msg,$code);
  if( $info ) {
      print Debug info: <pre>;
      print htmlspecialchars($info);
      print </pre>\n;
  }
}

?>
