Changeset 19773

Timestamp:

2009-06-09T14:33:22+12:00 (15 years ago)

Author:

davidb

Message:

optional parameter to open GDBM database that allows for records to be appended

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (2 diffs)

gsdl/trunk/perllib/dbutil.pm

@@ -323 +323 @@
 {
   my $infodb_file_path = shift(@_);
+  my $opt_append = shift(@_);
 
   my $txt2db_exe = &util::filename_cat($ENV{'GSDLHOME'},"bin",$ENV{'GSDLOS'}, "txt2db" . &util::get_os_exe());
   my $infodb_file_handle = undef;
-  if (!-e "$txt2db_exe" || !open($infodb_file_handle, "| \"$txt2db_exe\" \"$infodb_file_path\""))
+  my $cmd = "\"$txt2db_exe\"";
+  if ((defined $opt_append) && ($opt_append eq "append")) {
+      $cmd .= " -append";
+  }
+  $cmd .= " \"$infodb_file_path\"";
+
+  if (!-e "$txt2db_exe" || !open($infodb_file_handle, "| $cmd"))
   {
     return undef;
@@ -333 +340 @@
   return $infodb_file_handle;
 }
+