Changeset 30338 for gs2-extensions/tdb/trunk/perllib/DBDrivers/JDBM.pm
- Timestamp:
- 2015-12-03T15:44:18+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb/trunk/perllib/DBDrivers/JDBM.pm
r30318 r30338 32 32 use util; 33 33 use FileUtils; 34 use DBDrivers::BaseDBDriver; 34 # - OO inheritence 35 use parent 'DBDrivers::BaseDBDriver'; 35 36 36 37 sub BEGIN 37 38 { 38 @DBDrivers::JDBM::ISA = ( 'DBDrivers::BaseDBDriver' ); 39 } 40 39 if (!defined $ENV{'GSDLHOME'} || !defined $ENV{'GSDLOS'}) { 40 die("Error! Environment must be prepared by sourcing setup.bash\n"); 41 } 42 } 43 44 45 ## @function constructor 46 # 41 47 sub new 42 48 { 43 49 my $class = shift(@_); 44 return bless ($self, $class); 45 } 50 my $self = DBDrivers::BaseDBDriver->new(); 51 $self->{'default_file_extension'} = 'jdb'; 52 bless($self, $class); 53 return $self; 54 } 55 ## constructor() ## 56 46 57 47 58 # ----------------------------------------------------------------------------- … … 54 65 # be constructed that changes between much of the code that is used 55 66 67 # Handled by BaseDBDriver 68 # sub get_infodb_file_path {} 69 70 71 56 72 sub open_infodb_write_handle 57 73 { 58 my $infodb_file_path = shift(@_); 59 my $opt_append = shift(@_); 60 61 my $jdbmwrap_jar = &util::filename_cat($ENV{'GSDLHOME'},"bin","java", "JDBMWrapper.jar"); 62 my $jdbm_jar = &util::filename_cat($ENV{'GSDLHOME'},"lib","java", "jdbm.jar"); 74 my $self = shift(@_); 75 my $infodb_file_path = shift(@_); 76 my $opt_append = shift(@_); 77 if (!defined $opt_append) { 78 $opt_append = ''; 79 } 80 $self->_debugPrint('("' . $infodb_file_path . '","' . $opt_append . '")'); 81 82 my $jdbmwrap_jar = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"bin","java", "JDBMWrapper.jar"); 83 my $jdbm_jar = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"lib","java", "jdbm.jar"); 63 84 64 85 my $classpath = &util::pathname_cat($jdbmwrap_jar,$jdbm_jar); … … 76 97 my $txt2jdb_cmd = "java -cp \"$classpath\" Txt2Jdb"; 77 98 78 if ( (defined $opt_append) && ($opt_append eq "append")) {99 if ($opt_append eq "append") { 79 100 $txt2jdb_cmd .= " -append"; 80 101 print STDERR "Append operation to $infodb_file_path\n"; … … 113 134 114 135 close($infodb_handle); 115 }116 117 118 sub get_infodb_file_path119 {120 my $collection_name = shift(@_);121 my $infodb_directory_path = shift(@_);122 123 my $infodb_file_extension = ".jdb";124 my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;125 return &util::filename_cat($infodb_directory_path, $infodb_file_name);126 136 } 127 137
Note:
See TracChangeset
for help on using the changeset viewer.