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	dpavlin	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;