3 # Local 'autoqsl' module for DXSpider
5 # Copyright (c) 2003 Dirk Koopman G1TLH
15 use Storable qw(nfreeze thaw);
17 use vars qw($VERSION $BRANCH);
18 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
19 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
20 $main::build += $VERSION;
21 $main::branch += $BRANCH;
23 use vars qw($qslfn $dbm);
30 my $ufn = "$main::root/data/$qslfn.v1";
34 $dbm = tie (%u, 'DB_File', $ufn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open qsl file: $qslfn ($!)";
36 $dbm = tie (%u, 'DB_File', $ufn, O_RDONLY, 0666, $DB_BTREE) or confess "can't open qsl file: $qslfn ($!)";
48 my ($pkg, $call) = @_;
49 return bless [uc $call, []], $pkg;
52 # the format of each entry is [manager, times found, last time]
60 my @tok = map {/^BUR/ || is_callsign($_) ? $_ : ()} split(/\b/, uc $line);
61 foreach my $man (@tok) {
62 $man = 'BUREAU' if $man =~ /^BUR/;
63 my ($r) = grep {$_->[0] eq $man} @{$self->[1]};
71 $r = [$man, 1, $t, $by];
72 push @{$self->[1]}, $r;
81 return undef unless $dbm;
84 my $r = $dbm->get($key, $value);
93 my $value = nfreeze($self);
95 $dbm->put($key, $value);