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

<?PHP // -*-Mode: C++;-*-
/*
  Bill Adams (bill<at>evil<dot>inetarena<dot>com)
  DBD::Informix -- The Informix 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.

  07 May 2000  baa  Added rows( ) function to STH object.

*/

class DBD_Informix {
  
  var $is_persisent;
  var $errstr;
  var $dbh;

  function DBD_connect( $db_name, $db_host = '', 
                        $db_user = '', $db_passwd = '',
                        $is_persistent = 0){
    //Track the $is_persistent just for fun...
    $is_persistent = $is_persistent ? $is_persistent : 0;
    $this->is_persistent = $is_persistent;

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

    if( ! getenv( "INFORMIXDIR" ) || ! getenv( "INFORMIXSERVER" )){
      if( ! getenv( "INFORMIXDIR" )){
        echo "DBD::Informix -- No INFORMIXDIR set, put something like 'setenv( \"INFORMIXDIR=/path/to/informix\" );' in your program.<br>\n";
      }
      if( ! getenv( "INFORMIXSERVER" )){      
        echo "DBD::Informix -- No INFORMIXSERVER set, put something like 'setenv( \"INFORMIXSERVER=defaultserver\" );' in your program.<br>\n";
      }

      $this->errstr = "DBD::Informix -- Error, required Informix environment missing.";
      return; }

    if( $is_persistent ){
      echo "Persistent Connection.\n";
      $conn = ifx_pconnect( $db_name, $db_user, $db_passwd );
    } else {
      $conn = ifx_connect( $db_name, $db_user, $db_passwd );
    }

    if( ! $conn ){
      $this->errstr = "DBD::Informix Error: Could not connect to $db_name";
      return;
    }
    
    $this->dbh = $conn;
    return( $this );
  }//end connect function


  function disconnect( ){
    ifx_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_Informix;
    $sth->DBH( $this );
    $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.
    $result = ifx_query( $query, $this->dbh );
    if( ! $result ){
      if( ereg( "SQLCODE=(-?[0-9]+)", ifx_error( $this->dbh ), $regs )){
        $error_no = $regs[1];
        if( $error_no == -201 ){
          $error_message = "($error_no) Syntax Error";
        }
      } else {
        $error_message = ifx_error( $this->dbh );
        //$error_message = ifx_errormsg( $this->dbh );
      }
               
      
      $this->errstr = "DBI Error: 'dbh_do' failed: $error_message";
      return;
    }
    $rows   = ifx_affected_rows( $result ); //this->dbh );
    $this->result = $result;
    return( $rows );
  }//end fn do


  function insert_id( ){
    //Get the last serial number from an insert.
    $sqlca = ifx_getsqlca( $this->result );
    return( $sqlca['sqlerrd1'] );
  }//end fn do


  function quote( $string ){
    //In informix, to quote a single quote, double it.  I do not 
    //  know how other characters have to be quoted but it looks like they
    //  don't have to be...
    if( $string ){
      return( "'".ereg_replace( "'", "''", $string )."'" );
    } else {
      return( 'NULL' );
    }
  }//end fn quote
}//end DBI class


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

class STH_Informix {

  var $query;
  var $DBH;
  var $dbh;
  var $result;

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


  function DBH( $dbh ){
    $this->DBH = $dbh;
    $this->dbh = $dbh->dbh;
    return( $dbh );
  }


  function prepare( $query ){
    if( ! $this->dbh ){ return; }
    $this->query  = $query;
    if( $this->result ){ ifx_free_result( $this->result ); }
    $this->result = ifx_prepare( $query, $this->dbh, 0 );
    if( ! $this->result ){
      $this->errstr = "DBD::Informix: ".ifx_error( $this->dbh );
      return;
    }
    return( $this->result );
  }


  function execute( ){
    if( ! $this->dbh ){ return; }
    if( ! $this->result ){ return; }
    $worked = ifx_do( $this->result );
    if( ! $worked ){
      ifx_free_result( $this->result );
      $this->errstr = "STH Execute failed: ".ifx_error( $this->dbh );
      return;
    }
    return( 1 );
  }//end execute fn


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


  function rows( ){
    if( ! $this->dbh ){ return; }
    return ifx_num_rows( $this->result );
  }


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


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

  
$GLOBALS[classDBDInformix_read] = 1;
1	<?PHP // --Mode: C++;--
2	/*
3	Bill Adams (bill<at>evil<dot>inetarena<dot>com)
4	DBD::Informix -- The Informix Driver.
5	See: http://evil.inetarena.com/php/DBI.php for more info.
6
7	Licence: LGPL (http://www.gnu.org/).
8
9	This software is provided "AS IS" with no warrenty either implicit,
10	explicit or otherwise. Use at your own risk.
11
12	07 May 2000 baa Added rows( ) function to STH object.
13
14	*/
15
16	class DBD_Informix {
17
18	var $is_persisent;
19	var $errstr;
20	var $dbh;
21
22	function DBD_connect( $db_name, $db_host = '',
23	$db_user = '', $db_passwd = '',
24	$is_persistent = 0){
25	//Track the $is_persistent just for fun...
26	$is_persistent = $is_persistent ? $is_persistent : 0;
27	$this->is_persistent = $is_persistent;
28
29	//DEBUG...
30	echo "DBD::Informix: [$db_name][$db_host][$db_user][$is_persistent]<br>\n";
31
32	if( ! getenv( "INFORMIXDIR" ) \|\| ! getenv( "INFORMIXSERVER" )){
33	if( ! getenv( "INFORMIXDIR" )){
34	echo "DBD::Informix -- No INFORMIXDIR set, put something like 'setenv( \"INFORMIXDIR=/path/to/informix\" );' in your program.<br>\n";
35	}
36	if( ! getenv( "INFORMIXSERVER" )){
37	echo "DBD::Informix -- No INFORMIXSERVER set, put something like 'setenv( \"INFORMIXSERVER=defaultserver\" );' in your program.<br>\n";
38	}
39
40	$this->errstr = "DBD::Informix -- Error, required Informix environment missing.";
41	return; }
42
43	if( $is_persistent ){
44	echo "Persistent Connection.\n";
45	$conn = ifx_pconnect( $db_name, $db_user, $db_passwd );
46	} else {
47	$conn = ifx_connect( $db_name, $db_user, $db_passwd );
48	}
49
50	if( ! $conn ){
51	$this->errstr = "DBD::Informix Error: Could not connect to $db_name";
52	return;
53	}
54
55	$this->dbh = $conn;
56	return( $this );
57	}//end connect function
58
59
60
61	function disconnect( ){
62	ifx_close( $this->dbh );
63	$this->dbh = undef;
64	return( 1 );
65	}//end disconnect function
66
67
68	function prepare( $query ){
69	if( ! $this->dbh ){ return; }
70	//Does nothing but save the query...
71	$sth = new STH_Informix;
72	$sth->DBH( $this );
73	$sth->prepare( $query );
74	return( $sth );
75	}//end dbh prepare fn
76
77
78	//do is a reserved word so I have to name this something else.
79	function dbh_do( $query ){
80	//run the query and return the number of affected rows.
81	$result = ifx_query( $query, $this->dbh );
82	if( ! $result ){
83	if( ereg( "SQLCODE=(-?[0-9]+)", ifx_error( $this->dbh ), $regs )){
84	$error_no = $regs[1];
85	if( $error_no == -201 ){
86	$error_message = "($error_no) Syntax Error";
87	}
88	} else {
89	$error_message = ifx_error( $this->dbh );
90	//$error_message = ifx_errormsg( $this->dbh );
91	}
92
93
94	$this->errstr = "DBI Error: 'dbh_do' failed: $error_message";
95	return;
96	}
97	$rows = ifx_affected_rows( $result ); //this->dbh );
98	$this->result = $result;
99	return( $rows );
100	}//end fn do
101
102
103	function insert_id( ){
104	//Get the last serial number from an insert.
105	$sqlca = ifx_getsqlca( $this->result );
106	return( $sqlca['sqlerrd1'] );
107	}//end fn do
108
109
110	function quote( $string ){
111	//In informix, to quote a single quote, double it. I do not
112	// know how other characters have to be quoted but it looks like they
113	// don't have to be...
114	if( $string ){
115	return( "'".ereg_replace( "'", "''", $string )."'" );
116	} else {
117	return( 'NULL' );
118	}
119	}//end fn quote
120	}//end DBI class
121
122
123	//===========================================================
124
125	class STH_Informix {
126
127	var $query;
128	var $DBH;
129	var $dbh;
130	var $result;
131
132	function STH_Informix( $dbh = '' ){
133	if( $dbh ){
134	$this->dbh = $dbh;
135	}
136	return( $this );
137	}
138
139
140	function DBH( $dbh ){
141	$this->DBH = $dbh;
142	$this->dbh = $dbh->dbh;
143	return( $dbh );
144	}
145
146
147	function prepare( $query ){
148	if( ! $this->dbh ){ return; }
149	$this->query = $query;
150	if( $this->result ){ ifx_free_result( $this->result ); }
151	$this->result = ifx_prepare( $query, $this->dbh, 0 );
152	if( ! $this->result ){
153	$this->errstr = "DBD::Informix: ".ifx_error( $this->dbh );
154	return;
155	}
156	return( $this->result );
157	}
158
159
160	function execute( ){
161	if( ! $this->dbh ){ return; }
162	if( ! $this->result ){ return; }
163	$worked = ifx_do( $this->result );
164	if( ! $worked ){
165	ifx_free_result( $this->result );
166	$this->errstr = "STH Execute failed: ".ifx_error( $this->dbh );
167	return;
168	}
169	return( 1 );
170	}//end execute fn
171
172
173	function finish( ){
174	if( ! $this->result ){ return; }
175	ifx_free_result( $this->result );
176	$this->result = undef;
177	return( 1 );
178	}//end execute fn
179
180
181	function rows( ){
182	if( ! $this->dbh ){ return; }
183	return ifx_num_rows( $this->result );
184	}
185
186
187
188	function fetchrow_array( ){
189	if( ! $this->result ){
190	//echo "STH Error: Calling fetchrow on null result.<br>\n";
191	return;
192	}
193	return( ifx_fetch_row( $this->result, "NEXT" ));
194	}
195
196
197	function fetchrow_hash( ){
198	if( ! $this->result ){
199	//echo "STH Error: Calling fetchrow on null result.<br>\n";
200	return;
201	}
202	return( ifx_fetch_row( $this->result ));
203	}
204	}
205
206
207	$GLOBALS[classDBDInformix_read] = 1;