$qslfn = 'qsl';
$dbm = undef;
+localdata_mv("$qslfn.v1");
+
sub init
{
my $mode = shift;
- my $ufn = "$main::root/data/$qslfn.v1";
+ my $ufn = localdata("$qslfn.v1");
Prefix::load() unless Prefix::loaded();
return bless [uc $call, []], $pkg;
}
-# the format of each entry is [manager, times found, last time]
+# the format of each entry is [manager, times found, last time, last reporter]
sub update
{
return unless $dbm;