Add native oracle support (Using the PHP OCI8 driver) to dialupadmin

diff --git a/dialup_admin/lib/sql/drivers/oracle/functions.php3 b/dialup_admin/lib/sql/drivers/oracle/functions.php3
new file mode 100644 (file)
index 0000000..9e5b766
--- /dev/null
+++ b/dialup_admin/lib/sql/drivers/oracle/functions.php3
@@ -0,0 +1,129 @@
+<?php
+// $Id$
+function da_sql_host_connect($server,$config)
+{
+       if ($config[sql_use_http_credentials] == 'yes'){
+               global $HTTP_SERVER_VARS;
+               $SQL_user = $HTTP_SERVER_VARS["PHP_AUTH_USER"];
+               $SQL_passwd = $HTTP_SERVER_VARS["PHP_AUTH_PW"];
+       }
+       else{
+               $SQL_user = $config[sql_username];
+               $SQL_passwd = $config[sql_password];
+       }
+       return @ocilogon($SQL_user, $SQL_passwd, $config[sql_database]);
+}
+
+function da_sql_connect($config)
+{
+       if ($config[sql_use_http_credentials] == 'yes'){
+               global $HTTP_SERVER_VARS;
+               $SQL_user = $HTTP_SERVER_VARS["PHP_AUTH_USER"];
+               $SQL_passwd = $HTTP_SERVER_VARS["PHP_AUTH_PW"];
+       }
+       else{
+               $SQL_user = $config[sql_username];
+               $SQL_passwd = $config[sql_password];
+       }
+       return @ocilogon($SQL_user, $SQL_passwd, $config[sql_database]);
+}
+
+function da_sql_pconnect($config)
+{
+       if ($config[sql_use_http_credentials] == 'yes'){
+               global $HTTP_SERVER_VARS;
+               $SQL_user = $HTTP_SERVER_VARS["PHP_AUTH_USER"];
+               $SQL_passwd = $HTTP_SERVER_VARS["PHP_AUTH_PW"];
+       }
+       else{
+               $SQL_user = $config[sql_username];
+               $SQL_passwd = $config[sql_password];
+       }
+       return @ociplogon($SQL_user, $SQL_passwd, $config[sql_database]);
+}
+
+function da_sql_close($link,$config)
+{
+       @ociclose($link);
+}
+
+function da_sql_escape_string($string)
+{
+       return addslashes($string);
+}
+
+function da_sql_query($link,$config,$query)
+{
+       if ($config[sql_debug] == 'true') {
+               print "<b>DEBUG(SQL,OCI DRIVER): Query: <i>$query</i></b><br>\n";
+       }
+       $statement = OCIParse($link,$query);
+       OCIExecute($statement);
+       return $statement;
+}
+
+function da_sql_num_rows($statement,$config)
+{
+       // Unfortunately we need to fetch the statement as ocirowcount doesn't work on SELECTs
+       $rows = OCIFetchStatement($statement,$res); 
+
+        if ($config[sql_debug] == 'true'){
+                // print "<b>DEBUG(SQL,OCI DRIVER): Query Result: Num rows:: " . @ocirowcount($statement) . "</b><br>\n";
+                print "<b>DEBUG(SQL,OCI DRIVER): Query Result: Num rows:: " . $rows . "</b><br>\n";
+        }
+       // Unfortunately we need to re-execute because the statement cursor is reset after OCIFetchStatement :-(
+       OCIExecute($statement); 
+        return $rows;
+}
+
+
+function da_sql_fetch_array($statement,$config)
+{
+       OCIFetchInto($statement, $temprow, OCI_ASSOC);
+       $row = array_change_key_case($temprow, CASE_LOWER);
+        if ($config[sql_debug] == 'true') {
+                print "<b>DEBUG(SQL,OCI DRIVER): Query Result: <pre>";
+                print_r($row);
+                print "</b></pre>\n";
+        }
+        return $row;
+}
+
+
+function da_sql_affected_rows($link,$statement,$config)
+{
+       if ($config[sql_debug] == 'true')
+               print "<b>DEBUG(SQL,OCI DRIVER): Query Result: Affected rows:: " . @ocirowcount($statement) . "</b><br>\n";
+       return @ocirowcount($statement);
+}
+
+function da_sql_list_fields($table,$link,$config)
+{
+        $res = @da_sql_query($link,$config,"SELECT * from $table WHERE ROWNUM <=1");
+        if ($res){
+               $fields[res]=Array();
+               for ($i = 1;$i<=ocinumcols($res);$i++) {
+                       array_push($fields[res],strtolower(OCIColumnName($res,$i)));
+               }
+                $fields[num]=@ocinumcols($res);
+        }else{
+                return NULL;
+        }
+        return $fields;
+}
+
+function da_sql_num_fields($fields,$config)
+{
+        return $fields[num];
+}
+
+function da_sql_field_name($fields,$num,$config)
+{
+       return $fields[res][$num];
+}
+
+function da_sql_error($link,$config)
+{
+       return ocierror($link);
+}
+?>