Changeset 18657 for gsdl

Timestamp:

2009-03-11T13:12:31+13:00 (15 years ago)

Author:

kjdon

Message:

added a method for renaming a gdbm database from ldb/bdb to gdb

File:

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

gsdl/trunk/perllib/util.pm

@@ -1056 +1056 @@
 }
 
+# makes sure that the file has a gdb extension
+sub rename_gdbm_file {
+    my ($filename_no_ext) = @_;
+
+    my $new_filename = "$filename_no_ext.gdb";
+    return if (-f $new_filename); # if gdb file exists, don't need to do anything
+    # try ldb
+    my $old_filename = "$filename_no_ext.ldb";
+    
+    if (-f $old_filename) {
+    
+    rename ($old_filename, $new_filename);
+    if (-f $old_filename) {
+        print STDERR "old $old_filename still there\n";
+    }
+    return;
+    }
+    # try bdb
+    $old_filename = "$filename_no_ext.bdb";
+    if (-f $old_filename) {
+    
+    rename ($old_filename, $new_filename);
+    return;
+    }
+
+    print STDERR "no $filename_no_ext.ldb/bdb file to rename\n";
+}
+
+
+
 1;