Changeset 18658


Ignore:
Timestamp:
03/11/09 13:13:31 (12 years ago)
Author:
kjdon
Message:

we now use .gdb as gdbm db file extension instead of ldb/bdb

Location:
gsdl/trunk/perllib
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/GDBMUtils.pm

    r18469 r18658  
    197197    my $collection = shift(@_);
    198198
    199     # Find out the database extension
    200     my $ext = &util::is_little_endian() ? ".ldb" : ".bdb";
    201 
    202     # Now return the full filename of the database
    203 
    204     return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", $collection.$ext);
     199    # Return the full filename of the database
     200
     201    return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", "$collection.gdb");
    205202  }
    206203# /** getDatabasePath **/
  • gsdl/trunk/perllib/dbutil.pm

    r18467 r18658  
    348348  my $infodb_directory_path = shift(@_);
    349349
    350   my $infodb_file_extension = (&util::is_little_endian() ? ".ldb" : ".bdb");
     350  my $infodb_file_extension = ".gdb";
    351351  my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;
    352352  return &util::filename_cat($infodb_directory_path, $infodb_file_name);
  • gsdl/trunk/perllib/inexport.pm

    r18554 r18658  
    181181    my ($archive_info,$deleted_files_ref,$archivedir,$verbosity,$mode_text) = @_;
    182182
    183     my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
    184     my $doc_db = "archiveinf-doc$db_ext";
    185     my $src_db = "archiveinf-src$db_ext";
     183    my $doc_db = "archiveinf-doc.gdb";
     184    my $src_db = "archiveinf-src.gdb";
    186185    my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
    187186    my $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db);
     
    263262    # deals with it appropriately.
    264263
    265     my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
    266     my $doc_db = "archiveinf-doc$db_ext";
     264    my $doc_db = "archiveinf-doc.gdb";
    267265    my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
    268266
     
    296294
    297295
    298 
    2992961;
Note: See TracChangeset for help on using the changeset viewer.