$dbm = undef;
$maxentries = 50;
+my %u;
my $json;
localdata_mv("$qslfn.v1j");
$json = JSON->new->canonical(1);
Prefix::load() unless Prefix::loaded();
-
- my %u;
- undef $dbm;
+ finish() if $dbm;
+
if ($mode) {
$dbm = tie (%u, 'DB_File', $ufn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open qsl file: $qslfn ($!)";
} else {
sub finish
{
+ $dbm->sync;
undef $dbm;
+ untie %u;
}
sub new
sub remove_files
{
- unlink "$main::data/qsl.v1j";
- unlink "$main::local_data/qsl.v1j";
+ unlink "$main::data/$qslfn.v1j";
+ unlink "$main::local_data/$qslfn.v1j";
}
# thaw the user