Changeset 21856 for main/trunk/greenstone2/perllib/dbutil/sqlite.pm

Timestamp:

2010-03-31T23:08:43+13:00 (14 years ago)

Author:

davidb

Message:

read_infodb_entry() implemented for sqlite. new write_infodb_rawentry() added for main dbutil.dm class

File:

• main/trunk/greenstone2/perllib/dbutil/sqlite.pm (modified) (3 diffs)

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

@@ -72 +72 @@
 
 
+sub read_infodb_cmd
+{
+  my $infodb_file_path = shift(@_);
+  my $sqlcmd = shift(@_);
+
+  my $result = "";
+
+  my $sqlite3_exe = &util::filename_cat($ENV{'GSDLHOME'},"bin",$ENV{'GSDLOS'}, "sqlite3" . &util::get_os_exe());
+  my $infodb_handle = undef;
+  my $cmd = "echo \"$sqlcmd\" | \"$sqlite3_exe\" \"$infodb_file_path\"";
+
+  if (!-e "$sqlite3_exe" || !open($infodb_handle, "$cmd |"))
+  {
+      print STDERR "Unable to execute: $cmd\n";
+      print STDERR "$!\n";
+  }
+  else {
+
+      my $line;
+      while (defined($line=<$infodb_handle>)) {
+      $result .= $line;
+      }
+
+      close($infodb_handle);
+  }
+
+  return $result;
+}
+
 sub get_infodb_file_path
 {
@@ -88 +117 @@
   my $infodb_map = shift(@_);
 
-  # !! TO IMPLEMENT
+
+  my $keys_str = read_infodb_cmd($infodb_file_path,"SELECT key FROM data;");
+
+  my @keys = split(/\n/,$keys_str);
+
+  foreach my $k (@keys) {
+      
+      my $k_safe = &sqlite_safe($k);
+      my $select_val_cmd = "SELECT value FROM data WHERE key='$k_safe';";
+
+      my $val_str = read_infodb_cmd($infodb_file_path,$select_val_cmd);
+
+      $infodb_map->{$k} = $val_str;
+  }
+
 }
 
@@ -146 +189 @@
 
 
+sub write_infodb_rawentry
+{
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+  my $infodb_val = shift(@_);
+
+  my $safe_infodb_key = &sqlite_safe($infodb_key);
+  print $infodb_handle "INSERT OR REPLACE INTO data (key, value) VALUES ('" . $safe_infodb_key . "', '" . &sqlite_safe($infodb_val) . "');\n";
+}
+
+
+
 sub delete_infodb_entry
 {