3 # Local 'autoqsl' module for DXSpider
5 # Copyright (c) 2003 Dirk Koopman G1TLH
17 use Data::Structure::Util qw(unbless);
19 use vars qw($qslfn $dbm $maxentries);
27 localdata_mv("$qslfn.v1j");
32 my $ufn = localdata("$qslfn.v1j");
36 Prefix::load() unless Prefix::loaded();
41 $dbm = tie (%u, 'DB_File', $ufn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open qsl file: $qslfn ($!)";
43 $dbm = tie (%u, 'DB_File', $ufn, O_RDONLY, 0666, $DB_BTREE) or confess "can't open qsl file: $qslfn ($!)";
50 dbg("DXQSL finished");
58 my ($pkg, $call) = @_;
59 return bless [uc $call, []], $pkg;
62 # called $self->update(comment, time, spotter)
63 # $self has the callsign as the first argument in an array of array references
64 # the format of each entry is [manager, times found, last time, last reporter]
74 return unless length $line && $line =~ /\b(?:QSL|VIA)\b/i;
75 foreach my $man (split /\b/, uc $line) {
78 if (is_callsign($man) && !is_qra($man)) {
79 my @pre = Prefix::extract($man);
80 $tok = $man if @pre && $pre[0] ne 'Q';
81 } elsif ($man =~ /^BUR/) {
83 } elsif ($man =~ /^LOTW/) {
85 } elsif ($man eq 'HC' || $man =~ /^HOM/ || $man =~ /^DIR/) {
87 } elsif ($man =~ /^QRZ/) {
93 my ($r) = grep {$_->[0] eq $tok} @{$self->[1]};
102 $r = [$tok, 1, $t, $by];
103 unshift @{$self->[1]}, $r;
106 # prune the number of entries
107 pop @{$self->[1]} while (@{$self->[1]} > $maxentries);
110 $self->put if $changed;
115 return undef unless $dbm;
119 my $r = $dbm->get($key, $value);
121 return decode($value);
129 my $key = $self->[0];
130 my $value = encode($self);
131 $dbm->put($key, $value);
136 unlink "$main::data/$qslfn.v1j";
137 unlink "$main::local_data/$qslfn.v1j";
143 return $json->decode($_[0], __PACKAGE__);
149 return $json->encode($_[0]);