$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]
+# called $self->update(comment, time, spotter)
+# $self has the callsign as the first argument in an array of array references
+# the format of each entry is [manager, times found, last time, last reporter]
sub update
{
return unless $dbm;