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

Timestamp:

2009-02-06T18:16:32+13:00 (15 years ago)

Author:

davidb

Message:

Additions made to dbutil so various DB backends can support deletion from database

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -168 +168 @@
 
 
+sub delete_infodb_entry
+{
+  my $infodb_type = shift(@_);
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+
+  if ($infodb_type eq "sqlite")
+  {
+    return &delete_infodb_entry_sqlite($infodb_handle, $infodb_key);
+  }
+  elsif ($infodb_type eq "gdbm-txtgz")
+  {
+    return &delete_infodb_entry_gdbm_txtgz($infodb_handle, $infodb_key);
+  }
+  elsif ($infodb_type eq "mssql")
+  {
+    return &delete_infodb_entry_mssql($infodb_handle, $infodb_key);
+  }
+
+  # Use GDBM if the infodb type is empty or not one of the values above
+  return &delete_infodb_entry_gdbm($infodb_handle, $infodb_key);
+}
+
+
 
 # -----------------------------------------------------------------------------
@@ -276 +300 @@
 
 
+sub delete_infodb_entry_gdbm_txtgz
+{
+
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+  
+
+  # A minus at the end of a key (after the ]) signifies 'delete'
+  print $infodb_handle "[$infodb_key]-\n"; 
+
+  # The 70 minus signs are also needed, to help make the parsing by db2txt simple
+  print $infodb_handle '-' x 70, "\n";
+}
+
+
 
 # -----------------------------------------------------------------------------
@@ -369 +408 @@
   # With infodb_handle already set up, works the same as _gdbm_txtgz version
   write_infodb_entry_gdbm_txtgz(@_);
+}
+
+sub delete_infodb_entry_gdbm
+{
+  # With infodb_handle already set up, works the same as _gdbm_txtgz version
+  delete_infodb_entry_gdbm_txtgz(@_);
 }
 
@@ -486 +531 @@
   }
 }
+
+
+
+sub delete_infodb_entry_sqlite
+{
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+
+  # Delete the key from the "data" table
+
+  my $safe_infodb_key = &sqlite_safe($infodb_key);
+
+  print $infodb_handle "DELETE FROM data WHERE key='" . $safe_infodb_key . "';\n";
+
+  # If this infodb entry is for a document, delete the
+  #   "document_metadata" table entry also (for use by the dynamic classifiers)
+  if ($infodb_key !~ /\./)
+  {
+      # Possible for there not to be a docOID matching this infodb_key
+      # (entries are only made when <doctype> == doc
+      # Attempt to delete it, and don't complain if one isn't found
+
+      print $infodb_handle "DELETE FROM document_metadata WHERE docOID='" . $safe_infodb_key . "';\n";
+
+  }
+}
+
+
+
+
 
 
@@ -667 +742 @@
 }
 
+sub delete_infodb_entry_mssql
+{
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+  
+  # Delete the key from the "data" table
+
+  
+  # Prepare the query
+  my $safe_infodb_key = &mssql_safe($infodb_key);
+  my $query = "DELETE FROM " . $mssql_data_table_name . " WHERE one_key=N'" . $safe_infodb_key . "'";
+  dbquery($infodb_handle, $query);
+  
+  # If this infodb entry is for a document, add all the interesting document metadata to the
+  # "document_metadata" table (for use by the dynamic classifiers)
+  if ($infodb_key !~ /\./)
+  {
+      # Possible for there not to be a docOID matching this infodb_key
+      # (entries are only made when <doctype> == doc
+      # Attempt to delete it, and don't complain if one isn't found
+
+      dbquery($infodb_handle, "DELETE FROM " . $mssql_document_metadata_table_name . " WHERE docOID=N'" . $safe_infodb_key . "'");
+      
+  }
+}
+
+
 
 sub mssql_safe