Changeset 28108 for main/trunk/greenstone2

Timestamp:

2013-08-21T10:06:44+12:00 (11 years ago)

Author:

davidb

Message:

Implementation of set_infodb_entry() function for JDB database type

File:

• main/trunk/greenstone2/perllib/dbutil/jdbm.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/dbutil/jdbm.pm

@@ -198 +198 @@
 }
 
-
 sub set_infodb_entry
 {
-  my $infodb_file_path = shift(@_);
-  my $infodb_key = shift(@_);
-  my $infodb_map = shift(@_);
-  
-  print STDERR "***** jdbm::set_infodb_entry() not implemented yet!\n";
-}
+    my $infodb_file_path = shift(@_);
+    my $infodb_key = shift(@_);
+    my $infodb_map = shift(@_);
+  
+    # HTML escape anything that is not part of the "contains" metadata value
+    foreach my $k (keys %$infodb_map) {
+      my @escaped_v = ();
+      foreach my $v (@{$infodb_map->{$k}}) {
+        if ($k eq "contains") {
+          push(@escaped_v, $v);
+        }
+        else {
+          my $ev = &ghtml::unescape_html($v);
+          push(@escaped_v, $ev);
+        }
+      }
+      $infodb_map->{$k} = \@escaped_v;
+    }
+    
+    # Generate the record string
+    my $serialized_infodb_map = &dbutil::convert_infodb_hash_to_string($infodb_map);
+###    print STDERR "**** ser dr\n$serialized_infodb_map\n\n\n";
+
+    # Store it into JDBM using 'Txt2Jdb .... -append' which despite its name
+    # actually replaces the record if it already exists
+
+    my $jdbmwrap_jar = &util::filename_cat($ENV{'GSDLHOME'},"bin","java", "JDBMWrapper.jar");
+    my $jdbm_jar = &util::filename_cat($ENV{'GSDLHOME'},"lib","java", "jdbm.jar");
+    
+    my $classpath = &util::pathname_cat($jdbmwrap_jar,$jdbm_jar);
+
+    # Lop off file extension, as JDBM does not expect this to be present
+    $infodb_file_path =~ s/\.jdb$//;
+
+    my $cmd = "java -cp \"$classpath\" Txt2Jdb -append \"$infodb_file_path\"";
+
+    my $status = undef;
+    if(!open(GOUT, "| $cmd"))
+    {
+    print STDERR "Error: jdbm::set_infodb_entry() failed to open pipe to: $cmd\n";
+    print STDERR "       $!\n";
+    $status = -1;
+    }
+    else {
+    binmode(GOUT,":utf8");
+    
+    print GOUT "[$infodb_key]\n";
+    print GOUT "$serialized_infodb_map\n";
+
+    close(GOUT);
+    $status = 0; # as in exit status of cmd OK
+    }
+
+    return $status;  
+}
+
+