PAL.C.T MINI SHELL
<?php
echo "database handler: $handler\n";
do {
if (($db_file = dba_open($db_filename, 'n'.$lock_flag, $handler))!==FALSE) {
dba_insert("key1", "Content String 1", $db_file);
dba_insert("key2", "Content String 2", $db_file);
dba_insert("key3", "Third Content String", $db_file);
dba_insert("key4", "Another Content String", $db_file);
dba_insert("key5", "The last content string", $db_file);
if ($handler != 'cdb') {
dba_delete("key3", $db_file);
dba_delete("key1", $db_file);
} else {
dba_close($db_file);
if (($db_file = dba_open($db_filename, 'r'.$lock_flag, $handler))===FALSE) {
echo "Error reopening database\n";
}
}
$a = dba_firstkey($db_file);
$i=0;
while($a) {
$a = dba_nextkey($db_file);
$i++;
}
echo $i;
for ($i=1; $i<6; $i++) {
echo dba_exists("key$i", $db_file) ? "Y" : "N";
}
echo "\n";
echo dba_fetch("key2", $db_file)."\n";
if ($handler != 'cdb') {
dba_replace("key2", "Content 2 replaced", $db_file);
echo dba_fetch("key2", $db_file)."\n";
}
dba_close($db_file);
} else {
echo "Error creating database\n";
}
if ($handler != 'cdb') {
$db_writer = dba_open($db_filename, 'c'.$lock_flag, $handler);
if (($dba_reader = @dba_open($db_filename, 'r'.$lock_flag.'t', $handler))===false) {
echo "Read during write: not allowed\n";
} else {
echo "Read during write: allowed\n";
}
if ($db_writer!==FALSE) {
if (dba_insert("key number 6", "The 6th value", $db_writer)) {
echo '"key number 6" written' . "\n";
} else {
echo 'Failed to write "key number 6"' . "\n";
}
if (dba_insert("key number 6", "The 6th value inserted again would be an error", $db_writer)) {
echo '"key number 6" written 2nd time' . "\n";
} else {
echo 'Failed to write "key number 6" 2nd time' . "\n";
}
dba_replace("key2", "Content 2 replaced 2nd time", $db_writer);
dba_delete("key4", $db_writer);
echo dba_fetch("key2", $db_writer)."\n";
echo dba_fetch("key number 6", $db_writer)."\n";
dba_close($db_writer); // when the writer is open at least db3 would fail because of buffered io.
} else {
die("Error reopening database\n");
}
}
if (($db_file = dba_open($db_filename, 'r'.$lock_flag, $handler))!==FALSE) {
$key = dba_firstkey($db_file);
$res = array();
while($key) {
$res[$key] = dba_fetch($key, $db_file);
$key = dba_nextkey($db_file);
}
ksort($res);
var_dump($res);
dba_close($db_file);
} else {
echo "Error reading database\n";
}
if (!empty($dba_reader)) {
dba_close($dba_reader);
}
if (($db_file = dba_popen($db_filename, 'r'.($lock_flag==''?'':'-'), $handler))!==FALSE) {
if ($handler == 'dbm' || $handler == "tcadb") {
dba_close($db_file);
}
}
if ($lock_flag == '') {
break;
} else {
echo "--NO-LOCK--\n";
$lock_flag = '';
}
} while(1);
?>
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`