Changeset 18660 for gsdl/trunk

Timestamp:

2009-03-11T13:19:22+13:00 (15 years ago)

Author:

kjdon

Message:

we now use gdb instead of ldb/bdb for collection and archives-inf databases. We have a rename step to rename any legacy databases

Location:

gsdl/trunk/bin/script

Files:

• export.pl (modified) (1 diff)
• exportcol.pl (modified) (2 diffs)
• import.pl (modified) (1 diff)
• incremental-import.pl (modified) (1 diff)

gsdl/trunk/bin/script/export.pl

@@ -501 +501 @@
     } elsif ($saveas =~ m/^.*METS$/ || $saveas eq "MARC" ) {
 ##  $expinfo_doc_filename = &util::filename_cat ($exportdir, "export.inf");
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
+    my $doc_db = "archiveinf-doc";
     $expinfo_doc_filename = &util::filename_cat ($exportdir, $doc_db);
+    &util::rename_gdbm_file($expinfo_doc_filename); # ensures gdb in case we have an existing legacy ldb one - can this happen?
+    $expinfo_doc_filename .= ".gdb";
+
     }
         

gsdl/trunk/bin/script/exportcol.pl

@@ -238 +238 @@
     print MANIFESTCFG '  etc ';
     foreach my $c (@valid_coll_list) {
-        print MANIFESTCFG "collect\\$c\\index\\text\\$c.ldb ";
+        print MANIFESTCFG "collect\\$c\\index\\text\\$c.gdb ";
     }
     print MANIFESTCFG "\n\n";
@@ -323 +323 @@
     &util::mk_all_dir ($newcoldir);
     &util::cp_r ($colindexdir, $newcoldir);
+    &util::rename_gdbm_file(&util::filename_cat ($newcoldir, "index", "text", $c));
     &util::cp_r ($coletcdir, $newcoldir);
     &util::cp_r ($colimagesdir, $newcoldir) if (-e $colimagesdir);

gsdl/trunk/bin/script/import.pl

@@ -529 +529 @@
     # read the archive information file
 ##  $arcinfo_doc_filename = &util::filename_cat ($archivedir, "archives.inf");
-
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
-    my $src_db = "archiveinf-src$db_ext";
-    $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
-    $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db);
-    
+    
+    $arcinfo_doc_filename = &util::filename_cat ($archivedir, "archiveinf-doc");
+    &util::rename_gdbm_file($arcinfo_doc_filename); # ensures gdb
+    $arcinfo_doc_filename .= ".gdb";
+    
+    $arcinfo_src_filename = &util::filename_cat ($archivedir, "archiveinf-src");   
+    &util::rename_gdbm_file($arcinfo_src_filename); # ensures gdb
+    $arcinfo_src_filename .= ".gdb";
+
+                            
     $archive_info = new arcinfo ();
     $archive_info->load_info ($arcinfo_doc_filename);

gsdl/trunk/bin/script/incremental-import.pl

@@ -100 +100 @@
     }
     
-    my $db_ext = (&util::is_little_endian() ? ".ldb" : ".bdb");
-
-    my $archiveinf_doc = &util::filename_cat($archive_dir,"archiveinf-doc$db_ext");
-
+    my $archiveinf_doc = &util::filename_cat($archive_dir,"archiveinf-doc");
+    &util::rename_gdbm_file($archiveinf_doc); # ensure gdb
+    $archiveinf_doc .= ".gdb";
     my $quoted_argv = join(" ", map { "\"$_\"" } @filtered_argv);