function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
 {
     if ($argHostname) {
         putenv("ORACLE_HOME={$argHostname}");
     }
     if ($argDatabasename) {
         $argUsername .= "@{$argDatabasename}";
     }
     //if ($argHostname) print "<p>PConnect: 1st argument should be left blank for $this->databaseType</p>";
     $this->_connectionID = ora_plogon($argUsername, $argPassword);
     if ($this->_connectionID === false) {
         return false;
     }
     if ($this->autoCommit) {
         ora_commiton($this->_connectionID);
     }
     if ($this->autoRollback) {
         ora_rollback($this->_connectionID);
     }
     if ($this->_initdate) {
         $rs = $this->_query("ALTER SESSION SET NLS_DATE_FORMAT='YYYY-MM-DD'");
         if ($rs) {
             ora_close($rs);
         }
     }
     return true;
 }

 function _connect($argHostname, $argUsername, $argPassword, $argDatabasename, $mode = 0)
 {
     if (!function_exists('ora_plogon')) {
         return null;
     }
     // <G. Giunta 2003/03/03/> Reset error messages before connecting
     $this->_errorMsg = false;
     $this->_errorCode = false;
     // G. Giunta 2003/08/13 - This looks danegrously suspicious: why should we want to set
     // the oracle home to the host name of remote DB?
     //			if ($argHostname) putenv("ORACLE_HOME=$argHostname");
     if ($argHostname) {
         // code copied from version submitted for oci8 by Jorma Tuomainen <[email protected]>
         if (empty($argDatabasename)) {
             $argDatabasename = $argHostname;
         } else {
             if (strpos($argHostname, ":")) {
                 $argHostinfo = explode(":", $argHostname);
                 $argHostname = $argHostinfo[0];
                 $argHostport = $argHostinfo[1];
             } else {
                 $argHostport = "1521";
             }
             if ($this->connectSID) {
                 $argDatabasename = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" . $argHostname . ")(PORT={$argHostport}))(CONNECT_DATA=(SID={$argDatabasename})))";
             } else {
                 $argDatabasename = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" . $argHostname . ")(PORT={$argHostport}))(CONNECT_DATA=(SERVICE_NAME={$argDatabasename})))";
             }
         }
     }
     if ($argDatabasename) {
         $argUsername .= "@{$argDatabasename}";
     }
     //if ($argHostname) print "<p>Connect: 1st argument should be left blank for $this->databaseType</p>";
     if ($mode = 1) {
         $this->_connectionID = ora_plogon($argUsername, $argPassword);
     } else {
         $this->_connectionID = ora_logon($argUsername, $argPassword);
     }
     if ($this->_connectionID === false) {
         return false;
     }
     if ($this->autoCommit) {
         ora_commiton($this->_connectionID);
     }
     if ($this->_initdate) {
         $rs = $this->_query("ALTER SESSION SET NLS_DATE_FORMAT='YYYY-MM-DD'");
         if ($rs) {
             ora_close($rs);
         }
     }
     return true;
 }