Changeset 18658

Show
Ignore:
Timestamp:
11.03.2009 13:13:31 (10 years ago)
Author:
kjdon
Message:

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

Location:
gsdl/trunk/perllib
Files:
3 modified

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;