use DXDebug;
use Prefix;
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
use vars qw($qslfn $dbm);
$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;