6
6
dba_insert ("key3 " , "Third Content String " , $ db_file );
7
7
dba_insert ("key4 " , "Another Content String " , $ db_file );
8
8
dba_insert ("key5 " , "The last content string " , $ db_file );
9
- dba_delete ("key3 " , $ db_file );
10
- dba_delete ("key1 " , $ db_file );
9
+ if ($ handler != 'cdb ' ) {
10
+ dba_delete ("key3 " , $ db_file );
11
+ dba_delete ("key1 " , $ db_file );
12
+ } else {
13
+ dba_close ($ db_file );
14
+ if (($ db_file = dba_open ($ db_filename , 'r ' .$ lock_flag , $ handler ))===FALSE ) {
15
+ echo "Error reopening database \n" ;
16
+ }
17
+ }
11
18
$ a = dba_firstkey ($ db_file );
12
19
$ i =0 ;
13
20
while ($ a ) {
20
27
}
21
28
echo "\n" ;
22
29
echo dba_fetch ("key2 " , $ db_file )."\n" ;
23
- dba_replace ("key2 " , "Content 2 replaced " , $ db_file );
24
- echo dba_fetch ("key2 " , $ db_file )."\n" ;
30
+ if ($ handler != 'cdb ' ) {
31
+ dba_replace ("key2 " , "Content 2 replaced " , $ db_file );
32
+ echo dba_fetch ("key2 " , $ db_file )."\n" ;
33
+ }
25
34
dba_close ($ db_file );
26
35
} else {
27
36
echo "Error creating database \n" ;
28
37
}
29
- $ db_writer = dba_open ($ db_filename , 'w ' .$ lock_flag , $ handler );
30
- if (($ dba_reader = @dba_open ($ db_filename , 'r ' .$ lock_flag .($ lock_flag ? 't ' : '' ), $ handler ))===false ) {
31
- echo "Read during write: not allowed \n" ;
32
- } else {
33
- echo "Read during write: allowed \n" ;
34
- }
35
- if ($ db_writer !==FALSE ) {
36
- dba_insert ("key number 6 " , "The 6th value " , $ db_writer );
37
- @dba_insert ("key number 6 " , "The 6th value inserted again would be an error " , $ db_writer );
38
- dba_replace ("key2 " , "Content 2 replaced 2nd time " , $ db_writer );
39
- dba_delete ("key4 " , $ db_writer );
40
- echo dba_fetch ("key2 " , $ db_writer )."\n" ;
41
- echo dba_fetch ("key number 6 " , $ db_writer )."\n" ;
42
- dba_close ($ db_writer ); // when the writer is open at least db3 would fail because of buffered io.
43
- } else {
44
- die ("Error reopening database \n" );
38
+ if ($ handler != 'cdb ' ) {
39
+ $ db_writer = dba_open ($ db_filename , 'w ' .$ lock_flag , $ handler );
40
+ if (($ dba_reader = @dba_open ($ db_filename , 'r ' .$ lock_flag .($ lock_flag ? 't ' : '' ), $ handler ))===false ) {
41
+ echo "Read during write: not allowed \n" ;
42
+ } else {
43
+ echo "Read during write: allowed \n" ;
44
+ }
45
+ if ($ db_writer !==FALSE ) {
46
+ dba_insert ("key number 6 " , "The 6th value " , $ db_writer );
47
+ @dba_insert ("key number 6 " , "The 6th value inserted again would be an error " , $ db_writer );
48
+ dba_replace ("key2 " , "Content 2 replaced 2nd time " , $ db_writer );
49
+ dba_delete ("key4 " , $ db_writer );
50
+ echo dba_fetch ("key2 " , $ db_writer )."\n" ;
51
+ echo dba_fetch ("key number 6 " , $ db_writer )."\n" ;
52
+ dba_close ($ db_writer ); // when the writer is open at least db3 would fail because of buffered io.
53
+ } else {
54
+ die ("Error reopening database \n" );
55
+ }
45
56
}
46
57
if (($ db_file = dba_open ($ db_filename , 'r ' .$ lock_flag , $ handler ))!==FALSE ) {
47
58
$ key = dba_firstkey ($ db_file );
59
70
if ($ dba_reader ) {
60
71
dba_close ($ dba_reader );
61
72
}
73
+ if (($ db_file = dba_popen ($ db_filename , 'r ' .($ handler !='gdbm ' ?'- ' :'' ), $ handler ))!==FALSE ) {
74
+ }
62
75
?>
0 commit comments