2 # Display QSL information from the local database
4 # Copyright (c) 2003 Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @call = split /\s+/, uc $line;
15 return (1, $self->msg('db3', 'QSL')) unless $QSL::dbm;
17 foreach my $call (@call) {
18 my $q = QSL::get($call);
21 push @out, $self->msg('qsl1') unless @out;
22 for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
23 push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
27 push @out, $self->msg('db2', $call, 'DxQSL DB');