Changeset 30347 for gs2-extensions/tdb/trunk/perllib/DBDrivers/GDBM.pm

Timestamp:

2015-12-10T12:19:20+13:00 (8 years ago)

Author:

jmt12

Message:

Continuing to refactor driver code to move shared code up to parent classes. Have all the basic drivers done...

File:

• gs2-extensions/tdb/trunk/perllib/DBDrivers/GDBM.pm (modified) (4 diffs)

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

@@ -29 +29 @@
 use strict;
 
+BEGIN
+{
+    if (!defined $ENV{'GSDLHOME'} || !defined $ENV{'GSDLOS'}) {
+        die("Error! Environment not prepared. Have you sourced setup.bash?\n");
+    }
+}
+
 # Libraries
 use util;
@@ -47 +54 @@
     $self->{'keyread_executable'} = 'gdbmkeys';
     $self->{'write_executable'} = 'txt2db';
+    # Optional Support
     $self->{'supports_set'} = 1;
     bless($self, $class);
@@ -59 +67 @@
 
 # Handled by BaseDBDriver
-# sub get_infodb_file_path(string, string)
+# sub get_infodb_file_path(string, string) => string
 
 # Handled by 70HyphenFormat
+# sub open_infodb_write_handle(string, string?) => filehandle
 # sub close_infodb_write_handle(filehandle) => void
 # sub delete_infodb_entry(filehandle, string) => void
@@ -72 +81 @@
 # sub write_infodb_rawentry(filehandle, string, string) => void
 
-
-## @function open_infodb_write_handle(string, string*) => filehandle
-#
-#  Handles legacy use of optional 'append' argument where '-append' is required
-#
-sub open_infodb_write_handle
-{
-    my $self = shift(@_);
-    my $infodb_file_path = shift(@_);
-    my $opt_append = shift(@_);
-    my $infodb_file_handle;
-    if (defined $opt_append) {
-    if ($opt_append eq 'append') {
-        $opt_append = '-append';
-    }
-    $infodb_file_handle = $self->SUPER::open_infodb_write_handle($infodb_file_path, $opt_append);
-    }
-    else
-    {
-    $infodb_file_handle = $self->SUPER::open_infodb_write_handle($infodb_file_path);
-    }
-    return $infodb_file_handle;
-}
-## open_infodb_write_handle(string, string*) => filehandle ##
-
 1;