Changeset 18456 for gsdl/trunk/perllib/GDBMUtils.pm

Timestamp:

2009-02-03T09:48:19+13:00 (15 years ago)

Author:

davidb

Message:

Additions to support the deleting of documents from the index. Only works for indexers that support incremental building, e.g. lucene

File:

• gsdl/trunk/perllib/GDBMUtils.pm (modified) (3 diffs)

gsdl/trunk/perllib/GDBMUtils.pm

@@ -17 +17 @@
 
 sub gdbmDatabaseGet
-  {
+{
     my ($database, $oid) = @_;
 
@@ -29 +29 @@
     # Done
     return $value;
-  }
+}
+
+sub gdbmRecordToHash
+{
+    my ($database, $oid) = @_;
+
+    my $val = gdbmDatabaseGet($database,$oid);
+
+    my $rec = {};
+
+    while ($val =~ m/^<(.*?)>(.*)$/mg) {
+    my $metaname = $1;
+    my $metavalue = $2;
+
+    if (!defined $rec->{$metaname}) {
+        $rec->{$metaname} = [ $metavalue ];
+    }
+    else {
+        push(@{$rec->{$metaname}},$metavalue);
+    }
+    }
+
+    return $rec;
+}
+
 
 sub gdbmDatabaseAppend
-  {
+{
     my ($database, $oid, $value) = @_;
 
@@ -71 +95 @@
     print STDERR "#Set document\ncmd: gdbmset$exe \"$database\" \"$oid\"\n" if $debug;
 
-    # Think it would be clearer if this funcctionality was done
-    # by a separate executable, e.g. gdbmremove
-    `gdbmset$exe "$database" "$oid"`;
+    `gdbmdel$exe "$database" "$oid"`;
 }