Changeset 18441 for gsdl/trunk/perllib/dbutil.pm

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -320 +320 @@
   my $infodb_map = shift(@_);
 
-  open (PIPEIN, "db2txt \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt\n";
+  open (PIPEIN, "db2txt \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt \$infodb_file_path\"\n";
   my $infodb_line = "";
   my $infodb_key = "";
@@ -340 +340 @@
       $infodb_value .= $infodb_line;
     }
+  }
+
+  close (PIPEIN);
+}
+
+sub read_infodb_keys_gdbm
+{
+  my $infodb_file_path = shift(@_);
+  my $infodb_map = shift(@_);
+
+  open (PIPEIN, "gdbmkeys \"$infodb_file_path\" |") || die "couldn't open pipe from gdbmkeys \$infodb_file_path\"\n";
+  my $infodb_line = "";
+  my $infodb_key = "";
+  my $infodb_value = "";
+  while (defined ($infodb_line = <PIPEIN>))
+  {
+      chomp $infodb_line; # remove end of line 
+
+      $infodb_map->{$infodb_line} = 1;
   }