Changeset 30344 for gs2-extensions

Timestamp:

2015-12-03T16:33:09+13:00 (8 years ago)

Author:

jmt12

Message:

Refined and completed driver - although I wonder if set_entry would be easy enough to support just by letting the same entry be written muptiple times... the last instance would clobber the others anyway

File:

• gs2-extensions/tdb/trunk/perllib/DBDrivers/GDBMTXTGZ.pm (modified) (5 diffs)

gs2-extensions/tdb/trunk/perllib/DBDrivers/GDBMTXTGZ.pm

@@ -33 +33 @@
 use FileUtils;
 # - OO inheritence
-use parent 'DBDrivers::GDBM';
+use parent 'DBDrivers::70HyphenFormat';
 
 
@@ -39 +39 @@
 {
     my $class = shift(@_);
-    my $self = DBDrivers::GDBM->new();
+    my $self = DBDrivers::70HyphenFormat->new(@_);
     # Default TDB file extension
     $self->{'default_file_extension'} = 'txt.gz';
@@ -60 +60 @@
 # Handled by 70HyphenFormat
 # sub close_infodb_write_handle(filehandle) => void
-# sub delete_infodb_entry(filehandle, string) => void
 # sub read_infodb_file(string, hashmap) => void
 # sub read_infodb_keys(string, hashmap) => void
@@ -87 +86 @@
     my $opt_append = shift(@_);
     my $infodb_file_handle;
-    if (defined $opt_append) {
-    my $output_operator = '>'; # clobber
-    if ($opt_append eq "append") {
-        $output_operator = '>>'; # append
-    }
-    $infodb_file_handle = $self->open_infodb_write_handle($infodb_file_path, $output_operator);
+    # append
+    if (defined $opt_append && $opt_append =~ /^-?append$/) {
+    $infodb_file_handle = $self->SUPER::open_infodb_write_handle($infodb_file_path, '>>');
     }
+    # create or clobber
     else {
-    $infodb_file_handle = $self->open_infodb_write_handle($infodb_file_path);
+    $infodb_file_handle = $self->SUPER::open_infodb_write_handle($infodb_file_path, '>');
     }
     return $infodb_file_handle;
@@ -111 +108 @@
 ## set_infodb_entry(string, string, hashmap) => void ##
 
+
 1;