<?
/* Test case for saving blobs
   Create the following table to check for it:
   
   CREATE TABLE CLOBTEST
     (
     ID       NUMBER(38),
     MESSAGE  CLOB
     );
 */

$sock = OCILogon("scott","tiger");
if(!$sock)
  {
  die("cannot connect to DB");
  }

// The vars to save:

$mynumber = 1;
$mytext=<<<EOM
This a text which should be added
to our CLOB Field. 4.3.5RC1 seems
to save it perfectly while 4.3.5RC2
complains about:
OCILobWrite: ORA-24801: Unzulässiger Parameterwert in OCI-LOB-Funktion
EOM;

// The actual query to use:

$query=<<<EOM
INSERT INTO CLOBTEST (ID,MESSAGE) VALUES (:myid,EMPTY_CLOB()) RETURNING MESSAGE INTO :the_clob
EOM;

// Retrieve LOB Locator:

$clob = @OCINewDescriptor($sock, OCI_D_LOB);
if(!($stmt = OCIParse($sock,$query)))
  {
  echo("Parse failed.\n");
  OCILogoff($sock);
  exit;
  }

// Bind the vars:

OCIBindByName ($stmt, ":the_clob", $clob, -1, OCI_B_CLOB);
OCIBindByName($stmt, ":myid",$mynumber,-1);

// Now execute the query, but do not commit yet:
 
if(OCIExecute($stmt, OCI_DEFAULT)==false)
  {
  echo("Cannot execute!\n");
  OCIFreeStatement($stmt);
  OCILogoff($sock);
  exit;
  } 

// Now save the lob contents:

if($clob->save($mytext))
  {
  OCICommit($sock);
  }
else
  {
  echo("Unable to add CLOB text to database!\n");
  OCIRollBack($sock);
  }
OCIFreeDesc($clob);
OCIFreeStatement($stmt);
OCILogoff($sock);
echo("done.\n");
?>