Ignore:
Timestamp:
03/11/09 13:19:22 (12 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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/bin/script/import.pl

    r18590 r18660  
    529529    # read the archive information file
    530530##  $arcinfo_doc_filename = &util::filename_cat ($archivedir, "archives.inf");
    531 
    532     my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
    533     my $doc_db = "archiveinf-doc$db_ext";
    534     my $src_db = "archiveinf-src$db_ext";
    535     $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
    536     $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db);
    537    
     531   
     532    $arcinfo_doc_filename = &util::filename_cat ($archivedir, "archiveinf-doc");
     533    &util::rename_gdbm_file($arcinfo_doc_filename); # ensures gdb
     534    $arcinfo_doc_filename .= ".gdb";
     535   
     536    $arcinfo_src_filename = &util::filename_cat ($archivedir, "archiveinf-src");   
     537    &util::rename_gdbm_file($arcinfo_src_filename); # ensures gdb
     538    $arcinfo_src_filename .= ".gdb";
     539
     540                           
    538541    $archive_info = new arcinfo ();
    539542    $archive_info->load_info ($arcinfo_doc_filename);
Note: See TracChangeset for help on using the changeset viewer.