1<?php 2 3echo "database handler: $handler\n"; 4 5do { 6 if (($db_file = dba_open($db_filename, 'n'.$lock_flag, $handler))!==FALSE) { 7 dba_insert("key1", "Content String 1", $db_file); 8 dba_insert("key2", "Content String 2", $db_file); 9 dba_insert("key3", "Third Content String", $db_file); 10 dba_insert("key4", "Another Content String", $db_file); 11 dba_insert("key5", "The last content string", $db_file); 12 if ($handler != 'cdb') { 13 dba_delete("key3", $db_file); 14 dba_delete("key1", $db_file); 15 } else { 16 dba_close($db_file); 17 if (($db_file = dba_open($db_filename, 'r'.$lock_flag, $handler))===FALSE) { 18 echo "Error reopening database\n"; 19 } 20 } 21 $a = dba_firstkey($db_file); 22 $i=0; 23 while($a) { 24 $a = dba_nextkey($db_file); 25 $i++; 26 } 27 echo $i; 28 for ($i=1; $i<6; $i++) { 29 echo dba_exists("key$i", $db_file) ? "Y" : "N"; 30 } 31 echo "\n"; 32 echo dba_fetch("key2", $db_file)."\n"; 33 if ($handler != 'cdb') { 34 dba_replace("key2", "Content 2 replaced", $db_file); 35 echo dba_fetch("key2", $db_file)."\n"; 36 } 37 dba_close($db_file); 38 } else { 39 echo "Error creating database\n"; 40 } 41 if ($handler != 'cdb') { 42 $db_writer = dba_open($db_filename, 'c'.$lock_flag, $handler); 43 if (($dba_reader = @dba_open($db_filename, 'r'.$lock_flag.'t', $handler))===false) { 44 echo "Read during write: not allowed\n"; 45 } else { 46 echo "Read during write: allowed\n"; 47 } 48 if ($db_writer!==FALSE) { 49 if (dba_insert("key number 6", "The 6th value", $db_writer)) { 50 echo '"key number 6" written' . "\n"; 51 } else { 52 echo 'Failed to write "key number 6"' . "\n"; 53 } 54 if (dba_insert("key number 6", "The 6th value inserted again would be an error", $db_writer)) { 55 echo '"key number 6" written 2nd time' . "\n"; 56 } else { 57 echo 'Failed to write "key number 6" 2nd time' . "\n"; 58 } 59 dba_replace("key2", "Content 2 replaced 2nd time", $db_writer); 60 dba_delete("key4", $db_writer); 61 echo dba_fetch("key2", $db_writer)."\n"; 62 echo dba_fetch("key number 6", $db_writer)."\n"; 63 dba_close($db_writer); // when the writer is open at least db3 would fail because of buffered io. 64 } else { 65 die("Error reopening database\n"); 66 } 67 } 68 if (($db_file = dba_open($db_filename, 'r'.$lock_flag, $handler))!==FALSE) { 69 $key = dba_firstkey($db_file); 70 $res = array(); 71 while($key) { 72 $res[$key] = dba_fetch($key, $db_file); 73 $key = dba_nextkey($db_file); 74 } 75 ksort($res); 76 var_dump($res); 77 dba_close($db_file); 78 } else { 79 echo "Error reading database\n"; 80 } 81 if (!empty($dba_reader)) { 82 dba_close($dba_reader); 83 } 84 if (($db_file = dba_popen($db_filename, 'r'.($lock_flag==''?'':'-'), $handler))!==FALSE) { 85 if ($handler == 'dbm' || $handler == "tcadb") { 86 dba_close($db_file); 87 } 88 } 89 90 if ($lock_flag == '') { 91 break; 92 } else { 93 echo "--NO-LOCK--\n"; 94 $lock_flag = ''; 95 } 96} while(1); 97 98?> 99
