Changeset 15722 for gsdl

Timestamp:

2008-05-27T14:17:24+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Added sqlite versions of the three important infodb functions -- so you now can build an sqlite database automatically!

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (1 diff)

gsdl/trunk/perllib/dbutil.pm

@@ -151 +151 @@
 
 
+
+# ----------------------------------------------------------------------------------------
+#   SQLITE FUNCTIONS
+# ----------------------------------------------------------------------------------------
+
+sub get_infodb_file_path_sqlite
+{
+    my $collection_name = shift(@_);
+    my $infodb_directory_path = shift(@_);
+
+    my $infodb_file_extension = ".db";
+    my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;
+    return &util::filename_cat($infodb_directory_path, $infodb_file_name);
+}
+
+
+sub open_infodb_write_handle_sqlite
+{
+    my $infodb_file_path = shift(@_);
+
+    my $sqlite3_exe = &util::filename_cat("$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}", "sqlite3" . &util::get_os_exe());
+    my $infodb_file_handle = undef;
+    if (!-e "$sqlite3_exe" || !open($infodb_file_handle, "| $sqlite3_exe \"$infodb_file_path\""))
+    {
+    return undef;
+    }
+
+    print $infodb_file_handle "CREATE TABLE data (key TEXT, value TEXT, PRIMARY KEY(key));\n";
+
+    return $infodb_file_handle;
+}
+
+
+sub write_infodb_entry_sqlite
+{
+    my $infodb_handle = shift(@_);
+    my $infodb_key = shift(@_);
+    my $infodb_map = shift(@_);
+
+    my $infodb_entry_value = "";
+    foreach my $infodb_value_key (keys(%$infodb_map))
+    {
+    foreach my $infodb_value (@{$infodb_map->{$infodb_value_key}})
+    {
+        $infodb_entry_value .= "<$infodb_value_key>" . $infodb_value . "\n";
+    }
+    }
+
+    # Escape any single quotes in the value
+    $infodb_entry_value =~ s/\'/\'\'/g;
+
+    print $infodb_handle "DELETE FROM data WHERE key='" . $infodb_key . "';\n";
+    print $infodb_handle "INSERT INTO data (key, value) VALUES ('" . $infodb_key . "', '" . $infodb_entry_value . "');\n";
+}
+
+
 1;