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

Timestamp:

2008-05-26T16:47:17+12:00 (16 years ago)

Author:

mdewsnip

Message:

Merged the one lonely function in unbuildutil into dbutil, as it is GDBM-specific.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -29 +29 @@
 
 
+sub read_infodb_file
+{
+    my $infodb_file_path = shift(@_);
+    my $infodb_map = shift(@_);
+
+    &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
+}
+
+
 sub write_infodb_entry
 {
@@ -36 +45 @@
 
     &write_infodb_entry_gdbm($infodb_handle, $infodb_key, $infodb_map);
+}
+
+
+
+# ----------------------------------------------------------------------------------------
+#   GDBM FUNCTIONS
+# ----------------------------------------------------------------------------------------
+
+sub read_infodb_file_gdbm
+{
+    my $infodb_file_path = shift(@_);
+    my $infodb_map = shift(@_);
+
+    open (PIPEIN, "db2txt \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt\n";
+    my $infodb_line = "";
+    my $infodb_key = "";
+    my $infodb_value = "";
+    while (defined ($infodb_line = <PIPEIN>))
+    {
+    if ($infodb_line =~ /^\[([^\]]+)\]$/)
+    {
+        $infodb_key = $1;
+    }
+    elsif ($infodb_line =~ /^-{70}$/)
+    {
+        $infodb_map->{$infodb_key} = $infodb_value;
+        $infodb_key = "";
+        $infodb_value = "";
+    }
+    else
+    {
+        $infodb_value .= $infodb_line;
+    }
+    }
+
+    close (PIPEIN);
 }