Changeset 30349 for gs2-extensions/tdb
- Timestamp:
- 2015-12-16T10:41:52+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb/trunk/perllib/DBDrivers/SQLITE.pm
r30330 r30349 45 45 { 46 46 my $class = shift(@_); 47 my $self = DBDrivers::BaseDBDriver->new( );47 my $self = DBDrivers::BaseDBDriver->new(@_); 48 48 $self->{'default_file_extension'} = 'db'; 49 49 # Please set db_fast to 1 if you wish to enable faster I/O to the database … … 68 68 # The SQLite path we are using 69 69 $self->{'sqlite_executable'} = ''; 70 71 # Support 72 $self->{'supports_set'} = 1; 73 70 74 bless($self, $class); 71 75 return $self; … … 107 111 my $sqlcmd = shift(@_); 108 112 my $result = ""; 109 $self-> _debugPrint('("' . $infodb_file_path . '", "' . $sqlcmd . '")');113 $self->debugPrint('("' . $infodb_file_path . '", "' . $sqlcmd . '")'); 110 114 my $sqlite3_exe = $self->_getExecutable(); 111 115 my $infodb_handle = undef; … … 160 164 } 161 165 162 $self-> _debugPrint('("' . $infodb_file_path . '","' . $opt_append . '")');166 $self->debugPrint('("' . $infodb_file_path . '","' . $opt_append . '")'); 163 167 164 168 my $sqlite3_exe = $self->_getExecutable(); … … 224 228 my $self = shift(@_); 225 229 my $infodb_handle = shift(@_); 226 $self-> _debugPrint('(<handle>)');230 $self->debugPrint('(<handle>)'); 227 231 # Close the transaction we began when opening the file 228 232 print $infodb_handle "END TRANSACTION;\n"; … … 239 243 my $infodb_file_path = shift(@_); 240 244 my $infodb_map = shift(@_); 241 $self-> _debugPrint('("' . $infodb_file_path . '", <hashmap>)');245 $self->debugPrint('("' . $infodb_file_path . '", <hashmap>)'); 242 246 my $keys_str = $self->_readInfoDBCmd($infodb_file_path,"SELECT key FROM data ORDER BY key;"); 243 247 my @keys = split(/\n/,$keys_str); … … 259 263 my $infodb_file_path = shift(@_); 260 264 my $infodb_map = shift(@_); 261 $self-> _debugPrint('("' . $infodb_file_path . '", <hashmap>)');265 $self->debugPrint('("' . $infodb_file_path . '", <hashmap>)'); 262 266 my $keys_str = $self->_readInfoDBCmd($infodb_file_path,"SELECT key FROM data;"); 263 267 my @keys = split(/\n/,$keys_str); … … 277 281 my $infodb_file_path = shift(@_); 278 282 my $infodb_key = shift(@_); 279 $self-> _debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '")');283 $self->debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '")'); 280 284 my $key_safe = $self->_sqliteSafe($infodb_key); 281 285 my $select_val_cmd = "SELECT value FROM data WHERE key='$key_safe';"; … … 293 297 my $infodb_file_path = shift(@_); 294 298 my $infodb_key = shift(@_); 295 $self-> _debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '")');299 $self->debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '")'); 296 300 my $val_str = $self->read_infodb_rawentry($infodb_file_path,$infodb_key); 297 my $rec_hash = &dbutil::convert_infodb_string_to_hash($val_str);301 my $rec_hash = $self->convert_infodb_string_to_hash($val_str); 298 302 return $rec_hash; 299 303 } … … 309 313 my $infodb_key = shift(@_); 310 314 my $infodb_map = shift(@_); 311 $self-> _debugPrint('(<handle>, "' . $infodb_key . '", <hashmap>)');315 $self->debugPrint('(<handle>, "' . $infodb_key . '", <hashmap>)'); 312 316 # Add the key -> value mapping into the "data" table 313 317 my $infodb_entry_value = ""; … … 368 372 my $infodb_key = shift(@_); 369 373 my $infodb_val = shift(@_); 370 $self-> _debugPrint('(<handle>, "' . $infodb_key . '", "' . $infodb_val . '")');374 $self->debugPrint('(<handle>, "' . $infodb_key . '", "' . $infodb_val . '")'); 371 375 my $safe_infodb_key = $self->_sqliteSafe($infodb_key); 372 376 print $infodb_handle "INSERT OR REPLACE INTO data (key, value) VALUES ('" . $safe_infodb_key . "', '" . $self->_sqliteSafe($infodb_val) . "');\n"; … … 383 387 my $infodb_key = shift(@_); 384 388 my $infodb_map = shift(@_); 385 $self-> _debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '", <hashmap>)');389 $self->debugPrint('("' . $infodb_file_path . '", "' . $infodb_key . '", <hashmap>)'); 386 390 my $infodb_handle = $self->open_infodb_write_handle($infodb_file_path, "append"); 387 391 if (!defined $infodb_handle) { … … 406 410 my $infodb_handle = shift(@_); 407 411 my $infodb_key = shift(@_); 408 $self-> _debugPrint('(<handle>, "' . $infodb_key . '")');412 $self->debugPrint('(<handle>, "' . $infodb_key . '")'); 409 413 # Delete the key from the "data" table 410 414 my $safe_infodb_key = $self->_sqliteSafe($infodb_key);
Note:
See TracChangeset
for help on using the changeset viewer.