inncomm/inc/class.DBD%3A%3Ainterbase

<?PHP // -*-Mode: C++;-*-
/*
  Dobrica Pavlinusic <dpavlin@rot13.org>
  Based on DBD::Pg by
  Joseph Artsimovich (joseph_a<at>mail<dot>ru)
  DBD::interbase -- The InterBase Driver.
  See: http://evil.inetarena.com/php/DBI.php for more info.

  Licence: LGPL (http://www.gnu.org/).

  This software is provided "AS IS" with no warrenty either implicit,
  explicit or otherwise.  Use at your own risk.


  Notes:
  
  o insert_id is not implemented
*/

class DBD_interbase {
  
  var $is_persisent;
  var $DBI;
  var $exit_on_fail = 0;
  var $dbh;

  function DBD_connect( $db_name, $db_host = '', 
                        $db_user = '', $db_passwd = '',
                        $is_persistent = 0){

    //Track the $is_persistant just for fun...
    $is_persistent = $is_persistent ? $is_persistent : 0;
    $this->is_persistent = $is_persistent;

    //DEBUG...
    echo "DBD::interbase: [$db_name][$db_host][$db_user][$is_persistent]<br>\n";

    $conn = array('','','');

    if ($db_name) $conn[0] = $db_name ; # can have hostname inside!
    if ($db_host) $conn[0] = "$db_host:$db_name" ;
    if ($db_user) $conn[1] = $db_user ;
    if ($db_passwd) $conn[2] = $db_passwd ;

    if( $is_persistent ){
      $conn = ibase_pconnect( $conn[0],$conn[1],$conn[2] );
    } else {
      $conn = ibase_connect( $conn[0],$conn[1],$conn[2] );
    }
    
    if( !$conn ){
      $this->errstr = "DBD::interbase Error: Could not connect to the database.";
      return;
    }

    $this->dbh = $conn;
    return( $this );
  }//end connect function


  function disconnect( ){
    ibase_close( $this->dbh );
    $this->dbh = undef;
    return( 1 );
  }//end disconnect function


  function prepare( $query ){
    if( ! $this->dbh ){ return; }
    //Does nothing but save the query...
    $sth = new STH_interbase;
    $sth->DBH( $this );
    //cludge for "=true" and "is true" 
    $query=eregi_replace("= *true","='t'",$query);
    $query=eregi_replace("is *true","='t'",$query);
    $sth->prepare( $query );
    return( $sth );
  }//end dbh prepare fn


  //do is a reserved word so I have to name this something else.
  function dbh_do( $query ){
    //run the query and return the number of affected rows.
    //cludge for "=true" and "is true" 
    $query=eregi_replace("= *true","='t'",$query);
    $query=eregi_replace("is *true","='t'",$query);
    $result = ibase_query( $this->dbh, $query );
    if( ! $result ){
      $this->errstr = "DBI Error: 'dbh_do' failed: ".
        ibase_errmsg( $this->dbh );

      if( $this->exit_on_fail ){
        echo $this->errstr."<br>\n";
        $this->disconnect( );
        exit( ); }

      return;
    }
    $rows = ibase_num_fields( $result );
    if( $rows == 0 ){ $rows = '0E0'; }
    return( $rows );
  }//end fn do


  function insert_id( ){
    //Get the last serial number from an insert.
    $this->errstr  = "DBI Error: 'insertid' unimplemented.";
    return( -1 );
  }//end fn do


  function quote( $string ){
    if( $string ){
      return( "'".addslashes( $string )."'" );
    } else {
      return( 'NULL' );
    }
  }//end fn quote


}//end DBI class


//===========================================================

class STH_interbase {

  var $query;
  var $DBH;
  var $dbh;
  var $result;
  var $row = 0;

  function STH( $dbh = '' ){
    if( $dbh ){
      $this->dbh = $dbh;
    }
    return( $this );
  }


  function DBH( $dbh ){
    $this->DBH = $dbh;  //watch out, this copies the object not the reference.
    $this->dbh = $dbh->dbh;
    return( $dbh );
  }


  function prepare( $query ){
    if( ! $this->dbh ){ return; }
    $this->query = $query;
    return( $query );
  }


  function execute( ){
    if( ! $this->dbh ){ return; }
    //echo "Running query $this->query<br>\n";
    $this->result = ibase_query( $this->dbh, $this->query );
    if( ! $this->result ){
      $this->errstr = "STH Execute failed: ".ibase_errmsg( $this->dbh );
      return;
    }

    return( 1 );
  }//end execute fn


  function finish( ){
    if( ! $this->result ){ return; }
    ibase_freeresult( $this->result );
    $this->result = undef;
    return( 1 );
  }//end execute fn


  function rows( ){
      return( ibase_num_fields( $this->result ) );
  } //end rows fn

  function fetchrow_array( ){
    if( ! $this->result ){
      //echo "STH Error: Calling fetchrow on null result.<br>\n";
      return;
    }
    return( ibase_fetch_row( $this->result ));
  }


  function fetchrow_hash( ){
    if( ! $this->result ){
      //echo "STH Error: Calling fetchrow on null result.<br>\n";
      return;
    }
//    if ($this->row >= ibase_num_fields($this->result)) return 0;
    return( ibase_fetch_object( $this->result ));
  }
}

  
$GLOBALS[classDBDinterbase_read] = 1;
1	<?PHP // --Mode: C++;--
2	/*
3	Dobrica Pavlinusic <dpavlin@rot13.org>
4	Based on DBD::Pg by
5	Joseph Artsimovich (joseph_a<at>mail<dot>ru)
6	DBD::interbase -- The InterBase Driver.
7	See: http://evil.inetarena.com/php/DBI.php for more info.
8
9	Licence: LGPL (http://www.gnu.org/).
10
11	This software is provided "AS IS" with no warrenty either implicit,
12	explicit or otherwise. Use at your own risk.
13
14
15	Notes:
16
17	o insert_id is not implemented
18	*/
19
20	class DBD_interbase {
21
22	var $is_persisent;
23	var $DBI;
24	var $exit_on_fail = 0;
25	var $dbh;
26
27	function DBD_connect( $db_name, $db_host = '',
28	$db_user = '', $db_passwd = '',
29	$is_persistent = 0){
30
31	//Track the $is_persistant just for fun...
32	$is_persistent = $is_persistent ? $is_persistent : 0;
33	$this->is_persistent = $is_persistent;
34
35	//DEBUG...
36	echo "DBD::interbase: [$db_name][$db_host][$db_user][$is_persistent]<br>\n";
37
38	$conn = array('','','');
39
40	if ($db_name) $conn[0] = $db_name ; # can have hostname inside!
41	if ($db_host) $conn[0] = "$db_host:$db_name" ;
42	if ($db_user) $conn[1] = $db_user ;
43	if ($db_passwd) $conn[2] = $db_passwd ;
44
45	if( $is_persistent ){
46	$conn = ibase_pconnect( $conn[0],$conn[1],$conn[2] );
47	} else {
48	$conn = ibase_connect( $conn[0],$conn[1],$conn[2] );
49	}
50
51	if( !$conn ){
52	$this->errstr = "DBD::interbase Error: Could not connect to the database.";
53	return;
54	}
55
56	$this->dbh = $conn;
57	return( $this );
58	}//end connect function
59
60
61
62	function disconnect( ){
63	ibase_close( $this->dbh );
64	$this->dbh = undef;
65	return( 1 );
66	}//end disconnect function
67
68
69	function prepare( $query ){
70	if( ! $this->dbh ){ return; }
71	//Does nothing but save the query...
72	$sth = new STH_interbase;
73	$sth->DBH( $this );
74	//cludge for "=true" and "is true"
75	$query=eregi_replace("= *true","='t'",$query);
76	$query=eregi_replace("is *true","='t'",$query);
77	$sth->prepare( $query );
78	return( $sth );
79	}//end dbh prepare fn
80
81
82	//do is a reserved word so I have to name this something else.
83	function dbh_do( $query ){
84	//run the query and return the number of affected rows.
85	//cludge for "=true" and "is true"
86	$query=eregi_replace("= *true","='t'",$query);
87	$query=eregi_replace("is *true","='t'",$query);
88	$result = ibase_query( $this->dbh, $query );
89	if( ! $result ){
90	$this->errstr = "DBI Error: 'dbh_do' failed: ".
91	ibase_errmsg( $this->dbh );
92
93	if( $this->exit_on_fail ){
94	echo $this->errstr."<br>\n";
95	$this->disconnect( );
96	exit( ); }
97
98	return;
99	}
100	$rows = ibase_num_fields( $result );
101	if( $rows == 0 ){ $rows = '0E0'; }
102	return( $rows );
103	}//end fn do
104
105
106	function insert_id( ){
107	//Get the last serial number from an insert.
108	$this->errstr = "DBI Error: 'insertid' unimplemented.";
109	return( -1 );
110	}//end fn do
111
112
113	function quote( $string ){
114	if( $string ){
115	return( "'".addslashes( $string )."'" );
116	} else {
117	return( 'NULL' );
118	}
119	}//end fn quote
120
121
122	}//end DBI class
123
124
125	//===========================================================
126
127	class STH_interbase {
128
129	var $query;
130	var $DBH;
131	var $dbh;
132	var $result;
133	var $row = 0;
134
135	function STH( $dbh = '' ){
136	if( $dbh ){
137	$this->dbh = $dbh;
138	}
139	return( $this );
140	}
141
142
143	function DBH( $dbh ){
144	$this->DBH = $dbh; //watch out, this copies the object not the reference.
145	$this->dbh = $dbh->dbh;
146	return( $dbh );
147	}
148
149
150	function prepare( $query ){
151	if( ! $this->dbh ){ return; }
152	$this->query = $query;
153	return( $query );
154	}
155
156
157	function execute( ){
158	if( ! $this->dbh ){ return; }
159	//echo "Running query $this->query<br>\n";
160	$this->result = ibase_query( $this->dbh, $this->query );
161	if( ! $this->result ){
162	$this->errstr = "STH Execute failed: ".ibase_errmsg( $this->dbh );
163	return;
164	}
165
166	return( 1 );
167	}//end execute fn
168
169
170	function finish( ){
171	if( ! $this->result ){ return; }
172	ibase_freeresult( $this->result );
173	$this->result = undef;
174	return( 1 );
175	}//end execute fn
176
177
178	function rows( ){
179	return( ibase_num_fields( $this->result ) );
180	} //end rows fn
181
182	function fetchrow_array( ){
183	if( ! $this->result ){
184	//echo "STH Error: Calling fetchrow on null result.<br>\n";
185	return;
186	}
187	return( ibase_fetch_row( $this->result ));
188	}
189
190
191	function fetchrow_hash( ){
192	if( ! $this->result ){
193	//echo "STH Error: Calling fetchrow on null result.<br>\n";
194	return;
195	}
196	// if ($this->row >= ibase_num_fields($this->result)) return 0;
197	return( ibase_fetch_object( $this->result ));
198	}
199	}
200
201
202	$GLOBALS[classDBDinterbase_read] = 1;